diff --git a/ChangeLog.md b/ChangeLog.md --- a/ChangeLog.md +++ b/ChangeLog.md @@ -1,3 +1,7 @@ +### 3.0.28 + ++ Update to haskell-gi(-base) 0.22 + ### 3.0.27 + Mark the 'length' argument of [builderAddFromString](https://hackage.haskell.org/package/gi-gtk-3.0.27/docs/GI-Gtk-Objects-Builder.html#v:builderAddFromString) is marked as signed, so '(-1)' can be passed without a warning. See [issue 209](https://github.com/haskell-gi/haskell-gi/issues/209). diff --git a/GI/Gtk.hs b/GI/Gtk.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk.hs @@ -0,0 +1,60 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk + ( module GI.Gtk.Callbacks , + module GI.Gtk.Constants , + module GI.Gtk.Enums , + module GI.Gtk.Flags , + module GI.Gtk.Functions , + module GI.Gtk.Interfaces , + module GI.Gtk.Objects , + module GI.Gtk.Structs , + + + + module Data.GI.Base , + + + ) where + +import GI.Gtk.Callbacks +import GI.Gtk.Constants +import GI.Gtk.Enums +import GI.Gtk.Flags +import GI.Gtk.Functions +import GI.Gtk.Interfaces +import GI.Gtk.Objects +import GI.Gtk.Structs + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + + +import Data.GI.Base + diff --git a/GI/Gtk/Callbacks.hs b/GI/Gtk/Callbacks.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Callbacks.hs @@ -0,0 +1,7195 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Callbacks + ( + + -- * Signals +-- ** AccelGroupActivate #signal:AccelGroupActivate# + + AccelGroupActivate , + C_AccelGroupActivate , + dynamic_AccelGroupActivate , + genClosure_AccelGroupActivate , + mk_AccelGroupActivate , + noAccelGroupActivate , + wrap_AccelGroupActivate , + + +-- ** AccelGroupFindFunc #signal:AccelGroupFindFunc# + + AccelGroupFindFunc , + AccelGroupFindFunc_WithClosures , + C_AccelGroupFindFunc , + drop_closures_AccelGroupFindFunc , + dynamic_AccelGroupFindFunc , + genClosure_AccelGroupFindFunc , + mk_AccelGroupFindFunc , + noAccelGroupFindFunc , + noAccelGroupFindFunc_WithClosures , + wrap_AccelGroupFindFunc , + + +-- ** AccelMapForeach #signal:AccelMapForeach# + + AccelMapForeach , + C_AccelMapForeach , + dynamic_AccelMapForeach , + genClosure_AccelMapForeach , + mk_AccelMapForeach , + noAccelMapForeach , + wrap_AccelMapForeach , + + +-- ** AssistantPageFunc #signal:AssistantPageFunc# + + AssistantPageFunc , + AssistantPageFunc_WithClosures , + C_AssistantPageFunc , + drop_closures_AssistantPageFunc , + dynamic_AssistantPageFunc , + genClosure_AssistantPageFunc , + mk_AssistantPageFunc , + noAssistantPageFunc , + noAssistantPageFunc_WithClosures , + wrap_AssistantPageFunc , + + +-- ** BuilderConnectFunc #signal:BuilderConnectFunc# + + BuilderConnectFunc , + BuilderConnectFunc_WithClosures , + C_BuilderConnectFunc , + drop_closures_BuilderConnectFunc , + dynamic_BuilderConnectFunc , + genClosure_BuilderConnectFunc , + mk_BuilderConnectFunc , + noBuilderConnectFunc , + noBuilderConnectFunc_WithClosures , + wrap_BuilderConnectFunc , + + +-- ** CalendarDetailFunc #signal:CalendarDetailFunc# + + C_CalendarDetailFunc , + CalendarDetailFunc , + CalendarDetailFunc_WithClosures , + drop_closures_CalendarDetailFunc , + dynamic_CalendarDetailFunc , + genClosure_CalendarDetailFunc , + mk_CalendarDetailFunc , + noCalendarDetailFunc , + noCalendarDetailFunc_WithClosures , + wrap_CalendarDetailFunc , + + +-- ** Callback #signal:Callback# + + C_Callback , + Callback , + Callback_WithClosures , + drop_closures_Callback , + dynamic_Callback , + genClosure_Callback , + mk_Callback , + noCallback , + noCallback_WithClosures , + wrap_Callback , + + +-- ** CellAllocCallback #signal:CellAllocCallback# + + C_CellAllocCallback , + CellAllocCallback , + CellAllocCallback_WithClosures , + drop_closures_CellAllocCallback , + dynamic_CellAllocCallback , + genClosure_CellAllocCallback , + mk_CellAllocCallback , + noCellAllocCallback , + noCellAllocCallback_WithClosures , + wrap_CellAllocCallback , + + +-- ** CellCallback #signal:CellCallback# + + C_CellCallback , + CellCallback , + CellCallback_WithClosures , + drop_closures_CellCallback , + dynamic_CellCallback , + genClosure_CellCallback , + mk_CellCallback , + noCellCallback , + noCellCallback_WithClosures , + wrap_CellCallback , + + +-- ** CellLayoutDataFunc #signal:CellLayoutDataFunc# + + C_CellLayoutDataFunc , + CellLayoutDataFunc , + CellLayoutDataFunc_WithClosures , + drop_closures_CellLayoutDataFunc , + dynamic_CellLayoutDataFunc , + genClosure_CellLayoutDataFunc , + mk_CellLayoutDataFunc , + noCellLayoutDataFunc , + noCellLayoutDataFunc_WithClosures , + wrap_CellLayoutDataFunc , + + +-- ** ClipboardClearFunc #signal:ClipboardClearFunc# + + C_ClipboardClearFunc , + ClipboardClearFunc , + dynamic_ClipboardClearFunc , + genClosure_ClipboardClearFunc , + mk_ClipboardClearFunc , + noClipboardClearFunc , + wrap_ClipboardClearFunc , + + +-- ** ClipboardGetFunc #signal:ClipboardGetFunc# + + C_ClipboardGetFunc , + ClipboardGetFunc , + dynamic_ClipboardGetFunc , + genClosure_ClipboardGetFunc , + mk_ClipboardGetFunc , + noClipboardGetFunc , + wrap_ClipboardGetFunc , + + +-- ** ClipboardImageReceivedFunc #signal:ClipboardImageReceivedFunc# + + C_ClipboardImageReceivedFunc , + ClipboardImageReceivedFunc , + ClipboardImageReceivedFunc_WithClosures , + drop_closures_ClipboardImageReceivedFunc, + dynamic_ClipboardImageReceivedFunc , + genClosure_ClipboardImageReceivedFunc , + mk_ClipboardImageReceivedFunc , + noClipboardImageReceivedFunc , + noClipboardImageReceivedFunc_WithClosures, + wrap_ClipboardImageReceivedFunc , + + +-- ** ClipboardReceivedFunc #signal:ClipboardReceivedFunc# + + C_ClipboardReceivedFunc , + ClipboardReceivedFunc , + ClipboardReceivedFunc_WithClosures , + drop_closures_ClipboardReceivedFunc , + dynamic_ClipboardReceivedFunc , + genClosure_ClipboardReceivedFunc , + mk_ClipboardReceivedFunc , + noClipboardReceivedFunc , + noClipboardReceivedFunc_WithClosures , + wrap_ClipboardReceivedFunc , + + +-- ** ClipboardRichTextReceivedFunc #signal:ClipboardRichTextReceivedFunc# + + C_ClipboardRichTextReceivedFunc , + ClipboardRichTextReceivedFunc , + ClipboardRichTextReceivedFunc_WithClosures, + drop_closures_ClipboardRichTextReceivedFunc, + dynamic_ClipboardRichTextReceivedFunc , + genClosure_ClipboardRichTextReceivedFunc, + mk_ClipboardRichTextReceivedFunc , + noClipboardRichTextReceivedFunc , + noClipboardRichTextReceivedFunc_WithClosures, + wrap_ClipboardRichTextReceivedFunc , + + +-- ** ClipboardTargetsReceivedFunc #signal:ClipboardTargetsReceivedFunc# + + C_ClipboardTargetsReceivedFunc , + ClipboardTargetsReceivedFunc , + ClipboardTargetsReceivedFunc_WithClosures, + drop_closures_ClipboardTargetsReceivedFunc, + dynamic_ClipboardTargetsReceivedFunc , + genClosure_ClipboardTargetsReceivedFunc , + mk_ClipboardTargetsReceivedFunc , + noClipboardTargetsReceivedFunc , + noClipboardTargetsReceivedFunc_WithClosures, + wrap_ClipboardTargetsReceivedFunc , + + +-- ** ClipboardTextReceivedFunc #signal:ClipboardTextReceivedFunc# + + C_ClipboardTextReceivedFunc , + ClipboardTextReceivedFunc , + ClipboardTextReceivedFunc_WithClosures , + drop_closures_ClipboardTextReceivedFunc , + dynamic_ClipboardTextReceivedFunc , + genClosure_ClipboardTextReceivedFunc , + mk_ClipboardTextReceivedFunc , + noClipboardTextReceivedFunc , + noClipboardTextReceivedFunc_WithClosures, + wrap_ClipboardTextReceivedFunc , + + +-- ** ClipboardURIReceivedFunc #signal:ClipboardURIReceivedFunc# + + C_ClipboardURIReceivedFunc , + ClipboardURIReceivedFunc , + ClipboardURIReceivedFunc_WithClosures , + drop_closures_ClipboardURIReceivedFunc , + dynamic_ClipboardURIReceivedFunc , + genClosure_ClipboardURIReceivedFunc , + mk_ClipboardURIReceivedFunc , + noClipboardURIReceivedFunc , + noClipboardURIReceivedFunc_WithClosures , + wrap_ClipboardURIReceivedFunc , + + +-- ** ColorSelectionChangePaletteFunc #signal:ColorSelectionChangePaletteFunc# + + C_ColorSelectionChangePaletteFunc , + ColorSelectionChangePaletteFunc , + dynamic_ColorSelectionChangePaletteFunc , + genClosure_ColorSelectionChangePaletteFunc, + mk_ColorSelectionChangePaletteFunc , + noColorSelectionChangePaletteFunc , + wrap_ColorSelectionChangePaletteFunc , + + +-- ** ColorSelectionChangePaletteWithScreenFunc #signal:ColorSelectionChangePaletteWithScreenFunc# + + C_ColorSelectionChangePaletteWithScreenFunc, + ColorSelectionChangePaletteWithScreenFunc, + dynamic_ColorSelectionChangePaletteWithScreenFunc, + genClosure_ColorSelectionChangePaletteWithScreenFunc, + mk_ColorSelectionChangePaletteWithScreenFunc, + noColorSelectionChangePaletteWithScreenFunc, + wrap_ColorSelectionChangePaletteWithScreenFunc, + + +-- ** EntryCompletionMatchFunc #signal:EntryCompletionMatchFunc# + + C_EntryCompletionMatchFunc , + EntryCompletionMatchFunc , + EntryCompletionMatchFunc_WithClosures , + drop_closures_EntryCompletionMatchFunc , + dynamic_EntryCompletionMatchFunc , + genClosure_EntryCompletionMatchFunc , + mk_EntryCompletionMatchFunc , + noEntryCompletionMatchFunc , + noEntryCompletionMatchFunc_WithClosures , + wrap_EntryCompletionMatchFunc , + + +-- ** FileFilterFunc #signal:FileFilterFunc# + + C_FileFilterFunc , + FileFilterFunc , + FileFilterFunc_WithClosures , + drop_closures_FileFilterFunc , + dynamic_FileFilterFunc , + genClosure_FileFilterFunc , + mk_FileFilterFunc , + noFileFilterFunc , + noFileFilterFunc_WithClosures , + wrap_FileFilterFunc , + + +-- ** FlowBoxCreateWidgetFunc #signal:FlowBoxCreateWidgetFunc# + + C_FlowBoxCreateWidgetFunc , + FlowBoxCreateWidgetFunc , + FlowBoxCreateWidgetFunc_WithClosures , + drop_closures_FlowBoxCreateWidgetFunc , + dynamic_FlowBoxCreateWidgetFunc , + genClosure_FlowBoxCreateWidgetFunc , + mk_FlowBoxCreateWidgetFunc , + noFlowBoxCreateWidgetFunc , + noFlowBoxCreateWidgetFunc_WithClosures , + wrap_FlowBoxCreateWidgetFunc , + + +-- ** FlowBoxFilterFunc #signal:FlowBoxFilterFunc# + + C_FlowBoxFilterFunc , + FlowBoxFilterFunc , + FlowBoxFilterFunc_WithClosures , + drop_closures_FlowBoxFilterFunc , + dynamic_FlowBoxFilterFunc , + genClosure_FlowBoxFilterFunc , + mk_FlowBoxFilterFunc , + noFlowBoxFilterFunc , + noFlowBoxFilterFunc_WithClosures , + wrap_FlowBoxFilterFunc , + + +-- ** FlowBoxForeachFunc #signal:FlowBoxForeachFunc# + + C_FlowBoxForeachFunc , + FlowBoxForeachFunc , + FlowBoxForeachFunc_WithClosures , + drop_closures_FlowBoxForeachFunc , + dynamic_FlowBoxForeachFunc , + genClosure_FlowBoxForeachFunc , + mk_FlowBoxForeachFunc , + noFlowBoxForeachFunc , + noFlowBoxForeachFunc_WithClosures , + wrap_FlowBoxForeachFunc , + + +-- ** FlowBoxSortFunc #signal:FlowBoxSortFunc# + + C_FlowBoxSortFunc , + FlowBoxSortFunc , + FlowBoxSortFunc_WithClosures , + drop_closures_FlowBoxSortFunc , + dynamic_FlowBoxSortFunc , + genClosure_FlowBoxSortFunc , + mk_FlowBoxSortFunc , + noFlowBoxSortFunc , + noFlowBoxSortFunc_WithClosures , + wrap_FlowBoxSortFunc , + + +-- ** FontFilterFunc #signal:FontFilterFunc# + + C_FontFilterFunc , + FontFilterFunc , + FontFilterFunc_WithClosures , + drop_closures_FontFilterFunc , + dynamic_FontFilterFunc , + genClosure_FontFilterFunc , + mk_FontFilterFunc , + noFontFilterFunc , + noFontFilterFunc_WithClosures , + wrap_FontFilterFunc , + + +-- ** IconViewForeachFunc #signal:IconViewForeachFunc# + + C_IconViewForeachFunc , + IconViewForeachFunc , + IconViewForeachFunc_WithClosures , + drop_closures_IconViewForeachFunc , + dynamic_IconViewForeachFunc , + genClosure_IconViewForeachFunc , + mk_IconViewForeachFunc , + noIconViewForeachFunc , + noIconViewForeachFunc_WithClosures , + wrap_IconViewForeachFunc , + + +-- ** KeySnoopFunc #signal:KeySnoopFunc# + + C_KeySnoopFunc , + KeySnoopFunc , + KeySnoopFunc_WithClosures , + drop_closures_KeySnoopFunc , + dynamic_KeySnoopFunc , + genClosure_KeySnoopFunc , + mk_KeySnoopFunc , + noKeySnoopFunc , + noKeySnoopFunc_WithClosures , + wrap_KeySnoopFunc , + + +-- ** ListBoxCreateWidgetFunc #signal:ListBoxCreateWidgetFunc# + + C_ListBoxCreateWidgetFunc , + ListBoxCreateWidgetFunc , + ListBoxCreateWidgetFunc_WithClosures , + drop_closures_ListBoxCreateWidgetFunc , + dynamic_ListBoxCreateWidgetFunc , + genClosure_ListBoxCreateWidgetFunc , + mk_ListBoxCreateWidgetFunc , + noListBoxCreateWidgetFunc , + noListBoxCreateWidgetFunc_WithClosures , + wrap_ListBoxCreateWidgetFunc , + + +-- ** ListBoxFilterFunc #signal:ListBoxFilterFunc# + + C_ListBoxFilterFunc , + ListBoxFilterFunc , + ListBoxFilterFunc_WithClosures , + drop_closures_ListBoxFilterFunc , + dynamic_ListBoxFilterFunc , + genClosure_ListBoxFilterFunc , + mk_ListBoxFilterFunc , + noListBoxFilterFunc , + noListBoxFilterFunc_WithClosures , + wrap_ListBoxFilterFunc , + + +-- ** ListBoxForeachFunc #signal:ListBoxForeachFunc# + + C_ListBoxForeachFunc , + ListBoxForeachFunc , + ListBoxForeachFunc_WithClosures , + drop_closures_ListBoxForeachFunc , + dynamic_ListBoxForeachFunc , + genClosure_ListBoxForeachFunc , + mk_ListBoxForeachFunc , + noListBoxForeachFunc , + noListBoxForeachFunc_WithClosures , + wrap_ListBoxForeachFunc , + + +-- ** ListBoxSortFunc #signal:ListBoxSortFunc# + + C_ListBoxSortFunc , + ListBoxSortFunc , + ListBoxSortFunc_WithClosures , + drop_closures_ListBoxSortFunc , + dynamic_ListBoxSortFunc , + genClosure_ListBoxSortFunc , + mk_ListBoxSortFunc , + noListBoxSortFunc , + noListBoxSortFunc_WithClosures , + wrap_ListBoxSortFunc , + + +-- ** ListBoxUpdateHeaderFunc #signal:ListBoxUpdateHeaderFunc# + + C_ListBoxUpdateHeaderFunc , + ListBoxUpdateHeaderFunc , + ListBoxUpdateHeaderFunc_WithClosures , + drop_closures_ListBoxUpdateHeaderFunc , + dynamic_ListBoxUpdateHeaderFunc , + genClosure_ListBoxUpdateHeaderFunc , + mk_ListBoxUpdateHeaderFunc , + noListBoxUpdateHeaderFunc , + noListBoxUpdateHeaderFunc_WithClosures , + wrap_ListBoxUpdateHeaderFunc , + + +-- ** MenuDetachFunc #signal:MenuDetachFunc# + + C_MenuDetachFunc , + MenuDetachFunc , + dynamic_MenuDetachFunc , + genClosure_MenuDetachFunc , + mk_MenuDetachFunc , + noMenuDetachFunc , + wrap_MenuDetachFunc , + + +-- ** MenuPositionFunc #signal:MenuPositionFunc# + + C_MenuPositionFunc , + MenuPositionFunc , + MenuPositionFunc_WithClosures , + drop_closures_MenuPositionFunc , + dynamic_MenuPositionFunc , + genClosure_MenuPositionFunc , + mk_MenuPositionFunc , + noMenuPositionFunc , + noMenuPositionFunc_WithClosures , + wrap_MenuPositionFunc , + + +-- ** ModuleDisplayInitFunc #signal:ModuleDisplayInitFunc# + + C_ModuleDisplayInitFunc , + ModuleDisplayInitFunc , + dynamic_ModuleDisplayInitFunc , + genClosure_ModuleDisplayInitFunc , + mk_ModuleDisplayInitFunc , + noModuleDisplayInitFunc , + wrap_ModuleDisplayInitFunc , + + +-- ** ModuleInitFunc #signal:ModuleInitFunc# + + C_ModuleInitFunc , + ModuleInitFunc , + dynamic_ModuleInitFunc , + genClosure_ModuleInitFunc , + mk_ModuleInitFunc , + noModuleInitFunc , + wrap_ModuleInitFunc , + + +-- ** PageSetupDoneFunc #signal:PageSetupDoneFunc# + + C_PageSetupDoneFunc , + PageSetupDoneFunc , + PageSetupDoneFunc_WithClosures , + drop_closures_PageSetupDoneFunc , + dynamic_PageSetupDoneFunc , + genClosure_PageSetupDoneFunc , + mk_PageSetupDoneFunc , + noPageSetupDoneFunc , + noPageSetupDoneFunc_WithClosures , + wrap_PageSetupDoneFunc , + + +-- ** PrintSettingsFunc #signal:PrintSettingsFunc# + + C_PrintSettingsFunc , + PrintSettingsFunc , + PrintSettingsFunc_WithClosures , + drop_closures_PrintSettingsFunc , + dynamic_PrintSettingsFunc , + genClosure_PrintSettingsFunc , + mk_PrintSettingsFunc , + noPrintSettingsFunc , + noPrintSettingsFunc_WithClosures , + wrap_PrintSettingsFunc , + + +-- ** RcPropertyParser #signal:RcPropertyParser# + + C_RcPropertyParser , + RcPropertyParser , + dynamic_RcPropertyParser , + genClosure_RcPropertyParser , + mk_RcPropertyParser , + noRcPropertyParser , + wrap_RcPropertyParser , + + +-- ** RecentFilterFunc #signal:RecentFilterFunc# + + C_RecentFilterFunc , + RecentFilterFunc , + RecentFilterFunc_WithClosures , + drop_closures_RecentFilterFunc , + dynamic_RecentFilterFunc , + genClosure_RecentFilterFunc , + mk_RecentFilterFunc , + noRecentFilterFunc , + noRecentFilterFunc_WithClosures , + wrap_RecentFilterFunc , + + +-- ** RecentSortFunc #signal:RecentSortFunc# + + C_RecentSortFunc , + RecentSortFunc , + RecentSortFunc_WithClosures , + drop_closures_RecentSortFunc , + dynamic_RecentSortFunc , + genClosure_RecentSortFunc , + mk_RecentSortFunc , + noRecentSortFunc , + noRecentSortFunc_WithClosures , + wrap_RecentSortFunc , + + +-- ** StylePropertyParser #signal:StylePropertyParser# + + C_StylePropertyParser , + StylePropertyParser , + dynamic_StylePropertyParser , + mk_StylePropertyParser , + noStylePropertyParser , + + +-- ** TextBufferDeserializeFunc #signal:TextBufferDeserializeFunc# + + C_TextBufferDeserializeFunc , + TextBufferDeserializeFunc , + TextBufferDeserializeFunc_WithClosures , + drop_closures_TextBufferDeserializeFunc , + dynamic_TextBufferDeserializeFunc , + mk_TextBufferDeserializeFunc , + noTextBufferDeserializeFunc , + noTextBufferDeserializeFunc_WithClosures, + + +-- ** TextBufferSerializeFunc #signal:TextBufferSerializeFunc# + + C_TextBufferSerializeFunc , + TextBufferSerializeFunc , + TextBufferSerializeFunc_WithClosures , + drop_closures_TextBufferSerializeFunc , + dynamic_TextBufferSerializeFunc , + genClosure_TextBufferSerializeFunc , + mk_TextBufferSerializeFunc , + noTextBufferSerializeFunc , + noTextBufferSerializeFunc_WithClosures , + wrap_TextBufferSerializeFunc , + + +-- ** TextCharPredicate #signal:TextCharPredicate# + + C_TextCharPredicate , + TextCharPredicate , + TextCharPredicate_WithClosures , + drop_closures_TextCharPredicate , + dynamic_TextCharPredicate , + genClosure_TextCharPredicate , + mk_TextCharPredicate , + noTextCharPredicate , + noTextCharPredicate_WithClosures , + wrap_TextCharPredicate , + + +-- ** TextTagTableForeach #signal:TextTagTableForeach# + + C_TextTagTableForeach , + TextTagTableForeach , + TextTagTableForeach_WithClosures , + drop_closures_TextTagTableForeach , + dynamic_TextTagTableForeach , + genClosure_TextTagTableForeach , + mk_TextTagTableForeach , + noTextTagTableForeach , + noTextTagTableForeach_WithClosures , + wrap_TextTagTableForeach , + + +-- ** TickCallback #signal:TickCallback# + + C_TickCallback , + TickCallback , + TickCallback_WithClosures , + drop_closures_TickCallback , + dynamic_TickCallback , + genClosure_TickCallback , + mk_TickCallback , + noTickCallback , + noTickCallback_WithClosures , + wrap_TickCallback , + + +-- ** TranslateFunc #signal:TranslateFunc# + + C_TranslateFunc , + TranslateFunc , + TranslateFunc_WithClosures , + drop_closures_TranslateFunc , + dynamic_TranslateFunc , + genClosure_TranslateFunc , + mk_TranslateFunc , + noTranslateFunc , + noTranslateFunc_WithClosures , + wrap_TranslateFunc , + + +-- ** TreeCellDataFunc #signal:TreeCellDataFunc# + + C_TreeCellDataFunc , + TreeCellDataFunc , + TreeCellDataFunc_WithClosures , + drop_closures_TreeCellDataFunc , + dynamic_TreeCellDataFunc , + genClosure_TreeCellDataFunc , + mk_TreeCellDataFunc , + noTreeCellDataFunc , + noTreeCellDataFunc_WithClosures , + wrap_TreeCellDataFunc , + + +-- ** TreeDestroyCountFunc #signal:TreeDestroyCountFunc# + + C_TreeDestroyCountFunc , + TreeDestroyCountFunc , + TreeDestroyCountFunc_WithClosures , + drop_closures_TreeDestroyCountFunc , + dynamic_TreeDestroyCountFunc , + genClosure_TreeDestroyCountFunc , + mk_TreeDestroyCountFunc , + noTreeDestroyCountFunc , + noTreeDestroyCountFunc_WithClosures , + wrap_TreeDestroyCountFunc , + + +-- ** TreeIterCompareFunc #signal:TreeIterCompareFunc# + + C_TreeIterCompareFunc , + TreeIterCompareFunc , + TreeIterCompareFunc_WithClosures , + drop_closures_TreeIterCompareFunc , + dynamic_TreeIterCompareFunc , + genClosure_TreeIterCompareFunc , + mk_TreeIterCompareFunc , + noTreeIterCompareFunc , + noTreeIterCompareFunc_WithClosures , + wrap_TreeIterCompareFunc , + + +-- ** TreeModelFilterVisibleFunc #signal:TreeModelFilterVisibleFunc# + + C_TreeModelFilterVisibleFunc , + TreeModelFilterVisibleFunc , + TreeModelFilterVisibleFunc_WithClosures , + drop_closures_TreeModelFilterVisibleFunc, + dynamic_TreeModelFilterVisibleFunc , + genClosure_TreeModelFilterVisibleFunc , + mk_TreeModelFilterVisibleFunc , + noTreeModelFilterVisibleFunc , + noTreeModelFilterVisibleFunc_WithClosures, + wrap_TreeModelFilterVisibleFunc , + + +-- ** TreeModelForeachFunc #signal:TreeModelForeachFunc# + + C_TreeModelForeachFunc , + TreeModelForeachFunc , + TreeModelForeachFunc_WithClosures , + drop_closures_TreeModelForeachFunc , + dynamic_TreeModelForeachFunc , + genClosure_TreeModelForeachFunc , + mk_TreeModelForeachFunc , + noTreeModelForeachFunc , + noTreeModelForeachFunc_WithClosures , + wrap_TreeModelForeachFunc , + + +-- ** TreeSelectionForeachFunc #signal:TreeSelectionForeachFunc# + + C_TreeSelectionForeachFunc , + TreeSelectionForeachFunc , + TreeSelectionForeachFunc_WithClosures , + drop_closures_TreeSelectionForeachFunc , + dynamic_TreeSelectionForeachFunc , + genClosure_TreeSelectionForeachFunc , + mk_TreeSelectionForeachFunc , + noTreeSelectionForeachFunc , + noTreeSelectionForeachFunc_WithClosures , + wrap_TreeSelectionForeachFunc , + + +-- ** TreeSelectionFunc #signal:TreeSelectionFunc# + + C_TreeSelectionFunc , + TreeSelectionFunc , + TreeSelectionFunc_WithClosures , + drop_closures_TreeSelectionFunc , + dynamic_TreeSelectionFunc , + genClosure_TreeSelectionFunc , + mk_TreeSelectionFunc , + noTreeSelectionFunc , + noTreeSelectionFunc_WithClosures , + wrap_TreeSelectionFunc , + + +-- ** TreeViewColumnDropFunc #signal:TreeViewColumnDropFunc# + + C_TreeViewColumnDropFunc , + TreeViewColumnDropFunc , + TreeViewColumnDropFunc_WithClosures , + drop_closures_TreeViewColumnDropFunc , + dynamic_TreeViewColumnDropFunc , + genClosure_TreeViewColumnDropFunc , + mk_TreeViewColumnDropFunc , + noTreeViewColumnDropFunc , + noTreeViewColumnDropFunc_WithClosures , + wrap_TreeViewColumnDropFunc , + + +-- ** TreeViewMappingFunc #signal:TreeViewMappingFunc# + + C_TreeViewMappingFunc , + TreeViewMappingFunc , + TreeViewMappingFunc_WithClosures , + drop_closures_TreeViewMappingFunc , + dynamic_TreeViewMappingFunc , + genClosure_TreeViewMappingFunc , + mk_TreeViewMappingFunc , + noTreeViewMappingFunc , + noTreeViewMappingFunc_WithClosures , + wrap_TreeViewMappingFunc , + + +-- ** TreeViewRowSeparatorFunc #signal:TreeViewRowSeparatorFunc# + + C_TreeViewRowSeparatorFunc , + TreeViewRowSeparatorFunc , + TreeViewRowSeparatorFunc_WithClosures , + drop_closures_TreeViewRowSeparatorFunc , + dynamic_TreeViewRowSeparatorFunc , + genClosure_TreeViewRowSeparatorFunc , + mk_TreeViewRowSeparatorFunc , + noTreeViewRowSeparatorFunc , + noTreeViewRowSeparatorFunc_WithClosures , + wrap_TreeViewRowSeparatorFunc , + + +-- ** TreeViewSearchEqualFunc #signal:TreeViewSearchEqualFunc# + + C_TreeViewSearchEqualFunc , + TreeViewSearchEqualFunc , + TreeViewSearchEqualFunc_WithClosures , + drop_closures_TreeViewSearchEqualFunc , + dynamic_TreeViewSearchEqualFunc , + genClosure_TreeViewSearchEqualFunc , + mk_TreeViewSearchEqualFunc , + noTreeViewSearchEqualFunc , + noTreeViewSearchEqualFunc_WithClosures , + wrap_TreeViewSearchEqualFunc , + + +-- ** TreeViewSearchPositionFunc #signal:TreeViewSearchPositionFunc# + + C_TreeViewSearchPositionFunc , + TreeViewSearchPositionFunc , + TreeViewSearchPositionFunc_WithClosures , + drop_closures_TreeViewSearchPositionFunc, + dynamic_TreeViewSearchPositionFunc , + genClosure_TreeViewSearchPositionFunc , + mk_TreeViewSearchPositionFunc , + noTreeViewSearchPositionFunc , + noTreeViewSearchPositionFunc_WithClosures, + wrap_TreeViewSearchPositionFunc , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Structs.String as GLib.String +import qualified GI.GObject.Flags as GObject.Flags +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gdk.Flags as Gdk.Flags +import qualified GI.Gdk.Objects.Display as Gdk.Display +import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock +import qualified GI.Gdk.Objects.Screen as Gdk.Screen +import qualified GI.Gdk.Structs.Atom as Gdk.Atom +import qualified GI.Gdk.Structs.Color as Gdk.Color +import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey +import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle +import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel +import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup +import {-# SOURCE #-} qualified GI.Gtk.Objects.Builder as Gtk.Builder +import {-# SOURCE #-} qualified GI.Gtk.Objects.Calendar as Gtk.Calendar +import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer +import {-# SOURCE #-} qualified GI.Gtk.Objects.Clipboard as Gtk.Clipboard +import {-# SOURCE #-} qualified GI.Gtk.Objects.EntryCompletion as Gtk.EntryCompletion +import {-# SOURCE #-} qualified GI.Gtk.Objects.FlowBox as Gtk.FlowBox +import {-# SOURCE #-} qualified GI.Gtk.Objects.FlowBoxChild as Gtk.FlowBoxChild +import {-# SOURCE #-} qualified GI.Gtk.Objects.IconView as Gtk.IconView +import {-# SOURCE #-} qualified GI.Gtk.Objects.ListBox as Gtk.ListBox +import {-# SOURCE #-} qualified GI.Gtk.Objects.ListBoxRow as Gtk.ListBoxRow +import {-# SOURCE #-} qualified GI.Gtk.Objects.Menu as Gtk.Menu +import {-# SOURCE #-} qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup +import {-# SOURCE #-} qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer +import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTag as Gtk.TextTag +import {-# SOURCE #-} qualified GI.Gtk.Objects.TreeSelection as Gtk.TreeSelection +import {-# SOURCE #-} qualified GI.Gtk.Objects.TreeView as Gtk.TreeView +import {-# SOURCE #-} qualified GI.Gtk.Objects.TreeViewColumn as Gtk.TreeViewColumn +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget +import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelKey as Gtk.AccelKey +import {-# SOURCE #-} qualified GI.Gtk.Structs.FileFilterInfo as Gtk.FileFilterInfo +import {-# SOURCE #-} qualified GI.Gtk.Structs.RecentFilterInfo as Gtk.RecentFilterInfo +import {-# SOURCE #-} qualified GI.Gtk.Structs.RecentInfo as Gtk.RecentInfo +import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData +import {-# SOURCE #-} qualified GI.Gtk.Structs.TextIter as Gtk.TextIter +import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter +import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath +import qualified GI.Pango.Objects.FontFace as Pango.FontFace +import qualified GI.Pango.Objects.FontFamily as Pango.FontFamily + +-- callback TreeViewSearchPositionFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_dialog", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeViewSearchPositionFunc = + Ptr Gtk.TreeView.TreeView -> + Ptr Gtk.Widget.Widget -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_dialog", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeViewSearchPositionFunc :: FunPtr C_TreeViewSearchPositionFunc -> C_TreeViewSearchPositionFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeViewSearchPositionFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeView.IsTreeView a, Gtk.Widget.IsWidget b) => + FunPtr C_TreeViewSearchPositionFunc + -> a + -> b + -> Ptr () + -> m () +dynamic_TreeViewSearchPositionFunc __funPtr treeView searchDialog userData = liftIO $ do + treeView' <- unsafeManagedPtrCastPtr treeView + searchDialog' <- unsafeManagedPtrCastPtr searchDialog + (__dynamic_C_TreeViewSearchPositionFunc __funPtr) treeView' searchDialog' userData + touchManagedPtr treeView + touchManagedPtr searchDialog + return () + +-- | Generate a function pointer callable from C code, from a `C_TreeViewSearchPositionFunc`. +foreign import ccall "wrapper" + mk_TreeViewSearchPositionFunc :: C_TreeViewSearchPositionFunc -> IO (FunPtr C_TreeViewSearchPositionFunc) + +{- | +/No description available in the introspection data./ +-} +type TreeViewSearchPositionFunc = + Gtk.TreeView.TreeView + -> Gtk.Widget.Widget + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewSearchPositionFunc`@. +noTreeViewSearchPositionFunc :: Maybe TreeViewSearchPositionFunc +noTreeViewSearchPositionFunc = Nothing + +{- | +/No description available in the introspection data./ +-} +type TreeViewSearchPositionFunc_WithClosures = + Gtk.TreeView.TreeView + -> Gtk.Widget.Widget + -> Ptr () + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewSearchPositionFunc_WithClosures`@. +noTreeViewSearchPositionFunc_WithClosures :: Maybe TreeViewSearchPositionFunc_WithClosures +noTreeViewSearchPositionFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeViewSearchPositionFunc :: TreeViewSearchPositionFunc -> TreeViewSearchPositionFunc_WithClosures +drop_closures_TreeViewSearchPositionFunc _f treeView searchDialog _ = _f treeView searchDialog + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeViewSearchPositionFunc :: MonadIO m => TreeViewSearchPositionFunc -> m (GClosure C_TreeViewSearchPositionFunc) +genClosure_TreeViewSearchPositionFunc cb = liftIO $ do + let cb' = drop_closures_TreeViewSearchPositionFunc cb + let cb'' = wrap_TreeViewSearchPositionFunc Nothing cb' + mk_TreeViewSearchPositionFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeViewSearchPositionFunc` into a `C_TreeViewSearchPositionFunc`. +wrap_TreeViewSearchPositionFunc :: + Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc)) -> + TreeViewSearchPositionFunc_WithClosures -> + C_TreeViewSearchPositionFunc +wrap_TreeViewSearchPositionFunc funptrptr _cb treeView searchDialog userData = do + treeView' <- (newObject Gtk.TreeView.TreeView) treeView + searchDialog' <- (newObject Gtk.Widget.Widget) searchDialog + _cb treeView' searchDialog' userData + maybeReleaseFunPtr funptrptr + + +-- callback TreeViewSearchEqualFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%FALSE if the row matches, %TRUE otherwise.", sinceVersion = Nothing}, args = [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeModel being searched", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the search column set by gtk_tree_view_set_search_column()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the key string to compare with", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter pointing the row of @model that should be compared\n with @key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data from gtk_tree_view_set_search_equal_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function used for checking whether a row in @model matches\na search key string entered by the user. Note the return value\nis reversed from what you would normally expect, though it\nhas some similarity to strcmp() returning 0 for equal strings.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeViewSearchEqualFunc = + Ptr Gtk.TreeModel.TreeModel -> + Int32 -> + CString -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeModel being searched", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the search column set by gtk_tree_view_set_search_column()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the key string to compare with", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter pointing the row of @model that should be compared\n with @key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data from gtk_tree_view_set_search_equal_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeViewSearchEqualFunc :: FunPtr C_TreeViewSearchEqualFunc -> C_TreeViewSearchEqualFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeViewSearchEqualFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) => + FunPtr C_TreeViewSearchEqualFunc + -> a + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' being searched -} + -> Int32 + {- ^ /@column@/: the search column set by 'GI.Gtk.Objects.TreeView.treeViewSetSearchColumn' -} + -> T.Text + {- ^ /@key@/: the key string to compare with -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing the row of /@model@/ that should be compared + with /@key@/. -} + -> Ptr () + {- ^ /@searchData@/: user data from 'GI.Gtk.Objects.TreeView.treeViewSetSearchEqualFunc' -} + -> m Bool + {- ^ __Returns:__ 'False' if the row matches, 'True' otherwise. -} +dynamic_TreeViewSearchEqualFunc __funPtr model column key iter searchData = liftIO $ do + model' <- unsafeManagedPtrCastPtr model + key' <- textToCString key + iter' <- unsafeManagedPtrGetPtr iter + result <- (__dynamic_C_TreeViewSearchEqualFunc __funPtr) model' column key' iter' searchData + let result' = (/= 0) result + touchManagedPtr model + touchManagedPtr iter + freeMem key' + return result' + +-- | Generate a function pointer callable from C code, from a `C_TreeViewSearchEqualFunc`. +foreign import ccall "wrapper" + mk_TreeViewSearchEqualFunc :: C_TreeViewSearchEqualFunc -> IO (FunPtr C_TreeViewSearchEqualFunc) + +{- | +A function used for checking whether a row in /@model@/ matches +a search key string entered by the user. Note the return value +is reversed from what you would normally expect, though it +has some similarity to @/strcmp()/@ returning 0 for equal strings. +-} +type TreeViewSearchEqualFunc = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' being searched -} + -> Int32 + {- ^ /@column@/: the search column set by 'GI.Gtk.Objects.TreeView.treeViewSetSearchColumn' -} + -> T.Text + {- ^ /@key@/: the key string to compare with -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing the row of /@model@/ that should be compared + with /@key@/. -} + -> IO Bool + {- ^ __Returns:__ 'False' if the row matches, 'True' otherwise. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewSearchEqualFunc`@. +noTreeViewSearchEqualFunc :: Maybe TreeViewSearchEqualFunc +noTreeViewSearchEqualFunc = Nothing + +{- | +A function used for checking whether a row in /@model@/ matches +a search key string entered by the user. Note the return value +is reversed from what you would normally expect, though it +has some similarity to @/strcmp()/@ returning 0 for equal strings. +-} +type TreeViewSearchEqualFunc_WithClosures = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' being searched -} + -> Int32 + {- ^ /@column@/: the search column set by 'GI.Gtk.Objects.TreeView.treeViewSetSearchColumn' -} + -> T.Text + {- ^ /@key@/: the key string to compare with -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing the row of /@model@/ that should be compared + with /@key@/. -} + -> Ptr () + {- ^ /@searchData@/: user data from 'GI.Gtk.Objects.TreeView.treeViewSetSearchEqualFunc' -} + -> IO Bool + {- ^ __Returns:__ 'False' if the row matches, 'True' otherwise. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewSearchEqualFunc_WithClosures`@. +noTreeViewSearchEqualFunc_WithClosures :: Maybe TreeViewSearchEqualFunc_WithClosures +noTreeViewSearchEqualFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeViewSearchEqualFunc :: TreeViewSearchEqualFunc -> TreeViewSearchEqualFunc_WithClosures +drop_closures_TreeViewSearchEqualFunc _f model column key iter _ = _f model column key iter + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeViewSearchEqualFunc :: MonadIO m => TreeViewSearchEqualFunc -> m (GClosure C_TreeViewSearchEqualFunc) +genClosure_TreeViewSearchEqualFunc cb = liftIO $ do + let cb' = drop_closures_TreeViewSearchEqualFunc cb + let cb'' = wrap_TreeViewSearchEqualFunc Nothing cb' + mk_TreeViewSearchEqualFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeViewSearchEqualFunc` into a `C_TreeViewSearchEqualFunc`. +wrap_TreeViewSearchEqualFunc :: + Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc)) -> + TreeViewSearchEqualFunc_WithClosures -> + C_TreeViewSearchEqualFunc +wrap_TreeViewSearchEqualFunc funptrptr _cb model column key iter searchData = do + model' <- (newObject Gtk.TreeModel.TreeModel) model + key' <- cstringToText key + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + result <- _cb model' column key' iter' searchData + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TreeViewRowSeparatorFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the row is a separator", sinceVersion = Nothing}, args = [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter pointing at a row in @model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Function type for determining whether the row pointed to by @iter should\nbe rendered as a separator. A common way to implement this is to have a\nboolean column in the model, whose values the #GtkTreeViewRowSeparatorFunc\nreturns.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeViewRowSeparatorFunc = + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter pointing at a row in @model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeViewRowSeparatorFunc :: FunPtr C_TreeViewRowSeparatorFunc -> C_TreeViewRowSeparatorFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeViewRowSeparatorFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) => + FunPtr C_TreeViewRowSeparatorFunc + -> a + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing at a row in /@model@/ -} + -> Ptr () + {- ^ /@data@/: user data -} + -> m Bool + {- ^ __Returns:__ 'True' if the row is a separator -} +dynamic_TreeViewRowSeparatorFunc __funPtr model iter data_ = liftIO $ do + model' <- unsafeManagedPtrCastPtr model + iter' <- unsafeManagedPtrGetPtr iter + result <- (__dynamic_C_TreeViewRowSeparatorFunc __funPtr) model' iter' data_ + let result' = (/= 0) result + touchManagedPtr model + touchManagedPtr iter + return result' + +-- | Generate a function pointer callable from C code, from a `C_TreeViewRowSeparatorFunc`. +foreign import ccall "wrapper" + mk_TreeViewRowSeparatorFunc :: C_TreeViewRowSeparatorFunc -> IO (FunPtr C_TreeViewRowSeparatorFunc) + +{- | +Function type for determining whether the row pointed to by /@iter@/ should +be rendered as a separator. A common way to implement this is to have a +boolean column in the model, whose values the 'GI.Gtk.Callbacks.TreeViewRowSeparatorFunc' +returns. +-} +type TreeViewRowSeparatorFunc = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing at a row in /@model@/ -} + -> IO Bool + {- ^ __Returns:__ 'True' if the row is a separator -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewRowSeparatorFunc`@. +noTreeViewRowSeparatorFunc :: Maybe TreeViewRowSeparatorFunc +noTreeViewRowSeparatorFunc = Nothing + +{- | +Function type for determining whether the row pointed to by /@iter@/ should +be rendered as a separator. A common way to implement this is to have a +boolean column in the model, whose values the 'GI.Gtk.Callbacks.TreeViewRowSeparatorFunc' +returns. +-} +type TreeViewRowSeparatorFunc_WithClosures = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing at a row in /@model@/ -} + -> Ptr () + {- ^ /@data@/: user data -} + -> IO Bool + {- ^ __Returns:__ 'True' if the row is a separator -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewRowSeparatorFunc_WithClosures`@. +noTreeViewRowSeparatorFunc_WithClosures :: Maybe TreeViewRowSeparatorFunc_WithClosures +noTreeViewRowSeparatorFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeViewRowSeparatorFunc :: TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures +drop_closures_TreeViewRowSeparatorFunc _f model iter _ = _f model iter + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeViewRowSeparatorFunc :: MonadIO m => TreeViewRowSeparatorFunc -> m (GClosure C_TreeViewRowSeparatorFunc) +genClosure_TreeViewRowSeparatorFunc cb = liftIO $ do + let cb' = drop_closures_TreeViewRowSeparatorFunc cb + let cb'' = wrap_TreeViewRowSeparatorFunc Nothing cb' + mk_TreeViewRowSeparatorFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeViewRowSeparatorFunc` into a `C_TreeViewRowSeparatorFunc`. +wrap_TreeViewRowSeparatorFunc :: + Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc)) -> + TreeViewRowSeparatorFunc_WithClosures -> + C_TreeViewRowSeparatorFunc +wrap_TreeViewRowSeparatorFunc funptrptr _cb model iter data_ = do + model' <- (newObject Gtk.TreeModel.TreeModel) model + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + result <- _cb model' iter' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TreeViewMappingFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The path that\8217s expanded", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Function used for gtk_tree_view_map_expanded_rows().", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeViewMappingFunc = + Ptr Gtk.TreeView.TreeView -> + Ptr Gtk.TreePath.TreePath -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The path that\8217s expanded", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeViewMappingFunc :: FunPtr C_TreeViewMappingFunc -> C_TreeViewMappingFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeViewMappingFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeView.IsTreeView a) => + FunPtr C_TreeViewMappingFunc + -> a + {- ^ /@treeView@/: A 'GI.Gtk.Objects.TreeView.TreeView' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The path that’s expanded -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m () +dynamic_TreeViewMappingFunc __funPtr treeView path userData = liftIO $ do + treeView' <- unsafeManagedPtrCastPtr treeView + path' <- unsafeManagedPtrGetPtr path + (__dynamic_C_TreeViewMappingFunc __funPtr) treeView' path' userData + touchManagedPtr treeView + touchManagedPtr path + return () + +-- | Generate a function pointer callable from C code, from a `C_TreeViewMappingFunc`. +foreign import ccall "wrapper" + mk_TreeViewMappingFunc :: C_TreeViewMappingFunc -> IO (FunPtr C_TreeViewMappingFunc) + +{- | +Function used for 'GI.Gtk.Objects.TreeView.treeViewMapExpandedRows'. +-} +type TreeViewMappingFunc = + Gtk.TreeView.TreeView + {- ^ /@treeView@/: A 'GI.Gtk.Objects.TreeView.TreeView' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The path that’s expanded -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewMappingFunc`@. +noTreeViewMappingFunc :: Maybe TreeViewMappingFunc +noTreeViewMappingFunc = Nothing + +{- | +Function used for 'GI.Gtk.Objects.TreeView.treeViewMapExpandedRows'. +-} +type TreeViewMappingFunc_WithClosures = + Gtk.TreeView.TreeView + {- ^ /@treeView@/: A 'GI.Gtk.Objects.TreeView.TreeView' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The path that’s expanded -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewMappingFunc_WithClosures`@. +noTreeViewMappingFunc_WithClosures :: Maybe TreeViewMappingFunc_WithClosures +noTreeViewMappingFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeViewMappingFunc :: TreeViewMappingFunc -> TreeViewMappingFunc_WithClosures +drop_closures_TreeViewMappingFunc _f treeView path _ = _f treeView path + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeViewMappingFunc :: MonadIO m => TreeViewMappingFunc -> m (GClosure C_TreeViewMappingFunc) +genClosure_TreeViewMappingFunc cb = liftIO $ do + let cb' = drop_closures_TreeViewMappingFunc cb + let cb'' = wrap_TreeViewMappingFunc Nothing cb' + mk_TreeViewMappingFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeViewMappingFunc` into a `C_TreeViewMappingFunc`. +wrap_TreeViewMappingFunc :: + Maybe (Ptr (FunPtr C_TreeViewMappingFunc)) -> + TreeViewMappingFunc_WithClosures -> + C_TreeViewMappingFunc +wrap_TreeViewMappingFunc funptrptr _cb treeView path userData = do + treeView' <- (newObject Gtk.TreeView.TreeView) treeView + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + _cb treeView' path' userData + maybeReleaseFunPtr funptrptr + + +-- callback TreeViewColumnDropFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE, if @column can be dropped in this spot", sinceVersion = Nothing}, args = [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeViewColumn being dragged", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prev_column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeViewColumn on one side of @column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "next_column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeViewColumn on the other side of @column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Function type for determining whether @column can be dropped in a\nparticular spot (as determined by @prev_column and @next_column). In\nleft to right locales, @prev_column is on the left of the potential drop\nspot, and @next_column is on the right. In right to left mode, this is\nreversed. This function should return %TRUE if the spot is a valid drop\nspot. Please note that returning %TRUE does not actually indicate that\nthe column drop was made, but is meant only to indicate a possible drop\nspot to the user.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeViewColumnDropFunc = + Ptr Gtk.TreeView.TreeView -> + Ptr Gtk.TreeViewColumn.TreeViewColumn -> + Ptr Gtk.TreeViewColumn.TreeViewColumn -> + Ptr Gtk.TreeViewColumn.TreeViewColumn -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeViewColumn being dragged", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prev_column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeViewColumn on one side of @column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "next_column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeViewColumn on the other side of @column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeViewColumnDropFunc :: FunPtr C_TreeViewColumnDropFunc -> C_TreeViewColumnDropFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeViewColumnDropFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeView.IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.TreeViewColumn.IsTreeViewColumn c, Gtk.TreeViewColumn.IsTreeViewColumn d) => + FunPtr C_TreeViewColumnDropFunc + -> a + {- ^ /@treeView@/: A 'GI.Gtk.Objects.TreeView.TreeView' -} + -> b + {- ^ /@column@/: The 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' being dragged -} + -> c + {- ^ /@prevColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' on one side of /@column@/ -} + -> d + {- ^ /@nextColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' on the other side of /@column@/ -} + -> Ptr () + {- ^ /@data@/: user data -} + -> m Bool + {- ^ __Returns:__ 'True', if /@column@/ can be dropped in this spot -} +dynamic_TreeViewColumnDropFunc __funPtr treeView column prevColumn nextColumn data_ = liftIO $ do + treeView' <- unsafeManagedPtrCastPtr treeView + column' <- unsafeManagedPtrCastPtr column + prevColumn' <- unsafeManagedPtrCastPtr prevColumn + nextColumn' <- unsafeManagedPtrCastPtr nextColumn + result <- (__dynamic_C_TreeViewColumnDropFunc __funPtr) treeView' column' prevColumn' nextColumn' data_ + let result' = (/= 0) result + touchManagedPtr treeView + touchManagedPtr column + touchManagedPtr prevColumn + touchManagedPtr nextColumn + return result' + +-- | Generate a function pointer callable from C code, from a `C_TreeViewColumnDropFunc`. +foreign import ccall "wrapper" + mk_TreeViewColumnDropFunc :: C_TreeViewColumnDropFunc -> IO (FunPtr C_TreeViewColumnDropFunc) + +{- | +Function type for determining whether /@column@/ can be dropped in a +particular spot (as determined by /@prevColumn@/ and /@nextColumn@/). In +left to right locales, /@prevColumn@/ is on the left of the potential drop +spot, and /@nextColumn@/ is on the right. In right to left mode, this is +reversed. This function should return 'True' if the spot is a valid drop +spot. Please note that returning 'True' does not actually indicate that +the column drop was made, but is meant only to indicate a possible drop +spot to the user. +-} +type TreeViewColumnDropFunc = + Gtk.TreeView.TreeView + {- ^ /@treeView@/: A 'GI.Gtk.Objects.TreeView.TreeView' -} + -> Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@column@/: The 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' being dragged -} + -> Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@prevColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' on one side of /@column@/ -} + -> Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@nextColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' on the other side of /@column@/ -} + -> IO Bool + {- ^ __Returns:__ 'True', if /@column@/ can be dropped in this spot -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewColumnDropFunc`@. +noTreeViewColumnDropFunc :: Maybe TreeViewColumnDropFunc +noTreeViewColumnDropFunc = Nothing + +{- | +Function type for determining whether /@column@/ can be dropped in a +particular spot (as determined by /@prevColumn@/ and /@nextColumn@/). In +left to right locales, /@prevColumn@/ is on the left of the potential drop +spot, and /@nextColumn@/ is on the right. In right to left mode, this is +reversed. This function should return 'True' if the spot is a valid drop +spot. Please note that returning 'True' does not actually indicate that +the column drop was made, but is meant only to indicate a possible drop +spot to the user. +-} +type TreeViewColumnDropFunc_WithClosures = + Gtk.TreeView.TreeView + {- ^ /@treeView@/: A 'GI.Gtk.Objects.TreeView.TreeView' -} + -> Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@column@/: The 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' being dragged -} + -> Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@prevColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' on one side of /@column@/ -} + -> Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@nextColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' on the other side of /@column@/ -} + -> Ptr () + {- ^ /@data@/: user data -} + -> IO Bool + {- ^ __Returns:__ 'True', if /@column@/ can be dropped in this spot -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeViewColumnDropFunc_WithClosures`@. +noTreeViewColumnDropFunc_WithClosures :: Maybe TreeViewColumnDropFunc_WithClosures +noTreeViewColumnDropFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeViewColumnDropFunc :: TreeViewColumnDropFunc -> TreeViewColumnDropFunc_WithClosures +drop_closures_TreeViewColumnDropFunc _f treeView column prevColumn nextColumn _ = _f treeView column prevColumn nextColumn + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeViewColumnDropFunc :: MonadIO m => TreeViewColumnDropFunc -> m (GClosure C_TreeViewColumnDropFunc) +genClosure_TreeViewColumnDropFunc cb = liftIO $ do + let cb' = drop_closures_TreeViewColumnDropFunc cb + let cb'' = wrap_TreeViewColumnDropFunc Nothing cb' + mk_TreeViewColumnDropFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeViewColumnDropFunc` into a `C_TreeViewColumnDropFunc`. +wrap_TreeViewColumnDropFunc :: + Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc)) -> + TreeViewColumnDropFunc_WithClosures -> + C_TreeViewColumnDropFunc +wrap_TreeViewColumnDropFunc funptrptr _cb treeView column prevColumn nextColumn data_ = do + treeView' <- (newObject Gtk.TreeView.TreeView) treeView + column' <- (newObject Gtk.TreeViewColumn.TreeViewColumn) column + prevColumn' <- (newObject Gtk.TreeViewColumn.TreeViewColumn) prevColumn + nextColumn' <- (newObject Gtk.TreeViewColumn.TreeViewColumn) nextColumn + result <- _cb treeView' column' prevColumn' nextColumn' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TreeSelectionFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE, if the selection state of the row can be toggled", sinceVersion = Nothing}, args = [Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gtk", name = "TreeSelection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSelection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeModel being viewed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreePath of the row in question", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_currently_selected", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE, if the path is currently selected", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function used by gtk_tree_selection_set_select_function() to filter\nwhether or not a row may be selected. It is called whenever a row's\nstate might change. A return value of %TRUE indicates to @selection\nthat it is okay to change the selection.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeSelectionFunc = + Ptr Gtk.TreeSelection.TreeSelection -> + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreePath.TreePath -> + CInt -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gtk", name = "TreeSelection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSelection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeModel being viewed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreePath of the row in question", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_currently_selected", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE, if the path is currently selected", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeSelectionFunc :: FunPtr C_TreeSelectionFunc -> C_TreeSelectionFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeSelectionFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeSelection.IsTreeSelection a, Gtk.TreeModel.IsTreeModel b) => + FunPtr C_TreeSelectionFunc + -> a + {- ^ /@selection@/: A 'GI.Gtk.Objects.TreeSelection.TreeSelection' -} + -> b + {- ^ /@model@/: A 'GI.Gtk.Interfaces.TreeModel.TreeModel' being viewed -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of the row in question -} + -> Bool + {- ^ /@pathCurrentlySelected@/: 'True', if the path is currently selected -} + -> Ptr () + {- ^ /@data@/: user data -} + -> m Bool + {- ^ __Returns:__ 'True', if the selection state of the row can be toggled -} +dynamic_TreeSelectionFunc __funPtr selection model path pathCurrentlySelected data_ = liftIO $ do + selection' <- unsafeManagedPtrCastPtr selection + model' <- unsafeManagedPtrCastPtr model + path' <- unsafeManagedPtrGetPtr path + let pathCurrentlySelected' = (fromIntegral . fromEnum) pathCurrentlySelected + result <- (__dynamic_C_TreeSelectionFunc __funPtr) selection' model' path' pathCurrentlySelected' data_ + let result' = (/= 0) result + touchManagedPtr selection + touchManagedPtr model + touchManagedPtr path + return result' + +-- | Generate a function pointer callable from C code, from a `C_TreeSelectionFunc`. +foreign import ccall "wrapper" + mk_TreeSelectionFunc :: C_TreeSelectionFunc -> IO (FunPtr C_TreeSelectionFunc) + +{- | +A function used by 'GI.Gtk.Objects.TreeSelection.treeSelectionSetSelectFunction' to filter +whether or not a row may be selected. It is called whenever a row\'s +state might change. A return value of 'True' indicates to /@selection@/ +that it is okay to change the selection. +-} +type TreeSelectionFunc = + Gtk.TreeSelection.TreeSelection + {- ^ /@selection@/: A 'GI.Gtk.Objects.TreeSelection.TreeSelection' -} + -> Gtk.TreeModel.TreeModel + {- ^ /@model@/: A 'GI.Gtk.Interfaces.TreeModel.TreeModel' being viewed -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of the row in question -} + -> Bool + {- ^ /@pathCurrentlySelected@/: 'True', if the path is currently selected -} + -> IO Bool + {- ^ __Returns:__ 'True', if the selection state of the row can be toggled -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeSelectionFunc`@. +noTreeSelectionFunc :: Maybe TreeSelectionFunc +noTreeSelectionFunc = Nothing + +{- | +A function used by 'GI.Gtk.Objects.TreeSelection.treeSelectionSetSelectFunction' to filter +whether or not a row may be selected. It is called whenever a row\'s +state might change. A return value of 'True' indicates to /@selection@/ +that it is okay to change the selection. +-} +type TreeSelectionFunc_WithClosures = + Gtk.TreeSelection.TreeSelection + {- ^ /@selection@/: A 'GI.Gtk.Objects.TreeSelection.TreeSelection' -} + -> Gtk.TreeModel.TreeModel + {- ^ /@model@/: A 'GI.Gtk.Interfaces.TreeModel.TreeModel' being viewed -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of the row in question -} + -> Bool + {- ^ /@pathCurrentlySelected@/: 'True', if the path is currently selected -} + -> Ptr () + {- ^ /@data@/: user data -} + -> IO Bool + {- ^ __Returns:__ 'True', if the selection state of the row can be toggled -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeSelectionFunc_WithClosures`@. +noTreeSelectionFunc_WithClosures :: Maybe TreeSelectionFunc_WithClosures +noTreeSelectionFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeSelectionFunc :: TreeSelectionFunc -> TreeSelectionFunc_WithClosures +drop_closures_TreeSelectionFunc _f selection model path pathCurrentlySelected _ = _f selection model path pathCurrentlySelected + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeSelectionFunc :: MonadIO m => TreeSelectionFunc -> m (GClosure C_TreeSelectionFunc) +genClosure_TreeSelectionFunc cb = liftIO $ do + let cb' = drop_closures_TreeSelectionFunc cb + let cb'' = wrap_TreeSelectionFunc Nothing cb' + mk_TreeSelectionFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeSelectionFunc` into a `C_TreeSelectionFunc`. +wrap_TreeSelectionFunc :: + Maybe (Ptr (FunPtr C_TreeSelectionFunc)) -> + TreeSelectionFunc_WithClosures -> + C_TreeSelectionFunc +wrap_TreeSelectionFunc funptrptr _cb selection model path pathCurrentlySelected data_ = do + selection' <- (newObject Gtk.TreeSelection.TreeSelection) selection + model' <- (newObject Gtk.TreeModel.TreeModel) model + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + let pathCurrentlySelected' = (/= 0) pathCurrentlySelected + result <- _cb selection' model' path' pathCurrentlySelected' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TreeSelectionForeachFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeModel being viewed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreePath of a selected row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeIter pointing to a selected row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function used by gtk_tree_selection_selected_foreach() to map all\nselected rows. It will be called on every selected row in the view.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeSelectionForeachFunc = + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreePath.TreePath -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeModel being viewed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreePath of a selected row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeIter pointing to a selected row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeSelectionForeachFunc :: FunPtr C_TreeSelectionForeachFunc -> C_TreeSelectionForeachFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeSelectionForeachFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) => + FunPtr C_TreeSelectionForeachFunc + -> a + {- ^ /@model@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' being viewed -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of a selected row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' pointing to a selected row -} + -> Ptr () + {- ^ /@data@/: user data -} + -> m () +dynamic_TreeSelectionForeachFunc __funPtr model path iter data_ = liftIO $ do + model' <- unsafeManagedPtrCastPtr model + path' <- unsafeManagedPtrGetPtr path + iter' <- unsafeManagedPtrGetPtr iter + (__dynamic_C_TreeSelectionForeachFunc __funPtr) model' path' iter' data_ + touchManagedPtr model + touchManagedPtr path + touchManagedPtr iter + return () + +-- | Generate a function pointer callable from C code, from a `C_TreeSelectionForeachFunc`. +foreign import ccall "wrapper" + mk_TreeSelectionForeachFunc :: C_TreeSelectionForeachFunc -> IO (FunPtr C_TreeSelectionForeachFunc) + +{- | +A function used by 'GI.Gtk.Objects.TreeSelection.treeSelectionSelectedForeach' to map all +selected rows. It will be called on every selected row in the view. +-} +type TreeSelectionForeachFunc = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' being viewed -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of a selected row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' pointing to a selected row -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeSelectionForeachFunc`@. +noTreeSelectionForeachFunc :: Maybe TreeSelectionForeachFunc +noTreeSelectionForeachFunc = Nothing + +{- | +A function used by 'GI.Gtk.Objects.TreeSelection.treeSelectionSelectedForeach' to map all +selected rows. It will be called on every selected row in the view. +-} +type TreeSelectionForeachFunc_WithClosures = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' being viewed -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of a selected row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' pointing to a selected row -} + -> Ptr () + {- ^ /@data@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeSelectionForeachFunc_WithClosures`@. +noTreeSelectionForeachFunc_WithClosures :: Maybe TreeSelectionForeachFunc_WithClosures +noTreeSelectionForeachFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeSelectionForeachFunc :: TreeSelectionForeachFunc -> TreeSelectionForeachFunc_WithClosures +drop_closures_TreeSelectionForeachFunc _f model path iter _ = _f model path iter + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeSelectionForeachFunc :: MonadIO m => TreeSelectionForeachFunc -> m (GClosure C_TreeSelectionForeachFunc) +genClosure_TreeSelectionForeachFunc cb = liftIO $ do + let cb' = drop_closures_TreeSelectionForeachFunc cb + let cb'' = wrap_TreeSelectionForeachFunc Nothing cb' + mk_TreeSelectionForeachFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeSelectionForeachFunc` into a `C_TreeSelectionForeachFunc`. +wrap_TreeSelectionForeachFunc :: + Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc)) -> + TreeSelectionForeachFunc_WithClosures -> + C_TreeSelectionForeachFunc +wrap_TreeSelectionForeachFunc funptrptr _cb model path iter data_ = do + model' <- (newObject Gtk.TreeModel.TreeModel) model + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + _cb model' path' iter' data_ + maybeReleaseFunPtr funptrptr + + +-- callback TreeModelForeachFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE to stop iterating, %FALSE to continue", sinceVersion = Nothing}, args = [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeModel being iterated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current #GtkTreePath", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current #GtkTreeIter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The user data passed to gtk_tree_model_foreach()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Type of the callback passed to gtk_tree_model_foreach() to\niterate over the rows in a tree model.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeModelForeachFunc = + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreePath.TreePath -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeModel being iterated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current #GtkTreePath", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current #GtkTreeIter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The user data passed to gtk_tree_model_foreach()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeModelForeachFunc :: FunPtr C_TreeModelForeachFunc -> C_TreeModelForeachFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeModelForeachFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) => + FunPtr C_TreeModelForeachFunc + -> a + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' being iterated -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: the current 'GI.Gtk.Structs.TreePath.TreePath' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the current 'GI.Gtk.Structs.TreeIter.TreeIter' -} + -> Ptr () + {- ^ /@data@/: The user data passed to 'GI.Gtk.Interfaces.TreeModel.treeModelForeach' -} + -> m Bool + {- ^ __Returns:__ 'True' to stop iterating, 'False' to continue -} +dynamic_TreeModelForeachFunc __funPtr model path iter data_ = liftIO $ do + model' <- unsafeManagedPtrCastPtr model + path' <- unsafeManagedPtrGetPtr path + iter' <- unsafeManagedPtrGetPtr iter + result <- (__dynamic_C_TreeModelForeachFunc __funPtr) model' path' iter' data_ + let result' = (/= 0) result + touchManagedPtr model + touchManagedPtr path + touchManagedPtr iter + return result' + +-- | Generate a function pointer callable from C code, from a `C_TreeModelForeachFunc`. +foreign import ccall "wrapper" + mk_TreeModelForeachFunc :: C_TreeModelForeachFunc -> IO (FunPtr C_TreeModelForeachFunc) + +{- | +Type of the callback passed to 'GI.Gtk.Interfaces.TreeModel.treeModelForeach' to +iterate over the rows in a tree model. +-} +type TreeModelForeachFunc = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' being iterated -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: the current 'GI.Gtk.Structs.TreePath.TreePath' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the current 'GI.Gtk.Structs.TreeIter.TreeIter' -} + -> IO Bool + {- ^ __Returns:__ 'True' to stop iterating, 'False' to continue -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelForeachFunc`@. +noTreeModelForeachFunc :: Maybe TreeModelForeachFunc +noTreeModelForeachFunc = Nothing + +{- | +Type of the callback passed to 'GI.Gtk.Interfaces.TreeModel.treeModelForeach' to +iterate over the rows in a tree model. +-} +type TreeModelForeachFunc_WithClosures = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the 'GI.Gtk.Interfaces.TreeModel.TreeModel' being iterated -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: the current 'GI.Gtk.Structs.TreePath.TreePath' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the current 'GI.Gtk.Structs.TreeIter.TreeIter' -} + -> Ptr () + {- ^ /@data@/: The user data passed to 'GI.Gtk.Interfaces.TreeModel.treeModelForeach' -} + -> IO Bool + {- ^ __Returns:__ 'True' to stop iterating, 'False' to continue -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelForeachFunc_WithClosures`@. +noTreeModelForeachFunc_WithClosures :: Maybe TreeModelForeachFunc_WithClosures +noTreeModelForeachFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeModelForeachFunc :: TreeModelForeachFunc -> TreeModelForeachFunc_WithClosures +drop_closures_TreeModelForeachFunc _f model path iter _ = _f model path iter + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeModelForeachFunc :: MonadIO m => TreeModelForeachFunc -> m (GClosure C_TreeModelForeachFunc) +genClosure_TreeModelForeachFunc cb = liftIO $ do + let cb' = drop_closures_TreeModelForeachFunc cb + let cb'' = wrap_TreeModelForeachFunc Nothing cb' + mk_TreeModelForeachFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeModelForeachFunc` into a `C_TreeModelForeachFunc`. +wrap_TreeModelForeachFunc :: + Maybe (Ptr (FunPtr C_TreeModelForeachFunc)) -> + TreeModelForeachFunc_WithClosures -> + C_TreeModelForeachFunc +wrap_TreeModelForeachFunc funptrptr _cb model path iter data_ = do + model' <- (newObject Gtk.TreeModel.TreeModel) model + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + result <- _cb model' path' iter' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TreeModelFilterVisibleFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "Whether the row indicated by @iter is visible.", sinceVersion = Nothing}, args = [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the child model of the #GtkTreeModelFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter pointing to the row in @model whose visibility\n is determined", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data given to gtk_tree_model_filter_set_visible_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function which decides whether the row indicated by @iter is visible.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeModelFilterVisibleFunc = + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the child model of the #GtkTreeModelFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter pointing to the row in @model whose visibility\n is determined", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data given to gtk_tree_model_filter_set_visible_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeModelFilterVisibleFunc :: FunPtr C_TreeModelFilterVisibleFunc -> C_TreeModelFilterVisibleFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeModelFilterVisibleFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) => + FunPtr C_TreeModelFilterVisibleFunc + -> a + {- ^ /@model@/: the child model of the 'GI.Gtk.Objects.TreeModelFilter.TreeModelFilter' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing to the row in /@model@/ whose visibility + is determined -} + -> Ptr () + {- ^ /@data@/: user data given to 'GI.Gtk.Objects.TreeModelFilter.treeModelFilterSetVisibleFunc' -} + -> m Bool + {- ^ __Returns:__ Whether the row indicated by /@iter@/ is visible. -} +dynamic_TreeModelFilterVisibleFunc __funPtr model iter data_ = liftIO $ do + model' <- unsafeManagedPtrCastPtr model + iter' <- unsafeManagedPtrGetPtr iter + result <- (__dynamic_C_TreeModelFilterVisibleFunc __funPtr) model' iter' data_ + let result' = (/= 0) result + touchManagedPtr model + touchManagedPtr iter + return result' + +-- | Generate a function pointer callable from C code, from a `C_TreeModelFilterVisibleFunc`. +foreign import ccall "wrapper" + mk_TreeModelFilterVisibleFunc :: C_TreeModelFilterVisibleFunc -> IO (FunPtr C_TreeModelFilterVisibleFunc) + +{- | +A function which decides whether the row indicated by /@iter@/ is visible. +-} +type TreeModelFilterVisibleFunc = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the child model of the 'GI.Gtk.Objects.TreeModelFilter.TreeModelFilter' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing to the row in /@model@/ whose visibility + is determined -} + -> IO Bool + {- ^ __Returns:__ Whether the row indicated by /@iter@/ is visible. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelFilterVisibleFunc`@. +noTreeModelFilterVisibleFunc :: Maybe TreeModelFilterVisibleFunc +noTreeModelFilterVisibleFunc = Nothing + +{- | +A function which decides whether the row indicated by /@iter@/ is visible. +-} +type TreeModelFilterVisibleFunc_WithClosures = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: the child model of the 'GI.Gtk.Objects.TreeModelFilter.TreeModelFilter' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' pointing to the row in /@model@/ whose visibility + is determined -} + -> Ptr () + {- ^ /@data@/: user data given to 'GI.Gtk.Objects.TreeModelFilter.treeModelFilterSetVisibleFunc' -} + -> IO Bool + {- ^ __Returns:__ Whether the row indicated by /@iter@/ is visible. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelFilterVisibleFunc_WithClosures`@. +noTreeModelFilterVisibleFunc_WithClosures :: Maybe TreeModelFilterVisibleFunc_WithClosures +noTreeModelFilterVisibleFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeModelFilterVisibleFunc :: TreeModelFilterVisibleFunc -> TreeModelFilterVisibleFunc_WithClosures +drop_closures_TreeModelFilterVisibleFunc _f model iter _ = _f model iter + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeModelFilterVisibleFunc :: MonadIO m => TreeModelFilterVisibleFunc -> m (GClosure C_TreeModelFilterVisibleFunc) +genClosure_TreeModelFilterVisibleFunc cb = liftIO $ do + let cb' = drop_closures_TreeModelFilterVisibleFunc cb + let cb'' = wrap_TreeModelFilterVisibleFunc Nothing cb' + mk_TreeModelFilterVisibleFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeModelFilterVisibleFunc` into a `C_TreeModelFilterVisibleFunc`. +wrap_TreeModelFilterVisibleFunc :: + Maybe (Ptr (FunPtr C_TreeModelFilterVisibleFunc)) -> + TreeModelFilterVisibleFunc_WithClosures -> + C_TreeModelFilterVisibleFunc +wrap_TreeModelFilterVisibleFunc funptrptr _cb model iter data_ = do + model' <- (newObject Gtk.TreeModel.TreeModel) model + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + result <- _cb model' iter' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TreeModelFilterModifyFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeModelFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter pointing to the row whose display values are determined", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GValue which is already initialized for\n with the correct type for the column @column.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the column whose display value is determined", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data given to gtk_tree_model_filter_set_modify_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function which calculates display values from raw values in the model.\nIt must fill @value with the display value for the column @column in the\nrow indicated by @iter.\n\nSince this function is called for each data access, it\8217s not a\nparticularly efficient operation.", sinceVersion = Nothing}} +-- XXX Could not generate callback wrapper for TreeModelFilterModifyFunc +-- Error was : Not implemented: "Unexpected transfer type for \"value\"" +-- callback TreeIterCompareFunc +-- -> Callable {returnType = Just (TBasicType TInt), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "a negative integer, zero or a positive integer depending on whether\n @a sorts before, with or after @b", sinceVersion = Nothing}, args = [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeModel the comparison is within", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeIter in @model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Another #GtkTreeIter in @model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Data passed when the compare func is assigned e.g. by\n gtk_tree_sortable_set_sort_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A GtkTreeIterCompareFunc should return a negative integer, zero, or a positive\ninteger if @a sorts before @b, @a sorts with @b, or @a sorts after @b\nrespectively. If two iters compare as equal, their order in the sorted model\nis undefined. In order to ensure that the #GtkTreeSortable behaves as\nexpected, the GtkTreeIterCompareFunc must define a partial order on\nthe model, i.e. it must be reflexive, antisymmetric and transitive.\n\nFor example, if @model is a product catalogue, then a compare function\nfor the \8220price\8221 column could be one which returns\n`price_of(@a) - price_of(@b)`.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeIterCompareFunc = + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO Int32 + +-- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeModel the comparison is within", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeIter in @model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Another #GtkTreeIter in @model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Data passed when the compare func is assigned e.g. by\n gtk_tree_sortable_set_sort_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeIterCompareFunc :: FunPtr C_TreeIterCompareFunc -> C_TreeIterCompareFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeIterCompareFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) => + FunPtr C_TreeIterCompareFunc + -> a + {- ^ /@model@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' the comparison is within -} + -> Gtk.TreeIter.TreeIter + {- ^ /@a@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' in /@model@/ -} + -> Gtk.TreeIter.TreeIter + {- ^ /@b@/: Another 'GI.Gtk.Structs.TreeIter.TreeIter' in /@model@/ -} + -> Ptr () + {- ^ /@userData@/: Data passed when the compare func is assigned e.g. by + 'GI.Gtk.Interfaces.TreeSortable.treeSortableSetSortFunc' -} + -> m Int32 + {- ^ __Returns:__ a negative integer, zero or a positive integer depending on whether + /@a@/ sorts before, with or after /@b@/ -} +dynamic_TreeIterCompareFunc __funPtr model a b userData = liftIO $ do + model' <- unsafeManagedPtrCastPtr model + a' <- unsafeManagedPtrGetPtr a + b' <- unsafeManagedPtrGetPtr b + result <- (__dynamic_C_TreeIterCompareFunc __funPtr) model' a' b' userData + touchManagedPtr model + touchManagedPtr a + touchManagedPtr b + return result + +-- | Generate a function pointer callable from C code, from a `C_TreeIterCompareFunc`. +foreign import ccall "wrapper" + mk_TreeIterCompareFunc :: C_TreeIterCompareFunc -> IO (FunPtr C_TreeIterCompareFunc) + +{- | +A GtkTreeIterCompareFunc should return a negative integer, zero, or a positive +integer if /@a@/ sorts before /@b@/, /@a@/ sorts with /@b@/, or /@a@/ sorts after /@b@/ +respectively. If two iters compare as equal, their order in the sorted model +is undefined. In order to ensure that the 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' behaves as +expected, the GtkTreeIterCompareFunc must define a partial order on +the model, i.e. it must be reflexive, antisymmetric and transitive. + +For example, if /@model@/ is a product catalogue, then a compare function +for the “price” column could be one which returns +@price_of(\@a) - price_of(\@b)@. +-} +type TreeIterCompareFunc = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' the comparison is within -} + -> Gtk.TreeIter.TreeIter + {- ^ /@a@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' in /@model@/ -} + -> Gtk.TreeIter.TreeIter + {- ^ /@b@/: Another 'GI.Gtk.Structs.TreeIter.TreeIter' in /@model@/ -} + -> IO Int32 + {- ^ __Returns:__ a negative integer, zero or a positive integer depending on whether + /@a@/ sorts before, with or after /@b@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeIterCompareFunc`@. +noTreeIterCompareFunc :: Maybe TreeIterCompareFunc +noTreeIterCompareFunc = Nothing + +{- | +A GtkTreeIterCompareFunc should return a negative integer, zero, or a positive +integer if /@a@/ sorts before /@b@/, /@a@/ sorts with /@b@/, or /@a@/ sorts after /@b@/ +respectively. If two iters compare as equal, their order in the sorted model +is undefined. In order to ensure that the 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' behaves as +expected, the GtkTreeIterCompareFunc must define a partial order on +the model, i.e. it must be reflexive, antisymmetric and transitive. + +For example, if /@model@/ is a product catalogue, then a compare function +for the “price” column could be one which returns +@price_of(\@a) - price_of(\@b)@. +-} +type TreeIterCompareFunc_WithClosures = + Gtk.TreeModel.TreeModel + {- ^ /@model@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' the comparison is within -} + -> Gtk.TreeIter.TreeIter + {- ^ /@a@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' in /@model@/ -} + -> Gtk.TreeIter.TreeIter + {- ^ /@b@/: Another 'GI.Gtk.Structs.TreeIter.TreeIter' in /@model@/ -} + -> Ptr () + {- ^ /@userData@/: Data passed when the compare func is assigned e.g. by + 'GI.Gtk.Interfaces.TreeSortable.treeSortableSetSortFunc' -} + -> IO Int32 + {- ^ __Returns:__ a negative integer, zero or a positive integer depending on whether + /@a@/ sorts before, with or after /@b@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeIterCompareFunc_WithClosures`@. +noTreeIterCompareFunc_WithClosures :: Maybe TreeIterCompareFunc_WithClosures +noTreeIterCompareFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeIterCompareFunc :: TreeIterCompareFunc -> TreeIterCompareFunc_WithClosures +drop_closures_TreeIterCompareFunc _f model a b _ = _f model a b + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeIterCompareFunc :: MonadIO m => TreeIterCompareFunc -> m (GClosure C_TreeIterCompareFunc) +genClosure_TreeIterCompareFunc cb = liftIO $ do + let cb' = drop_closures_TreeIterCompareFunc cb + let cb'' = wrap_TreeIterCompareFunc Nothing cb' + mk_TreeIterCompareFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeIterCompareFunc` into a `C_TreeIterCompareFunc`. +wrap_TreeIterCompareFunc :: + Maybe (Ptr (FunPtr C_TreeIterCompareFunc)) -> + TreeIterCompareFunc_WithClosures -> + C_TreeIterCompareFunc +wrap_TreeIterCompareFunc funptrptr _cb model a b userData = do + model' <- (newObject Gtk.TreeModel.TreeModel) model + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter a $ \a' -> do + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter b $ \b' -> do + result <- _cb model' a' b' userData + maybeReleaseFunPtr funptrptr + return result + + +-- callback TreeDestroyCountFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "children", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeDestroyCountFunc = + Ptr Gtk.TreeView.TreeView -> + Ptr Gtk.TreePath.TreePath -> + Int32 -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "tree_view", argType = TInterface (Name {namespace = "Gtk", name = "TreeView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "children", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeDestroyCountFunc :: FunPtr C_TreeDestroyCountFunc -> C_TreeDestroyCountFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeDestroyCountFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeView.IsTreeView a) => + FunPtr C_TreeDestroyCountFunc + -> a + -> Gtk.TreePath.TreePath + -> Int32 + -> Ptr () + -> m () +dynamic_TreeDestroyCountFunc __funPtr treeView path children userData = liftIO $ do + treeView' <- unsafeManagedPtrCastPtr treeView + path' <- unsafeManagedPtrGetPtr path + (__dynamic_C_TreeDestroyCountFunc __funPtr) treeView' path' children userData + touchManagedPtr treeView + touchManagedPtr path + return () + +-- | Generate a function pointer callable from C code, from a `C_TreeDestroyCountFunc`. +foreign import ccall "wrapper" + mk_TreeDestroyCountFunc :: C_TreeDestroyCountFunc -> IO (FunPtr C_TreeDestroyCountFunc) + +{- | +/No description available in the introspection data./ +-} +type TreeDestroyCountFunc = + Gtk.TreeView.TreeView + -> Gtk.TreePath.TreePath + -> Int32 + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeDestroyCountFunc`@. +noTreeDestroyCountFunc :: Maybe TreeDestroyCountFunc +noTreeDestroyCountFunc = Nothing + +{- | +/No description available in the introspection data./ +-} +type TreeDestroyCountFunc_WithClosures = + Gtk.TreeView.TreeView + -> Gtk.TreePath.TreePath + -> Int32 + -> Ptr () + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeDestroyCountFunc_WithClosures`@. +noTreeDestroyCountFunc_WithClosures :: Maybe TreeDestroyCountFunc_WithClosures +noTreeDestroyCountFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeDestroyCountFunc :: TreeDestroyCountFunc -> TreeDestroyCountFunc_WithClosures +drop_closures_TreeDestroyCountFunc _f treeView path children _ = _f treeView path children + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeDestroyCountFunc :: MonadIO m => TreeDestroyCountFunc -> m (GClosure C_TreeDestroyCountFunc) +genClosure_TreeDestroyCountFunc cb = liftIO $ do + let cb' = drop_closures_TreeDestroyCountFunc cb + let cb'' = wrap_TreeDestroyCountFunc Nothing cb' + mk_TreeDestroyCountFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeDestroyCountFunc` into a `C_TreeDestroyCountFunc`. +wrap_TreeDestroyCountFunc :: + Maybe (Ptr (FunPtr C_TreeDestroyCountFunc)) -> + TreeDestroyCountFunc_WithClosures -> + C_TreeDestroyCountFunc +wrap_TreeDestroyCountFunc funptrptr _cb treeView path children userData = do + treeView' <- (newObject Gtk.TreeView.TreeView) treeView + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + _cb treeView' path' children userData + maybeReleaseFunPtr funptrptr + + +-- callback TreeCellDataFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "tree_column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeViewColumn", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkCellRenderer that is being rendered by @tree_column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeModel being rendered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeIter of the current row rendered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to set the properties of a cell instead of just using the\nstraight mapping between the cell and the model. This is useful for\ncustomizing the cell renderer. For example, a function might get an\ninteger from the @tree_model, and render it to the \8220text\8221 attribute of\n\8220cell\8221 by converting it to its written equivalent. This is set by\ncalling gtk_tree_view_column_set_cell_data_func()", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TreeCellDataFunc = + Ptr Gtk.TreeViewColumn.TreeViewColumn -> + Ptr Gtk.CellRenderer.CellRenderer -> + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "tree_column", argType = TInterface (Name {namespace = "Gtk", name = "TreeViewColumn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeViewColumn", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkCellRenderer that is being rendered by @tree_column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreeModel being rendered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeIter of the current row rendered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TreeCellDataFunc :: FunPtr C_TreeCellDataFunc -> C_TreeCellDataFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TreeCellDataFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeViewColumn.IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b, Gtk.TreeModel.IsTreeModel c) => + FunPtr C_TreeCellDataFunc + -> a + {- ^ /@treeColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' -} + -> b + {- ^ /@cell@/: The 'GI.Gtk.Objects.CellRenderer.CellRenderer' that is being rendered by /@treeColumn@/ -} + -> c + {- ^ /@treeModel@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' being rendered -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' of the current row rendered -} + -> Ptr () + {- ^ /@data@/: user data -} + -> m () +dynamic_TreeCellDataFunc __funPtr treeColumn cell treeModel iter data_ = liftIO $ do + treeColumn' <- unsafeManagedPtrCastPtr treeColumn + cell' <- unsafeManagedPtrCastPtr cell + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + (__dynamic_C_TreeCellDataFunc __funPtr) treeColumn' cell' treeModel' iter' data_ + touchManagedPtr treeColumn + touchManagedPtr cell + touchManagedPtr treeModel + touchManagedPtr iter + return () + +-- | Generate a function pointer callable from C code, from a `C_TreeCellDataFunc`. +foreign import ccall "wrapper" + mk_TreeCellDataFunc :: C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc) + +{- | +A function to set the properties of a cell instead of just using the +straight mapping between the cell and the model. This is useful for +customizing the cell renderer. For example, a function might get an +integer from the /@treeModel@/, and render it to the “text” attribute of +“cell” by converting it to its written equivalent. This is set by +calling 'GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetCellDataFunc' +-} +type TreeCellDataFunc = + Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@treeColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' -} + -> Gtk.CellRenderer.CellRenderer + {- ^ /@cell@/: The 'GI.Gtk.Objects.CellRenderer.CellRenderer' that is being rendered by /@treeColumn@/ -} + -> Gtk.TreeModel.TreeModel + {- ^ /@treeModel@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' being rendered -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' of the current row rendered -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeCellDataFunc`@. +noTreeCellDataFunc :: Maybe TreeCellDataFunc +noTreeCellDataFunc = Nothing + +{- | +A function to set the properties of a cell instead of just using the +straight mapping between the cell and the model. This is useful for +customizing the cell renderer. For example, a function might get an +integer from the /@treeModel@/, and render it to the “text” attribute of +“cell” by converting it to its written equivalent. This is set by +calling 'GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetCellDataFunc' +-} +type TreeCellDataFunc_WithClosures = + Gtk.TreeViewColumn.TreeViewColumn + {- ^ /@treeColumn@/: A 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' -} + -> Gtk.CellRenderer.CellRenderer + {- ^ /@cell@/: The 'GI.Gtk.Objects.CellRenderer.CellRenderer' that is being rendered by /@treeColumn@/ -} + -> Gtk.TreeModel.TreeModel + {- ^ /@treeModel@/: The 'GI.Gtk.Interfaces.TreeModel.TreeModel' being rendered -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: A 'GI.Gtk.Structs.TreeIter.TreeIter' of the current row rendered -} + -> Ptr () + {- ^ /@data@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeCellDataFunc_WithClosures`@. +noTreeCellDataFunc_WithClosures :: Maybe TreeCellDataFunc_WithClosures +noTreeCellDataFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TreeCellDataFunc :: TreeCellDataFunc -> TreeCellDataFunc_WithClosures +drop_closures_TreeCellDataFunc _f treeColumn cell treeModel iter _ = _f treeColumn cell treeModel iter + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeCellDataFunc :: MonadIO m => TreeCellDataFunc -> m (GClosure C_TreeCellDataFunc) +genClosure_TreeCellDataFunc cb = liftIO $ do + let cb' = drop_closures_TreeCellDataFunc cb + let cb'' = wrap_TreeCellDataFunc Nothing cb' + mk_TreeCellDataFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeCellDataFunc` into a `C_TreeCellDataFunc`. +wrap_TreeCellDataFunc :: + Maybe (Ptr (FunPtr C_TreeCellDataFunc)) -> + TreeCellDataFunc_WithClosures -> + C_TreeCellDataFunc +wrap_TreeCellDataFunc funptrptr _cb treeColumn cell treeModel iter data_ = do + treeColumn' <- (newObject Gtk.TreeViewColumn.TreeViewColumn) treeColumn + cell' <- (newObject Gtk.CellRenderer.CellRenderer) cell + treeModel' <- (newObject Gtk.TreeModel.TreeModel) treeModel + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + _cb treeColumn' cell' treeModel' iter' data_ + maybeReleaseFunPtr funptrptr + + +-- callback TranslateFunc +-- -> Callable {returnType = Just (TBasicType TUTF8), returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "the translated message", sinceVersion = Nothing}, args = [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The id of the message. In #GtkActionGroup this will be a label\n or tooltip from a #GtkActionEntry.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed in when registering the\n function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.10", deprecationMessage = Nothing}), callableDocumentation = Documentation {rawDocText = Just "The function used to translate messages in e.g. #GtkIconFactory\nand #GtkActionGroup.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TranslateFunc = + CString -> + Ptr () -> + IO CString + +-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The id of the message. In #GtkActionGroup this will be a label\n or tooltip from a #GtkActionEntry.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed in when registering the\n function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TranslateFunc :: FunPtr C_TranslateFunc -> C_TranslateFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TranslateFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_TranslateFunc + -> T.Text + {- ^ /@path@/: The id of the message. In 'GI.Gtk.Objects.ActionGroup.ActionGroup' this will be a label + or tooltip from a 'GI.Gtk.Structs.ActionEntry.ActionEntry'. -} + -> Ptr () + {- ^ /@funcData@/: user data passed in when registering the + function -} + -> m T.Text + {- ^ __Returns:__ the translated message -} +dynamic_TranslateFunc __funPtr path funcData = liftIO $ do + path' <- textToCString path + result <- (__dynamic_C_TranslateFunc __funPtr) path' funcData + checkUnexpectedReturnNULL "translateFunc" result + result' <- cstringToText result + freeMem result + freeMem path' + return result' + +-- | Generate a function pointer callable from C code, from a `C_TranslateFunc`. +foreign import ccall "wrapper" + mk_TranslateFunc :: C_TranslateFunc -> IO (FunPtr C_TranslateFunc) + +{-# DEPRECATED TranslateFunc ["(Since version 3.10)"] #-} +{- | +The function used to translate messages in e.g. 'GI.Gtk.Objects.IconFactory.IconFactory' +and 'GI.Gtk.Objects.ActionGroup.ActionGroup'. +-} +type TranslateFunc = + T.Text + {- ^ /@path@/: The id of the message. In 'GI.Gtk.Objects.ActionGroup.ActionGroup' this will be a label + or tooltip from a 'GI.Gtk.Structs.ActionEntry.ActionEntry'. -} + -> IO T.Text + {- ^ __Returns:__ the translated message -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TranslateFunc`@. +noTranslateFunc :: Maybe TranslateFunc +noTranslateFunc = Nothing + +{- | +The function used to translate messages in e.g. 'GI.Gtk.Objects.IconFactory.IconFactory' +and 'GI.Gtk.Objects.ActionGroup.ActionGroup'. +-} +type TranslateFunc_WithClosures = + T.Text + {- ^ /@path@/: The id of the message. In 'GI.Gtk.Objects.ActionGroup.ActionGroup' this will be a label + or tooltip from a 'GI.Gtk.Structs.ActionEntry.ActionEntry'. -} + -> Ptr () + {- ^ /@funcData@/: user data passed in when registering the + function -} + -> IO T.Text + {- ^ __Returns:__ the translated message -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TranslateFunc_WithClosures`@. +noTranslateFunc_WithClosures :: Maybe TranslateFunc_WithClosures +noTranslateFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TranslateFunc :: TranslateFunc -> TranslateFunc_WithClosures +drop_closures_TranslateFunc _f path _ = _f path + +-- | Wrap the callback into a `GClosure`. +genClosure_TranslateFunc :: MonadIO m => TranslateFunc -> m (GClosure C_TranslateFunc) +genClosure_TranslateFunc cb = liftIO $ do + let cb' = drop_closures_TranslateFunc cb + let cb'' = wrap_TranslateFunc Nothing cb' + mk_TranslateFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TranslateFunc` into a `C_TranslateFunc`. +wrap_TranslateFunc :: + Maybe (Ptr (FunPtr C_TranslateFunc)) -> + TranslateFunc_WithClosures -> + C_TranslateFunc +wrap_TranslateFunc funptrptr _cb path funcData = do + path' <- cstringToText path + result <- _cb path' funcData + maybeReleaseFunPtr funptrptr + result' <- textToCString result + return result' + + +-- callback TickCallback +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%G_SOURCE_CONTINUE if the tick callback should continue to be called,\n %G_SOURCE_REMOVE if the tick callback should be removed.", sinceVersion = Nothing}, args = [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_clock", argType = TInterface (Name {namespace = "Gdk", name = "FrameClock"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the frame clock for the widget (same as calling gtk_widget_get_frame_clock())", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_widget_add_tick_callback().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Callback type for adding a function to update animations. See gtk_widget_add_tick_callback().", sinceVersion = Just "3.8"}} +-- | Type for the callback on the (unwrapped) C side. +type C_TickCallback = + Ptr Gtk.Widget.Widget -> + Ptr Gdk.FrameClock.FrameClock -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_clock", argType = TInterface (Name {namespace = "Gdk", name = "FrameClock"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the frame clock for the widget (same as calling gtk_widget_get_frame_clock())", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_widget_add_tick_callback().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TickCallback :: FunPtr C_TickCallback -> C_TickCallback + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TickCallback :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.FrameClock.IsFrameClock b) => + FunPtr C_TickCallback + -> a + {- ^ /@widget@/: the widget -} + -> b + {- ^ /@frameClock@/: the frame clock for the widget (same as calling 'GI.Gtk.Objects.Widget.widgetGetFrameClock') -} + -> Ptr () + {- ^ /@userData@/: user data passed to 'GI.Gtk.Objects.Widget.widgetAddTickCallback'. -} + -> m Bool + {- ^ __Returns:__ 'GI.GLib.Constants.SOURCE_CONTINUE' if the tick callback should continue to be called, + 'GI.GLib.Constants.SOURCE_REMOVE' if the tick callback should be removed. -} +dynamic_TickCallback __funPtr widget frameClock userData = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + frameClock' <- unsafeManagedPtrCastPtr frameClock + result <- (__dynamic_C_TickCallback __funPtr) widget' frameClock' userData + let result' = (/= 0) result + touchManagedPtr widget + touchManagedPtr frameClock + return result' + +-- | Generate a function pointer callable from C code, from a `C_TickCallback`. +foreign import ccall "wrapper" + mk_TickCallback :: C_TickCallback -> IO (FunPtr C_TickCallback) + +{- | +Callback type for adding a function to update animations. See 'GI.Gtk.Objects.Widget.widgetAddTickCallback'. + +/Since: 3.8/ +-} +type TickCallback = + Gtk.Widget.Widget + {- ^ /@widget@/: the widget -} + -> Gdk.FrameClock.FrameClock + {- ^ /@frameClock@/: the frame clock for the widget (same as calling 'GI.Gtk.Objects.Widget.widgetGetFrameClock') -} + -> IO Bool + {- ^ __Returns:__ 'GI.GLib.Constants.SOURCE_CONTINUE' if the tick callback should continue to be called, + 'GI.GLib.Constants.SOURCE_REMOVE' if the tick callback should be removed. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TickCallback`@. +noTickCallback :: Maybe TickCallback +noTickCallback = Nothing + +{- | +Callback type for adding a function to update animations. See 'GI.Gtk.Objects.Widget.widgetAddTickCallback'. + +/Since: 3.8/ +-} +type TickCallback_WithClosures = + Gtk.Widget.Widget + {- ^ /@widget@/: the widget -} + -> Gdk.FrameClock.FrameClock + {- ^ /@frameClock@/: the frame clock for the widget (same as calling 'GI.Gtk.Objects.Widget.widgetGetFrameClock') -} + -> Ptr () + {- ^ /@userData@/: user data passed to 'GI.Gtk.Objects.Widget.widgetAddTickCallback'. -} + -> IO Bool + {- ^ __Returns:__ 'GI.GLib.Constants.SOURCE_CONTINUE' if the tick callback should continue to be called, + 'GI.GLib.Constants.SOURCE_REMOVE' if the tick callback should be removed. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TickCallback_WithClosures`@. +noTickCallback_WithClosures :: Maybe TickCallback_WithClosures +noTickCallback_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TickCallback :: TickCallback -> TickCallback_WithClosures +drop_closures_TickCallback _f widget frameClock _ = _f widget frameClock + +-- | Wrap the callback into a `GClosure`. +genClosure_TickCallback :: MonadIO m => TickCallback -> m (GClosure C_TickCallback) +genClosure_TickCallback cb = liftIO $ do + let cb' = drop_closures_TickCallback cb + let cb'' = wrap_TickCallback Nothing cb' + mk_TickCallback cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TickCallback` into a `C_TickCallback`. +wrap_TickCallback :: + Maybe (Ptr (FunPtr C_TickCallback)) -> + TickCallback_WithClosures -> + C_TickCallback +wrap_TickCallback funptrptr _cb widget frameClock userData = do + widget' <- (newObject Gtk.Widget.Widget) widget + frameClock' <- (newObject Gdk.FrameClock.FrameClock) frameClock + result <- _cb widget' frameClock' userData + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TextTagTableForeach +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "tag", argType = TInterface (Name {namespace = "Gtk", name = "TextTag"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextTag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data passed to gtk_text_tag_table_foreach()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TextTagTableForeach = + Ptr Gtk.TextTag.TextTag -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "tag", argType = TInterface (Name {namespace = "Gtk", name = "TextTag"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextTag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data passed to gtk_text_tag_table_foreach()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TextTagTableForeach :: FunPtr C_TextTagTableForeach -> C_TextTagTableForeach + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TextTagTableForeach :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) => + FunPtr C_TextTagTableForeach + -> a + {- ^ /@tag@/: the 'GI.Gtk.Objects.TextTag.TextTag' -} + -> Ptr () + {- ^ /@data@/: data passed to 'GI.Gtk.Objects.TextTagTable.textTagTableForeach' -} + -> m () +dynamic_TextTagTableForeach __funPtr tag data_ = liftIO $ do + tag' <- unsafeManagedPtrCastPtr tag + (__dynamic_C_TextTagTableForeach __funPtr) tag' data_ + touchManagedPtr tag + return () + +-- | Generate a function pointer callable from C code, from a `C_TextTagTableForeach`. +foreign import ccall "wrapper" + mk_TextTagTableForeach :: C_TextTagTableForeach -> IO (FunPtr C_TextTagTableForeach) + +{- | +/No description available in the introspection data./ +-} +type TextTagTableForeach = + Gtk.TextTag.TextTag + {- ^ /@tag@/: the 'GI.Gtk.Objects.TextTag.TextTag' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextTagTableForeach`@. +noTextTagTableForeach :: Maybe TextTagTableForeach +noTextTagTableForeach = Nothing + +{- | +/No description available in the introspection data./ +-} +type TextTagTableForeach_WithClosures = + Gtk.TextTag.TextTag + {- ^ /@tag@/: the 'GI.Gtk.Objects.TextTag.TextTag' -} + -> Ptr () + {- ^ /@data@/: data passed to 'GI.Gtk.Objects.TextTagTable.textTagTableForeach' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextTagTableForeach_WithClosures`@. +noTextTagTableForeach_WithClosures :: Maybe TextTagTableForeach_WithClosures +noTextTagTableForeach_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TextTagTableForeach :: TextTagTableForeach -> TextTagTableForeach_WithClosures +drop_closures_TextTagTableForeach _f tag _ = _f tag + +-- | Wrap the callback into a `GClosure`. +genClosure_TextTagTableForeach :: MonadIO m => TextTagTableForeach -> m (GClosure C_TextTagTableForeach) +genClosure_TextTagTableForeach cb = liftIO $ do + let cb' = drop_closures_TextTagTableForeach cb + let cb'' = wrap_TextTagTableForeach Nothing cb' + mk_TextTagTableForeach cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TextTagTableForeach` into a `C_TextTagTableForeach`. +wrap_TextTagTableForeach :: + Maybe (Ptr (FunPtr C_TextTagTableForeach)) -> + TextTagTableForeach_WithClosures -> + C_TextTagTableForeach +wrap_TextTagTableForeach funptrptr _cb tag data_ = do + tag' <- (newObject Gtk.TextTag.TextTag) tag + _cb tag' data_ + maybeReleaseFunPtr funptrptr + + +-- callback TextCharPredicate +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TextCharPredicate = + CInt -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TextCharPredicate :: FunPtr C_TextCharPredicate -> C_TextCharPredicate + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TextCharPredicate :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_TextCharPredicate + -> Char + -> Ptr () + -> m Bool +dynamic_TextCharPredicate __funPtr ch userData = liftIO $ do + let ch' = (fromIntegral . ord) ch + result <- (__dynamic_C_TextCharPredicate __funPtr) ch' userData + let result' = (/= 0) result + return result' + +-- | Generate a function pointer callable from C code, from a `C_TextCharPredicate`. +foreign import ccall "wrapper" + mk_TextCharPredicate :: C_TextCharPredicate -> IO (FunPtr C_TextCharPredicate) + +{- | +/No description available in the introspection data./ +-} +type TextCharPredicate = + Char + -> IO Bool + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextCharPredicate`@. +noTextCharPredicate :: Maybe TextCharPredicate +noTextCharPredicate = Nothing + +{- | +/No description available in the introspection data./ +-} +type TextCharPredicate_WithClosures = + Char + -> Ptr () + -> IO Bool + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextCharPredicate_WithClosures`@. +noTextCharPredicate_WithClosures :: Maybe TextCharPredicate_WithClosures +noTextCharPredicate_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TextCharPredicate :: TextCharPredicate -> TextCharPredicate_WithClosures +drop_closures_TextCharPredicate _f ch _ = _f ch + +-- | Wrap the callback into a `GClosure`. +genClosure_TextCharPredicate :: MonadIO m => TextCharPredicate -> m (GClosure C_TextCharPredicate) +genClosure_TextCharPredicate cb = liftIO $ do + let cb' = drop_closures_TextCharPredicate cb + let cb'' = wrap_TextCharPredicate Nothing cb' + mk_TextCharPredicate cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TextCharPredicate` into a `C_TextCharPredicate`. +wrap_TextCharPredicate :: + Maybe (Ptr (FunPtr C_TextCharPredicate)) -> + TextCharPredicate_WithClosures -> + C_TextCharPredicate +wrap_TextCharPredicate funptrptr _cb ch userData = do + let ch' = (chr . fromIntegral) ch + result <- _cb ch' userData + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback TextBufferSerializeFunc +-- -> Callable {returnType = Just (TBasicType TUInt8), returnMayBeNull = True, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "a newly-allocated array of guint8 which contains\nthe serialized data, or %NULL if an error occurred", sinceVersion = Nothing}, args = [Arg {argCName = "register_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer for which the format is registered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer to serialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface (Name {namespace = "Gtk", name = "TextIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "start of the block of text to serialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface (Name {namespace = "Gtk", name = "TextIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "end of the block of text to serialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for the length of the serialized data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that was specified when registering the format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function that is called to serialize the content of a text buffer.\nIt must return the serialized form of the content.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TextBufferSerializeFunc = + Ptr Gtk.TextBuffer.TextBuffer -> + Ptr Gtk.TextBuffer.TextBuffer -> + Ptr Gtk.TextIter.TextIter -> + Ptr Gtk.TextIter.TextIter -> + Word64 -> + Ptr () -> + IO Word8 + +-- Args : [Arg {argCName = "register_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer for which the format is registered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer to serialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface (Name {namespace = "Gtk", name = "TextIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "start of the block of text to serialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface (Name {namespace = "Gtk", name = "TextIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "end of the block of text to serialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for the length of the serialized data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that was specified when registering the format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt8) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TextBufferSerializeFunc :: FunPtr C_TextBufferSerializeFunc -> C_TextBufferSerializeFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TextBufferSerializeFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TextBuffer.IsTextBuffer a, Gtk.TextBuffer.IsTextBuffer b) => + FunPtr C_TextBufferSerializeFunc + -> a + {- ^ /@registerBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' for which the format is registered -} + -> b + {- ^ /@contentBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' to serialize -} + -> Gtk.TextIter.TextIter + {- ^ /@start@/: start of the block of text to serialize -} + -> Gtk.TextIter.TextIter + {- ^ /@end@/: end of the block of text to serialize -} + -> Word64 + {- ^ /@length@/: Return location for the length of the serialized data -} + -> Ptr () + {- ^ /@userData@/: user data that was specified when registering the format -} + -> m Word8 + {- ^ __Returns:__ a newly-allocated array of guint8 which contains +the serialized data, or 'Nothing' if an error occurred -} +dynamic_TextBufferSerializeFunc __funPtr registerBuffer contentBuffer start end length_ userData = liftIO $ do + registerBuffer' <- unsafeManagedPtrCastPtr registerBuffer + contentBuffer' <- unsafeManagedPtrCastPtr contentBuffer + start' <- unsafeManagedPtrGetPtr start + end' <- unsafeManagedPtrGetPtr end + result <- (__dynamic_C_TextBufferSerializeFunc __funPtr) registerBuffer' contentBuffer' start' end' length_ userData + touchManagedPtr registerBuffer + touchManagedPtr contentBuffer + touchManagedPtr start + touchManagedPtr end + return result + +-- | Generate a function pointer callable from C code, from a `C_TextBufferSerializeFunc`. +foreign import ccall "wrapper" + mk_TextBufferSerializeFunc :: C_TextBufferSerializeFunc -> IO (FunPtr C_TextBufferSerializeFunc) + +{- | +A function that is called to serialize the content of a text buffer. +It must return the serialized form of the content. +-} +type TextBufferSerializeFunc = + Gtk.TextBuffer.TextBuffer + {- ^ /@registerBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' for which the format is registered -} + -> Gtk.TextBuffer.TextBuffer + {- ^ /@contentBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' to serialize -} + -> Gtk.TextIter.TextIter + {- ^ /@start@/: start of the block of text to serialize -} + -> Gtk.TextIter.TextIter + {- ^ /@end@/: end of the block of text to serialize -} + -> Word64 + {- ^ /@length@/: Return location for the length of the serialized data -} + -> IO Word8 + {- ^ __Returns:__ a newly-allocated array of guint8 which contains +the serialized data, or 'Nothing' if an error occurred -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextBufferSerializeFunc`@. +noTextBufferSerializeFunc :: Maybe TextBufferSerializeFunc +noTextBufferSerializeFunc = Nothing + +{- | +A function that is called to serialize the content of a text buffer. +It must return the serialized form of the content. +-} +type TextBufferSerializeFunc_WithClosures = + Gtk.TextBuffer.TextBuffer + {- ^ /@registerBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' for which the format is registered -} + -> Gtk.TextBuffer.TextBuffer + {- ^ /@contentBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' to serialize -} + -> Gtk.TextIter.TextIter + {- ^ /@start@/: start of the block of text to serialize -} + -> Gtk.TextIter.TextIter + {- ^ /@end@/: end of the block of text to serialize -} + -> Word64 + {- ^ /@length@/: Return location for the length of the serialized data -} + -> Ptr () + {- ^ /@userData@/: user data that was specified when registering the format -} + -> IO Word8 + {- ^ __Returns:__ a newly-allocated array of guint8 which contains +the serialized data, or 'Nothing' if an error occurred -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextBufferSerializeFunc_WithClosures`@. +noTextBufferSerializeFunc_WithClosures :: Maybe TextBufferSerializeFunc_WithClosures +noTextBufferSerializeFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TextBufferSerializeFunc :: TextBufferSerializeFunc -> TextBufferSerializeFunc_WithClosures +drop_closures_TextBufferSerializeFunc _f registerBuffer contentBuffer start end length_ _ = _f registerBuffer contentBuffer start end length_ + +-- | Wrap the callback into a `GClosure`. +genClosure_TextBufferSerializeFunc :: MonadIO m => TextBufferSerializeFunc -> m (GClosure C_TextBufferSerializeFunc) +genClosure_TextBufferSerializeFunc cb = liftIO $ do + let cb' = drop_closures_TextBufferSerializeFunc cb + let cb'' = wrap_TextBufferSerializeFunc Nothing cb' + mk_TextBufferSerializeFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `TextBufferSerializeFunc` into a `C_TextBufferSerializeFunc`. +wrap_TextBufferSerializeFunc :: + Maybe (Ptr (FunPtr C_TextBufferSerializeFunc)) -> + TextBufferSerializeFunc_WithClosures -> + C_TextBufferSerializeFunc +wrap_TextBufferSerializeFunc funptrptr _cb registerBuffer contentBuffer start end length_ userData = do + registerBuffer' <- (newObject Gtk.TextBuffer.TextBuffer) registerBuffer + contentBuffer' <- (newObject Gtk.TextBuffer.TextBuffer) contentBuffer + B.ManagedPtr.withTransient Gtk.TextIter.TextIter start $ \start' -> do + B.ManagedPtr.withTransient Gtk.TextIter.TextIter end $ \end' -> do + result <- _cb registerBuffer' contentBuffer' start' end' length_ userData + maybeReleaseFunPtr funptrptr + return result + + +-- callback TextBufferDeserializeFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE on success, %FALSE otherwise", sinceVersion = Nothing}, args = [Arg {argCName = "register_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer the format is registered with", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer to deserialize into", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TextIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "insertion point for the deserialized text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data to deserialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if deserializing may create tags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that was specified when registering the format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function that is called to deserialize rich text that has been\nserialized with gtk_text_buffer_serialize(), and insert it at @iter.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_TextBufferDeserializeFunc = + Ptr Gtk.TextBuffer.TextBuffer -> + Ptr Gtk.TextBuffer.TextBuffer -> + Ptr Gtk.TextIter.TextIter -> + Ptr Word8 -> + Word64 -> + CInt -> + Ptr () -> + Ptr (Ptr GError) -> + IO CInt + +-- Args : [Arg {argCName = "register_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer the format is registered with", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTextBuffer to deserialize into", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TextIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "insertion point for the deserialized text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data to deserialize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if deserializing may create tags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that was specified when registering the format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_TextBufferDeserializeFunc :: FunPtr C_TextBufferDeserializeFunc -> C_TextBufferDeserializeFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_TextBufferDeserializeFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TextBuffer.IsTextBuffer a, Gtk.TextBuffer.IsTextBuffer b) => + FunPtr C_TextBufferDeserializeFunc + -> a + {- ^ /@registerBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' the format is registered with -} + -> b + {- ^ /@contentBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' to deserialize into -} + -> Gtk.TextIter.TextIter + {- ^ /@iter@/: insertion point for the deserialized text -} + -> ByteString + {- ^ /@data@/: data to deserialize -} + -> Bool + {- ^ /@createTags@/: 'True' if deserializing may create tags -} + -> Ptr () + {- ^ /@userData@/: user data that was specified when registering the format -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +dynamic_TextBufferDeserializeFunc __funPtr registerBuffer contentBuffer iter data_ createTags userData = liftIO $ do + let length_ = fromIntegral $ B.length data_ + registerBuffer' <- unsafeManagedPtrCastPtr registerBuffer + contentBuffer' <- unsafeManagedPtrCastPtr contentBuffer + iter' <- unsafeManagedPtrGetPtr iter + data_' <- packByteString data_ + let createTags' = (fromIntegral . fromEnum) createTags + onException (do + _ <- propagateGError $ (__dynamic_C_TextBufferDeserializeFunc __funPtr) registerBuffer' contentBuffer' iter' data_' length_ createTags' userData + touchManagedPtr registerBuffer + touchManagedPtr contentBuffer + touchManagedPtr iter + freeMem data_' + return () + ) (do + freeMem data_' + ) + +-- | Generate a function pointer callable from C code, from a `C_TextBufferDeserializeFunc`. +foreign import ccall "wrapper" + mk_TextBufferDeserializeFunc :: C_TextBufferDeserializeFunc -> IO (FunPtr C_TextBufferDeserializeFunc) + +{- | +A function that is called to deserialize rich text that has been +serialized with 'GI.Gtk.Objects.TextBuffer.textBufferSerialize', and insert it at /@iter@/. +-} +type TextBufferDeserializeFunc = + Gtk.TextBuffer.TextBuffer + {- ^ /@registerBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' the format is registered with -} + -> Gtk.TextBuffer.TextBuffer + {- ^ /@contentBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' to deserialize into -} + -> Gtk.TextIter.TextIter + {- ^ /@iter@/: insertion point for the deserialized text -} + -> ByteString + {- ^ /@data@/: data to deserialize -} + -> Bool + {- ^ /@createTags@/: 'True' if deserializing may create tags -} + -> IO () + {- ^ __Returns:__ 'True' on success, 'False' otherwise /(Can throw 'Data.GI.Base.GError.GError')/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextBufferDeserializeFunc`@. +noTextBufferDeserializeFunc :: Maybe TextBufferDeserializeFunc +noTextBufferDeserializeFunc = Nothing + +{- | +A function that is called to deserialize rich text that has been +serialized with 'GI.Gtk.Objects.TextBuffer.textBufferSerialize', and insert it at /@iter@/. +-} +type TextBufferDeserializeFunc_WithClosures = + Gtk.TextBuffer.TextBuffer + {- ^ /@registerBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' the format is registered with -} + -> Gtk.TextBuffer.TextBuffer + {- ^ /@contentBuffer@/: the 'GI.Gtk.Objects.TextBuffer.TextBuffer' to deserialize into -} + -> Gtk.TextIter.TextIter + {- ^ /@iter@/: insertion point for the deserialized text -} + -> ByteString + {- ^ /@data@/: data to deserialize -} + -> Bool + {- ^ /@createTags@/: 'True' if deserializing may create tags -} + -> Ptr () + {- ^ /@userData@/: user data that was specified when registering the format -} + -> IO () + {- ^ __Returns:__ 'True' on success, 'False' otherwise /(Can throw 'Data.GI.Base.GError.GError')/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TextBufferDeserializeFunc_WithClosures`@. +noTextBufferDeserializeFunc_WithClosures :: Maybe TextBufferDeserializeFunc_WithClosures +noTextBufferDeserializeFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_TextBufferDeserializeFunc :: TextBufferDeserializeFunc -> TextBufferDeserializeFunc_WithClosures +drop_closures_TextBufferDeserializeFunc _f registerBuffer contentBuffer iter data_ createTags _ = _f registerBuffer contentBuffer iter data_ createTags + +-- No Haskell->C wrapper generated since the function throws. + +-- callback StylePropertyParser +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_StylePropertyParser = + CString -> + Ptr GValue -> + Ptr (Ptr GError) -> + IO CInt + +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_StylePropertyParser :: FunPtr C_StylePropertyParser -> C_StylePropertyParser + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_StylePropertyParser :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_StylePropertyParser + -> T.Text + -> GValue + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +dynamic_StylePropertyParser __funPtr string value = liftIO $ do + string' <- textToCString string + value' <- unsafeManagedPtrGetPtr value + onException (do + _ <- propagateGError $ (__dynamic_C_StylePropertyParser __funPtr) string' value' + touchManagedPtr value + freeMem string' + return () + ) (do + freeMem string' + ) + +-- | Generate a function pointer callable from C code, from a `C_StylePropertyParser`. +foreign import ccall "wrapper" + mk_StylePropertyParser :: C_StylePropertyParser -> IO (FunPtr C_StylePropertyParser) + +{- | +/No description available in the introspection data./ +-} +type StylePropertyParser = + T.Text + -> GValue + -> IO () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `StylePropertyParser`@. +noStylePropertyParser :: Maybe StylePropertyParser +noStylePropertyParser = Nothing + +-- No Haskell->C wrapper generated since the function throws. + +-- callback RecentSortFunc +-- -> Callable {returnType = Just (TBasicType TInt), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "a", argType = TInterface (Name {namespace = "Gtk", name = "RecentInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "Gtk", name = "RecentInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_RecentSortFunc = + Ptr Gtk.RecentInfo.RecentInfo -> + Ptr Gtk.RecentInfo.RecentInfo -> + Ptr () -> + IO Int32 + +-- Args : [Arg {argCName = "a", argType = TInterface (Name {namespace = "Gtk", name = "RecentInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "Gtk", name = "RecentInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_RecentSortFunc :: FunPtr C_RecentSortFunc -> C_RecentSortFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_RecentSortFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_RecentSortFunc + -> Gtk.RecentInfo.RecentInfo + -> Gtk.RecentInfo.RecentInfo + -> Ptr () + -> m Int32 +dynamic_RecentSortFunc __funPtr a b userData = liftIO $ do + a' <- unsafeManagedPtrGetPtr a + b' <- unsafeManagedPtrGetPtr b + result <- (__dynamic_C_RecentSortFunc __funPtr) a' b' userData + touchManagedPtr a + touchManagedPtr b + return result + +-- | Generate a function pointer callable from C code, from a `C_RecentSortFunc`. +foreign import ccall "wrapper" + mk_RecentSortFunc :: C_RecentSortFunc -> IO (FunPtr C_RecentSortFunc) + +{- | +/No description available in the introspection data./ +-} +type RecentSortFunc = + Gtk.RecentInfo.RecentInfo + -> Gtk.RecentInfo.RecentInfo + -> IO Int32 + +-- | A convenience synonym for @`Nothing` :: `Maybe` `RecentSortFunc`@. +noRecentSortFunc :: Maybe RecentSortFunc +noRecentSortFunc = Nothing + +{- | +/No description available in the introspection data./ +-} +type RecentSortFunc_WithClosures = + Gtk.RecentInfo.RecentInfo + -> Gtk.RecentInfo.RecentInfo + -> Ptr () + -> IO Int32 + +-- | A convenience synonym for @`Nothing` :: `Maybe` `RecentSortFunc_WithClosures`@. +noRecentSortFunc_WithClosures :: Maybe RecentSortFunc_WithClosures +noRecentSortFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_RecentSortFunc :: RecentSortFunc -> RecentSortFunc_WithClosures +drop_closures_RecentSortFunc _f a b _ = _f a b + +-- | Wrap the callback into a `GClosure`. +genClosure_RecentSortFunc :: MonadIO m => RecentSortFunc -> m (GClosure C_RecentSortFunc) +genClosure_RecentSortFunc cb = liftIO $ do + let cb' = drop_closures_RecentSortFunc cb + let cb'' = wrap_RecentSortFunc Nothing cb' + mk_RecentSortFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `RecentSortFunc` into a `C_RecentSortFunc`. +wrap_RecentSortFunc :: + Maybe (Ptr (FunPtr C_RecentSortFunc)) -> + RecentSortFunc_WithClosures -> + C_RecentSortFunc +wrap_RecentSortFunc funptrptr _cb a b userData = do + B.ManagedPtr.withTransient Gtk.RecentInfo.RecentInfo a $ \a' -> do + B.ManagedPtr.withTransient Gtk.RecentInfo.RecentInfo b $ \b' -> do + result <- _cb a' b' userData + maybeReleaseFunPtr funptrptr + return result + + +-- callback RecentFilterFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the file should be displayed", sinceVersion = Nothing}, args = [Arg {argCName = "filter_info", argType = TInterface (Name {namespace = "Gtk", name = "RecentFilterInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentFilterInfo that is filled according\n to the @needed flags passed to gtk_recent_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_recent_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of function that is used with custom filters,\nsee gtk_recent_filter_add_custom().", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_RecentFilterFunc = + Ptr Gtk.RecentFilterInfo.RecentFilterInfo -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "filter_info", argType = TInterface (Name {namespace = "Gtk", name = "RecentFilterInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentFilterInfo that is filled according\n to the @needed flags passed to gtk_recent_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_recent_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_RecentFilterFunc :: FunPtr C_RecentFilterFunc -> C_RecentFilterFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_RecentFilterFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_RecentFilterFunc + -> Gtk.RecentFilterInfo.RecentFilterInfo + {- ^ /@filterInfo@/: a 'GI.Gtk.Structs.RecentFilterInfo.RecentFilterInfo' that is filled according + to the /@needed@/ flags passed to 'GI.Gtk.Objects.RecentFilter.recentFilterAddCustom' -} + -> Ptr () + {- ^ /@userData@/: user data passed to 'GI.Gtk.Objects.RecentFilter.recentFilterAddCustom' -} + -> m Bool + {- ^ __Returns:__ 'True' if the file should be displayed -} +dynamic_RecentFilterFunc __funPtr filterInfo userData = liftIO $ do + filterInfo' <- unsafeManagedPtrGetPtr filterInfo + result <- (__dynamic_C_RecentFilterFunc __funPtr) filterInfo' userData + let result' = (/= 0) result + touchManagedPtr filterInfo + return result' + +-- | Generate a function pointer callable from C code, from a `C_RecentFilterFunc`. +foreign import ccall "wrapper" + mk_RecentFilterFunc :: C_RecentFilterFunc -> IO (FunPtr C_RecentFilterFunc) + +{- | +The type of function that is used with custom filters, +see 'GI.Gtk.Objects.RecentFilter.recentFilterAddCustom'. +-} +type RecentFilterFunc = + Gtk.RecentFilterInfo.RecentFilterInfo + {- ^ /@filterInfo@/: a 'GI.Gtk.Structs.RecentFilterInfo.RecentFilterInfo' that is filled according + to the /@needed@/ flags passed to 'GI.Gtk.Objects.RecentFilter.recentFilterAddCustom' -} + -> IO Bool + {- ^ __Returns:__ 'True' if the file should be displayed -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `RecentFilterFunc`@. +noRecentFilterFunc :: Maybe RecentFilterFunc +noRecentFilterFunc = Nothing + +{- | +The type of function that is used with custom filters, +see 'GI.Gtk.Objects.RecentFilter.recentFilterAddCustom'. +-} +type RecentFilterFunc_WithClosures = + Gtk.RecentFilterInfo.RecentFilterInfo + {- ^ /@filterInfo@/: a 'GI.Gtk.Structs.RecentFilterInfo.RecentFilterInfo' that is filled according + to the /@needed@/ flags passed to 'GI.Gtk.Objects.RecentFilter.recentFilterAddCustom' -} + -> Ptr () + {- ^ /@userData@/: user data passed to 'GI.Gtk.Objects.RecentFilter.recentFilterAddCustom' -} + -> IO Bool + {- ^ __Returns:__ 'True' if the file should be displayed -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `RecentFilterFunc_WithClosures`@. +noRecentFilterFunc_WithClosures :: Maybe RecentFilterFunc_WithClosures +noRecentFilterFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_RecentFilterFunc :: RecentFilterFunc -> RecentFilterFunc_WithClosures +drop_closures_RecentFilterFunc _f filterInfo _ = _f filterInfo + +-- | Wrap the callback into a `GClosure`. +genClosure_RecentFilterFunc :: MonadIO m => RecentFilterFunc -> m (GClosure C_RecentFilterFunc) +genClosure_RecentFilterFunc cb = liftIO $ do + let cb' = drop_closures_RecentFilterFunc cb + let cb'' = wrap_RecentFilterFunc Nothing cb' + mk_RecentFilterFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `RecentFilterFunc` into a `C_RecentFilterFunc`. +wrap_RecentFilterFunc :: + Maybe (Ptr (FunPtr C_RecentFilterFunc)) -> + RecentFilterFunc_WithClosures -> + C_RecentFilterFunc +wrap_RecentFilterFunc funptrptr _cb filterInfo userData = do + filterInfo' <- (newPtr Gtk.RecentFilterInfo.RecentFilterInfo) filterInfo + result <- _cb filterInfo' userData + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback RcPropertyParser +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rc_string", argType = TInterface (Name {namespace = "GLib", name = "String"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_RcPropertyParser = + Ptr GParamSpec -> + Ptr GLib.String.String -> + Ptr GValue -> + IO CInt + +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rc_string", argType = TInterface (Name {namespace = "GLib", name = "String"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_RcPropertyParser :: FunPtr C_RcPropertyParser -> C_RcPropertyParser + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_RcPropertyParser :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_RcPropertyParser + -> GParamSpec + -> GLib.String.String + -> GValue + -> m Bool +dynamic_RcPropertyParser __funPtr pspec rcString propertyValue = liftIO $ do + pspec' <- unsafeManagedPtrGetPtr pspec + rcString' <- unsafeManagedPtrGetPtr rcString + propertyValue' <- unsafeManagedPtrGetPtr propertyValue + result <- (__dynamic_C_RcPropertyParser __funPtr) pspec' rcString' propertyValue' + let result' = (/= 0) result + touchManagedPtr pspec + touchManagedPtr rcString + touchManagedPtr propertyValue + return result' + +-- | Generate a function pointer callable from C code, from a `C_RcPropertyParser`. +foreign import ccall "wrapper" + mk_RcPropertyParser :: C_RcPropertyParser -> IO (FunPtr C_RcPropertyParser) + +{- | +/No description available in the introspection data./ +-} +type RcPropertyParser = + GParamSpec + -> GLib.String.String + -> GValue + -> IO Bool + +-- | A convenience synonym for @`Nothing` :: `Maybe` `RcPropertyParser`@. +noRcPropertyParser :: Maybe RcPropertyParser +noRcPropertyParser = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_RcPropertyParser :: MonadIO m => RcPropertyParser -> m (GClosure C_RcPropertyParser) +genClosure_RcPropertyParser cb = liftIO $ do + let cb' = wrap_RcPropertyParser Nothing cb + mk_RcPropertyParser cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `RcPropertyParser` into a `C_RcPropertyParser`. +wrap_RcPropertyParser :: + Maybe (Ptr (FunPtr C_RcPropertyParser)) -> + RcPropertyParser -> + C_RcPropertyParser +wrap_RcPropertyParser funptrptr _cb pspec rcString propertyValue = do + pspec' <- B.GParamSpec.newGParamSpecFromPtr pspec + B.ManagedPtr.withTransient GLib.String.String rcString $ \rcString' -> do + B.ManagedPtr.withTransient GValue propertyValue $ \propertyValue' -> do + result <- _cb pspec' rcString' propertyValue' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback PrintSettingsFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_PrintSettingsFunc = + CString -> + CString -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_PrintSettingsFunc :: FunPtr C_PrintSettingsFunc -> C_PrintSettingsFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_PrintSettingsFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_PrintSettingsFunc + -> T.Text + -> T.Text + -> Ptr () + -> m () +dynamic_PrintSettingsFunc __funPtr key value userData = liftIO $ do + key' <- textToCString key + value' <- textToCString value + (__dynamic_C_PrintSettingsFunc __funPtr) key' value' userData + freeMem key' + freeMem value' + return () + +-- | Generate a function pointer callable from C code, from a `C_PrintSettingsFunc`. +foreign import ccall "wrapper" + mk_PrintSettingsFunc :: C_PrintSettingsFunc -> IO (FunPtr C_PrintSettingsFunc) + +{- | +/No description available in the introspection data./ +-} +type PrintSettingsFunc = + T.Text + -> T.Text + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintSettingsFunc`@. +noPrintSettingsFunc :: Maybe PrintSettingsFunc +noPrintSettingsFunc = Nothing + +{- | +/No description available in the introspection data./ +-} +type PrintSettingsFunc_WithClosures = + T.Text + -> T.Text + -> Ptr () + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintSettingsFunc_WithClosures`@. +noPrintSettingsFunc_WithClosures :: Maybe PrintSettingsFunc_WithClosures +noPrintSettingsFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_PrintSettingsFunc :: PrintSettingsFunc -> PrintSettingsFunc_WithClosures +drop_closures_PrintSettingsFunc _f key value _ = _f key value + +-- | Wrap the callback into a `GClosure`. +genClosure_PrintSettingsFunc :: MonadIO m => PrintSettingsFunc -> m (GClosure C_PrintSettingsFunc) +genClosure_PrintSettingsFunc cb = liftIO $ do + let cb' = drop_closures_PrintSettingsFunc cb + let cb'' = wrap_PrintSettingsFunc Nothing cb' + mk_PrintSettingsFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `PrintSettingsFunc` into a `C_PrintSettingsFunc`. +wrap_PrintSettingsFunc :: + Maybe (Ptr (FunPtr C_PrintSettingsFunc)) -> + PrintSettingsFunc_WithClosures -> + C_PrintSettingsFunc +wrap_PrintSettingsFunc funptrptr _cb key value userData = do + key' <- cstringToText key + value' <- cstringToText value + _cb key' value' userData + maybeReleaseFunPtr funptrptr + + +-- callback PageSetupDoneFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "page_setup", argType = TInterface (Name {namespace = "Gtk", name = "PageSetup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkPageSetup that has been", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that has been passed to\n gtk_print_run_page_setup_dialog_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of function that is passed to\ngtk_print_run_page_setup_dialog_async().\n\nThis function will be called when the page setup dialog\nis dismissed, and also serves as destroy notify for @data.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_PageSetupDoneFunc = + Ptr Gtk.PageSetup.PageSetup -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "page_setup", argType = TInterface (Name {namespace = "Gtk", name = "PageSetup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkPageSetup that has been", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that has been passed to\n gtk_print_run_page_setup_dialog_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_PageSetupDoneFunc :: FunPtr C_PageSetupDoneFunc -> C_PageSetupDoneFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_PageSetupDoneFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.PageSetup.IsPageSetup a) => + FunPtr C_PageSetupDoneFunc + -> a + {- ^ /@pageSetup@/: the 'GI.Gtk.Objects.PageSetup.PageSetup' that has been -} + -> Ptr () + {- ^ /@data@/: user data that has been passed to + 'GI.Gtk.Functions.printRunPageSetupDialogAsync' -} + -> m () +dynamic_PageSetupDoneFunc __funPtr pageSetup data_ = liftIO $ do + pageSetup' <- unsafeManagedPtrCastPtr pageSetup + (__dynamic_C_PageSetupDoneFunc __funPtr) pageSetup' data_ + touchManagedPtr pageSetup + return () + +-- | Generate a function pointer callable from C code, from a `C_PageSetupDoneFunc`. +foreign import ccall "wrapper" + mk_PageSetupDoneFunc :: C_PageSetupDoneFunc -> IO (FunPtr C_PageSetupDoneFunc) + +{- | +The type of function that is passed to +'GI.Gtk.Functions.printRunPageSetupDialogAsync'. + +This function will be called when the page setup dialog +is dismissed, and also serves as destroy notify for /@data@/. +-} +type PageSetupDoneFunc = + Gtk.PageSetup.PageSetup + {- ^ /@pageSetup@/: the 'GI.Gtk.Objects.PageSetup.PageSetup' that has been -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `PageSetupDoneFunc`@. +noPageSetupDoneFunc :: Maybe PageSetupDoneFunc +noPageSetupDoneFunc = Nothing + +{- | +The type of function that is passed to +'GI.Gtk.Functions.printRunPageSetupDialogAsync'. + +This function will be called when the page setup dialog +is dismissed, and also serves as destroy notify for /@data@/. +-} +type PageSetupDoneFunc_WithClosures = + Gtk.PageSetup.PageSetup + {- ^ /@pageSetup@/: the 'GI.Gtk.Objects.PageSetup.PageSetup' that has been -} + -> Ptr () + {- ^ /@data@/: user data that has been passed to + 'GI.Gtk.Functions.printRunPageSetupDialogAsync' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `PageSetupDoneFunc_WithClosures`@. +noPageSetupDoneFunc_WithClosures :: Maybe PageSetupDoneFunc_WithClosures +noPageSetupDoneFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_PageSetupDoneFunc :: PageSetupDoneFunc -> PageSetupDoneFunc_WithClosures +drop_closures_PageSetupDoneFunc _f pageSetup _ = _f pageSetup + +-- | Wrap the callback into a `GClosure`. +genClosure_PageSetupDoneFunc :: MonadIO m => PageSetupDoneFunc -> m (GClosure C_PageSetupDoneFunc) +genClosure_PageSetupDoneFunc cb = liftIO $ do + let cb' = drop_closures_PageSetupDoneFunc cb + let cb'' = wrap_PageSetupDoneFunc Nothing cb' + mk_PageSetupDoneFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `PageSetupDoneFunc` into a `C_PageSetupDoneFunc`. +wrap_PageSetupDoneFunc :: + Maybe (Ptr (FunPtr C_PageSetupDoneFunc)) -> + PageSetupDoneFunc_WithClosures -> + C_PageSetupDoneFunc +wrap_PageSetupDoneFunc funptrptr _cb pageSetup data_ = do + pageSetup' <- (newObject Gtk.PageSetup.PageSetup) pageSetup + _cb pageSetup' data_ + maybeReleaseFunPtr funptrptr + + +-- callback ModuleInitFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "GTK+ always passes %NULL for this argument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "GTK+ always passes %NULL for this argument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Each GTK+ module must have a function gtk_module_init() with this prototype.\nThis function is called after loading the module.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_ModuleInitFunc = + Int32 -> + Ptr CString -> + IO () + +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "GTK+ always passes %NULL for this argument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "GTK+ always passes %NULL for this argument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "GTK+ always passes %NULL for this argument", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ModuleInitFunc :: FunPtr C_ModuleInitFunc -> C_ModuleInitFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ModuleInitFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_ModuleInitFunc + -> Maybe ([T.Text]) + {- ^ /@argv@/: GTK+ always passes 'Nothing' for this argument -} + -> m () +dynamic_ModuleInitFunc __funPtr argv = liftIO $ do + let argc = case argv of + Nothing -> 0 + Just jArgv -> fromIntegral $ length jArgv + maybeArgv <- case argv of + Nothing -> return nullPtr + Just jArgv -> do + jArgv' <- packUTF8CArray jArgv + return jArgv' + (__dynamic_C_ModuleInitFunc __funPtr) argc maybeArgv + (mapCArrayWithLength argc) freeMem maybeArgv + freeMem maybeArgv + return () + +-- | Generate a function pointer callable from C code, from a `C_ModuleInitFunc`. +foreign import ccall "wrapper" + mk_ModuleInitFunc :: C_ModuleInitFunc -> IO (FunPtr C_ModuleInitFunc) + +{- | +Each GTK+ module must have a function @/gtk_module_init()/@ with this prototype. +This function is called after loading the module. +-} +type ModuleInitFunc = + Maybe [T.Text] + {- ^ /@argv@/: GTK+ always passes 'Nothing' for this argument -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ModuleInitFunc`@. +noModuleInitFunc :: Maybe ModuleInitFunc +noModuleInitFunc = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_ModuleInitFunc :: MonadIO m => ModuleInitFunc -> m (GClosure C_ModuleInitFunc) +genClosure_ModuleInitFunc cb = liftIO $ do + let cb' = wrap_ModuleInitFunc Nothing cb + mk_ModuleInitFunc cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ModuleInitFunc` into a `C_ModuleInitFunc`. +wrap_ModuleInitFunc :: + Maybe (Ptr (FunPtr C_ModuleInitFunc)) -> + ModuleInitFunc -> + C_ModuleInitFunc +wrap_ModuleInitFunc 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 +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "display", argType = TInterface (Name {namespace = "Gdk", name = "Display"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an open #GdkDisplay", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A multihead-aware GTK+ module may have a gtk_module_display_init() function\nwith this prototype. GTK+ calls this function for each opened display.", sinceVersion = Just "2.2"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ModuleDisplayInitFunc = + Ptr Gdk.Display.Display -> + IO () + +-- Args : [Arg {argCName = "display", argType = TInterface (Name {namespace = "Gdk", name = "Display"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an open #GdkDisplay", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ModuleDisplayInitFunc :: FunPtr C_ModuleDisplayInitFunc -> C_ModuleDisplayInitFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ModuleDisplayInitFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Display.IsDisplay a) => + FunPtr C_ModuleDisplayInitFunc + -> a + {- ^ /@display@/: an open 'GI.Gdk.Objects.Display.Display' -} + -> m () +dynamic_ModuleDisplayInitFunc __funPtr display = liftIO $ do + display' <- unsafeManagedPtrCastPtr display + (__dynamic_C_ModuleDisplayInitFunc __funPtr) display' + touchManagedPtr display + return () + +-- | Generate a function pointer callable from C code, from a `C_ModuleDisplayInitFunc`. +foreign import ccall "wrapper" + mk_ModuleDisplayInitFunc :: C_ModuleDisplayInitFunc -> IO (FunPtr C_ModuleDisplayInitFunc) + +{- | +A multihead-aware GTK+ module may have a @/gtk_module_display_init()/@ function +with this prototype. GTK+ calls this function for each opened display. + +/Since: 2.2/ +-} +type ModuleDisplayInitFunc = + Gdk.Display.Display + {- ^ /@display@/: an open 'GI.Gdk.Objects.Display.Display' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ModuleDisplayInitFunc`@. +noModuleDisplayInitFunc :: Maybe ModuleDisplayInitFunc +noModuleDisplayInitFunc = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_ModuleDisplayInitFunc :: MonadIO m => ModuleDisplayInitFunc -> m (GClosure C_ModuleDisplayInitFunc) +genClosure_ModuleDisplayInitFunc cb = liftIO $ do + let cb' = wrap_ModuleDisplayInitFunc Nothing cb + mk_ModuleDisplayInitFunc cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ModuleDisplayInitFunc` into a `C_ModuleDisplayInitFunc`. +wrap_ModuleDisplayInitFunc :: + Maybe (Ptr (FunPtr C_ModuleDisplayInitFunc)) -> + ModuleDisplayInitFunc -> + C_ModuleDisplayInitFunc +wrap_ModuleDisplayInitFunc funptrptr _cb display = do + display' <- (newObject Gdk.Display.Display) display + _cb display' + maybeReleaseFunPtr funptrptr + + +-- callback MenuPositionFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gtk", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkMenu.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "address of the #gint representing the horizontal\n position where the menu shall be drawn.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "address of the #gint representing the vertical position\n where the menu shall be drawn. This is an output parameter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "This parameter controls how menus placed outside\n the monitor are handled. If this is set to %TRUE and part of\n the menu is outside the monitor then GTK+ pushes the window\n into the visible area, effectively modifying the popup\n position. Note that moving and possibly resizing the menu\n around will alter the scroll position to keep the menu items\n \8220in place\8221, i.e. at the same monitor position they would have\n been without resizing. In practice, this behavior is only\n useful for combobox popups or option menus and cannot be used\n to simply confine a menu to monitor boundaries. In that case,\n changing the scroll offset is not desirable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data supplied by the user in the gtk_menu_popup()\n @data parameter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A user function supplied when calling gtk_menu_popup() which\ncontrols the positioning of the menu when it is displayed. The\nfunction sets the @x and @y parameters to the coordinates where the\nmenu is to be drawn. To make the menu appear on a different\nmonitor than the mouse pointer, gtk_menu_set_monitor() must be\ncalled.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_MenuPositionFunc = + Ptr Gtk.Menu.Menu -> + Ptr Int32 -> + Ptr Int32 -> + Ptr CInt -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gtk", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkMenu.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "address of the #gint representing the horizontal\n position where the menu shall be drawn.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "address of the #gint representing the vertical position\n where the menu shall be drawn. This is an output parameter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "This parameter controls how menus placed outside\n the monitor are handled. If this is set to %TRUE and part of\n the menu is outside the monitor then GTK+ pushes the window\n into the visible area, effectively modifying the popup\n position. Note that moving and possibly resizing the menu\n around will alter the scroll position to keep the menu items\n \8220in place\8221, i.e. at the same monitor position they would have\n been without resizing. In practice, this behavior is only\n useful for combobox popups or option menus and cannot be used\n to simply confine a menu to monitor boundaries. In that case,\n changing the scroll offset is not desirable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data supplied by the user in the gtk_menu_popup()\n @data parameter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_MenuPositionFunc :: FunPtr C_MenuPositionFunc -> C_MenuPositionFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_MenuPositionFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Menu.IsMenu a) => + FunPtr C_MenuPositionFunc + -> a + {- ^ /@menu@/: a 'GI.Gtk.Objects.Menu.Menu'. -} + -> Int32 + {- ^ /@x@/: address of the @/gint/@ representing the horizontal + position where the menu shall be drawn. -} + -> Int32 + {- ^ /@y@/: address of the @/gint/@ representing the vertical position + where the menu shall be drawn. This is an output parameter. -} + -> Ptr () + {- ^ /@userData@/: the data supplied by the user in the 'GI.Gtk.Objects.Menu.menuPopup' + /@data@/ parameter. -} + -> m ((Int32, Int32, Bool)) +dynamic_MenuPositionFunc __funPtr menu x y userData = liftIO $ do + menu' <- unsafeManagedPtrCastPtr menu + x' <- allocMem :: IO (Ptr Int32) + poke x' x + y' <- allocMem :: IO (Ptr Int32) + poke y' y + pushIn <- allocMem :: IO (Ptr CInt) + (__dynamic_C_MenuPositionFunc __funPtr) menu' x' y' pushIn userData + x'' <- peek x' + y'' <- peek y' + pushIn' <- peek pushIn + let pushIn'' = (/= 0) pushIn' + touchManagedPtr menu + freeMem x' + freeMem y' + freeMem pushIn + return (x'', y'', pushIn'') + +-- | Generate a function pointer callable from C code, from a `C_MenuPositionFunc`. +foreign import ccall "wrapper" + mk_MenuPositionFunc :: C_MenuPositionFunc -> IO (FunPtr C_MenuPositionFunc) + +{- | +A user function supplied when calling 'GI.Gtk.Objects.Menu.menuPopup' which +controls the positioning of the menu when it is displayed. The +function sets the /@x@/ and /@y@/ parameters to the coordinates where the +menu is to be drawn. To make the menu appear on a different +monitor than the mouse pointer, 'GI.Gtk.Objects.Menu.menuSetMonitor' must be +called. +-} +type MenuPositionFunc = + Gtk.Menu.Menu + {- ^ /@menu@/: a 'GI.Gtk.Objects.Menu.Menu'. -} + -> Int32 + {- ^ /@x@/: address of the @/gint/@ representing the horizontal + position where the menu shall be drawn. -} + -> Int32 + {- ^ /@y@/: address of the @/gint/@ representing the vertical position + where the menu shall be drawn. This is an output parameter. -} + -> IO ((Int32, Int32, Bool)) + +-- | A convenience synonym for @`Nothing` :: `Maybe` `MenuPositionFunc`@. +noMenuPositionFunc :: Maybe MenuPositionFunc +noMenuPositionFunc = Nothing + +{- | +A user function supplied when calling 'GI.Gtk.Objects.Menu.menuPopup' which +controls the positioning of the menu when it is displayed. The +function sets the /@x@/ and /@y@/ parameters to the coordinates where the +menu is to be drawn. To make the menu appear on a different +monitor than the mouse pointer, 'GI.Gtk.Objects.Menu.menuSetMonitor' must be +called. +-} +type MenuPositionFunc_WithClosures = + Gtk.Menu.Menu + {- ^ /@menu@/: a 'GI.Gtk.Objects.Menu.Menu'. -} + -> Int32 + {- ^ /@x@/: address of the @/gint/@ representing the horizontal + position where the menu shall be drawn. -} + -> Int32 + {- ^ /@y@/: address of the @/gint/@ representing the vertical position + where the menu shall be drawn. This is an output parameter. -} + -> Ptr () + {- ^ /@userData@/: the data supplied by the user in the 'GI.Gtk.Objects.Menu.menuPopup' + /@data@/ parameter. -} + -> IO ((Int32, Int32, Bool)) + +-- | A convenience synonym for @`Nothing` :: `Maybe` `MenuPositionFunc_WithClosures`@. +noMenuPositionFunc_WithClosures :: Maybe MenuPositionFunc_WithClosures +noMenuPositionFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_MenuPositionFunc :: MenuPositionFunc -> MenuPositionFunc_WithClosures +drop_closures_MenuPositionFunc _f menu x y _ = _f menu x y + +-- | Wrap the callback into a `GClosure`. +genClosure_MenuPositionFunc :: MonadIO m => MenuPositionFunc -> m (GClosure C_MenuPositionFunc) +genClosure_MenuPositionFunc cb = liftIO $ do + let cb' = drop_closures_MenuPositionFunc cb + let cb'' = wrap_MenuPositionFunc Nothing cb' + mk_MenuPositionFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `MenuPositionFunc` into a `C_MenuPositionFunc`. +wrap_MenuPositionFunc :: + Maybe (Ptr (FunPtr C_MenuPositionFunc)) -> + MenuPositionFunc_WithClosures -> + C_MenuPositionFunc +wrap_MenuPositionFunc funptrptr _cb menu x y pushIn userData = do + menu' <- (newObject Gtk.Menu.Menu) menu + x' <- peek x + y' <- peek y + (outx, outy, outpushIn) <- _cb menu' x' y' userData + poke x outx + poke y outy + let outpushIn' = (fromIntegral . fromEnum) outpushIn + poke pushIn outpushIn' + maybeReleaseFunPtr funptrptr + + +-- callback MenuDetachFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "attach_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget that the menu is being detached from.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gtk", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkMenu being detached.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A user function supplied when calling gtk_menu_attach_to_widget() which\nwill be called when the menu is later detached from the widget.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_MenuDetachFunc = + Ptr Gtk.Widget.Widget -> + Ptr Gtk.Menu.Menu -> + IO () + +-- Args : [Arg {argCName = "attach_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget that the menu is being detached from.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gtk", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkMenu being detached.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_MenuDetachFunc :: FunPtr C_MenuDetachFunc -> C_MenuDetachFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_MenuDetachFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gtk.Menu.IsMenu b) => + FunPtr C_MenuDetachFunc + -> a + {- ^ /@attachWidget@/: the 'GI.Gtk.Objects.Widget.Widget' that the menu is being detached from. -} + -> b + {- ^ /@menu@/: the 'GI.Gtk.Objects.Menu.Menu' being detached. -} + -> m () +dynamic_MenuDetachFunc __funPtr attachWidget menu = liftIO $ do + attachWidget' <- unsafeManagedPtrCastPtr attachWidget + menu' <- unsafeManagedPtrCastPtr menu + (__dynamic_C_MenuDetachFunc __funPtr) attachWidget' menu' + touchManagedPtr attachWidget + touchManagedPtr menu + return () + +-- | Generate a function pointer callable from C code, from a `C_MenuDetachFunc`. +foreign import ccall "wrapper" + mk_MenuDetachFunc :: C_MenuDetachFunc -> IO (FunPtr C_MenuDetachFunc) + +{- | +A user function supplied when calling 'GI.Gtk.Objects.Menu.menuAttachToWidget' which +will be called when the menu is later detached from the widget. +-} +type MenuDetachFunc = + Gtk.Widget.Widget + {- ^ /@attachWidget@/: the 'GI.Gtk.Objects.Widget.Widget' that the menu is being detached from. -} + -> Gtk.Menu.Menu + {- ^ /@menu@/: the 'GI.Gtk.Objects.Menu.Menu' being detached. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `MenuDetachFunc`@. +noMenuDetachFunc :: Maybe MenuDetachFunc +noMenuDetachFunc = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_MenuDetachFunc :: MonadIO m => MenuDetachFunc -> m (GClosure C_MenuDetachFunc) +genClosure_MenuDetachFunc cb = liftIO $ do + let cb' = wrap_MenuDetachFunc Nothing cb + mk_MenuDetachFunc cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `MenuDetachFunc` into a `C_MenuDetachFunc`. +wrap_MenuDetachFunc :: + Maybe (Ptr (FunPtr C_MenuDetachFunc)) -> + MenuDetachFunc -> + C_MenuDetachFunc +wrap_MenuDetachFunc funptrptr _cb attachWidget menu = do + attachWidget' <- (newObject Gtk.Widget.Widget) attachWidget + menu' <- (newObject Gtk.Menu.Menu) menu + _cb attachWidget' menu' + maybeReleaseFunPtr funptrptr + + +-- callback ListBoxUpdateHeaderFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "row", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the row to update", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "before", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the row before @row, or %NULL if it is first", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Whenever @row changes or which row is before @row changes this\nis called, which lets you update the header on @row. You may\nremove or set a new one via gtk_list_box_row_set_header() or\njust change the state of the current header widget.", sinceVersion = Just "3.10"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ListBoxUpdateHeaderFunc = + Ptr Gtk.ListBoxRow.ListBoxRow -> + Ptr Gtk.ListBoxRow.ListBoxRow -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "row", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the row to update", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "before", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the row before @row, or %NULL if it is first", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ListBoxUpdateHeaderFunc :: FunPtr C_ListBoxUpdateHeaderFunc -> C_ListBoxUpdateHeaderFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ListBoxUpdateHeaderFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.ListBoxRow.IsListBoxRow a, Gtk.ListBoxRow.IsListBoxRow b) => + FunPtr C_ListBoxUpdateHeaderFunc + -> a + {- ^ /@row@/: the row to update -} + -> Maybe (b) + {- ^ /@before@/: the row before /@row@/, or 'Nothing' if it is first -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m () +dynamic_ListBoxUpdateHeaderFunc __funPtr row before userData = liftIO $ do + row' <- unsafeManagedPtrCastPtr row + maybeBefore <- case before of + Nothing -> return nullPtr + Just jBefore -> do + jBefore' <- unsafeManagedPtrCastPtr jBefore + return jBefore' + (__dynamic_C_ListBoxUpdateHeaderFunc __funPtr) row' maybeBefore userData + touchManagedPtr row + whenJust before touchManagedPtr + return () + +-- | Generate a function pointer callable from C code, from a `C_ListBoxUpdateHeaderFunc`. +foreign import ccall "wrapper" + mk_ListBoxUpdateHeaderFunc :: C_ListBoxUpdateHeaderFunc -> IO (FunPtr C_ListBoxUpdateHeaderFunc) + +{- | +Whenever /@row@/ changes or which row is before /@row@/ changes this +is called, which lets you update the header on /@row@/. You may +remove or set a new one via 'GI.Gtk.Objects.ListBoxRow.listBoxRowSetHeader' or +just change the state of the current header widget. + +/Since: 3.10/ +-} +type ListBoxUpdateHeaderFunc = + Gtk.ListBoxRow.ListBoxRow + {- ^ /@row@/: the row to update -} + -> Maybe Gtk.ListBoxRow.ListBoxRow + {- ^ /@before@/: the row before /@row@/, or 'Nothing' if it is first -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxUpdateHeaderFunc`@. +noListBoxUpdateHeaderFunc :: Maybe ListBoxUpdateHeaderFunc +noListBoxUpdateHeaderFunc = Nothing + +{- | +Whenever /@row@/ changes or which row is before /@row@/ changes this +is called, which lets you update the header on /@row@/. You may +remove or set a new one via 'GI.Gtk.Objects.ListBoxRow.listBoxRowSetHeader' or +just change the state of the current header widget. + +/Since: 3.10/ +-} +type ListBoxUpdateHeaderFunc_WithClosures = + Gtk.ListBoxRow.ListBoxRow + {- ^ /@row@/: the row to update -} + -> Maybe Gtk.ListBoxRow.ListBoxRow + {- ^ /@before@/: the row before /@row@/, or 'Nothing' if it is first -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxUpdateHeaderFunc_WithClosures`@. +noListBoxUpdateHeaderFunc_WithClosures :: Maybe ListBoxUpdateHeaderFunc_WithClosures +noListBoxUpdateHeaderFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ListBoxUpdateHeaderFunc :: ListBoxUpdateHeaderFunc -> ListBoxUpdateHeaderFunc_WithClosures +drop_closures_ListBoxUpdateHeaderFunc _f row before _ = _f row before + +-- | Wrap the callback into a `GClosure`. +genClosure_ListBoxUpdateHeaderFunc :: MonadIO m => ListBoxUpdateHeaderFunc -> m (GClosure C_ListBoxUpdateHeaderFunc) +genClosure_ListBoxUpdateHeaderFunc cb = liftIO $ do + let cb' = drop_closures_ListBoxUpdateHeaderFunc cb + let cb'' = wrap_ListBoxUpdateHeaderFunc Nothing cb' + mk_ListBoxUpdateHeaderFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ListBoxUpdateHeaderFunc` into a `C_ListBoxUpdateHeaderFunc`. +wrap_ListBoxUpdateHeaderFunc :: + Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc)) -> + ListBoxUpdateHeaderFunc_WithClosures -> + C_ListBoxUpdateHeaderFunc +wrap_ListBoxUpdateHeaderFunc funptrptr _cb row before userData = do + row' <- (newObject Gtk.ListBoxRow.ListBoxRow) row + maybeBefore <- + if before == nullPtr + then return Nothing + else do + before' <- (newObject Gtk.ListBoxRow.ListBoxRow) before + return $ Just before' + _cb row' maybeBefore userData + maybeReleaseFunPtr funptrptr + + +-- callback ListBoxSortFunc +-- -> Callable {returnType = Just (TBasicType TInt), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "< 0 if @row1 should be before @row2, 0 if they are\n equal and > 0 otherwise", sinceVersion = Nothing}, args = [Arg {argCName = "row1", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the first row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row2", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the second row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Compare two rows to determine which should be first.", sinceVersion = Just "3.10"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ListBoxSortFunc = + Ptr Gtk.ListBoxRow.ListBoxRow -> + Ptr Gtk.ListBoxRow.ListBoxRow -> + Ptr () -> + IO Int32 + +-- Args : [Arg {argCName = "row1", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the first row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row2", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the second row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ListBoxSortFunc :: FunPtr C_ListBoxSortFunc -> C_ListBoxSortFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ListBoxSortFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.ListBoxRow.IsListBoxRow a, Gtk.ListBoxRow.IsListBoxRow b) => + FunPtr C_ListBoxSortFunc + -> a + {- ^ /@row1@/: the first row -} + -> b + {- ^ /@row2@/: the second row -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m Int32 + {- ^ __Returns:__ \< 0 if /@row1@/ should be before /@row2@/, 0 if they are + equal and > 0 otherwise -} +dynamic_ListBoxSortFunc __funPtr row1 row2 userData = liftIO $ do + row1' <- unsafeManagedPtrCastPtr row1 + row2' <- unsafeManagedPtrCastPtr row2 + result <- (__dynamic_C_ListBoxSortFunc __funPtr) row1' row2' userData + touchManagedPtr row1 + touchManagedPtr row2 + return result + +-- | Generate a function pointer callable from C code, from a `C_ListBoxSortFunc`. +foreign import ccall "wrapper" + mk_ListBoxSortFunc :: C_ListBoxSortFunc -> IO (FunPtr C_ListBoxSortFunc) + +{- | +Compare two rows to determine which should be first. + +/Since: 3.10/ +-} +type ListBoxSortFunc = + Gtk.ListBoxRow.ListBoxRow + {- ^ /@row1@/: the first row -} + -> Gtk.ListBoxRow.ListBoxRow + {- ^ /@row2@/: the second row -} + -> IO Int32 + {- ^ __Returns:__ \< 0 if /@row1@/ should be before /@row2@/, 0 if they are + equal and > 0 otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxSortFunc`@. +noListBoxSortFunc :: Maybe ListBoxSortFunc +noListBoxSortFunc = Nothing + +{- | +Compare two rows to determine which should be first. + +/Since: 3.10/ +-} +type ListBoxSortFunc_WithClosures = + Gtk.ListBoxRow.ListBoxRow + {- ^ /@row1@/: the first row -} + -> Gtk.ListBoxRow.ListBoxRow + {- ^ /@row2@/: the second row -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO Int32 + {- ^ __Returns:__ \< 0 if /@row1@/ should be before /@row2@/, 0 if they are + equal and > 0 otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxSortFunc_WithClosures`@. +noListBoxSortFunc_WithClosures :: Maybe ListBoxSortFunc_WithClosures +noListBoxSortFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ListBoxSortFunc :: ListBoxSortFunc -> ListBoxSortFunc_WithClosures +drop_closures_ListBoxSortFunc _f row1 row2 _ = _f row1 row2 + +-- | Wrap the callback into a `GClosure`. +genClosure_ListBoxSortFunc :: MonadIO m => ListBoxSortFunc -> m (GClosure C_ListBoxSortFunc) +genClosure_ListBoxSortFunc cb = liftIO $ do + let cb' = drop_closures_ListBoxSortFunc cb + let cb'' = wrap_ListBoxSortFunc Nothing cb' + mk_ListBoxSortFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ListBoxSortFunc` into a `C_ListBoxSortFunc`. +wrap_ListBoxSortFunc :: + Maybe (Ptr (FunPtr C_ListBoxSortFunc)) -> + ListBoxSortFunc_WithClosures -> + C_ListBoxSortFunc +wrap_ListBoxSortFunc funptrptr _cb row1 row2 userData = do + row1' <- (newObject Gtk.ListBoxRow.ListBoxRow) row1 + row2' <- (newObject Gtk.ListBoxRow.ListBoxRow) row2 + result <- _cb row1' row2' userData + maybeReleaseFunPtr funptrptr + return result + + +-- callback ListBoxForeachFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "ListBox"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkListBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkListBoxRow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function used by gtk_list_box_selected_foreach().\nIt will be called on every selected child of the @box.", sinceVersion = Just "3.14"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ListBoxForeachFunc = + Ptr Gtk.ListBox.ListBox -> + Ptr Gtk.ListBoxRow.ListBoxRow -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "ListBox"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkListBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkListBoxRow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ListBoxForeachFunc :: FunPtr C_ListBoxForeachFunc -> C_ListBoxForeachFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ListBoxForeachFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.ListBox.IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) => + FunPtr C_ListBoxForeachFunc + -> a + {- ^ /@box@/: a 'GI.Gtk.Objects.ListBox.ListBox' -} + -> b + {- ^ /@row@/: a 'GI.Gtk.Objects.ListBoxRow.ListBoxRow' -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m () +dynamic_ListBoxForeachFunc __funPtr box row userData = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + row' <- unsafeManagedPtrCastPtr row + (__dynamic_C_ListBoxForeachFunc __funPtr) box' row' userData + touchManagedPtr box + touchManagedPtr row + return () + +-- | Generate a function pointer callable from C code, from a `C_ListBoxForeachFunc`. +foreign import ccall "wrapper" + mk_ListBoxForeachFunc :: C_ListBoxForeachFunc -> IO (FunPtr C_ListBoxForeachFunc) + +{- | +A function used by 'GI.Gtk.Objects.ListBox.listBoxSelectedForeach'. +It will be called on every selected child of the /@box@/. + +/Since: 3.14/ +-} +type ListBoxForeachFunc = + Gtk.ListBox.ListBox + {- ^ /@box@/: a 'GI.Gtk.Objects.ListBox.ListBox' -} + -> Gtk.ListBoxRow.ListBoxRow + {- ^ /@row@/: a 'GI.Gtk.Objects.ListBoxRow.ListBoxRow' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxForeachFunc`@. +noListBoxForeachFunc :: Maybe ListBoxForeachFunc +noListBoxForeachFunc = Nothing + +{- | +A function used by 'GI.Gtk.Objects.ListBox.listBoxSelectedForeach'. +It will be called on every selected child of the /@box@/. + +/Since: 3.14/ +-} +type ListBoxForeachFunc_WithClosures = + Gtk.ListBox.ListBox + {- ^ /@box@/: a 'GI.Gtk.Objects.ListBox.ListBox' -} + -> Gtk.ListBoxRow.ListBoxRow + {- ^ /@row@/: a 'GI.Gtk.Objects.ListBoxRow.ListBoxRow' -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxForeachFunc_WithClosures`@. +noListBoxForeachFunc_WithClosures :: Maybe ListBoxForeachFunc_WithClosures +noListBoxForeachFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ListBoxForeachFunc :: ListBoxForeachFunc -> ListBoxForeachFunc_WithClosures +drop_closures_ListBoxForeachFunc _f box row _ = _f box row + +-- | Wrap the callback into a `GClosure`. +genClosure_ListBoxForeachFunc :: MonadIO m => ListBoxForeachFunc -> m (GClosure C_ListBoxForeachFunc) +genClosure_ListBoxForeachFunc cb = liftIO $ do + let cb' = drop_closures_ListBoxForeachFunc cb + let cb'' = wrap_ListBoxForeachFunc Nothing cb' + mk_ListBoxForeachFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ListBoxForeachFunc` into a `C_ListBoxForeachFunc`. +wrap_ListBoxForeachFunc :: + Maybe (Ptr (FunPtr C_ListBoxForeachFunc)) -> + ListBoxForeachFunc_WithClosures -> + C_ListBoxForeachFunc +wrap_ListBoxForeachFunc funptrptr _cb box row userData = do + box' <- (newObject Gtk.ListBox.ListBox) box + row' <- (newObject Gtk.ListBoxRow.ListBoxRow) row + _cb box' row' userData + maybeReleaseFunPtr funptrptr + + +-- callback ListBoxFilterFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the row should be visible, %FALSE otherwise", sinceVersion = Nothing}, args = [Arg {argCName = "row", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the row that may be filtered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Will be called whenever the row changes or is added and lets you control\nif the row should be visible or not.", sinceVersion = Just "3.10"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ListBoxFilterFunc = + Ptr Gtk.ListBoxRow.ListBoxRow -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "row", argType = TInterface (Name {namespace = "Gtk", name = "ListBoxRow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the row that may be filtered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ListBoxFilterFunc :: FunPtr C_ListBoxFilterFunc -> C_ListBoxFilterFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ListBoxFilterFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.ListBoxRow.IsListBoxRow a) => + FunPtr C_ListBoxFilterFunc + -> a + {- ^ /@row@/: the row that may be filtered -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m Bool + {- ^ __Returns:__ 'True' if the row should be visible, 'False' otherwise -} +dynamic_ListBoxFilterFunc __funPtr row userData = liftIO $ do + row' <- unsafeManagedPtrCastPtr row + result <- (__dynamic_C_ListBoxFilterFunc __funPtr) row' userData + let result' = (/= 0) result + touchManagedPtr row + return result' + +-- | Generate a function pointer callable from C code, from a `C_ListBoxFilterFunc`. +foreign import ccall "wrapper" + mk_ListBoxFilterFunc :: C_ListBoxFilterFunc -> IO (FunPtr C_ListBoxFilterFunc) + +{- | +Will be called whenever the row changes or is added and lets you control +if the row should be visible or not. + +/Since: 3.10/ +-} +type ListBoxFilterFunc = + Gtk.ListBoxRow.ListBoxRow + {- ^ /@row@/: the row that may be filtered -} + -> IO Bool + {- ^ __Returns:__ 'True' if the row should be visible, 'False' otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxFilterFunc`@. +noListBoxFilterFunc :: Maybe ListBoxFilterFunc +noListBoxFilterFunc = Nothing + +{- | +Will be called whenever the row changes or is added and lets you control +if the row should be visible or not. + +/Since: 3.10/ +-} +type ListBoxFilterFunc_WithClosures = + Gtk.ListBoxRow.ListBoxRow + {- ^ /@row@/: the row that may be filtered -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO Bool + {- ^ __Returns:__ 'True' if the row should be visible, 'False' otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxFilterFunc_WithClosures`@. +noListBoxFilterFunc_WithClosures :: Maybe ListBoxFilterFunc_WithClosures +noListBoxFilterFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ListBoxFilterFunc :: ListBoxFilterFunc -> ListBoxFilterFunc_WithClosures +drop_closures_ListBoxFilterFunc _f row _ = _f row + +-- | Wrap the callback into a `GClosure`. +genClosure_ListBoxFilterFunc :: MonadIO m => ListBoxFilterFunc -> m (GClosure C_ListBoxFilterFunc) +genClosure_ListBoxFilterFunc cb = liftIO $ do + let cb' = drop_closures_ListBoxFilterFunc cb + let cb'' = wrap_ListBoxFilterFunc Nothing cb' + mk_ListBoxFilterFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ListBoxFilterFunc` into a `C_ListBoxFilterFunc`. +wrap_ListBoxFilterFunc :: + Maybe (Ptr (FunPtr C_ListBoxFilterFunc)) -> + ListBoxFilterFunc_WithClosures -> + C_ListBoxFilterFunc +wrap_ListBoxFilterFunc funptrptr _cb row userData = do + row' <- (newObject Gtk.ListBoxRow.ListBoxRow) row + result <- _cb row' userData + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback ListBoxCreateWidgetFunc +-- -> Callable {returnType = Just (TInterface (Name {namespace = "Gtk", name = "Widget"})), returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "a #GtkWidget that represents @item", sinceVersion = Nothing}, args = [Arg {argCName = "item", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the item from the model for which to create a widget for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Called for list boxes that are bound to a #GListModel with\ngtk_list_box_bind_model() for each item that gets added to the model.\n\nVersions of GTK+ prior to 3.18 called gtk_widget_show_all() on the rows\ncreated by the GtkListBoxCreateWidgetFunc, but this forced all widgets\ninside the row to be shown, and is no longer the case. Applications should\nbe updated to show the desired row widgets.", sinceVersion = Just "3.16"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ListBoxCreateWidgetFunc = + Ptr GObject.Object.Object -> + Ptr () -> + IO (Ptr Gtk.Widget.Widget) + +-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the item from the model for which to create a widget for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ListBoxCreateWidgetFunc :: FunPtr C_ListBoxCreateWidgetFunc -> C_ListBoxCreateWidgetFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ListBoxCreateWidgetFunc :: + (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) => + FunPtr C_ListBoxCreateWidgetFunc + -> a + {- ^ /@item@/: the item from the model for which to create a widget for -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget' that represents /@item@/ -} +dynamic_ListBoxCreateWidgetFunc __funPtr item userData = liftIO $ do + item' <- unsafeManagedPtrCastPtr item + result <- (__dynamic_C_ListBoxCreateWidgetFunc __funPtr) item' userData + checkUnexpectedReturnNULL "listBoxCreateWidgetFunc" result + result' <- (wrapObject Gtk.Widget.Widget) result + touchManagedPtr item + return result' + +-- | Generate a function pointer callable from C code, from a `C_ListBoxCreateWidgetFunc`. +foreign import ccall "wrapper" + mk_ListBoxCreateWidgetFunc :: C_ListBoxCreateWidgetFunc -> IO (FunPtr C_ListBoxCreateWidgetFunc) + +{- | +Called for list boxes that are bound to a 'GI.Gio.Interfaces.ListModel.ListModel' with +'GI.Gtk.Objects.ListBox.listBoxBindModel' for each item that gets added to the model. + +Versions of GTK+ prior to 3.18 called 'GI.Gtk.Objects.Widget.widgetShowAll' on the rows +created by the GtkListBoxCreateWidgetFunc, but this forced all widgets +inside the row to be shown, and is no longer the case. Applications should +be updated to show the desired row widgets. + +/Since: 3.16/ +-} +type ListBoxCreateWidgetFunc = + GObject.Object.Object + {- ^ /@item@/: the item from the model for which to create a widget for -} + -> IO Gtk.Widget.Widget + {- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget' that represents /@item@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxCreateWidgetFunc`@. +noListBoxCreateWidgetFunc :: Maybe ListBoxCreateWidgetFunc +noListBoxCreateWidgetFunc = Nothing + +{- | +Called for list boxes that are bound to a 'GI.Gio.Interfaces.ListModel.ListModel' with +'GI.Gtk.Objects.ListBox.listBoxBindModel' for each item that gets added to the model. + +Versions of GTK+ prior to 3.18 called 'GI.Gtk.Objects.Widget.widgetShowAll' on the rows +created by the GtkListBoxCreateWidgetFunc, but this forced all widgets +inside the row to be shown, and is no longer the case. Applications should +be updated to show the desired row widgets. + +/Since: 3.16/ +-} +type ListBoxCreateWidgetFunc_WithClosures = + GObject.Object.Object + {- ^ /@item@/: the item from the model for which to create a widget for -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO Gtk.Widget.Widget + {- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget' that represents /@item@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ListBoxCreateWidgetFunc_WithClosures`@. +noListBoxCreateWidgetFunc_WithClosures :: Maybe ListBoxCreateWidgetFunc_WithClosures +noListBoxCreateWidgetFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ListBoxCreateWidgetFunc :: ListBoxCreateWidgetFunc -> ListBoxCreateWidgetFunc_WithClosures +drop_closures_ListBoxCreateWidgetFunc _f item _ = _f item + +-- | Wrap the callback into a `GClosure`. +genClosure_ListBoxCreateWidgetFunc :: MonadIO m => ListBoxCreateWidgetFunc -> m (GClosure C_ListBoxCreateWidgetFunc) +genClosure_ListBoxCreateWidgetFunc cb = liftIO $ do + let cb' = drop_closures_ListBoxCreateWidgetFunc cb + let cb'' = wrap_ListBoxCreateWidgetFunc Nothing cb' + mk_ListBoxCreateWidgetFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ListBoxCreateWidgetFunc` into a `C_ListBoxCreateWidgetFunc`. +wrap_ListBoxCreateWidgetFunc :: + Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc)) -> + ListBoxCreateWidgetFunc_WithClosures -> + C_ListBoxCreateWidgetFunc +wrap_ListBoxCreateWidgetFunc funptrptr _cb item userData = do + item' <- (newObject GObject.Object.Object) item + result <- _cb item' userData + maybeReleaseFunPtr funptrptr + result' <- B.ManagedPtr.disownObject result + return result' + + +-- callback KeySnoopFunc +-- -> Callable {returnType = Just (TBasicType TInt), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE to stop further processing of @event, %FALSE to continue.", sinceVersion = Nothing}, args = [Arg {argCName = "grab_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget to which the event will be delivered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "EventKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the key event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data supplied to gtk_key_snooper_install()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Key snooper functions are called before normal event delivery.\nThey can be used to implement custom key event handling.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_KeySnoopFunc = + Ptr Gtk.Widget.Widget -> + Ptr Gdk.EventKey.EventKey -> + Ptr () -> + IO Int32 + +-- Args : [Arg {argCName = "grab_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget to which the event will be delivered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "EventKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the key event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data supplied to gtk_key_snooper_install()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_KeySnoopFunc :: FunPtr C_KeySnoopFunc -> C_KeySnoopFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_KeySnoopFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + FunPtr C_KeySnoopFunc + -> a + {- ^ /@grabWidget@/: the widget to which the event will be delivered -} + -> Gdk.EventKey.EventKey + {- ^ /@event@/: the key event -} + -> Ptr () + {- ^ /@funcData@/: data supplied to @/gtk_key_snooper_install()/@ -} + -> m Int32 + {- ^ __Returns:__ 'True' to stop further processing of /@event@/, 'False' to continue. -} +dynamic_KeySnoopFunc __funPtr grabWidget event funcData = liftIO $ do + grabWidget' <- unsafeManagedPtrCastPtr grabWidget + event' <- unsafeManagedPtrGetPtr event + result <- (__dynamic_C_KeySnoopFunc __funPtr) grabWidget' event' funcData + touchManagedPtr grabWidget + touchManagedPtr event + return result + +-- | Generate a function pointer callable from C code, from a `C_KeySnoopFunc`. +foreign import ccall "wrapper" + mk_KeySnoopFunc :: C_KeySnoopFunc -> IO (FunPtr C_KeySnoopFunc) + +{- | +Key snooper functions are called before normal event delivery. +They can be used to implement custom key event handling. +-} +type KeySnoopFunc = + Gtk.Widget.Widget + {- ^ /@grabWidget@/: the widget to which the event will be delivered -} + -> Gdk.EventKey.EventKey + {- ^ /@event@/: the key event -} + -> IO Int32 + {- ^ __Returns:__ 'True' to stop further processing of /@event@/, 'False' to continue. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `KeySnoopFunc`@. +noKeySnoopFunc :: Maybe KeySnoopFunc +noKeySnoopFunc = Nothing + +{- | +Key snooper functions are called before normal event delivery. +They can be used to implement custom key event handling. +-} +type KeySnoopFunc_WithClosures = + Gtk.Widget.Widget + {- ^ /@grabWidget@/: the widget to which the event will be delivered -} + -> Gdk.EventKey.EventKey + {- ^ /@event@/: the key event -} + -> Ptr () + {- ^ /@funcData@/: data supplied to @/gtk_key_snooper_install()/@ -} + -> IO Int32 + {- ^ __Returns:__ 'True' to stop further processing of /@event@/, 'False' to continue. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `KeySnoopFunc_WithClosures`@. +noKeySnoopFunc_WithClosures :: Maybe KeySnoopFunc_WithClosures +noKeySnoopFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_KeySnoopFunc :: KeySnoopFunc -> KeySnoopFunc_WithClosures +drop_closures_KeySnoopFunc _f grabWidget event _ = _f grabWidget event + +-- | Wrap the callback into a `GClosure`. +genClosure_KeySnoopFunc :: MonadIO m => KeySnoopFunc -> m (GClosure C_KeySnoopFunc) +genClosure_KeySnoopFunc cb = liftIO $ do + let cb' = drop_closures_KeySnoopFunc cb + let cb'' = wrap_KeySnoopFunc Nothing cb' + mk_KeySnoopFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `KeySnoopFunc` into a `C_KeySnoopFunc`. +wrap_KeySnoopFunc :: + Maybe (Ptr (FunPtr C_KeySnoopFunc)) -> + KeySnoopFunc_WithClosures -> + C_KeySnoopFunc +wrap_KeySnoopFunc funptrptr _cb grabWidget event funcData = do + grabWidget' <- (newObject Gtk.Widget.Widget) grabWidget + event' <- (newPtr Gdk.EventKey.EventKey) event + result <- _cb grabWidget' event' funcData + maybeReleaseFunPtr funptrptr + return result + + +-- callback IconViewForeachFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "icon_view", argType = TInterface (Name {namespace = "Gtk", name = "IconView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkIconView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreePath of a selected row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function used by gtk_icon_view_selected_foreach() to map all\nselected rows. It will be called on every selected row in the view.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_IconViewForeachFunc = + Ptr Gtk.IconView.IconView -> + Ptr Gtk.TreePath.TreePath -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "icon_view", argType = TInterface (Name {namespace = "Gtk", name = "IconView"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkIconView", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkTreePath of a selected row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_IconViewForeachFunc :: FunPtr C_IconViewForeachFunc -> C_IconViewForeachFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_IconViewForeachFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.IconView.IsIconView a) => + FunPtr C_IconViewForeachFunc + -> a + {- ^ /@iconView@/: a 'GI.Gtk.Objects.IconView.IconView' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of a selected row -} + -> Ptr () + {- ^ /@data@/: user data -} + -> m () +dynamic_IconViewForeachFunc __funPtr iconView path data_ = liftIO $ do + iconView' <- unsafeManagedPtrCastPtr iconView + path' <- unsafeManagedPtrGetPtr path + (__dynamic_C_IconViewForeachFunc __funPtr) iconView' path' data_ + touchManagedPtr iconView + touchManagedPtr path + return () + +-- | Generate a function pointer callable from C code, from a `C_IconViewForeachFunc`. +foreign import ccall "wrapper" + mk_IconViewForeachFunc :: C_IconViewForeachFunc -> IO (FunPtr C_IconViewForeachFunc) + +{- | +A function used by 'GI.Gtk.Objects.IconView.iconViewSelectedForeach' to map all +selected rows. It will be called on every selected row in the view. +-} +type IconViewForeachFunc = + Gtk.IconView.IconView + {- ^ /@iconView@/: a 'GI.Gtk.Objects.IconView.IconView' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of a selected row -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `IconViewForeachFunc`@. +noIconViewForeachFunc :: Maybe IconViewForeachFunc +noIconViewForeachFunc = Nothing + +{- | +A function used by 'GI.Gtk.Objects.IconView.iconViewSelectedForeach' to map all +selected rows. It will be called on every selected row in the view. +-} +type IconViewForeachFunc_WithClosures = + Gtk.IconView.IconView + {- ^ /@iconView@/: a 'GI.Gtk.Objects.IconView.IconView' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: The 'GI.Gtk.Structs.TreePath.TreePath' of a selected row -} + -> Ptr () + {- ^ /@data@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `IconViewForeachFunc_WithClosures`@. +noIconViewForeachFunc_WithClosures :: Maybe IconViewForeachFunc_WithClosures +noIconViewForeachFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_IconViewForeachFunc :: IconViewForeachFunc -> IconViewForeachFunc_WithClosures +drop_closures_IconViewForeachFunc _f iconView path _ = _f iconView path + +-- | Wrap the callback into a `GClosure`. +genClosure_IconViewForeachFunc :: MonadIO m => IconViewForeachFunc -> m (GClosure C_IconViewForeachFunc) +genClosure_IconViewForeachFunc cb = liftIO $ do + let cb' = drop_closures_IconViewForeachFunc cb + let cb'' = wrap_IconViewForeachFunc Nothing cb' + mk_IconViewForeachFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `IconViewForeachFunc` into a `C_IconViewForeachFunc`. +wrap_IconViewForeachFunc :: + Maybe (Ptr (FunPtr C_IconViewForeachFunc)) -> + IconViewForeachFunc_WithClosures -> + C_IconViewForeachFunc +wrap_IconViewForeachFunc funptrptr _cb iconView path data_ = do + iconView' <- (newObject Gtk.IconView.IconView) iconView + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + _cb iconView' path' data_ + maybeReleaseFunPtr funptrptr + + +-- callback FontFilterFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the font should be displayed", sinceVersion = Nothing}, args = [Arg {argCName = "family", argType = TInterface (Name {namespace = "Pango", name = "FontFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PangoFontFamily", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "face", argType = TInterface (Name {namespace = "Pango", name = "FontFace"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PangoFontFace belonging to @family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_font_chooser_set_filter_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of function that is used for deciding what fonts get\nshown in a #GtkFontChooser. See gtk_font_chooser_set_filter_func().", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_FontFilterFunc = + Ptr Pango.FontFamily.FontFamily -> + Ptr Pango.FontFace.FontFace -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "family", argType = TInterface (Name {namespace = "Pango", name = "FontFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PangoFontFamily", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "face", argType = TInterface (Name {namespace = "Pango", name = "FontFace"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PangoFontFace belonging to @family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_font_chooser_set_filter_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_FontFilterFunc :: FunPtr C_FontFilterFunc -> C_FontFilterFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_FontFilterFunc :: + (B.CallStack.HasCallStack, MonadIO m, Pango.FontFamily.IsFontFamily a, Pango.FontFace.IsFontFace b) => + FunPtr C_FontFilterFunc + -> a + {- ^ /@family@/: a 'GI.Pango.Objects.FontFamily.FontFamily' -} + -> b + {- ^ /@face@/: a 'GI.Pango.Objects.FontFace.FontFace' belonging to /@family@/ -} + -> Ptr () + {- ^ /@data@/: user data passed to 'GI.Gtk.Interfaces.FontChooser.fontChooserSetFilterFunc' -} + -> m Bool + {- ^ __Returns:__ 'True' if the font should be displayed -} +dynamic_FontFilterFunc __funPtr family face data_ = liftIO $ do + family' <- unsafeManagedPtrCastPtr family + face' <- unsafeManagedPtrCastPtr face + result <- (__dynamic_C_FontFilterFunc __funPtr) family' face' data_ + let result' = (/= 0) result + touchManagedPtr family + touchManagedPtr face + return result' + +-- | Generate a function pointer callable from C code, from a `C_FontFilterFunc`. +foreign import ccall "wrapper" + mk_FontFilterFunc :: C_FontFilterFunc -> IO (FunPtr C_FontFilterFunc) + +{- | +The type of function that is used for deciding what fonts get +shown in a 'GI.Gtk.Interfaces.FontChooser.FontChooser'. See 'GI.Gtk.Interfaces.FontChooser.fontChooserSetFilterFunc'. +-} +type FontFilterFunc = + Pango.FontFamily.FontFamily + {- ^ /@family@/: a 'GI.Pango.Objects.FontFamily.FontFamily' -} + -> Pango.FontFace.FontFace + {- ^ /@face@/: a 'GI.Pango.Objects.FontFace.FontFace' belonging to /@family@/ -} + -> IO Bool + {- ^ __Returns:__ 'True' if the font should be displayed -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FontFilterFunc`@. +noFontFilterFunc :: Maybe FontFilterFunc +noFontFilterFunc = Nothing + +{- | +The type of function that is used for deciding what fonts get +shown in a 'GI.Gtk.Interfaces.FontChooser.FontChooser'. See 'GI.Gtk.Interfaces.FontChooser.fontChooserSetFilterFunc'. +-} +type FontFilterFunc_WithClosures = + Pango.FontFamily.FontFamily + {- ^ /@family@/: a 'GI.Pango.Objects.FontFamily.FontFamily' -} + -> Pango.FontFace.FontFace + {- ^ /@face@/: a 'GI.Pango.Objects.FontFace.FontFace' belonging to /@family@/ -} + -> Ptr () + {- ^ /@data@/: user data passed to 'GI.Gtk.Interfaces.FontChooser.fontChooserSetFilterFunc' -} + -> IO Bool + {- ^ __Returns:__ 'True' if the font should be displayed -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FontFilterFunc_WithClosures`@. +noFontFilterFunc_WithClosures :: Maybe FontFilterFunc_WithClosures +noFontFilterFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_FontFilterFunc :: FontFilterFunc -> FontFilterFunc_WithClosures +drop_closures_FontFilterFunc _f family face _ = _f family face + +-- | Wrap the callback into a `GClosure`. +genClosure_FontFilterFunc :: MonadIO m => FontFilterFunc -> m (GClosure C_FontFilterFunc) +genClosure_FontFilterFunc cb = liftIO $ do + let cb' = drop_closures_FontFilterFunc cb + let cb'' = wrap_FontFilterFunc Nothing cb' + mk_FontFilterFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `FontFilterFunc` into a `C_FontFilterFunc`. +wrap_FontFilterFunc :: + Maybe (Ptr (FunPtr C_FontFilterFunc)) -> + FontFilterFunc_WithClosures -> + C_FontFilterFunc +wrap_FontFilterFunc funptrptr _cb family face data_ = do + family' <- (newObject Pango.FontFamily.FontFamily) family + face' <- (newObject Pango.FontFace.FontFace) face + result <- _cb family' face' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback FlowBoxSortFunc +-- -> Callable {returnType = Just (TBasicType TInt), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "< 0 if @child1 should be before @child2, 0 if\n the are equal, and > 0 otherwise", sinceVersion = Nothing}, args = [Arg {argCName = "child1", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the first child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child2", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the second child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to compare two children to determine which\nshould come first.", sinceVersion = Just "3.12"}} +-- | Type for the callback on the (unwrapped) C side. +type C_FlowBoxSortFunc = + Ptr Gtk.FlowBoxChild.FlowBoxChild -> + Ptr Gtk.FlowBoxChild.FlowBoxChild -> + Ptr () -> + IO Int32 + +-- Args : [Arg {argCName = "child1", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the first child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child2", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the second child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_FlowBoxSortFunc :: FunPtr C_FlowBoxSortFunc -> C_FlowBoxSortFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_FlowBoxSortFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.FlowBoxChild.IsFlowBoxChild a, Gtk.FlowBoxChild.IsFlowBoxChild b) => + FunPtr C_FlowBoxSortFunc + -> a + {- ^ /@child1@/: the first child -} + -> b + {- ^ /@child2@/: the second child -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m Int32 + {- ^ __Returns:__ \< 0 if /@child1@/ should be before /@child2@/, 0 if + the are equal, and > 0 otherwise -} +dynamic_FlowBoxSortFunc __funPtr child1 child2 userData = liftIO $ do + child1' <- unsafeManagedPtrCastPtr child1 + child2' <- unsafeManagedPtrCastPtr child2 + result <- (__dynamic_C_FlowBoxSortFunc __funPtr) child1' child2' userData + touchManagedPtr child1 + touchManagedPtr child2 + return result + +-- | Generate a function pointer callable from C code, from a `C_FlowBoxSortFunc`. +foreign import ccall "wrapper" + mk_FlowBoxSortFunc :: C_FlowBoxSortFunc -> IO (FunPtr C_FlowBoxSortFunc) + +{- | +A function to compare two children to determine which +should come first. + +/Since: 3.12/ +-} +type FlowBoxSortFunc = + Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child1@/: the first child -} + -> Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child2@/: the second child -} + -> IO Int32 + {- ^ __Returns:__ \< 0 if /@child1@/ should be before /@child2@/, 0 if + the are equal, and > 0 otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxSortFunc`@. +noFlowBoxSortFunc :: Maybe FlowBoxSortFunc +noFlowBoxSortFunc = Nothing + +{- | +A function to compare two children to determine which +should come first. + +/Since: 3.12/ +-} +type FlowBoxSortFunc_WithClosures = + Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child1@/: the first child -} + -> Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child2@/: the second child -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO Int32 + {- ^ __Returns:__ \< 0 if /@child1@/ should be before /@child2@/, 0 if + the are equal, and > 0 otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxSortFunc_WithClosures`@. +noFlowBoxSortFunc_WithClosures :: Maybe FlowBoxSortFunc_WithClosures +noFlowBoxSortFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_FlowBoxSortFunc :: FlowBoxSortFunc -> FlowBoxSortFunc_WithClosures +drop_closures_FlowBoxSortFunc _f child1 child2 _ = _f child1 child2 + +-- | Wrap the callback into a `GClosure`. +genClosure_FlowBoxSortFunc :: MonadIO m => FlowBoxSortFunc -> m (GClosure C_FlowBoxSortFunc) +genClosure_FlowBoxSortFunc cb = liftIO $ do + let cb' = drop_closures_FlowBoxSortFunc cb + let cb'' = wrap_FlowBoxSortFunc Nothing cb' + mk_FlowBoxSortFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `FlowBoxSortFunc` into a `C_FlowBoxSortFunc`. +wrap_FlowBoxSortFunc :: + Maybe (Ptr (FunPtr C_FlowBoxSortFunc)) -> + FlowBoxSortFunc_WithClosures -> + C_FlowBoxSortFunc +wrap_FlowBoxSortFunc funptrptr _cb child1 child2 userData = do + child1' <- (newObject Gtk.FlowBoxChild.FlowBoxChild) child1 + child2' <- (newObject Gtk.FlowBoxChild.FlowBoxChild) child2 + result <- _cb child1' child2' userData + maybeReleaseFunPtr funptrptr + return result + + +-- callback FlowBoxForeachFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "FlowBox"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFlowBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFlowBoxChild", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function used by gtk_flow_box_selected_foreach().\nIt will be called on every selected child of the @box.", sinceVersion = Just "3.12"}} +-- | Type for the callback on the (unwrapped) C side. +type C_FlowBoxForeachFunc = + Ptr Gtk.FlowBox.FlowBox -> + Ptr Gtk.FlowBoxChild.FlowBoxChild -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "FlowBox"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFlowBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFlowBoxChild", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_FlowBoxForeachFunc :: FunPtr C_FlowBoxForeachFunc -> C_FlowBoxForeachFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_FlowBoxForeachFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.FlowBox.IsFlowBox a, Gtk.FlowBoxChild.IsFlowBoxChild b) => + FunPtr C_FlowBoxForeachFunc + -> a + {- ^ /@box@/: a 'GI.Gtk.Objects.FlowBox.FlowBox' -} + -> b + {- ^ /@child@/: a 'GI.Gtk.Objects.FlowBoxChild.FlowBoxChild' -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m () +dynamic_FlowBoxForeachFunc __funPtr box child userData = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + child' <- unsafeManagedPtrCastPtr child + (__dynamic_C_FlowBoxForeachFunc __funPtr) box' child' userData + touchManagedPtr box + touchManagedPtr child + return () + +-- | Generate a function pointer callable from C code, from a `C_FlowBoxForeachFunc`. +foreign import ccall "wrapper" + mk_FlowBoxForeachFunc :: C_FlowBoxForeachFunc -> IO (FunPtr C_FlowBoxForeachFunc) + +{- | +A function used by 'GI.Gtk.Objects.FlowBox.flowBoxSelectedForeach'. +It will be called on every selected child of the /@box@/. + +/Since: 3.12/ +-} +type FlowBoxForeachFunc = + Gtk.FlowBox.FlowBox + {- ^ /@box@/: a 'GI.Gtk.Objects.FlowBox.FlowBox' -} + -> Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child@/: a 'GI.Gtk.Objects.FlowBoxChild.FlowBoxChild' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxForeachFunc`@. +noFlowBoxForeachFunc :: Maybe FlowBoxForeachFunc +noFlowBoxForeachFunc = Nothing + +{- | +A function used by 'GI.Gtk.Objects.FlowBox.flowBoxSelectedForeach'. +It will be called on every selected child of the /@box@/. + +/Since: 3.12/ +-} +type FlowBoxForeachFunc_WithClosures = + Gtk.FlowBox.FlowBox + {- ^ /@box@/: a 'GI.Gtk.Objects.FlowBox.FlowBox' -} + -> Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child@/: a 'GI.Gtk.Objects.FlowBoxChild.FlowBoxChild' -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxForeachFunc_WithClosures`@. +noFlowBoxForeachFunc_WithClosures :: Maybe FlowBoxForeachFunc_WithClosures +noFlowBoxForeachFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_FlowBoxForeachFunc :: FlowBoxForeachFunc -> FlowBoxForeachFunc_WithClosures +drop_closures_FlowBoxForeachFunc _f box child _ = _f box child + +-- | Wrap the callback into a `GClosure`. +genClosure_FlowBoxForeachFunc :: MonadIO m => FlowBoxForeachFunc -> m (GClosure C_FlowBoxForeachFunc) +genClosure_FlowBoxForeachFunc cb = liftIO $ do + let cb' = drop_closures_FlowBoxForeachFunc cb + let cb'' = wrap_FlowBoxForeachFunc Nothing cb' + mk_FlowBoxForeachFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `FlowBoxForeachFunc` into a `C_FlowBoxForeachFunc`. +wrap_FlowBoxForeachFunc :: + Maybe (Ptr (FunPtr C_FlowBoxForeachFunc)) -> + FlowBoxForeachFunc_WithClosures -> + C_FlowBoxForeachFunc +wrap_FlowBoxForeachFunc funptrptr _cb box child userData = do + box' <- (newObject Gtk.FlowBox.FlowBox) box + child' <- (newObject Gtk.FlowBoxChild.FlowBoxChild) child + _cb box' child' userData + maybeReleaseFunPtr funptrptr + + +-- callback FlowBoxFilterFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the row should be visible, %FALSE otherwise", sinceVersion = Nothing}, args = [Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFlowBoxChild that may be filtered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function that will be called whenrever a child changes\nor is added. It lets you control if the child should be\nvisible or not.", sinceVersion = Just "3.12"}} +-- | Type for the callback on the (unwrapped) C side. +type C_FlowBoxFilterFunc = + Ptr Gtk.FlowBoxChild.FlowBoxChild -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "FlowBoxChild"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFlowBoxChild that may be filtered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_FlowBoxFilterFunc :: FunPtr C_FlowBoxFilterFunc -> C_FlowBoxFilterFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_FlowBoxFilterFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.FlowBoxChild.IsFlowBoxChild a) => + FunPtr C_FlowBoxFilterFunc + -> a + {- ^ /@child@/: a 'GI.Gtk.Objects.FlowBoxChild.FlowBoxChild' that may be filtered -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m Bool + {- ^ __Returns:__ 'True' if the row should be visible, 'False' otherwise -} +dynamic_FlowBoxFilterFunc __funPtr child userData = liftIO $ do + child' <- unsafeManagedPtrCastPtr child + result <- (__dynamic_C_FlowBoxFilterFunc __funPtr) child' userData + let result' = (/= 0) result + touchManagedPtr child + return result' + +-- | Generate a function pointer callable from C code, from a `C_FlowBoxFilterFunc`. +foreign import ccall "wrapper" + mk_FlowBoxFilterFunc :: C_FlowBoxFilterFunc -> IO (FunPtr C_FlowBoxFilterFunc) + +{- | +A function that will be called whenrever a child changes +or is added. It lets you control if the child should be +visible or not. + +/Since: 3.12/ +-} +type FlowBoxFilterFunc = + Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child@/: a 'GI.Gtk.Objects.FlowBoxChild.FlowBoxChild' that may be filtered -} + -> IO Bool + {- ^ __Returns:__ 'True' if the row should be visible, 'False' otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxFilterFunc`@. +noFlowBoxFilterFunc :: Maybe FlowBoxFilterFunc +noFlowBoxFilterFunc = Nothing + +{- | +A function that will be called whenrever a child changes +or is added. It lets you control if the child should be +visible or not. + +/Since: 3.12/ +-} +type FlowBoxFilterFunc_WithClosures = + Gtk.FlowBoxChild.FlowBoxChild + {- ^ /@child@/: a 'GI.Gtk.Objects.FlowBoxChild.FlowBoxChild' that may be filtered -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO Bool + {- ^ __Returns:__ 'True' if the row should be visible, 'False' otherwise -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxFilterFunc_WithClosures`@. +noFlowBoxFilterFunc_WithClosures :: Maybe FlowBoxFilterFunc_WithClosures +noFlowBoxFilterFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_FlowBoxFilterFunc :: FlowBoxFilterFunc -> FlowBoxFilterFunc_WithClosures +drop_closures_FlowBoxFilterFunc _f child _ = _f child + +-- | Wrap the callback into a `GClosure`. +genClosure_FlowBoxFilterFunc :: MonadIO m => FlowBoxFilterFunc -> m (GClosure C_FlowBoxFilterFunc) +genClosure_FlowBoxFilterFunc cb = liftIO $ do + let cb' = drop_closures_FlowBoxFilterFunc cb + let cb'' = wrap_FlowBoxFilterFunc Nothing cb' + mk_FlowBoxFilterFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `FlowBoxFilterFunc` into a `C_FlowBoxFilterFunc`. +wrap_FlowBoxFilterFunc :: + Maybe (Ptr (FunPtr C_FlowBoxFilterFunc)) -> + FlowBoxFilterFunc_WithClosures -> + C_FlowBoxFilterFunc +wrap_FlowBoxFilterFunc funptrptr _cb child userData = do + child' <- (newObject Gtk.FlowBoxChild.FlowBoxChild) child + result <- _cb child' userData + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback FlowBoxCreateWidgetFunc +-- -> Callable {returnType = Just (TInterface (Name {namespace = "Gtk", name = "Widget"})), returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "a #GtkWidget that represents @item", sinceVersion = Nothing}, args = [Arg {argCName = "item", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the item from the model for which to create a widget for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data from gtk_flow_box_bind_model()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Called for flow boxes that are bound to a #GListModel with\ngtk_flow_box_bind_model() for each item that gets added to the model.", sinceVersion = Just "3.18"}} +-- | Type for the callback on the (unwrapped) C side. +type C_FlowBoxCreateWidgetFunc = + Ptr GObject.Object.Object -> + Ptr () -> + IO (Ptr Gtk.Widget.Widget) + +-- Args : [Arg {argCName = "item", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the item from the model for which to create a widget for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data from gtk_flow_box_bind_model()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_FlowBoxCreateWidgetFunc :: FunPtr C_FlowBoxCreateWidgetFunc -> C_FlowBoxCreateWidgetFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_FlowBoxCreateWidgetFunc :: + (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) => + FunPtr C_FlowBoxCreateWidgetFunc + -> Maybe (a) + {- ^ /@item@/: the item from the model for which to create a widget for -} + -> Ptr () + {- ^ /@userData@/: user data from 'GI.Gtk.Objects.FlowBox.flowBoxBindModel' -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget' that represents /@item@/ -} +dynamic_FlowBoxCreateWidgetFunc __funPtr item userData = liftIO $ do + maybeItem <- case item of + Nothing -> return nullPtr + Just jItem -> do + jItem' <- unsafeManagedPtrCastPtr jItem + return jItem' + result <- (__dynamic_C_FlowBoxCreateWidgetFunc __funPtr) maybeItem userData + checkUnexpectedReturnNULL "flowBoxCreateWidgetFunc" result + result' <- (wrapObject Gtk.Widget.Widget) result + whenJust item touchManagedPtr + return result' + +-- | Generate a function pointer callable from C code, from a `C_FlowBoxCreateWidgetFunc`. +foreign import ccall "wrapper" + mk_FlowBoxCreateWidgetFunc :: C_FlowBoxCreateWidgetFunc -> IO (FunPtr C_FlowBoxCreateWidgetFunc) + +{- | +Called for flow boxes that are bound to a 'GI.Gio.Interfaces.ListModel.ListModel' with +'GI.Gtk.Objects.FlowBox.flowBoxBindModel' for each item that gets added to the model. + +/Since: 3.18/ +-} +type FlowBoxCreateWidgetFunc = + Maybe GObject.Object.Object + {- ^ /@item@/: the item from the model for which to create a widget for -} + -> IO Gtk.Widget.Widget + {- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget' that represents /@item@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxCreateWidgetFunc`@. +noFlowBoxCreateWidgetFunc :: Maybe FlowBoxCreateWidgetFunc +noFlowBoxCreateWidgetFunc = Nothing + +{- | +Called for flow boxes that are bound to a 'GI.Gio.Interfaces.ListModel.ListModel' with +'GI.Gtk.Objects.FlowBox.flowBoxBindModel' for each item that gets added to the model. + +/Since: 3.18/ +-} +type FlowBoxCreateWidgetFunc_WithClosures = + Maybe GObject.Object.Object + {- ^ /@item@/: the item from the model for which to create a widget for -} + -> Ptr () + {- ^ /@userData@/: user data from 'GI.Gtk.Objects.FlowBox.flowBoxBindModel' -} + -> IO Gtk.Widget.Widget + {- ^ __Returns:__ a 'GI.Gtk.Objects.Widget.Widget' that represents /@item@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FlowBoxCreateWidgetFunc_WithClosures`@. +noFlowBoxCreateWidgetFunc_WithClosures :: Maybe FlowBoxCreateWidgetFunc_WithClosures +noFlowBoxCreateWidgetFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_FlowBoxCreateWidgetFunc :: FlowBoxCreateWidgetFunc -> FlowBoxCreateWidgetFunc_WithClosures +drop_closures_FlowBoxCreateWidgetFunc _f item _ = _f item + +-- | Wrap the callback into a `GClosure`. +genClosure_FlowBoxCreateWidgetFunc :: MonadIO m => FlowBoxCreateWidgetFunc -> m (GClosure C_FlowBoxCreateWidgetFunc) +genClosure_FlowBoxCreateWidgetFunc cb = liftIO $ do + let cb' = drop_closures_FlowBoxCreateWidgetFunc cb + let cb'' = wrap_FlowBoxCreateWidgetFunc Nothing cb' + mk_FlowBoxCreateWidgetFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `FlowBoxCreateWidgetFunc` into a `C_FlowBoxCreateWidgetFunc`. +wrap_FlowBoxCreateWidgetFunc :: + Maybe (Ptr (FunPtr C_FlowBoxCreateWidgetFunc)) -> + FlowBoxCreateWidgetFunc_WithClosures -> + C_FlowBoxCreateWidgetFunc +wrap_FlowBoxCreateWidgetFunc funptrptr _cb item userData = do + maybeItem <- + if item == nullPtr + then return Nothing + else do + item' <- (newObject GObject.Object.Object) item + return $ Just item' + result <- _cb maybeItem userData + maybeReleaseFunPtr funptrptr + result' <- B.ManagedPtr.disownObject result + return result' + + +-- callback FileFilterFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the file should be displayed", sinceVersion = Nothing}, args = [Arg {argCName = "filter_info", argType = TInterface (Name {namespace = "Gtk", name = "FileFilterInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileFilterInfo that is filled according\n to the @needed flags passed to gtk_file_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_file_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of function that is used with custom filters, see\ngtk_file_filter_add_custom().", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_FileFilterFunc = + Ptr Gtk.FileFilterInfo.FileFilterInfo -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "filter_info", argType = TInterface (Name {namespace = "Gtk", name = "FileFilterInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileFilterInfo that is filled according\n to the @needed flags passed to gtk_file_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_file_filter_add_custom()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_FileFilterFunc :: FunPtr C_FileFilterFunc -> C_FileFilterFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_FileFilterFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_FileFilterFunc + -> Gtk.FileFilterInfo.FileFilterInfo + {- ^ /@filterInfo@/: a 'GI.Gtk.Structs.FileFilterInfo.FileFilterInfo' that is filled according + to the /@needed@/ flags passed to 'GI.Gtk.Objects.FileFilter.fileFilterAddCustom' -} + -> Ptr () + {- ^ /@data@/: user data passed to 'GI.Gtk.Objects.FileFilter.fileFilterAddCustom' -} + -> m Bool + {- ^ __Returns:__ 'True' if the file should be displayed -} +dynamic_FileFilterFunc __funPtr filterInfo data_ = liftIO $ do + filterInfo' <- unsafeManagedPtrGetPtr filterInfo + result <- (__dynamic_C_FileFilterFunc __funPtr) filterInfo' data_ + let result' = (/= 0) result + touchManagedPtr filterInfo + return result' + +-- | Generate a function pointer callable from C code, from a `C_FileFilterFunc`. +foreign import ccall "wrapper" + mk_FileFilterFunc :: C_FileFilterFunc -> IO (FunPtr C_FileFilterFunc) + +{- | +The type of function that is used with custom filters, see +'GI.Gtk.Objects.FileFilter.fileFilterAddCustom'. +-} +type FileFilterFunc = + Gtk.FileFilterInfo.FileFilterInfo + {- ^ /@filterInfo@/: a 'GI.Gtk.Structs.FileFilterInfo.FileFilterInfo' that is filled according + to the /@needed@/ flags passed to 'GI.Gtk.Objects.FileFilter.fileFilterAddCustom' -} + -> IO Bool + {- ^ __Returns:__ 'True' if the file should be displayed -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FileFilterFunc`@. +noFileFilterFunc :: Maybe FileFilterFunc +noFileFilterFunc = Nothing + +{- | +The type of function that is used with custom filters, see +'GI.Gtk.Objects.FileFilter.fileFilterAddCustom'. +-} +type FileFilterFunc_WithClosures = + Gtk.FileFilterInfo.FileFilterInfo + {- ^ /@filterInfo@/: a 'GI.Gtk.Structs.FileFilterInfo.FileFilterInfo' that is filled according + to the /@needed@/ flags passed to 'GI.Gtk.Objects.FileFilter.fileFilterAddCustom' -} + -> Ptr () + {- ^ /@data@/: user data passed to 'GI.Gtk.Objects.FileFilter.fileFilterAddCustom' -} + -> IO Bool + {- ^ __Returns:__ 'True' if the file should be displayed -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FileFilterFunc_WithClosures`@. +noFileFilterFunc_WithClosures :: Maybe FileFilterFunc_WithClosures +noFileFilterFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_FileFilterFunc :: FileFilterFunc -> FileFilterFunc_WithClosures +drop_closures_FileFilterFunc _f filterInfo _ = _f filterInfo + +-- | Wrap the callback into a `GClosure`. +genClosure_FileFilterFunc :: MonadIO m => FileFilterFunc -> m (GClosure C_FileFilterFunc) +genClosure_FileFilterFunc cb = liftIO $ do + let cb' = drop_closures_FileFilterFunc cb + let cb'' = wrap_FileFilterFunc Nothing cb' + mk_FileFilterFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `FileFilterFunc` into a `C_FileFilterFunc`. +wrap_FileFilterFunc :: + Maybe (Ptr (FunPtr C_FileFilterFunc)) -> + FileFilterFunc_WithClosures -> + C_FileFilterFunc +wrap_FileFilterFunc funptrptr _cb filterInfo data_ = do + filterInfo' <- (newPtr Gtk.FileFilterInfo.FileFilterInfo) filterInfo + result <- _cb filterInfo' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback EntryCompletionMatchFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if @iter should be displayed as a possible completion\n for @key", sinceVersion = Nothing}, args = [Arg {argCName = "completion", argType = TInterface (Name {namespace = "Gtk", name = "EntryCompletion"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkEntryCompletion", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the string to match, normalized and case-folded", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter indicating the row to match", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data given to gtk_entry_completion_set_match_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function which decides whether the row indicated by @iter matches\na given @key, and should be displayed as a possible completion for @key.\nNote that @key is normalized and case-folded (see g_utf8_normalize()\nand g_utf8_casefold()). If this is not appropriate, match functions\nhave access to the unmodified key via\n`gtk_entry_get_text (GTK_ENTRY (gtk_entry_completion_get_entry ()))`.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_EntryCompletionMatchFunc = + Ptr Gtk.EntryCompletion.EntryCompletion -> + CString -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "completion", argType = TInterface (Name {namespace = "Gtk", name = "EntryCompletion"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkEntryCompletion", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the string to match, normalized and case-folded", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter indicating the row to match", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data given to gtk_entry_completion_set_match_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_EntryCompletionMatchFunc :: FunPtr C_EntryCompletionMatchFunc -> C_EntryCompletionMatchFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_EntryCompletionMatchFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.EntryCompletion.IsEntryCompletion a) => + FunPtr C_EntryCompletionMatchFunc + -> a + {- ^ /@completion@/: the 'GI.Gtk.Objects.EntryCompletion.EntryCompletion' -} + -> T.Text + {- ^ /@key@/: the string to match, normalized and case-folded -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' indicating the row to match -} + -> Ptr () + {- ^ /@userData@/: user data given to 'GI.Gtk.Objects.EntryCompletion.entryCompletionSetMatchFunc' -} + -> m Bool + {- ^ __Returns:__ 'True' if /@iter@/ should be displayed as a possible completion + for /@key@/ -} +dynamic_EntryCompletionMatchFunc __funPtr completion key iter userData = liftIO $ do + completion' <- unsafeManagedPtrCastPtr completion + key' <- textToCString key + iter' <- unsafeManagedPtrGetPtr iter + result <- (__dynamic_C_EntryCompletionMatchFunc __funPtr) completion' key' iter' userData + let result' = (/= 0) result + touchManagedPtr completion + touchManagedPtr iter + freeMem key' + return result' + +-- | Generate a function pointer callable from C code, from a `C_EntryCompletionMatchFunc`. +foreign import ccall "wrapper" + mk_EntryCompletionMatchFunc :: C_EntryCompletionMatchFunc -> IO (FunPtr C_EntryCompletionMatchFunc) + +{- | +A function which decides whether the row indicated by /@iter@/ matches +a given /@key@/, and should be displayed as a possible completion for /@key@/. +Note that /@key@/ is normalized and case-folded (see 'GI.GLib.Functions.utf8Normalize' +and 'GI.GLib.Functions.utf8Casefold'). If this is not appropriate, match functions +have access to the unmodified key via +@gtk_entry_get_text (GTK_ENTRY (gtk_entry_completion_get_entry ()))@. +-} +type EntryCompletionMatchFunc = + Gtk.EntryCompletion.EntryCompletion + {- ^ /@completion@/: the 'GI.Gtk.Objects.EntryCompletion.EntryCompletion' -} + -> T.Text + {- ^ /@key@/: the string to match, normalized and case-folded -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' indicating the row to match -} + -> IO Bool + {- ^ __Returns:__ 'True' if /@iter@/ should be displayed as a possible completion + for /@key@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `EntryCompletionMatchFunc`@. +noEntryCompletionMatchFunc :: Maybe EntryCompletionMatchFunc +noEntryCompletionMatchFunc = Nothing + +{- | +A function which decides whether the row indicated by /@iter@/ matches +a given /@key@/, and should be displayed as a possible completion for /@key@/. +Note that /@key@/ is normalized and case-folded (see 'GI.GLib.Functions.utf8Normalize' +and 'GI.GLib.Functions.utf8Casefold'). If this is not appropriate, match functions +have access to the unmodified key via +@gtk_entry_get_text (GTK_ENTRY (gtk_entry_completion_get_entry ()))@. +-} +type EntryCompletionMatchFunc_WithClosures = + Gtk.EntryCompletion.EntryCompletion + {- ^ /@completion@/: the 'GI.Gtk.Objects.EntryCompletion.EntryCompletion' -} + -> T.Text + {- ^ /@key@/: the string to match, normalized and case-folded -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' indicating the row to match -} + -> Ptr () + {- ^ /@userData@/: user data given to 'GI.Gtk.Objects.EntryCompletion.entryCompletionSetMatchFunc' -} + -> IO Bool + {- ^ __Returns:__ 'True' if /@iter@/ should be displayed as a possible completion + for /@key@/ -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `EntryCompletionMatchFunc_WithClosures`@. +noEntryCompletionMatchFunc_WithClosures :: Maybe EntryCompletionMatchFunc_WithClosures +noEntryCompletionMatchFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_EntryCompletionMatchFunc :: EntryCompletionMatchFunc -> EntryCompletionMatchFunc_WithClosures +drop_closures_EntryCompletionMatchFunc _f completion key iter _ = _f completion key iter + +-- | Wrap the callback into a `GClosure`. +genClosure_EntryCompletionMatchFunc :: MonadIO m => EntryCompletionMatchFunc -> m (GClosure C_EntryCompletionMatchFunc) +genClosure_EntryCompletionMatchFunc cb = liftIO $ do + let cb' = drop_closures_EntryCompletionMatchFunc cb + let cb'' = wrap_EntryCompletionMatchFunc Nothing cb' + mk_EntryCompletionMatchFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `EntryCompletionMatchFunc` into a `C_EntryCompletionMatchFunc`. +wrap_EntryCompletionMatchFunc :: + Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc)) -> + EntryCompletionMatchFunc_WithClosures -> + C_EntryCompletionMatchFunc +wrap_EntryCompletionMatchFunc funptrptr _cb completion key iter userData = do + completion' <- (newObject Gtk.EntryCompletion.EntryCompletion) completion + key' <- cstringToText key + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + result <- _cb completion' key' iter' userData + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback ColorSelectionChangePaletteWithScreenFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "screen", argType = TInterface (Name {namespace = "Gdk", name = "Screen"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gdk", name = "Color"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Array of colors", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of colors in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.4", deprecationMessage = Nothing}), callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Just "2.2"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ColorSelectionChangePaletteWithScreenFunc = + Ptr Gdk.Screen.Screen -> + Ptr Gdk.Color.Color -> + Int32 -> + IO () + +-- Args : [Arg {argCName = "screen", argType = TInterface (Name {namespace = "Gdk", name = "Screen"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gdk", name = "Color"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Array of colors", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of colors in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of colors in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ColorSelectionChangePaletteWithScreenFunc :: FunPtr C_ColorSelectionChangePaletteWithScreenFunc -> C_ColorSelectionChangePaletteWithScreenFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ColorSelectionChangePaletteWithScreenFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a) => + FunPtr C_ColorSelectionChangePaletteWithScreenFunc + -> a + -> [Gdk.Color.Color] + {- ^ /@colors@/: Array of colors -} + -> m () +dynamic_ColorSelectionChangePaletteWithScreenFunc __funPtr screen colors = liftIO $ do + let nColors = fromIntegral $ length colors + screen' <- unsafeManagedPtrCastPtr screen + colors' <- mapM unsafeManagedPtrGetPtr colors + colors'' <- packBlockArray 12 colors' + (__dynamic_C_ColorSelectionChangePaletteWithScreenFunc __funPtr) screen' colors'' nColors + touchManagedPtr screen + mapM_ touchManagedPtr colors + freeMem colors'' + return () + +-- | Generate a function pointer callable from C code, from a `C_ColorSelectionChangePaletteWithScreenFunc`. +foreign import ccall "wrapper" + mk_ColorSelectionChangePaletteWithScreenFunc :: C_ColorSelectionChangePaletteWithScreenFunc -> IO (FunPtr C_ColorSelectionChangePaletteWithScreenFunc) + +{-# DEPRECATED ColorSelectionChangePaletteWithScreenFunc ["(Since version 3.4)"] #-} +{- | +/No description available in the introspection data./ + +/Since: 2.2/ +-} +type ColorSelectionChangePaletteWithScreenFunc = + Gdk.Screen.Screen + -> [Gdk.Color.Color] + {- ^ /@colors@/: Array of colors -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ColorSelectionChangePaletteWithScreenFunc`@. +noColorSelectionChangePaletteWithScreenFunc :: Maybe ColorSelectionChangePaletteWithScreenFunc +noColorSelectionChangePaletteWithScreenFunc = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_ColorSelectionChangePaletteWithScreenFunc :: MonadIO m => ColorSelectionChangePaletteWithScreenFunc -> m (GClosure C_ColorSelectionChangePaletteWithScreenFunc) +genClosure_ColorSelectionChangePaletteWithScreenFunc cb = liftIO $ do + let cb' = wrap_ColorSelectionChangePaletteWithScreenFunc Nothing cb + mk_ColorSelectionChangePaletteWithScreenFunc cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ColorSelectionChangePaletteWithScreenFunc` into a `C_ColorSelectionChangePaletteWithScreenFunc`. +wrap_ColorSelectionChangePaletteWithScreenFunc :: + Maybe (Ptr (FunPtr C_ColorSelectionChangePaletteWithScreenFunc)) -> + ColorSelectionChangePaletteWithScreenFunc -> + C_ColorSelectionChangePaletteWithScreenFunc +wrap_ColorSelectionChangePaletteWithScreenFunc funptrptr _cb screen colors nColors = do + screen' <- (newObject Gdk.Screen.Screen) screen + colors' <- (unpackBoxedArrayWithLength 12 nColors) colors + colors'' <- mapM (newBoxed Gdk.Color.Color) colors' + _cb screen' colors'' + maybeReleaseFunPtr funptrptr + + +-- callback ColorSelectionChangePaletteFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Color"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Array of colors", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of colors in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.4", deprecationMessage = Nothing}), callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_ColorSelectionChangePaletteFunc = + Ptr Gdk.Color.Color -> + Int32 -> + IO () + +-- Args : [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Color"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Array of colors", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of colors in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of colors in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ColorSelectionChangePaletteFunc :: FunPtr C_ColorSelectionChangePaletteFunc -> C_ColorSelectionChangePaletteFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ColorSelectionChangePaletteFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_ColorSelectionChangePaletteFunc + -> [Gdk.Color.Color] + {- ^ /@colors@/: Array of colors -} + -> m () +dynamic_ColorSelectionChangePaletteFunc __funPtr colors = liftIO $ do + let nColors = fromIntegral $ length colors + colors' <- mapM unsafeManagedPtrGetPtr colors + colors'' <- packBlockArray 12 colors' + (__dynamic_C_ColorSelectionChangePaletteFunc __funPtr) colors'' nColors + mapM_ touchManagedPtr colors + freeMem colors'' + return () + +-- | Generate a function pointer callable from C code, from a `C_ColorSelectionChangePaletteFunc`. +foreign import ccall "wrapper" + mk_ColorSelectionChangePaletteFunc :: C_ColorSelectionChangePaletteFunc -> IO (FunPtr C_ColorSelectionChangePaletteFunc) + +{-# DEPRECATED ColorSelectionChangePaletteFunc ["(Since version 3.4)"] #-} +{- | +/No description available in the introspection data./ +-} +type ColorSelectionChangePaletteFunc = + [Gdk.Color.Color] + {- ^ /@colors@/: Array of colors -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ColorSelectionChangePaletteFunc`@. +noColorSelectionChangePaletteFunc :: Maybe ColorSelectionChangePaletteFunc +noColorSelectionChangePaletteFunc = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_ColorSelectionChangePaletteFunc :: MonadIO m => ColorSelectionChangePaletteFunc -> m (GClosure C_ColorSelectionChangePaletteFunc) +genClosure_ColorSelectionChangePaletteFunc cb = liftIO $ do + let cb' = wrap_ColorSelectionChangePaletteFunc Nothing cb + mk_ColorSelectionChangePaletteFunc cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ColorSelectionChangePaletteFunc` into a `C_ColorSelectionChangePaletteFunc`. +wrap_ColorSelectionChangePaletteFunc :: + Maybe (Ptr (FunPtr C_ColorSelectionChangePaletteFunc)) -> + ColorSelectionChangePaletteFunc -> + C_ColorSelectionChangePaletteFunc +wrap_ColorSelectionChangePaletteFunc funptrptr _cb colors nColors = do + colors' <- (unpackBoxedArrayWithLength 12 nColors) colors + colors'' <- mapM (newBoxed Gdk.Color.Color) colors' + _cb colors'' + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardURIReceivedFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the received URIs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_uris().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to be called when the results of\ngtk_clipboard_request_uris() are received, or when the request\nfails.", sinceVersion = Just "2.14"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardURIReceivedFunc = + Ptr Gtk.Clipboard.Clipboard -> + Ptr CString -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the received URIs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_uris().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardURIReceivedFunc :: FunPtr C_ClipboardURIReceivedFunc -> C_ClipboardURIReceivedFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardURIReceivedFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a) => + FunPtr C_ClipboardURIReceivedFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> [T.Text] + {- ^ /@uris@/: the received URIs -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestUris'. -} + -> m () +dynamic_ClipboardURIReceivedFunc __funPtr clipboard uris data_ = liftIO $ do + clipboard' <- unsafeManagedPtrCastPtr clipboard + uris' <- packZeroTerminatedUTF8CArray uris + (__dynamic_C_ClipboardURIReceivedFunc __funPtr) clipboard' uris' data_ + touchManagedPtr clipboard + mapZeroTerminatedCArray freeMem uris' + freeMem uris' + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardURIReceivedFunc`. +foreign import ccall "wrapper" + mk_ClipboardURIReceivedFunc :: C_ClipboardURIReceivedFunc -> IO (FunPtr C_ClipboardURIReceivedFunc) + +{- | +A function to be called when the results of +'GI.Gtk.Objects.Clipboard.clipboardRequestUris' are received, or when the request +fails. + +/Since: 2.14/ +-} +type ClipboardURIReceivedFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> [T.Text] + {- ^ /@uris@/: the received URIs -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardURIReceivedFunc`@. +noClipboardURIReceivedFunc :: Maybe ClipboardURIReceivedFunc +noClipboardURIReceivedFunc = Nothing + +{- | +A function to be called when the results of +'GI.Gtk.Objects.Clipboard.clipboardRequestUris' are received, or when the request +fails. + +/Since: 2.14/ +-} +type ClipboardURIReceivedFunc_WithClosures = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> [T.Text] + {- ^ /@uris@/: the received URIs -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestUris'. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardURIReceivedFunc_WithClosures`@. +noClipboardURIReceivedFunc_WithClosures :: Maybe ClipboardURIReceivedFunc_WithClosures +noClipboardURIReceivedFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ClipboardURIReceivedFunc :: ClipboardURIReceivedFunc -> ClipboardURIReceivedFunc_WithClosures +drop_closures_ClipboardURIReceivedFunc _f clipboard uris _ = _f clipboard uris + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardURIReceivedFunc :: MonadIO m => ClipboardURIReceivedFunc -> m (GClosure C_ClipboardURIReceivedFunc) +genClosure_ClipboardURIReceivedFunc cb = liftIO $ do + let cb' = drop_closures_ClipboardURIReceivedFunc cb + let cb'' = wrap_ClipboardURIReceivedFunc Nothing cb' + mk_ClipboardURIReceivedFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardURIReceivedFunc` into a `C_ClipboardURIReceivedFunc`. +wrap_ClipboardURIReceivedFunc :: + Maybe (Ptr (FunPtr C_ClipboardURIReceivedFunc)) -> + ClipboardURIReceivedFunc_WithClosures -> + C_ClipboardURIReceivedFunc +wrap_ClipboardURIReceivedFunc funptrptr _cb clipboard uris data_ = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + uris' <- unpackZeroTerminatedUTF8CArray uris + _cb clipboard' uris' data_ + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardTextReceivedFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the text received, as a UTF-8 encoded string, or\n %NULL if retrieving the data failed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_text().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to be called when the results of gtk_clipboard_request_text()\nare received, or when the request fails.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardTextReceivedFunc = + Ptr Gtk.Clipboard.Clipboard -> + CString -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the text received, as a UTF-8 encoded string, or\n %NULL if retrieving the data failed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_text().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardTextReceivedFunc :: FunPtr C_ClipboardTextReceivedFunc -> C_ClipboardTextReceivedFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardTextReceivedFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a) => + FunPtr C_ClipboardTextReceivedFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Maybe (T.Text) + {- ^ /@text@/: the text received, as a UTF-8 encoded string, or + 'Nothing' if retrieving the data failed. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestText'. -} + -> m () +dynamic_ClipboardTextReceivedFunc __funPtr clipboard text data_ = liftIO $ do + clipboard' <- unsafeManagedPtrCastPtr clipboard + maybeText <- case text of + Nothing -> return nullPtr + Just jText -> do + jText' <- textToCString jText + return jText' + (__dynamic_C_ClipboardTextReceivedFunc __funPtr) clipboard' maybeText data_ + touchManagedPtr clipboard + freeMem maybeText + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardTextReceivedFunc`. +foreign import ccall "wrapper" + mk_ClipboardTextReceivedFunc :: C_ClipboardTextReceivedFunc -> IO (FunPtr C_ClipboardTextReceivedFunc) + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestText' +are received, or when the request fails. +-} +type ClipboardTextReceivedFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Maybe T.Text + {- ^ /@text@/: the text received, as a UTF-8 encoded string, or + 'Nothing' if retrieving the data failed. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardTextReceivedFunc`@. +noClipboardTextReceivedFunc :: Maybe ClipboardTextReceivedFunc +noClipboardTextReceivedFunc = Nothing + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestText' +are received, or when the request fails. +-} +type ClipboardTextReceivedFunc_WithClosures = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Maybe T.Text + {- ^ /@text@/: the text received, as a UTF-8 encoded string, or + 'Nothing' if retrieving the data failed. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestText'. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardTextReceivedFunc_WithClosures`@. +noClipboardTextReceivedFunc_WithClosures :: Maybe ClipboardTextReceivedFunc_WithClosures +noClipboardTextReceivedFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ClipboardTextReceivedFunc :: ClipboardTextReceivedFunc -> ClipboardTextReceivedFunc_WithClosures +drop_closures_ClipboardTextReceivedFunc _f clipboard text _ = _f clipboard text + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardTextReceivedFunc :: MonadIO m => ClipboardTextReceivedFunc -> m (GClosure C_ClipboardTextReceivedFunc) +genClosure_ClipboardTextReceivedFunc cb = liftIO $ do + let cb' = drop_closures_ClipboardTextReceivedFunc cb + let cb'' = wrap_ClipboardTextReceivedFunc Nothing cb' + mk_ClipboardTextReceivedFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardTextReceivedFunc` into a `C_ClipboardTextReceivedFunc`. +wrap_ClipboardTextReceivedFunc :: + Maybe (Ptr (FunPtr C_ClipboardTextReceivedFunc)) -> + ClipboardTextReceivedFunc_WithClosures -> + C_ClipboardTextReceivedFunc +wrap_ClipboardTextReceivedFunc funptrptr _cb clipboard text data_ = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + maybeText <- + if text == nullPtr + then return Nothing + else do + text' <- cstringToText text + return $ Just text' + _cb clipboard' maybeText data_ + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardTargetsReceivedFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "atoms", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gdk", name = "Atom"})), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the supported targets,\n as array of #GdkAtom, or %NULL if retrieving the data failed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_atoms", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the @atoms array.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_targets().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to be called when the results of gtk_clipboard_request_targets()\nare received, or when the request fails.", sinceVersion = Just "2.4"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardTargetsReceivedFunc = + Ptr Gtk.Clipboard.Clipboard -> + Ptr (Ptr Gdk.Atom.Atom) -> + Int32 -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "atoms", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gdk", name = "Atom"})), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the supported targets,\n as array of #GdkAtom, or %NULL if retrieving the data failed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_atoms", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the @atoms array.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_targets().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_atoms", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the @atoms array.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardTargetsReceivedFunc :: FunPtr C_ClipboardTargetsReceivedFunc -> C_ClipboardTargetsReceivedFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardTargetsReceivedFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a) => + FunPtr C_ClipboardTargetsReceivedFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Maybe ([Gdk.Atom.Atom]) + {- ^ /@atoms@/: the supported targets, + as array of 'GI.Gdk.Structs.Atom.Atom', or 'Nothing' if retrieving the data failed. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestTargets'. -} + -> m () +dynamic_ClipboardTargetsReceivedFunc __funPtr clipboard atoms data_ = liftIO $ do + let nAtoms = case atoms of + Nothing -> 0 + Just jAtoms -> fromIntegral $ length jAtoms + clipboard' <- unsafeManagedPtrCastPtr clipboard + maybeAtoms <- case atoms of + Nothing -> return nullPtr + Just jAtoms -> do + jAtoms' <- mapM unsafeManagedPtrGetPtr jAtoms + jAtoms'' <- packPtrArray jAtoms' + return jAtoms'' + (__dynamic_C_ClipboardTargetsReceivedFunc __funPtr) clipboard' maybeAtoms nAtoms data_ + touchManagedPtr clipboard + whenJust atoms (mapM_ touchManagedPtr) + freeMem maybeAtoms + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardTargetsReceivedFunc`. +foreign import ccall "wrapper" + mk_ClipboardTargetsReceivedFunc :: C_ClipboardTargetsReceivedFunc -> IO (FunPtr C_ClipboardTargetsReceivedFunc) + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestTargets' +are received, or when the request fails. + +/Since: 2.4/ +-} +type ClipboardTargetsReceivedFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Maybe [Gdk.Atom.Atom] + {- ^ /@atoms@/: the supported targets, + as array of 'GI.Gdk.Structs.Atom.Atom', or 'Nothing' if retrieving the data failed. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardTargetsReceivedFunc`@. +noClipboardTargetsReceivedFunc :: Maybe ClipboardTargetsReceivedFunc +noClipboardTargetsReceivedFunc = Nothing + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestTargets' +are received, or when the request fails. + +/Since: 2.4/ +-} +type ClipboardTargetsReceivedFunc_WithClosures = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Maybe [Gdk.Atom.Atom] + {- ^ /@atoms@/: the supported targets, + as array of 'GI.Gdk.Structs.Atom.Atom', or 'Nothing' if retrieving the data failed. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestTargets'. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardTargetsReceivedFunc_WithClosures`@. +noClipboardTargetsReceivedFunc_WithClosures :: Maybe ClipboardTargetsReceivedFunc_WithClosures +noClipboardTargetsReceivedFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ClipboardTargetsReceivedFunc :: ClipboardTargetsReceivedFunc -> ClipboardTargetsReceivedFunc_WithClosures +drop_closures_ClipboardTargetsReceivedFunc _f clipboard atoms _ = _f clipboard atoms + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardTargetsReceivedFunc :: MonadIO m => ClipboardTargetsReceivedFunc -> m (GClosure C_ClipboardTargetsReceivedFunc) +genClosure_ClipboardTargetsReceivedFunc cb = liftIO $ do + let cb' = drop_closures_ClipboardTargetsReceivedFunc cb + let cb'' = wrap_ClipboardTargetsReceivedFunc Nothing cb' + mk_ClipboardTargetsReceivedFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardTargetsReceivedFunc` into a `C_ClipboardTargetsReceivedFunc`. +wrap_ClipboardTargetsReceivedFunc :: + Maybe (Ptr (FunPtr C_ClipboardTargetsReceivedFunc)) -> + ClipboardTargetsReceivedFunc_WithClosures -> + C_ClipboardTargetsReceivedFunc +wrap_ClipboardTargetsReceivedFunc funptrptr _cb clipboard atoms nAtoms data_ = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + maybeAtoms <- + if atoms == nullPtr + then return Nothing + else do + atoms' <- (unpackPtrArrayWithLength nAtoms) atoms + atoms'' <- mapM (newPtr Gdk.Atom.Atom) atoms' + return $ Just atoms'' + _cb clipboard' maybeAtoms data_ + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardRichTextReceivedFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The format of the rich text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the rich text received, as\n a UTF-8 encoded string, or %NULL if retrieving the data failed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the text.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_rich_text().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to be called when the results of\ngtk_clipboard_request_rich_text() are received, or when the request\nfails.", sinceVersion = Just "2.10"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardRichTextReceivedFunc = + Ptr Gtk.Clipboard.Clipboard -> + Ptr Gdk.Atom.Atom -> + CString -> + Word64 -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The format of the rich text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the rich text received, as\n a UTF-8 encoded string, or %NULL if retrieving the data failed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the text.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_rich_text().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardRichTextReceivedFunc :: FunPtr C_ClipboardRichTextReceivedFunc -> C_ClipboardRichTextReceivedFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardRichTextReceivedFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a) => + FunPtr C_ClipboardRichTextReceivedFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gdk.Atom.Atom + {- ^ /@format@/: The format of the rich text -} + -> Maybe (T.Text) + {- ^ /@text@/: the rich text received, as + a UTF-8 encoded string, or 'Nothing' if retrieving the data failed. -} + -> Word64 + {- ^ /@length@/: Length of the text. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestRichText'. -} + -> m () +dynamic_ClipboardRichTextReceivedFunc __funPtr clipboard format text length_ data_ = liftIO $ do + clipboard' <- unsafeManagedPtrCastPtr clipboard + format' <- unsafeManagedPtrGetPtr format + maybeText <- case text of + Nothing -> return nullPtr + Just jText -> do + jText' <- textToCString jText + return jText' + (__dynamic_C_ClipboardRichTextReceivedFunc __funPtr) clipboard' format' maybeText length_ data_ + touchManagedPtr clipboard + touchManagedPtr format + freeMem maybeText + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardRichTextReceivedFunc`. +foreign import ccall "wrapper" + mk_ClipboardRichTextReceivedFunc :: C_ClipboardRichTextReceivedFunc -> IO (FunPtr C_ClipboardRichTextReceivedFunc) + +{- | +A function to be called when the results of +'GI.Gtk.Objects.Clipboard.clipboardRequestRichText' are received, or when the request +fails. + +/Since: 2.10/ +-} +type ClipboardRichTextReceivedFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gdk.Atom.Atom + {- ^ /@format@/: The format of the rich text -} + -> Maybe T.Text + {- ^ /@text@/: the rich text received, as + a UTF-8 encoded string, or 'Nothing' if retrieving the data failed. -} + -> Word64 + {- ^ /@length@/: Length of the text. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardRichTextReceivedFunc`@. +noClipboardRichTextReceivedFunc :: Maybe ClipboardRichTextReceivedFunc +noClipboardRichTextReceivedFunc = Nothing + +{- | +A function to be called when the results of +'GI.Gtk.Objects.Clipboard.clipboardRequestRichText' are received, or when the request +fails. + +/Since: 2.10/ +-} +type ClipboardRichTextReceivedFunc_WithClosures = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gdk.Atom.Atom + {- ^ /@format@/: The format of the rich text -} + -> Maybe T.Text + {- ^ /@text@/: the rich text received, as + a UTF-8 encoded string, or 'Nothing' if retrieving the data failed. -} + -> Word64 + {- ^ /@length@/: Length of the text. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestRichText'. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardRichTextReceivedFunc_WithClosures`@. +noClipboardRichTextReceivedFunc_WithClosures :: Maybe ClipboardRichTextReceivedFunc_WithClosures +noClipboardRichTextReceivedFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ClipboardRichTextReceivedFunc :: ClipboardRichTextReceivedFunc -> ClipboardRichTextReceivedFunc_WithClosures +drop_closures_ClipboardRichTextReceivedFunc _f clipboard format text length_ _ = _f clipboard format text length_ + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardRichTextReceivedFunc :: MonadIO m => ClipboardRichTextReceivedFunc -> m (GClosure C_ClipboardRichTextReceivedFunc) +genClosure_ClipboardRichTextReceivedFunc cb = liftIO $ do + let cb' = drop_closures_ClipboardRichTextReceivedFunc cb + let cb'' = wrap_ClipboardRichTextReceivedFunc Nothing cb' + mk_ClipboardRichTextReceivedFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardRichTextReceivedFunc` into a `C_ClipboardRichTextReceivedFunc`. +wrap_ClipboardRichTextReceivedFunc :: + Maybe (Ptr (FunPtr C_ClipboardRichTextReceivedFunc)) -> + ClipboardRichTextReceivedFunc_WithClosures -> + C_ClipboardRichTextReceivedFunc +wrap_ClipboardRichTextReceivedFunc funptrptr _cb clipboard format text length_ data_ = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + format' <- (newPtr Gdk.Atom.Atom) format + maybeText <- + if text == nullPtr + then return Nothing + else do + text' <- cstringToText text + return $ Just text' + _cb clipboard' format' maybeText length_ data_ + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardReceivedFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSelectionData containing the data was received.\n If retrieving the data failed, then then length field\n of @selection_data will be negative.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_contents().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to be called when the results of gtk_clipboard_request_contents()\nare received, or when the request fails.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardReceivedFunc = + Ptr Gtk.Clipboard.Clipboard -> + Ptr Gtk.SelectionData.SelectionData -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSelectionData containing the data was received.\n If retrieving the data failed, then then length field\n of @selection_data will be negative.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_contents().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardReceivedFunc :: FunPtr C_ClipboardReceivedFunc -> C_ClipboardReceivedFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardReceivedFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a) => + FunPtr C_ClipboardReceivedFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: a 'GI.Gtk.Structs.SelectionData.SelectionData' containing the data was received. + If retrieving the data failed, then then length field + of /@selectionData@/ will be negative. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestContents'. -} + -> m () +dynamic_ClipboardReceivedFunc __funPtr clipboard selectionData data_ = liftIO $ do + clipboard' <- unsafeManagedPtrCastPtr clipboard + selectionData' <- unsafeManagedPtrGetPtr selectionData + (__dynamic_C_ClipboardReceivedFunc __funPtr) clipboard' selectionData' data_ + touchManagedPtr clipboard + touchManagedPtr selectionData + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardReceivedFunc`. +foreign import ccall "wrapper" + mk_ClipboardReceivedFunc :: C_ClipboardReceivedFunc -> IO (FunPtr C_ClipboardReceivedFunc) + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestContents' +are received, or when the request fails. +-} +type ClipboardReceivedFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: a 'GI.Gtk.Structs.SelectionData.SelectionData' containing the data was received. + If retrieving the data failed, then then length field + of /@selectionData@/ will be negative. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardReceivedFunc`@. +noClipboardReceivedFunc :: Maybe ClipboardReceivedFunc +noClipboardReceivedFunc = Nothing + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestContents' +are received, or when the request fails. +-} +type ClipboardReceivedFunc_WithClosures = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: a 'GI.Gtk.Structs.SelectionData.SelectionData' containing the data was received. + If retrieving the data failed, then then length field + of /@selectionData@/ will be negative. -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestContents'. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardReceivedFunc_WithClosures`@. +noClipboardReceivedFunc_WithClosures :: Maybe ClipboardReceivedFunc_WithClosures +noClipboardReceivedFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ClipboardReceivedFunc :: ClipboardReceivedFunc -> ClipboardReceivedFunc_WithClosures +drop_closures_ClipboardReceivedFunc _f clipboard selectionData _ = _f clipboard selectionData + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardReceivedFunc :: MonadIO m => ClipboardReceivedFunc -> m (GClosure C_ClipboardReceivedFunc) +genClosure_ClipboardReceivedFunc cb = liftIO $ do + let cb' = drop_closures_ClipboardReceivedFunc cb + let cb'' = wrap_ClipboardReceivedFunc Nothing cb' + mk_ClipboardReceivedFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardReceivedFunc` into a `C_ClipboardReceivedFunc`. +wrap_ClipboardReceivedFunc :: + Maybe (Ptr (FunPtr C_ClipboardReceivedFunc)) -> + ClipboardReceivedFunc_WithClosures -> + C_ClipboardReceivedFunc +wrap_ClipboardReceivedFunc funptrptr _cb clipboard selectionData data_ = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + B.ManagedPtr.withTransient Gtk.SelectionData.SelectionData selectionData $ \selectionData' -> do + _cb clipboard' selectionData' data_ + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardImageReceivedFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the received image", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_image().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function to be called when the results of gtk_clipboard_request_image()\nare received, or when the request fails.", sinceVersion = Just "2.6"}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardImageReceivedFunc = + Ptr Gtk.Clipboard.Clipboard -> + Ptr GdkPixbuf.Pixbuf.Pixbuf -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the received image", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data supplied to\n gtk_clipboard_request_image().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardImageReceivedFunc :: FunPtr C_ClipboardImageReceivedFunc -> C_ClipboardImageReceivedFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardImageReceivedFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a, GdkPixbuf.Pixbuf.IsPixbuf b) => + FunPtr C_ClipboardImageReceivedFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> b + {- ^ /@pixbuf@/: the received image -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestImage'. -} + -> m () +dynamic_ClipboardImageReceivedFunc __funPtr clipboard pixbuf data_ = liftIO $ do + clipboard' <- unsafeManagedPtrCastPtr clipboard + pixbuf' <- unsafeManagedPtrCastPtr pixbuf + (__dynamic_C_ClipboardImageReceivedFunc __funPtr) clipboard' pixbuf' data_ + touchManagedPtr clipboard + touchManagedPtr pixbuf + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardImageReceivedFunc`. +foreign import ccall "wrapper" + mk_ClipboardImageReceivedFunc :: C_ClipboardImageReceivedFunc -> IO (FunPtr C_ClipboardImageReceivedFunc) + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestImage' +are received, or when the request fails. + +/Since: 2.6/ +-} +type ClipboardImageReceivedFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> GdkPixbuf.Pixbuf.Pixbuf + {- ^ /@pixbuf@/: the received image -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardImageReceivedFunc`@. +noClipboardImageReceivedFunc :: Maybe ClipboardImageReceivedFunc +noClipboardImageReceivedFunc = Nothing + +{- | +A function to be called when the results of 'GI.Gtk.Objects.Clipboard.clipboardRequestImage' +are received, or when the request fails. + +/Since: 2.6/ +-} +type ClipboardImageReceivedFunc_WithClosures = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> GdkPixbuf.Pixbuf.Pixbuf + {- ^ /@pixbuf@/: the received image -} + -> Ptr () + {- ^ /@data@/: the /@userData@/ supplied to + 'GI.Gtk.Objects.Clipboard.clipboardRequestImage'. -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardImageReceivedFunc_WithClosures`@. +noClipboardImageReceivedFunc_WithClosures :: Maybe ClipboardImageReceivedFunc_WithClosures +noClipboardImageReceivedFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_ClipboardImageReceivedFunc :: ClipboardImageReceivedFunc -> ClipboardImageReceivedFunc_WithClosures +drop_closures_ClipboardImageReceivedFunc _f clipboard pixbuf _ = _f clipboard pixbuf + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardImageReceivedFunc :: MonadIO m => ClipboardImageReceivedFunc -> m (GClosure C_ClipboardImageReceivedFunc) +genClosure_ClipboardImageReceivedFunc cb = liftIO $ do + let cb' = drop_closures_ClipboardImageReceivedFunc cb + let cb'' = wrap_ClipboardImageReceivedFunc Nothing cb' + mk_ClipboardImageReceivedFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardImageReceivedFunc` into a `C_ClipboardImageReceivedFunc`. +wrap_ClipboardImageReceivedFunc :: + Maybe (Ptr (FunPtr C_ClipboardImageReceivedFunc)) -> + ClipboardImageReceivedFunc_WithClosures -> + C_ClipboardImageReceivedFunc +wrap_ClipboardImageReceivedFunc funptrptr _cb clipboard pixbuf data_ = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + pixbuf' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) pixbuf + _cb clipboard' pixbuf' data_ + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardGetFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSelectionData argument in which the requested\n data should be stored.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the info field corresponding to the requested target from the\n #GtkTargetEntry array passed to gtk_clipboard_set_with_data() or\n gtk_clipboard_set_with_owner().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_or_owner", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data argument passed to\n gtk_clipboard_set_with_data(), or the @owner argument passed to\n gtk_clipboard_set_with_owner()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function that will be called to provide the contents of the selection.\nIf multiple types of data were advertised, the requested type can\nbe determined from the @info parameter or by checking the target field\nof @selection_data. If the data could successfully be converted into\nthen it should be stored into the @selection_data object by\ncalling gtk_selection_data_set() (or related functions such\nas gtk_selection_data_set_text()). If no data is set, the requestor\nwill be informed that the attempt to get the data failed.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardGetFunc = + Ptr Gtk.Clipboard.Clipboard -> + Ptr Gtk.SelectionData.SelectionData -> + Word32 -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSelectionData argument in which the requested\n data should be stored.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the info field corresponding to the requested target from the\n #GtkTargetEntry array passed to gtk_clipboard_set_with_data() or\n gtk_clipboard_set_with_owner().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_or_owner", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data argument passed to\n gtk_clipboard_set_with_data(), or the @owner argument passed to\n gtk_clipboard_set_with_owner()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardGetFunc :: FunPtr C_ClipboardGetFunc -> C_ClipboardGetFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardGetFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a) => + FunPtr C_ClipboardGetFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: a 'GI.Gtk.Structs.SelectionData.SelectionData' argument in which the requested + data should be stored. -} + -> Word32 + {- ^ /@info@/: the info field corresponding to the requested target from the + 'GI.Gtk.Structs.TargetEntry.TargetEntry' array passed to @/gtk_clipboard_set_with_data()/@ or + @/gtk_clipboard_set_with_owner()/@. -} + -> Ptr () + {- ^ /@userDataOrOwner@/: the /@userData@/ argument passed to + @/gtk_clipboard_set_with_data()/@, or the /@owner@/ argument passed to + @/gtk_clipboard_set_with_owner()/@ -} + -> m () +dynamic_ClipboardGetFunc __funPtr clipboard selectionData info userDataOrOwner = liftIO $ do + clipboard' <- unsafeManagedPtrCastPtr clipboard + selectionData' <- unsafeManagedPtrGetPtr selectionData + (__dynamic_C_ClipboardGetFunc __funPtr) clipboard' selectionData' info userDataOrOwner + touchManagedPtr clipboard + touchManagedPtr selectionData + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardGetFunc`. +foreign import ccall "wrapper" + mk_ClipboardGetFunc :: C_ClipboardGetFunc -> IO (FunPtr C_ClipboardGetFunc) + +{- | +A function that will be called to provide the contents of the selection. +If multiple types of data were advertised, the requested type can +be determined from the /@info@/ parameter or by checking the target field +of /@selectionData@/. If the data could successfully be converted into +then it should be stored into the /@selectionData@/ object by +calling 'GI.Gtk.Structs.SelectionData.selectionDataSet' (or related functions such +as 'GI.Gtk.Structs.SelectionData.selectionDataSetText'). If no data is set, the requestor +will be informed that the attempt to get the data failed. +-} +type ClipboardGetFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: a 'GI.Gtk.Structs.SelectionData.SelectionData' argument in which the requested + data should be stored. -} + -> Word32 + {- ^ /@info@/: the info field corresponding to the requested target from the + 'GI.Gtk.Structs.TargetEntry.TargetEntry' array passed to @/gtk_clipboard_set_with_data()/@ or + @/gtk_clipboard_set_with_owner()/@. -} + -> Ptr () + {- ^ /@userDataOrOwner@/: the /@userData@/ argument passed to + @/gtk_clipboard_set_with_data()/@, or the /@owner@/ argument passed to + @/gtk_clipboard_set_with_owner()/@ -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardGetFunc`@. +noClipboardGetFunc :: Maybe ClipboardGetFunc +noClipboardGetFunc = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardGetFunc :: MonadIO m => ClipboardGetFunc -> m (GClosure C_ClipboardGetFunc) +genClosure_ClipboardGetFunc cb = liftIO $ do + let cb' = wrap_ClipboardGetFunc Nothing cb + mk_ClipboardGetFunc cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardGetFunc` into a `C_ClipboardGetFunc`. +wrap_ClipboardGetFunc :: + Maybe (Ptr (FunPtr C_ClipboardGetFunc)) -> + ClipboardGetFunc -> + C_ClipboardGetFunc +wrap_ClipboardGetFunc funptrptr _cb clipboard selectionData info userDataOrOwner = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + B.ManagedPtr.withTransient Gtk.SelectionData.SelectionData selectionData $ \selectionData' -> do + _cb clipboard' selectionData' info userDataOrOwner + maybeReleaseFunPtr funptrptr + + +-- callback ClipboardClearFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_or_owner", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data argument passed to gtk_clipboard_set_with_data(),\n or the @owner argument passed to gtk_clipboard_set_with_owner()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function that will be called when the contents of the clipboard are changed\nor cleared. Once this has called, the @user_data_or_owner argument\nwill not be used again.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_ClipboardClearFunc = + Ptr Gtk.Clipboard.Clipboard -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "clipboard", argType = TInterface (Name {namespace = "Gtk", name = "Clipboard"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkClipboard", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_or_owner", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the @user_data argument passed to gtk_clipboard_set_with_data(),\n or the @owner argument passed to gtk_clipboard_set_with_owner()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_ClipboardClearFunc :: FunPtr C_ClipboardClearFunc -> C_ClipboardClearFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_ClipboardClearFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Clipboard.IsClipboard a) => + FunPtr C_ClipboardClearFunc + -> a + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Ptr () + {- ^ /@userDataOrOwner@/: the /@userData@/ argument passed to @/gtk_clipboard_set_with_data()/@, + or the /@owner@/ argument passed to @/gtk_clipboard_set_with_owner()/@ -} + -> m () +dynamic_ClipboardClearFunc __funPtr clipboard userDataOrOwner = liftIO $ do + clipboard' <- unsafeManagedPtrCastPtr clipboard + (__dynamic_C_ClipboardClearFunc __funPtr) clipboard' userDataOrOwner + touchManagedPtr clipboard + return () + +-- | Generate a function pointer callable from C code, from a `C_ClipboardClearFunc`. +foreign import ccall "wrapper" + mk_ClipboardClearFunc :: C_ClipboardClearFunc -> IO (FunPtr C_ClipboardClearFunc) + +{- | +A function that will be called when the contents of the clipboard are changed +or cleared. Once this has called, the /@userDataOrOwner@/ argument +will not be used again. +-} +type ClipboardClearFunc = + Gtk.Clipboard.Clipboard + {- ^ /@clipboard@/: the 'GI.Gtk.Objects.Clipboard.Clipboard' -} + -> Ptr () + {- ^ /@userDataOrOwner@/: the /@userData@/ argument passed to @/gtk_clipboard_set_with_data()/@, + or the /@owner@/ argument passed to @/gtk_clipboard_set_with_owner()/@ -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ClipboardClearFunc`@. +noClipboardClearFunc :: Maybe ClipboardClearFunc +noClipboardClearFunc = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_ClipboardClearFunc :: MonadIO m => ClipboardClearFunc -> m (GClosure C_ClipboardClearFunc) +genClosure_ClipboardClearFunc cb = liftIO $ do + let cb' = wrap_ClipboardClearFunc Nothing cb + mk_ClipboardClearFunc cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ClipboardClearFunc` into a `C_ClipboardClearFunc`. +wrap_ClipboardClearFunc :: + Maybe (Ptr (FunPtr C_ClipboardClearFunc)) -> + ClipboardClearFunc -> + C_ClipboardClearFunc +wrap_ClipboardClearFunc funptrptr _cb clipboard userDataOrOwner = do + clipboard' <- (newObject Gtk.Clipboard.Clipboard) clipboard + _cb clipboard' userDataOrOwner + maybeReleaseFunPtr funptrptr + + +-- callback CellLayoutDataFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cell renderer whose value is to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter indicating the row to set the value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_cell_layout_set_cell_data_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function which should set the value of @cell_layout\8217s cell renderer(s)\nas appropriate.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_CellLayoutDataFunc = + Ptr Gtk.CellLayout.CellLayout -> + Ptr Gtk.CellRenderer.CellRenderer -> + Ptr Gtk.TreeModel.TreeModel -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cell renderer whose value is to be set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter indicating the row to set the value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to gtk_cell_layout_set_cell_data_func()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_CellLayoutDataFunc :: FunPtr C_CellLayoutDataFunc -> C_CellLayoutDataFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_CellLayoutDataFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.CellLayout.IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b, Gtk.TreeModel.IsTreeModel c) => + FunPtr C_CellLayoutDataFunc + -> a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> b + {- ^ /@cell@/: the cell renderer whose value is to be set -} + -> c + {- ^ /@treeModel@/: the model -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' indicating the row to set the value for -} + -> Ptr () + {- ^ /@data@/: user data passed to 'GI.Gtk.Interfaces.CellLayout.cellLayoutSetCellDataFunc' -} + -> m () +dynamic_CellLayoutDataFunc __funPtr cellLayout cell treeModel iter data_ = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + cell' <- unsafeManagedPtrCastPtr cell + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + (__dynamic_C_CellLayoutDataFunc __funPtr) cellLayout' cell' treeModel' iter' data_ + touchManagedPtr cellLayout + touchManagedPtr cell + touchManagedPtr treeModel + touchManagedPtr iter + return () + +-- | Generate a function pointer callable from C code, from a `C_CellLayoutDataFunc`. +foreign import ccall "wrapper" + mk_CellLayoutDataFunc :: C_CellLayoutDataFunc -> IO (FunPtr C_CellLayoutDataFunc) + +{- | +A function which should set the value of /@cellLayout@/’s cell renderer(s) +as appropriate. +-} +type CellLayoutDataFunc = + Gtk.CellLayout.CellLayout + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> Gtk.CellRenderer.CellRenderer + {- ^ /@cell@/: the cell renderer whose value is to be set -} + -> Gtk.TreeModel.TreeModel + {- ^ /@treeModel@/: the model -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' indicating the row to set the value for -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellLayoutDataFunc`@. +noCellLayoutDataFunc :: Maybe CellLayoutDataFunc +noCellLayoutDataFunc = Nothing + +{- | +A function which should set the value of /@cellLayout@/’s cell renderer(s) +as appropriate. +-} +type CellLayoutDataFunc_WithClosures = + Gtk.CellLayout.CellLayout + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> Gtk.CellRenderer.CellRenderer + {- ^ /@cell@/: the cell renderer whose value is to be set -} + -> Gtk.TreeModel.TreeModel + {- ^ /@treeModel@/: the model -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter' indicating the row to set the value for -} + -> Ptr () + {- ^ /@data@/: user data passed to 'GI.Gtk.Interfaces.CellLayout.cellLayoutSetCellDataFunc' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellLayoutDataFunc_WithClosures`@. +noCellLayoutDataFunc_WithClosures :: Maybe CellLayoutDataFunc_WithClosures +noCellLayoutDataFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_CellLayoutDataFunc :: CellLayoutDataFunc -> CellLayoutDataFunc_WithClosures +drop_closures_CellLayoutDataFunc _f cellLayout cell treeModel iter _ = _f cellLayout cell treeModel iter + +-- | Wrap the callback into a `GClosure`. +genClosure_CellLayoutDataFunc :: MonadIO m => CellLayoutDataFunc -> m (GClosure C_CellLayoutDataFunc) +genClosure_CellLayoutDataFunc cb = liftIO $ do + let cb' = drop_closures_CellLayoutDataFunc cb + let cb'' = wrap_CellLayoutDataFunc Nothing cb' + mk_CellLayoutDataFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `CellLayoutDataFunc` into a `C_CellLayoutDataFunc`. +wrap_CellLayoutDataFunc :: + Maybe (Ptr (FunPtr C_CellLayoutDataFunc)) -> + CellLayoutDataFunc_WithClosures -> + C_CellLayoutDataFunc +wrap_CellLayoutDataFunc funptrptr _cb cellLayout cell treeModel iter data_ = do + cellLayout' <- (newObject Gtk.CellLayout.CellLayout) cellLayout + cell' <- (newObject Gtk.CellRenderer.CellRenderer) cell + treeModel' <- (newObject Gtk.TreeModel.TreeModel) treeModel + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + _cb cellLayout' cell' treeModel' iter' data_ + maybeReleaseFunPtr funptrptr + + +-- callback CellCallback +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE to stop iterating over cells.", sinceVersion = Nothing}, args = [Arg {argCName = "renderer", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cell renderer to operate on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user-supplied data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the callback functions used for iterating over\nthe cell renderers of a #GtkCellArea, see gtk_cell_area_foreach().", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_CellCallback = + Ptr Gtk.CellRenderer.CellRenderer -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "renderer", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cell renderer to operate on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user-supplied data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_CellCallback :: FunPtr C_CellCallback -> C_CellCallback + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_CellCallback :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.CellRenderer.IsCellRenderer a) => + FunPtr C_CellCallback + -> a + {- ^ /@renderer@/: the cell renderer to operate on -} + -> Ptr () + {- ^ /@data@/: user-supplied data -} + -> m Bool + {- ^ __Returns:__ 'True' to stop iterating over cells. -} +dynamic_CellCallback __funPtr renderer data_ = liftIO $ do + renderer' <- unsafeManagedPtrCastPtr renderer + result <- (__dynamic_C_CellCallback __funPtr) renderer' data_ + let result' = (/= 0) result + touchManagedPtr renderer + return result' + +-- | Generate a function pointer callable from C code, from a `C_CellCallback`. +foreign import ccall "wrapper" + mk_CellCallback :: C_CellCallback -> IO (FunPtr C_CellCallback) + +{- | +The type of the callback functions used for iterating over +the cell renderers of a 'GI.Gtk.Objects.CellArea.CellArea', see 'GI.Gtk.Objects.CellArea.cellAreaForeach'. +-} +type CellCallback = + Gtk.CellRenderer.CellRenderer + {- ^ /@renderer@/: the cell renderer to operate on -} + -> IO Bool + {- ^ __Returns:__ 'True' to stop iterating over cells. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellCallback`@. +noCellCallback :: Maybe CellCallback +noCellCallback = Nothing + +{- | +The type of the callback functions used for iterating over +the cell renderers of a 'GI.Gtk.Objects.CellArea.CellArea', see 'GI.Gtk.Objects.CellArea.cellAreaForeach'. +-} +type CellCallback_WithClosures = + Gtk.CellRenderer.CellRenderer + {- ^ /@renderer@/: the cell renderer to operate on -} + -> Ptr () + {- ^ /@data@/: user-supplied data -} + -> IO Bool + {- ^ __Returns:__ 'True' to stop iterating over cells. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellCallback_WithClosures`@. +noCellCallback_WithClosures :: Maybe CellCallback_WithClosures +noCellCallback_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_CellCallback :: CellCallback -> CellCallback_WithClosures +drop_closures_CellCallback _f renderer _ = _f renderer + +-- | Wrap the callback into a `GClosure`. +genClosure_CellCallback :: MonadIO m => CellCallback -> m (GClosure C_CellCallback) +genClosure_CellCallback cb = liftIO $ do + let cb' = drop_closures_CellCallback cb + let cb'' = wrap_CellCallback Nothing cb' + mk_CellCallback cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `CellCallback` into a `C_CellCallback`. +wrap_CellCallback :: + Maybe (Ptr (FunPtr C_CellCallback)) -> + CellCallback_WithClosures -> + C_CellCallback +wrap_CellCallback funptrptr _cb renderer data_ = do + renderer' <- (newObject Gtk.CellRenderer.CellRenderer) renderer + result <- _cb renderer' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback CellAllocCallback +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE to stop iterating over cells.", sinceVersion = Nothing}, args = [Arg {argCName = "renderer", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cell renderer to operate on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the area allocated to @renderer inside the rectangle\n provided to gtk_cell_area_foreach_alloc().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_background", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the background area for @renderer inside the\n background area provided to gtk_cell_area_foreach_alloc().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user-supplied data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the callback functions used for iterating over the\ncell renderers and their allocated areas inside a #GtkCellArea,\nsee gtk_cell_area_foreach_alloc().", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_CellAllocCallback = + Ptr Gtk.CellRenderer.CellRenderer -> + Ptr Gdk.Rectangle.Rectangle -> + Ptr Gdk.Rectangle.Rectangle -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "renderer", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cell renderer to operate on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the area allocated to @renderer inside the rectangle\n provided to gtk_cell_area_foreach_alloc().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_background", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the background area for @renderer inside the\n background area provided to gtk_cell_area_foreach_alloc().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user-supplied data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_CellAllocCallback :: FunPtr C_CellAllocCallback -> C_CellAllocCallback + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_CellAllocCallback :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.CellRenderer.IsCellRenderer a) => + FunPtr C_CellAllocCallback + -> a + {- ^ /@renderer@/: the cell renderer to operate on -} + -> Gdk.Rectangle.Rectangle + {- ^ /@cellArea@/: the area allocated to /@renderer@/ inside the rectangle + provided to 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. -} + -> Gdk.Rectangle.Rectangle + {- ^ /@cellBackground@/: the background area for /@renderer@/ inside the + background area provided to 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. -} + -> Ptr () + {- ^ /@data@/: user-supplied data -} + -> m Bool + {- ^ __Returns:__ 'True' to stop iterating over cells. -} +dynamic_CellAllocCallback __funPtr renderer cellArea cellBackground data_ = liftIO $ do + renderer' <- unsafeManagedPtrCastPtr renderer + cellArea' <- unsafeManagedPtrGetPtr cellArea + cellBackground' <- unsafeManagedPtrGetPtr cellBackground + result <- (__dynamic_C_CellAllocCallback __funPtr) renderer' cellArea' cellBackground' data_ + let result' = (/= 0) result + touchManagedPtr renderer + touchManagedPtr cellArea + touchManagedPtr cellBackground + return result' + +-- | Generate a function pointer callable from C code, from a `C_CellAllocCallback`. +foreign import ccall "wrapper" + mk_CellAllocCallback :: C_CellAllocCallback -> IO (FunPtr C_CellAllocCallback) + +{- | +The type of the callback functions used for iterating over the +cell renderers and their allocated areas inside a 'GI.Gtk.Objects.CellArea.CellArea', +see 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. +-} +type CellAllocCallback = + Gtk.CellRenderer.CellRenderer + {- ^ /@renderer@/: the cell renderer to operate on -} + -> Gdk.Rectangle.Rectangle + {- ^ /@cellArea@/: the area allocated to /@renderer@/ inside the rectangle + provided to 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. -} + -> Gdk.Rectangle.Rectangle + {- ^ /@cellBackground@/: the background area for /@renderer@/ inside the + background area provided to 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. -} + -> IO Bool + {- ^ __Returns:__ 'True' to stop iterating over cells. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellAllocCallback`@. +noCellAllocCallback :: Maybe CellAllocCallback +noCellAllocCallback = Nothing + +{- | +The type of the callback functions used for iterating over the +cell renderers and their allocated areas inside a 'GI.Gtk.Objects.CellArea.CellArea', +see 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. +-} +type CellAllocCallback_WithClosures = + Gtk.CellRenderer.CellRenderer + {- ^ /@renderer@/: the cell renderer to operate on -} + -> Gdk.Rectangle.Rectangle + {- ^ /@cellArea@/: the area allocated to /@renderer@/ inside the rectangle + provided to 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. -} + -> Gdk.Rectangle.Rectangle + {- ^ /@cellBackground@/: the background area for /@renderer@/ inside the + background area provided to 'GI.Gtk.Objects.CellArea.cellAreaForeachAlloc'. -} + -> Ptr () + {- ^ /@data@/: user-supplied data -} + -> IO Bool + {- ^ __Returns:__ 'True' to stop iterating over cells. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellAllocCallback_WithClosures`@. +noCellAllocCallback_WithClosures :: Maybe CellAllocCallback_WithClosures +noCellAllocCallback_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_CellAllocCallback :: CellAllocCallback -> CellAllocCallback_WithClosures +drop_closures_CellAllocCallback _f renderer cellArea cellBackground _ = _f renderer cellArea cellBackground + +-- | Wrap the callback into a `GClosure`. +genClosure_CellAllocCallback :: MonadIO m => CellAllocCallback -> m (GClosure C_CellAllocCallback) +genClosure_CellAllocCallback cb = liftIO $ do + let cb' = drop_closures_CellAllocCallback cb + let cb'' = wrap_CellAllocCallback Nothing cb' + mk_CellAllocCallback cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `CellAllocCallback` into a `C_CellAllocCallback`. +wrap_CellAllocCallback :: + Maybe (Ptr (FunPtr C_CellAllocCallback)) -> + CellAllocCallback_WithClosures -> + C_CellAllocCallback +wrap_CellAllocCallback funptrptr _cb renderer cellArea cellBackground data_ = do + renderer' <- (newObject Gtk.CellRenderer.CellRenderer) renderer + B.ManagedPtr.withTransient Gdk.Rectangle.Rectangle cellArea $ \cellArea' -> do + B.ManagedPtr.withTransient Gdk.Rectangle.Rectangle cellBackground $ \cellBackground' -> do + result <- _cb renderer' cellArea' cellBackground' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback Callback +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget to operate on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user-supplied data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the callback functions used for e.g. iterating over\nthe children of a container, see gtk_container_foreach().", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_Callback = + Ptr Gtk.Widget.Widget -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget to operate on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user-supplied data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_Callback :: FunPtr C_Callback -> C_Callback + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_Callback :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + FunPtr C_Callback + -> a + {- ^ /@widget@/: the widget to operate on -} + -> Ptr () + {- ^ /@data@/: user-supplied data -} + -> m () +dynamic_Callback __funPtr widget data_ = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + (__dynamic_C_Callback __funPtr) widget' data_ + touchManagedPtr widget + return () + +-- | Generate a function pointer callable from C code, from a `C_Callback`. +foreign import ccall "wrapper" + mk_Callback :: C_Callback -> IO (FunPtr C_Callback) + +{- | +The type of the callback functions used for e.g. iterating over +the children of a container, see 'GI.Gtk.Objects.Container.containerForeach'. +-} +type Callback = + Gtk.Widget.Widget + {- ^ /@widget@/: the widget to operate on -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `Callback`@. +noCallback :: Maybe Callback +noCallback = Nothing + +{- | +The type of the callback functions used for e.g. iterating over +the children of a container, see 'GI.Gtk.Objects.Container.containerForeach'. +-} +type Callback_WithClosures = + Gtk.Widget.Widget + {- ^ /@widget@/: the widget to operate on -} + -> Ptr () + {- ^ /@data@/: user-supplied data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `Callback_WithClosures`@. +noCallback_WithClosures :: Maybe Callback_WithClosures +noCallback_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_Callback :: Callback -> Callback_WithClosures +drop_closures_Callback _f widget _ = _f widget + +-- | Wrap the callback into a `GClosure`. +genClosure_Callback :: MonadIO m => Callback -> m (GClosure C_Callback) +genClosure_Callback cb = liftIO $ do + let cb' = drop_closures_Callback cb + let cb'' = wrap_Callback Nothing cb' + mk_Callback cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `Callback` into a `C_Callback`. +wrap_Callback :: + Maybe (Ptr (FunPtr C_Callback)) -> + Callback_WithClosures -> + C_Callback +wrap_Callback funptrptr _cb widget data_ = do + widget' <- (newObject Gtk.Widget.Widget) widget + _cb widget' data_ + maybeReleaseFunPtr funptrptr + + +-- callback CalendarDetailFunc +-- -> Callable {returnType = Just (TBasicType TUTF8), returnMayBeNull = True, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "Newly allocated string with Pango markup\n with details for the specified day or %NULL.", sinceVersion = Nothing}, args = [Arg {argCName = "calendar", argType = TInterface (Name {namespace = "Gtk", name = "Calendar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCalendar.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the year for which details are needed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the month for which details are needed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the day of @month for which details are needed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed with gtk_calendar_set_detail_func().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This kind of functions provide Pango markup with detail information for the\nspecified day. Examples for such details are holidays or appointments. The\nfunction returns %NULL when no information is available.", sinceVersion = Just "2.14"}} +-- | Type for the callback on the (unwrapped) C side. +type C_CalendarDetailFunc = + Ptr Gtk.Calendar.Calendar -> + Word32 -> + Word32 -> + Word32 -> + Ptr () -> + IO CString + +-- Args : [Arg {argCName = "calendar", argType = TInterface (Name {namespace = "Gtk", name = "Calendar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCalendar.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the year for which details are needed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the month for which details are needed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the day of @month for which details are needed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed with gtk_calendar_set_detail_func().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_CalendarDetailFunc :: FunPtr C_CalendarDetailFunc -> C_CalendarDetailFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_CalendarDetailFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Calendar.IsCalendar a) => + FunPtr C_CalendarDetailFunc + -> a + {- ^ /@calendar@/: a 'GI.Gtk.Objects.Calendar.Calendar'. -} + -> Word32 + {- ^ /@year@/: the year for which details are needed. -} + -> Word32 + {- ^ /@month@/: the month for which details are needed. -} + -> Word32 + {- ^ /@day@/: the day of /@month@/ for which details are needed. -} + -> Ptr () + {- ^ /@userData@/: the data passed with 'GI.Gtk.Objects.Calendar.calendarSetDetailFunc'. -} + -> m (Maybe T.Text) + {- ^ __Returns:__ Newly allocated string with Pango markup + with details for the specified day or 'Nothing'. -} +dynamic_CalendarDetailFunc __funPtr calendar year month day userData = liftIO $ do + calendar' <- unsafeManagedPtrCastPtr calendar + result <- (__dynamic_C_CalendarDetailFunc __funPtr) calendar' year month day userData + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' + touchManagedPtr calendar + return maybeResult + +-- | Generate a function pointer callable from C code, from a `C_CalendarDetailFunc`. +foreign import ccall "wrapper" + mk_CalendarDetailFunc :: C_CalendarDetailFunc -> IO (FunPtr C_CalendarDetailFunc) + +{- | +This kind of functions provide Pango markup with detail information for the +specified day. Examples for such details are holidays or appointments. The +function returns 'Nothing' when no information is available. + +/Since: 2.14/ +-} +type CalendarDetailFunc = + Gtk.Calendar.Calendar + {- ^ /@calendar@/: a 'GI.Gtk.Objects.Calendar.Calendar'. -} + -> Word32 + {- ^ /@year@/: the year for which details are needed. -} + -> Word32 + {- ^ /@month@/: the month for which details are needed. -} + -> Word32 + {- ^ /@day@/: the day of /@month@/ for which details are needed. -} + -> IO (Maybe T.Text) + {- ^ __Returns:__ Newly allocated string with Pango markup + with details for the specified day or 'Nothing'. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CalendarDetailFunc`@. +noCalendarDetailFunc :: Maybe CalendarDetailFunc +noCalendarDetailFunc = Nothing + +{- | +This kind of functions provide Pango markup with detail information for the +specified day. Examples for such details are holidays or appointments. The +function returns 'Nothing' when no information is available. + +/Since: 2.14/ +-} +type CalendarDetailFunc_WithClosures = + Gtk.Calendar.Calendar + {- ^ /@calendar@/: a 'GI.Gtk.Objects.Calendar.Calendar'. -} + -> Word32 + {- ^ /@year@/: the year for which details are needed. -} + -> Word32 + {- ^ /@month@/: the month for which details are needed. -} + -> Word32 + {- ^ /@day@/: the day of /@month@/ for which details are needed. -} + -> Ptr () + {- ^ /@userData@/: the data passed with 'GI.Gtk.Objects.Calendar.calendarSetDetailFunc'. -} + -> IO (Maybe T.Text) + {- ^ __Returns:__ Newly allocated string with Pango markup + with details for the specified day or 'Nothing'. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CalendarDetailFunc_WithClosures`@. +noCalendarDetailFunc_WithClosures :: Maybe CalendarDetailFunc_WithClosures +noCalendarDetailFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_CalendarDetailFunc :: CalendarDetailFunc -> CalendarDetailFunc_WithClosures +drop_closures_CalendarDetailFunc _f calendar year month day _ = _f calendar year month day + +-- | Wrap the callback into a `GClosure`. +genClosure_CalendarDetailFunc :: MonadIO m => CalendarDetailFunc -> m (GClosure C_CalendarDetailFunc) +genClosure_CalendarDetailFunc cb = liftIO $ do + let cb' = drop_closures_CalendarDetailFunc cb + let cb'' = wrap_CalendarDetailFunc Nothing cb' + mk_CalendarDetailFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `CalendarDetailFunc` into a `C_CalendarDetailFunc`. +wrap_CalendarDetailFunc :: + Maybe (Ptr (FunPtr C_CalendarDetailFunc)) -> + CalendarDetailFunc_WithClosures -> + C_CalendarDetailFunc +wrap_CalendarDetailFunc funptrptr _cb calendar year month day userData = do + calendar' <- (newObject Gtk.Calendar.Calendar) calendar + result <- _cb calendar' year month day userData + maybeReleaseFunPtr funptrptr + maybeM nullPtr result $ \result' -> do + result'' <- textToCString result' + return result'' + + +-- callback BuilderConnectFunc +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "object to connect a signal to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of the signal", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of the handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connect_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GObject, if non-%NULL, use g_signal_connect_object()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "GObject", name = "ConnectFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GConnectFlags to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This is the signature of a function used to connect signals. It is used\nby the gtk_builder_connect_signals() and gtk_builder_connect_signals_full()\nmethods. It is mainly intended for interpreted language bindings, but\ncould be useful where the programmer wants more control over the signal\nconnection process. Note that this function can only be called once,\nsubsequent calls will do nothing.", sinceVersion = Just "2.12"}} +-- | Type for the callback on the (unwrapped) C side. +type C_BuilderConnectFunc = + Ptr Gtk.Builder.Builder -> + Ptr GObject.Object.Object -> + CString -> + CString -> + Ptr GObject.Object.Object -> + CUInt -> + Ptr () -> + IO () + +-- Args : [Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "object to connect a signal to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of the signal", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of the handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connect_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GObject, if non-%NULL, use g_signal_connect_object()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "GObject", name = "ConnectFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GConnectFlags to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_BuilderConnectFunc :: FunPtr C_BuilderConnectFunc -> C_BuilderConnectFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_BuilderConnectFunc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Builder.IsBuilder a, GObject.Object.IsObject b, GObject.Object.IsObject c) => + FunPtr C_BuilderConnectFunc + -> a + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> b + {- ^ /@object@/: object to connect a signal to -} + -> T.Text + {- ^ /@signalName@/: name of the signal -} + -> T.Text + {- ^ /@handlerName@/: name of the handler -} + -> Maybe (c) + {- ^ /@connectObject@/: a 'GI.GObject.Objects.Object.Object', if non-'Nothing', use @/g_signal_connect_object()/@ -} + -> [GObject.Flags.ConnectFlags] + {- ^ /@flags@/: 'GI.GObject.Flags.ConnectFlags' to use -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> m () +dynamic_BuilderConnectFunc __funPtr builder object signalName handlerName connectObject flags userData = liftIO $ do + builder' <- unsafeManagedPtrCastPtr builder + object' <- unsafeManagedPtrCastPtr object + signalName' <- textToCString signalName + handlerName' <- textToCString handlerName + maybeConnectObject <- case connectObject of + Nothing -> return nullPtr + Just jConnectObject -> do + jConnectObject' <- unsafeManagedPtrCastPtr jConnectObject + return jConnectObject' + let flags' = gflagsToWord flags + (__dynamic_C_BuilderConnectFunc __funPtr) builder' object' signalName' handlerName' maybeConnectObject flags' userData + touchManagedPtr builder + touchManagedPtr object + whenJust connectObject touchManagedPtr + freeMem signalName' + freeMem handlerName' + return () + +-- | Generate a function pointer callable from C code, from a `C_BuilderConnectFunc`. +foreign import ccall "wrapper" + mk_BuilderConnectFunc :: C_BuilderConnectFunc -> IO (FunPtr C_BuilderConnectFunc) + +{- | +This is the signature of a function used to connect signals. It is used +by the 'GI.Gtk.Objects.Builder.builderConnectSignals' and 'GI.Gtk.Objects.Builder.builderConnectSignalsFull' +methods. It is mainly intended for interpreted language bindings, but +could be useful where the programmer wants more control over the signal +connection process. Note that this function can only be called once, +subsequent calls will do nothing. + +/Since: 2.12/ +-} +type BuilderConnectFunc = + Gtk.Builder.Builder + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> GObject.Object.Object + {- ^ /@object@/: object to connect a signal to -} + -> T.Text + {- ^ /@signalName@/: name of the signal -} + -> T.Text + {- ^ /@handlerName@/: name of the handler -} + -> Maybe GObject.Object.Object + {- ^ /@connectObject@/: a 'GI.GObject.Objects.Object.Object', if non-'Nothing', use @/g_signal_connect_object()/@ -} + -> [GObject.Flags.ConnectFlags] + {- ^ /@flags@/: 'GI.GObject.Flags.ConnectFlags' to use -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `BuilderConnectFunc`@. +noBuilderConnectFunc :: Maybe BuilderConnectFunc +noBuilderConnectFunc = Nothing + +{- | +This is the signature of a function used to connect signals. It is used +by the 'GI.Gtk.Objects.Builder.builderConnectSignals' and 'GI.Gtk.Objects.Builder.builderConnectSignalsFull' +methods. It is mainly intended for interpreted language bindings, but +could be useful where the programmer wants more control over the signal +connection process. Note that this function can only be called once, +subsequent calls will do nothing. + +/Since: 2.12/ +-} +type BuilderConnectFunc_WithClosures = + Gtk.Builder.Builder + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> GObject.Object.Object + {- ^ /@object@/: object to connect a signal to -} + -> T.Text + {- ^ /@signalName@/: name of the signal -} + -> T.Text + {- ^ /@handlerName@/: name of the handler -} + -> Maybe GObject.Object.Object + {- ^ /@connectObject@/: a 'GI.GObject.Objects.Object.Object', if non-'Nothing', use @/g_signal_connect_object()/@ -} + -> [GObject.Flags.ConnectFlags] + {- ^ /@flags@/: 'GI.GObject.Flags.ConnectFlags' to use -} + -> Ptr () + {- ^ /@userData@/: user data -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `BuilderConnectFunc_WithClosures`@. +noBuilderConnectFunc_WithClosures :: Maybe BuilderConnectFunc_WithClosures +noBuilderConnectFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_BuilderConnectFunc :: BuilderConnectFunc -> BuilderConnectFunc_WithClosures +drop_closures_BuilderConnectFunc _f builder object signalName handlerName connectObject flags _ = _f builder object signalName handlerName connectObject flags + +-- | Wrap the callback into a `GClosure`. +genClosure_BuilderConnectFunc :: MonadIO m => BuilderConnectFunc -> m (GClosure C_BuilderConnectFunc) +genClosure_BuilderConnectFunc cb = liftIO $ do + let cb' = drop_closures_BuilderConnectFunc cb + let cb'' = wrap_BuilderConnectFunc Nothing cb' + mk_BuilderConnectFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `BuilderConnectFunc` into a `C_BuilderConnectFunc`. +wrap_BuilderConnectFunc :: + Maybe (Ptr (FunPtr C_BuilderConnectFunc)) -> + BuilderConnectFunc_WithClosures -> + C_BuilderConnectFunc +wrap_BuilderConnectFunc funptrptr _cb builder object signalName handlerName connectObject flags userData = do + builder' <- (newObject Gtk.Builder.Builder) builder + object' <- (newObject GObject.Object.Object) object + signalName' <- cstringToText signalName + handlerName' <- cstringToText handlerName + maybeConnectObject <- + if connectObject == nullPtr + then return Nothing + else do + connectObject' <- (newObject GObject.Object.Object) connectObject + return $ Just connectObject' + let flags' = wordToGFlags flags + _cb builder' object' signalName' handlerName' maybeConnectObject flags' userData + maybeReleaseFunPtr funptrptr + + +-- callback AssistantPageFunc +-- -> Callable {returnType = Just (TBasicType TInt), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "The next page number.", sinceVersion = Nothing}, args = [Arg {argCName = "current_page", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The page number used to calculate the next page.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A function used by gtk_assistant_set_forward_page_func() to know which\nis the next page given a current one. It\8217s called both for computing the\nnext page when the user presses the \8220forward\8221 button and for handling\nthe behavior of the \8220last\8221 button.", sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_AssistantPageFunc = + Int32 -> + Ptr () -> + IO Int32 + +-- Args : [Arg {argCName = "current_page", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The page number used to calculate the next page.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_AssistantPageFunc :: FunPtr C_AssistantPageFunc -> C_AssistantPageFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_AssistantPageFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_AssistantPageFunc + -> Int32 + {- ^ /@currentPage@/: The page number used to calculate the next page. -} + -> Ptr () + {- ^ /@data@/: user data. -} + -> m Int32 + {- ^ __Returns:__ The next page number. -} +dynamic_AssistantPageFunc __funPtr currentPage data_ = liftIO $ do + result <- (__dynamic_C_AssistantPageFunc __funPtr) currentPage data_ + return result + +-- | Generate a function pointer callable from C code, from a `C_AssistantPageFunc`. +foreign import ccall "wrapper" + mk_AssistantPageFunc :: C_AssistantPageFunc -> IO (FunPtr C_AssistantPageFunc) + +{- | +A function used by 'GI.Gtk.Objects.Assistant.assistantSetForwardPageFunc' to know which +is the next page given a current one. It’s called both for computing the +next page when the user presses the “forward” button and for handling +the behavior of the “last” button. +-} +type AssistantPageFunc = + Int32 + {- ^ /@currentPage@/: The page number used to calculate the next page. -} + -> IO Int32 + {- ^ __Returns:__ The next page number. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AssistantPageFunc`@. +noAssistantPageFunc :: Maybe AssistantPageFunc +noAssistantPageFunc = Nothing + +{- | +A function used by 'GI.Gtk.Objects.Assistant.assistantSetForwardPageFunc' to know which +is the next page given a current one. It’s called both for computing the +next page when the user presses the “forward” button and for handling +the behavior of the “last” button. +-} +type AssistantPageFunc_WithClosures = + Int32 + {- ^ /@currentPage@/: The page number used to calculate the next page. -} + -> Ptr () + {- ^ /@data@/: user data. -} + -> IO Int32 + {- ^ __Returns:__ The next page number. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AssistantPageFunc_WithClosures`@. +noAssistantPageFunc_WithClosures :: Maybe AssistantPageFunc_WithClosures +noAssistantPageFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_AssistantPageFunc :: AssistantPageFunc -> AssistantPageFunc_WithClosures +drop_closures_AssistantPageFunc _f currentPage _ = _f currentPage + +-- | Wrap the callback into a `GClosure`. +genClosure_AssistantPageFunc :: MonadIO m => AssistantPageFunc -> m (GClosure C_AssistantPageFunc) +genClosure_AssistantPageFunc cb = liftIO $ do + let cb' = drop_closures_AssistantPageFunc cb + let cb'' = wrap_AssistantPageFunc Nothing cb' + mk_AssistantPageFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `AssistantPageFunc` into a `C_AssistantPageFunc`. +wrap_AssistantPageFunc :: + Maybe (Ptr (FunPtr C_AssistantPageFunc)) -> + AssistantPageFunc_WithClosures -> + C_AssistantPageFunc +wrap_AssistantPageFunc funptrptr _cb currentPage data_ = do + result <- _cb currentPage data_ + maybeReleaseFunPtr funptrptr + return result + + +-- callback AccelMapForeach +-- -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data passed to gtk_accel_map_foreach() or\n gtk_accel_map_foreach_unfiltered()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Accel path of the current accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Key of the current accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Modifiers of the current accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "changed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Changed flag of the accelerator (if %TRUE, accelerator has changed\n during runtime and would need to be saved during an accelerator dump)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_AccelMapForeach = + Ptr () -> + CString -> + Word32 -> + CUInt -> + CInt -> + IO () + +-- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data passed to gtk_accel_map_foreach() or\n gtk_accel_map_foreach_unfiltered()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Accel path of the current accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Key of the current accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Modifiers of the current accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "changed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Changed flag of the accelerator (if %TRUE, accelerator has changed\n during runtime and would need to be saved during an accelerator dump)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_AccelMapForeach :: FunPtr C_AccelMapForeach -> C_AccelMapForeach + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_AccelMapForeach :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_AccelMapForeach + -> Ptr () + {- ^ /@data@/: User data passed to 'GI.Gtk.Objects.AccelMap.accelMapForeach' or + 'GI.Gtk.Objects.AccelMap.accelMapForeachUnfiltered' -} + -> T.Text + {- ^ /@accelPath@/: Accel path of the current accelerator -} + -> Word32 + {- ^ /@accelKey@/: Key of the current accelerator -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: Modifiers of the current accelerator -} + -> Bool + {- ^ /@changed@/: Changed flag of the accelerator (if 'True', accelerator has changed + during runtime and would need to be saved during an accelerator dump) -} + -> m () +dynamic_AccelMapForeach __funPtr data_ accelPath accelKey accelMods changed = liftIO $ do + accelPath' <- textToCString accelPath + let accelMods' = gflagsToWord accelMods + let changed' = (fromIntegral . fromEnum) changed + (__dynamic_C_AccelMapForeach __funPtr) data_ accelPath' accelKey accelMods' changed' + freeMem accelPath' + return () + +-- | Generate a function pointer callable from C code, from a `C_AccelMapForeach`. +foreign import ccall "wrapper" + mk_AccelMapForeach :: C_AccelMapForeach -> IO (FunPtr C_AccelMapForeach) + +{- | +/No description available in the introspection data./ +-} +type AccelMapForeach = + Ptr () + {- ^ /@data@/: User data passed to 'GI.Gtk.Objects.AccelMap.accelMapForeach' or + 'GI.Gtk.Objects.AccelMap.accelMapForeachUnfiltered' -} + -> T.Text + {- ^ /@accelPath@/: Accel path of the current accelerator -} + -> Word32 + {- ^ /@accelKey@/: Key of the current accelerator -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: Modifiers of the current accelerator -} + -> Bool + {- ^ /@changed@/: Changed flag of the accelerator (if 'True', accelerator has changed + during runtime and would need to be saved during an accelerator dump) -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AccelMapForeach`@. +noAccelMapForeach :: Maybe AccelMapForeach +noAccelMapForeach = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_AccelMapForeach :: MonadIO m => AccelMapForeach -> m (GClosure C_AccelMapForeach) +genClosure_AccelMapForeach cb = liftIO $ do + let cb' = wrap_AccelMapForeach Nothing cb + mk_AccelMapForeach cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AccelMapForeach` into a `C_AccelMapForeach`. +wrap_AccelMapForeach :: + Maybe (Ptr (FunPtr C_AccelMapForeach)) -> + AccelMapForeach -> + C_AccelMapForeach +wrap_AccelMapForeach funptrptr _cb data_ accelPath accelKey accelMods changed = do + accelPath' <- cstringToText accelPath + let accelMods' = wordToGFlags accelMods + let changed' = (/= 0) changed + _cb data_ accelPath' accelKey accelMods' changed' + maybeReleaseFunPtr funptrptr + + +-- callback AccelGroupFindFunc +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gtk", name = "AccelKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Just "2.2"}} +-- | Type for the callback on the (unwrapped) C side. +type C_AccelGroupFindFunc = + Ptr Gtk.AccelKey.AccelKey -> + Ptr (GClosure ()) -> + Ptr () -> + IO CInt + +-- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gtk", name = "AccelKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_AccelGroupFindFunc :: FunPtr C_AccelGroupFindFunc -> C_AccelGroupFindFunc + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_AccelGroupFindFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + FunPtr C_AccelGroupFindFunc + -> Gtk.AccelKey.AccelKey + -> GClosure a + -> Ptr () + -> m Bool +dynamic_AccelGroupFindFunc __funPtr key closure data_ = liftIO $ do + key' <- unsafeManagedPtrGetPtr key + closure' <- unsafeManagedPtrCastPtr closure + result <- (__dynamic_C_AccelGroupFindFunc __funPtr) key' closure' data_ + let result' = (/= 0) result + touchManagedPtr key + touchManagedPtr closure + return result' + +-- | Generate a function pointer callable from C code, from a `C_AccelGroupFindFunc`. +foreign import ccall "wrapper" + mk_AccelGroupFindFunc :: C_AccelGroupFindFunc -> IO (FunPtr C_AccelGroupFindFunc) + +{- | +/No description available in the introspection data./ + +/Since: 2.2/ +-} +type AccelGroupFindFunc = + Gtk.AccelKey.AccelKey + -> GClosure () + -> IO Bool + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AccelGroupFindFunc`@. +noAccelGroupFindFunc :: Maybe AccelGroupFindFunc +noAccelGroupFindFunc = Nothing + +{- | +/No description available in the introspection data./ + +/Since: 2.2/ +-} +type AccelGroupFindFunc_WithClosures = + Gtk.AccelKey.AccelKey + -> GClosure () + -> Ptr () + -> IO Bool + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AccelGroupFindFunc_WithClosures`@. +noAccelGroupFindFunc_WithClosures :: Maybe AccelGroupFindFunc_WithClosures +noAccelGroupFindFunc_WithClosures = Nothing + +-- | A simple wrapper that ignores the closure arguments. +drop_closures_AccelGroupFindFunc :: AccelGroupFindFunc -> AccelGroupFindFunc_WithClosures +drop_closures_AccelGroupFindFunc _f key closure _ = _f key closure + +-- | Wrap the callback into a `GClosure`. +genClosure_AccelGroupFindFunc :: MonadIO m => AccelGroupFindFunc -> m (GClosure C_AccelGroupFindFunc) +genClosure_AccelGroupFindFunc cb = liftIO $ do + let cb' = drop_closures_AccelGroupFindFunc cb + let cb'' = wrap_AccelGroupFindFunc Nothing cb' + mk_AccelGroupFindFunc cb'' >>= B.GClosure.newGClosure + + +-- | Wrap a `AccelGroupFindFunc` into a `C_AccelGroupFindFunc`. +wrap_AccelGroupFindFunc :: + Maybe (Ptr (FunPtr C_AccelGroupFindFunc)) -> + AccelGroupFindFunc_WithClosures -> + C_AccelGroupFindFunc +wrap_AccelGroupFindFunc funptrptr _cb key closure data_ = do + key' <- (newPtr Gtk.AccelKey.AccelKey) key + closure' <- (B.GClosure.newGClosureFromPtr . FP.castPtr) closure + result <- _cb key' closure' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + +-- callback AccelGroupActivate +-- -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}} +-- | Type for the callback on the (unwrapped) C side. +type C_AccelGroupActivate = + Ptr Gtk.AccelGroup.AccelGroup -> + Ptr GObject.Object.Object -> + Word32 -> + CUInt -> + IO CInt + +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "dynamic" __dynamic_C_AccelGroupActivate :: FunPtr C_AccelGroupActivate -> C_AccelGroupActivate + +-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell. +dynamic_AccelGroupActivate :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.AccelGroup.IsAccelGroup a, GObject.Object.IsObject b) => + FunPtr C_AccelGroupActivate + -> a + -> b + -> Word32 + -> [Gdk.Flags.ModifierType] + -> m Bool +dynamic_AccelGroupActivate __funPtr accelGroup acceleratable keyval modifier = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + acceleratable' <- unsafeManagedPtrCastPtr acceleratable + let modifier' = gflagsToWord modifier + result <- (__dynamic_C_AccelGroupActivate __funPtr) accelGroup' acceleratable' keyval modifier' + let result' = (/= 0) result + touchManagedPtr accelGroup + touchManagedPtr acceleratable + return result' + +-- | Generate a function pointer callable from C code, from a `C_AccelGroupActivate`. +foreign import ccall "wrapper" + mk_AccelGroupActivate :: C_AccelGroupActivate -> IO (FunPtr C_AccelGroupActivate) + +{- | +/No description available in the introspection data./ +-} +type AccelGroupActivate = + Gtk.AccelGroup.AccelGroup + -> GObject.Object.Object + -> Word32 + -> [Gdk.Flags.ModifierType] + -> IO Bool + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AccelGroupActivate`@. +noAccelGroupActivate :: Maybe AccelGroupActivate +noAccelGroupActivate = Nothing + +-- | Wrap the callback into a `GClosure`. +genClosure_AccelGroupActivate :: MonadIO m => AccelGroupActivate -> m (GClosure C_AccelGroupActivate) +genClosure_AccelGroupActivate cb = liftIO $ do + let cb' = wrap_AccelGroupActivate Nothing cb + mk_AccelGroupActivate cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AccelGroupActivate` into a `C_AccelGroupActivate`. +wrap_AccelGroupActivate :: + Maybe (Ptr (FunPtr C_AccelGroupActivate)) -> + AccelGroupActivate -> + C_AccelGroupActivate +wrap_AccelGroupActivate funptrptr _cb accelGroup acceleratable keyval modifier = do + accelGroup' <- (newObject Gtk.AccelGroup.AccelGroup) accelGroup + acceleratable' <- (newObject GObject.Object.Object) acceleratable + let modifier' = wordToGFlags modifier + result <- _cb accelGroup' acceleratable' keyval modifier' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + + + diff --git a/GI/Gtk/Constants.hs b/GI/Gtk/Constants.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Constants.hs @@ -0,0 +1,2103 @@ +{-# 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 (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +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 LEVEL_BAR_OFFSET_FULL , + pattern INTERFACE_AGE , + pattern INPUT_ERROR , + pattern BINARY_AGE , + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + + +{- | +The GTK_TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID can be used to make a +'GI.Gtk.Interfaces.TreeSortable.TreeSortable' use no sorting. + +See also 'GI.Gtk.Interfaces.TreeSortable.treeSortableSetSortColumnId' +-} +pattern TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID = -2 :: Int32 + +{- | +The GTK_TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID can be used to make a +'GI.Gtk.Interfaces.TreeSortable.TreeSortable' use the default sort function. + +See also 'GI.Gtk.Interfaces.TreeSortable.treeSortableSetSortColumnId' +-} +pattern TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID = -1 :: Int32 + +{- | +The priority at which the text view validates onscreen lines +in an idle job in the background. +-} +pattern TEXT_VIEW_PRIORITY_VALIDATE = 125 :: Int32 + +{-# DEPRECATED STYLE_REGION_TAB ["(Since version 3.20)","Don\\'t use regions."] #-} +{- | +A widget region name to define a notebook tab. +-} +pattern STYLE_REGION_TAB = "tab" :: T.Text + +{-# DEPRECATED STYLE_REGION_ROW ["(Since version 3.20)","Don\\'t use regions."] #-} +{- | +A widget region name to define a treeview row. +-} +pattern STYLE_REGION_ROW = "row" :: T.Text + +{-# DEPRECATED STYLE_REGION_COLUMN_HEADER ["(Since version 3.20)","Don\\'t use regions."] #-} +{- | +A widget region name to define a treeview column header. +-} +pattern STYLE_REGION_COLUMN_HEADER = "column-header" :: T.Text + +{-# DEPRECATED STYLE_REGION_COLUMN ["(Since version 3.20)","Don\\'t use regions."] #-} +{- | +A widget region name to define a treeview column. +-} +pattern STYLE_REGION_COLUMN = "column" :: T.Text + +{- | +The priority used for the style information from +@XDG_CONFIG_HOME\/gtk-3.0\/gtk.css@. + +You should not use priorities higher than this, to +give the user the last word. +-} +pattern STYLE_PROVIDER_PRIORITY_USER = 800 :: Int32 + +{- | +The priority used for style information provided +by themes. +-} +pattern STYLE_PROVIDER_PRIORITY_THEME = 200 :: Int32 + +{- | +The priority used for style information provided +via 'GI.Gtk.Objects.Settings.Settings'. + +This priority is higher than 'GI.Gtk.Constants.STYLE_PROVIDER_PRIORITY_THEME' +to let settings override themes. +-} +pattern STYLE_PROVIDER_PRIORITY_SETTINGS = 400 :: Int32 + +{- | +The priority used for default style information +that is used in the absence of themes. + +Note that this is not very useful for providing default +styling for custom style classes - themes are likely to +override styling provided at this priority with +catch-all @* {...}@ rules. +-} +pattern STYLE_PROVIDER_PRIORITY_FALLBACK = 1 :: Int32 + +{- | +A priority that can be used when adding a 'GI.Gtk.Interfaces.StyleProvider.StyleProvider' +for application-specific style information. +-} +pattern STYLE_PROVIDER_PRIORITY_APPLICATION = 600 :: Int32 + +{- | +A property holding the rendered element’s padding as a 'GI.Gtk.Structs.Border.Border'. The +padding is defined as the spacing between the inner part of the element border +and its child. It’s the innermost spacing property of the padding\/border\/margin +series. +-} +pattern STYLE_PROPERTY_PADDING = "padding" :: T.Text + +{- | +A property holding the rendered element’s margin as a 'GI.Gtk.Structs.Border.Border'. The +margin is defined as the spacing between the border of the element +and its surrounding elements. It is external to 'GI.Gtk.Objects.Widget.Widget'\'s +size allocations, and the most external spacing property of the +padding\/border\/margin series. +-} +pattern STYLE_PROPERTY_MARGIN = "margin" :: T.Text + +{- | +A property holding the font properties used when rendering text +as a 'GI.Pango.Structs.FontDescription.FontDescription'. +-} +pattern STYLE_PROPERTY_FONT = "font" :: T.Text + +{- | +A property holding the foreground color of rendered elements as a 'GI.Gdk.Structs.RGBA.RGBA'. +-} +pattern STYLE_PROPERTY_COLOR = "color" :: T.Text + +{- | +A property holding the rendered element’s border width in pixels as +a 'GI.Gtk.Structs.Border.Border'. The border is the intermediary spacing property of the +padding\/border\/margin series. + +'GI.Gtk.Functions.renderFrame' uses this property to find out the frame line width, +so @/GtkWidgets/@ rendering frames may need to add up this padding when +requesting size +-} +pattern STYLE_PROPERTY_BORDER_WIDTH = "border-width" :: T.Text + +{- | +A property holding the element’s border style as a 'GI.Gtk.Enums.BorderStyle'. +-} +pattern STYLE_PROPERTY_BORDER_STYLE = "border-style" :: T.Text + +{- | +A property holding the rendered element’s border radius in pixels as a @/gint/@. +-} +pattern STYLE_PROPERTY_BORDER_RADIUS = "border-radius" :: T.Text + +{- | +A property holding the element’s border color as a 'GI.Gdk.Structs.RGBA.RGBA'. +-} +pattern STYLE_PROPERTY_BORDER_COLOR = "border-color" :: T.Text + +{- | +A property holding the element’s background as a 'GI.Cairo.Structs.Pattern.Pattern'. +-} +pattern STYLE_PROPERTY_BACKGROUND_IMAGE = "background-image" :: T.Text + +{- | +A property holding the background color of rendered elements as a 'GI.Gdk.Structs.RGBA.RGBA'. +-} +pattern STYLE_PROPERTY_BACKGROUND_COLOR = "background-color" :: T.Text + +{- | +A CSS class to indicate that a UI element should be \'wide\'. +Used by 'GI.Gtk.Objects.Paned.Paned'. + +Refer to individual widget documentation for used style classes. + +/Since: 3.16/ +-} +pattern STYLE_CLASS_WIDE = "wide" :: T.Text + +{- | +A CSS class for an area displaying a warning message, +such as those in infobars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_WARNING = "warning" :: T.Text + +{- | +A CSS class defining a view, such as iconviews or treeviews. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_VIEW = "view" :: T.Text + +{- | +A CSS class for vertically layered widgets. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_VERTICAL = "vertical" :: T.Text + +{- | +A CSS class that is added on the visual hints that happen +where content is \'scrolled off\' and can be made visible +by scrolling. + +Refer to individual widget documentation for used style classes. + +/Since: 3.16/ +-} +pattern STYLE_CLASS_UNDERSHOOT = "undershoot" :: T.Text + +{- | +A CSS class to match troughs, as in scrollbars and progressbars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_TROUGH = "trough" :: T.Text + +{- | +A CSS class for touch selection popups on entries +and text views. + +Refer to individual widget documentation for used style classes. + +/Since: 3.16/ +-} +pattern STYLE_CLASS_TOUCH_SELECTION = "touch-selection" :: T.Text + +{- | +A CSS class to indicate an area at the top of a widget. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_TOP = "top" :: T.Text + +{- | +A CSS class to match tooltip windows. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_TOOLTIP = "tooltip" :: T.Text + +{- | +A CSS class to match toolbars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_TOOLBAR = "toolbar" :: T.Text + +{- | +A CSS class used when rendering a titlebar in a toplevel window. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_TITLEBAR = "titlebar" :: T.Text + +{- | +A CSS class used for the title label in a titlebar in +a toplevel window. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_TITLE = "title" :: T.Text + +{- | +A CSS class used when an action (usually a button) is the +primary suggested action in a specific context. + +Refer to individual widget documentation for used style classes. + +/Since: 3.12/ +-} +pattern STYLE_CLASS_SUGGESTED_ACTION = "suggested-action" :: T.Text + +{- | +A CSS class used for the subtitle label in a titlebar in +a toplevel window. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_SUBTITLE = "subtitle" :: T.Text + +{- | +A CSS class to match statusbars. + +Refer to individual widget documentation for used style classes. + +/Since: 3.16/ +-} +pattern STYLE_CLASS_STATUSBAR = "statusbar" :: T.Text + +{- | +A CSS class to use when rendering activity as a “spinner”. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SPINNER = "spinner" :: T.Text + +{- | +A CSS class defining an spinbutton. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SPINBUTTON = "spinbutton" :: T.Text + +{- | +A CSS class to match sliders. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SLIDER = "slider" :: T.Text + +{- | +A CSS class defining a sidebar, such as the left side in +a file chooser. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SIDEBAR = "sidebar" :: T.Text + +{- | +A CSS class for a separator. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SEPARATOR = "separator" :: T.Text + +{- | +A CSS class to match the junction area between an horizontal +and vertical scrollbar, when they’re both shown. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SCROLLBARS_JUNCTION = "scrollbars-junction" :: T.Text + +{- | +A CSS class to match scrollbars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SCROLLBAR = "scrollbar" :: T.Text + +{- | +A CSS class to match scale widgets with marks attached, +all the marks are below for horizontal 'GI.Gtk.Objects.Scale.Scale', +right for vertical 'GI.Gtk.Objects.Scale.Scale'. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SCALE_HAS_MARKS_BELOW = "scale-has-marks-below" :: T.Text + +{- | +A CSS class to match scale widgets with marks attached, +all the marks are above for horizontal 'GI.Gtk.Objects.Scale.Scale'. +left for vertical 'GI.Gtk.Objects.Scale.Scale'. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SCALE_HAS_MARKS_ABOVE = "scale-has-marks-above" :: T.Text + +{- | +A CSS class to match scale widgets. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_SCALE = "scale" :: T.Text + +{- | +A CSS class to match the rubberband selection rectangle. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_RUBBERBAND = "rubberband" :: T.Text + +{- | +A CSS class to indicate an area at the right of a widget. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_RIGHT = "right" :: T.Text + +{- | +A CSS class used to indicate a read-only state. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_READ_ONLY = "read-only" :: T.Text + +{- | +A CSS class to match a raised control, such as a raised +button on a toolbar. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_RAISED = "raised" :: T.Text + +{- | +A CSS class to match radio buttons. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_RADIO = "radio" :: T.Text + +{- | +A CSS class for an area displaying a question to the user, +such as those in infobars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_QUESTION = "question" :: T.Text + +{- | +A CSS class to use when rendering a pulse in an indeterminate progress bar. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_PULSE = "pulse" :: T.Text + +{- | +A CSS class to use when rendering activity as a progressbar. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_PROGRESSBAR = "progressbar" :: T.Text + +{- | +A CSS class to match primary toolbars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_PRIMARY_TOOLBAR = "primary-toolbar" :: T.Text + +{- | +A CSS class that is added to the toplevel windows used for menus. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_POPUP = "popup" :: T.Text + +{- | +A CSS class that matches popovers. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_POPOVER = "popover" :: T.Text + +{- | +A CSS class that is added to areas that should look like paper. + +This is used in print previews and themes are encouraged to +style it as black text on white background. + +Refer to individual widget documentation for used style classes. + +/Since: 3.16/ +-} +pattern STYLE_CLASS_PAPER = "paper" :: T.Text + +{- | +A CSS class for a pane separator, such as those in 'GI.Gtk.Objects.Paned.Paned'. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_PANE_SEPARATOR = "pane-separator" :: T.Text + +{- | +A CSS class that is added on the visual hints that happen +when scrolling is attempted past the limits of a scrollable +area. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_OVERSHOOT = "overshoot" :: T.Text + +{- | +A CSS class used when rendering an OSD (On Screen Display) element, +on top of another container. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_OSD = "osd" :: T.Text + +{- | +A CSS class defining a notebook. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_NOTEBOOK = "notebook" :: T.Text + +{- | +A CSS class used when an element needs the user attention, +for instance a button in a stack switcher corresponding to +a hidden page that changed state. + +Refer to individual widget documentation for used style classes. + +/Since: 3.12/ +-} +pattern STYLE_CLASS_NEEDS_ATTENTION = "needs-attention" :: T.Text + +{- | +A CSS class that is added to text view that should use +a monospace font. + +Refer to individual widget documentation for used style classes. + +/Since: 3.16/ +-} +pattern STYLE_CLASS_MONOSPACE = "monospace" :: T.Text + +{- | +A CSS class that is added to message dialogs. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_MESSAGE_DIALOG = "message-dialog" :: T.Text + +{- | +A CSS class to match menu items. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_MENUITEM = "menuitem" :: T.Text + +{- | +A CSS class to menubars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_MENUBAR = "menubar" :: T.Text + +{- | +A CSS class to match menus. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_MENU = "menu" :: T.Text + +{- | +A CSS class defining marks in a widget, such as in scales. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_MARK = "mark" :: T.Text + +{- | +A CSS class to match list rows. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_LIST_ROW = "list-row" :: T.Text + +{- | +A CSS class to match lists. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_LIST = "list" :: T.Text + +{- | +A CSS class to match a linked area, such as a box containing buttons +belonging to the same control. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_LINKED = "linked" :: T.Text + +{- | +A CSS class used when rendering a level indicator, such +as a battery charge level, or a password strength. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_LEVEL_BAR = "level-bar" :: T.Text + +{- | +A CSS class to indicate an area at the left of a widget. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_LEFT = "left" :: T.Text + +{- | +A CSS class to match labels. + +Refer to individual widget documentation for used style classes. + +/Since: 3.16/ +-} +pattern STYLE_CLASS_LABEL = "label" :: T.Text + +{- | +A CSS class used when rendering a drag handle for +the insertion cursor position. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_INSERTION_CURSOR = "insertion-cursor" :: T.Text + +{- | +A CSS class to match inline toolbars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_INLINE_TOOLBAR = "inline-toolbar" :: T.Text + +{- | +A CSS class for an area displaying an informational message, +such as those in infobars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_INFO = "info" :: T.Text + +{- | +A CSS class defining an image, such as the icon in an entry. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_IMAGE = "image" :: T.Text + +{- | +A CSS class for horizontally layered widgets. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_HORIZONTAL = "horizontal" :: T.Text + +{- | +A CSS class defining a highlighted area, such as headings in +assistants and calendars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_HIGHLIGHT = "highlight" :: T.Text + +{- | +A CSS class to match a header element. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_HEADER = "header" :: T.Text + +{- | +A CSS class defining a resize grip. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_GRIP = "grip" :: T.Text + +{- | +A CSS class defining a frame delimiting content, such as +'GI.Gtk.Objects.Frame.Frame' or the scrolled window frame around the +scrollable area. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_FRAME = "frame" :: T.Text + +{- | +A CSS class that is added when widgets that usually have +a frame or border (like buttons or entries) should appear +without it. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_FLAT = "flat" :: T.Text + +{- | +A CSS class defining an expander, such as those in treeviews. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_EXPANDER = "expander" :: T.Text + +{- | +A CSS class for an area displaying an error message, +such as those in infobars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_ERROR = "error" :: T.Text + +{- | +A CSS class to match text entries. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_ENTRY = "entry" :: T.Text + +{- | +A CSS class defining a dock area. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_DOCK = "dock" :: T.Text + +{- | +A CSS class for a drag-and-drop indicator. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_DND = "dnd" :: T.Text + +{- | +A CSS class to match dimmed labels. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_DIM_LABEL = "dim-label" :: T.Text + +{- | +A CSS class used when an action (usually a button) is +one that is expected to remove or destroy something visible +to the user. + +Refer to individual widget documentation for used style classes. + +/Since: 3.12/ +-} +pattern STYLE_CLASS_DESTRUCTIVE_ACTION = "destructive-action" :: T.Text + +{- | +A CSS class to match the default widget. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_DEFAULT = "default" :: T.Text + +{- | +A CSS class used when rendering a drag handle for +text selection. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_CURSOR_HANDLE = "cursor-handle" :: T.Text + +{- | +A CSS class that gets added to windows which have client-side decorations. + +Refer to individual widget documentation for used style classes. + +/Since: 3.14/ +-} +pattern STYLE_CLASS_CSD = "csd" :: T.Text + +{- | +A CSS class to match context menus. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_CONTEXT_MENU = "context-menu" :: T.Text + +{- | +A CSS class to match combobox entries. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_COMBOBOX_ENTRY = "combobox-entry" :: T.Text + +{- | +A CSS class to match check boxes. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_CHECK = "check" :: T.Text + +{- | +A CSS class to match content rendered in cell views. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_CELL = "cell" :: T.Text + +{- | +A CSS class to match calendars. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_CALENDAR = "calendar" :: T.Text + +{- | +A CSS class to match buttons. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_BUTTON = "button" :: T.Text + +{- | +A CSS class to indicate an area at the bottom of a widget. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_BOTTOM = "bottom" :: T.Text + +{- | +A CSS class to match the window background. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_BACKGROUND = "background" :: T.Text + +{- | +A CSS class used when rendering an arrow element. + +Refer to individual widget documentation for used style classes. +-} +pattern STYLE_CLASS_ARROW = "arrow" :: T.Text + +{- | +A CSS class to match an accelerator. + +Refer to individual widget documentation for used style classes. +-} +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"."] #-} +{- | +The “Zoom Out” item and icon. +-} +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"."] #-} +{- | +The “Zoom In” item and icon. +-} +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"."] #-} +{- | +The “Zoom to Fit” item and icon. +-} +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"."] #-} +{- | +The “Zoom 100%” item and icon. +-} +pattern STOCK_ZOOM_100 = "gtk-zoom-100" :: T.Text + +{-# DEPRECATED STOCK_YES ["(Since version 3.10)"] #-} +{- | +The “Yes” item and icon. +-} +pattern STOCK_YES = "gtk-yes" :: T.Text + +{-# DEPRECATED STOCK_UNINDENT ["(Since version 3.10)","Use named icon "format-indent-less"."] #-} +{- | +The “Unindent” item and icon. The icon has an RTL variant. + +/Since: 2.4/ +-} +pattern STOCK_UNINDENT = "gtk-unindent" :: T.Text + +{-# DEPRECATED STOCK_UNDO ["(Since version 3.10)","Use named icon "edit-undo" or the label "_Undo"."] #-} +{- | +The “Undo” item and icon. The icon has an RTL variant. +-} +pattern STOCK_UNDO = "gtk-undo" :: T.Text + +{-# DEPRECATED STOCK_UNDERLINE ["(Since version 3.10)","Use named icon "format-text-underline" or the label "_Underline"."] #-} +{- | +The “Underline” item and icon. +-} +pattern STOCK_UNDERLINE = "gtk-underline" :: T.Text + +{-# DEPRECATED STOCK_UNDELETE ["(Since version 3.10)"] #-} +{- | +The “Undelete” item and icon. The icon has an RTL variant. +-} +pattern STOCK_UNDELETE = "gtk-undelete" :: T.Text + +{-# DEPRECATED STOCK_STRIKETHROUGH ["(Since version 3.10)","Use named icon "format-text-strikethrough" or the label "_Strikethrough"."] #-} +{- | +The “Strikethrough” item and icon. +-} +pattern STOCK_STRIKETHROUGH = "gtk-strikethrough" :: T.Text + +{-# DEPRECATED STOCK_STOP ["(Since version 3.10)","Use named icon "process-stop" or the label "_Stop"."] #-} +{- | +The “Stop” item and icon. +-} +pattern STOCK_STOP = "gtk-stop" :: T.Text + +{-# DEPRECATED STOCK_SPELL_CHECK ["(Since version 3.10)","Use named icon "tools-check-spelling"."] #-} +{- | +The “Spell Check” item and icon. +-} +pattern STOCK_SPELL_CHECK = "gtk-spell-check" :: T.Text + +{-# DEPRECATED STOCK_SORT_DESCENDING ["(Since version 3.10)","Use named icon "view-sort-descending"."] #-} +{- | +The “Descending” item and icon. +-} +pattern STOCK_SORT_DESCENDING = "gtk-sort-descending" :: T.Text + +{-# DEPRECATED STOCK_SORT_ASCENDING ["(Since version 3.10)","Use named icon "view-sort-ascending"."] #-} +{- | +The “Ascending” item and icon. +-} +pattern STOCK_SORT_ASCENDING = "gtk-sort-ascending" :: T.Text + +{-# DEPRECATED STOCK_SELECT_FONT ["(Since version 3.10)"] #-} +{- | +The “Font” item and icon. +-} +pattern STOCK_SELECT_FONT = "gtk-select-font" :: T.Text + +{-# DEPRECATED STOCK_SELECT_COLOR ["(Since version 3.10)"] #-} +{- | +The “Color” item and icon. +-} +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"."] #-} +{- | +The “Select All” item and icon. + +/Since: 2.10/ +-} +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"."] #-} +{- | +The “Save As” item and icon. +-} +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"."] #-} +{- | +The “Save” item and icon. +-} +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"."] #-} +{- | +The “Revert” item and icon. The icon has an RTL variant. +-} +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"."] #-} +{- | +The “Remove” item and icon. +-} +pattern STOCK_REMOVE = "gtk-remove" :: T.Text + +{-# DEPRECATED STOCK_REFRESH ["(Since version 3.10)","Use named icon "view-refresh" or the label "_Refresh"."] #-} +{- | +The “Refresh” item and icon. +-} +pattern STOCK_REFRESH = "gtk-refresh" :: T.Text + +{-# DEPRECATED STOCK_REDO ["(Since version 3.10)","Use named icon "edit-redo" or the label "_Redo"."] #-} +{- | +The “Redo” item and icon. The icon has an RTL variant. +-} +pattern STOCK_REDO = "gtk-redo" :: T.Text + +{-# DEPRECATED STOCK_QUIT ["(Since version 3.10)","Use named icon "application-exit" or the label "_Quit"."] #-} +{- | +The “Quit” item and icon. +-} +pattern STOCK_QUIT = "gtk-quit" :: T.Text + +{-# DEPRECATED STOCK_PROPERTIES ["(Since version 3.10)","Use named icon "document-properties" or the label "_Properties"."] #-} +{- | +The “Properties” item and icon. +-} +pattern STOCK_PROPERTIES = "gtk-properties" :: T.Text + +{-# DEPRECATED STOCK_PRINT_WARNING ["(Since version 3.10)"] #-} +{- | +The “Print Warning” icon. + +/Since: 2.14/ +-} +pattern STOCK_PRINT_WARNING = "gtk-print-warning" :: T.Text + +{-# DEPRECATED STOCK_PRINT_REPORT ["(Since version 3.10)"] #-} +{- | +The “Print Report” icon. + +/Since: 2.14/ +-} +pattern STOCK_PRINT_REPORT = "gtk-print-report" :: T.Text + +{-# DEPRECATED STOCK_PRINT_PREVIEW ["(Since version 3.10)","Use label "Pre_view"."] #-} +{- | +The “Print Preview” item and icon. +-} +pattern STOCK_PRINT_PREVIEW = "gtk-print-preview" :: T.Text + +{-# DEPRECATED STOCK_PRINT_PAUSED ["(Since version 3.10)"] #-} +{- | +The “Print Paused” icon. + +/Since: 2.14/ +-} +pattern STOCK_PRINT_PAUSED = "gtk-print-paused" :: T.Text + +{-# DEPRECATED STOCK_PRINT_ERROR ["(Since version 3.10)","Use named icon "printer-error"."] #-} +{- | +The “Print Error” icon. + +/Since: 2.14/ +-} +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"."] #-} +{- | +The “Print” item and icon. +-} +pattern STOCK_PRINT = "gtk-print" :: T.Text + +{-# DEPRECATED STOCK_PREFERENCES ["(Since version 3.10)","Use named icon "preferences-system" or the label "_Preferences"."] #-} +{- | +The “Preferences” item and icon. +-} +pattern STOCK_PREFERENCES = "gtk-preferences" :: T.Text + +{-# DEPRECATED STOCK_PASTE ["(Since version 3.10)","Use named icon "edit-paste" or the label "_Paste"."] #-} +{- | +The “Paste” item and icon. +-} +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"."] #-} +{- | +The “Page Setup” item and icon. + +/Since: 2.14/ +-} +pattern STOCK_PAGE_SETUP = "gtk-page-setup" :: T.Text + +{-# DEPRECATED STOCK_ORIENTATION_REVERSE_PORTRAIT ["(Since version 3.10)"] #-} +{- | +The “Reverse Portrait Orientation” item and icon. + +/Since: 2.10/ +-} +pattern STOCK_ORIENTATION_REVERSE_PORTRAIT = "gtk-orientation-reverse-portrait" :: T.Text + +{-# DEPRECATED STOCK_ORIENTATION_REVERSE_LANDSCAPE ["(Since version 3.10)"] #-} +{- | +The “Reverse Landscape Orientation” item and icon. + +/Since: 2.10/ +-} +pattern STOCK_ORIENTATION_REVERSE_LANDSCAPE = "gtk-orientation-reverse-landscape" :: T.Text + +{-# DEPRECATED STOCK_ORIENTATION_PORTRAIT ["(Since version 3.10)"] #-} +{- | +The “Portrait Orientation” item and icon. + +/Since: 2.10/ +-} +pattern STOCK_ORIENTATION_PORTRAIT = "gtk-orientation-portrait" :: T.Text + +{-# DEPRECATED STOCK_ORIENTATION_LANDSCAPE ["(Since version 3.10)"] #-} +{- | +The “Landscape Orientation” item and icon. + +/Since: 2.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"."] #-} +{- | +The “Open” item and icon. +-} +pattern STOCK_OPEN = "gtk-open" :: T.Text + +{-# DEPRECATED STOCK_OK ["(Since version 3.10)","Do not use an icon. Use label "_OK"."] #-} +{- | +The “OK” item and icon. +-} +pattern STOCK_OK = "gtk-ok" :: T.Text + +{-# DEPRECATED STOCK_NO ["(Since version 3.10)"] #-} +{- | +The “No” item and icon. +-} +pattern STOCK_NO = "gtk-no" :: T.Text + +{-# DEPRECATED STOCK_NEW ["(Since version 3.10)","Use named icon "document-new" or the label "_New"."] #-} +{- | +The “New” item and icon. +-} +pattern STOCK_NEW = "gtk-new" :: T.Text + +{-# DEPRECATED STOCK_NETWORK ["(Since version 3.10)","Use named icon "network-workgroup"."] #-} +{- | +The “Network” item and icon. + +/Since: 2.4/ +-} +pattern STOCK_NETWORK = "gtk-network" :: T.Text + +{-# DEPRECATED STOCK_MISSING_IMAGE ["(Since version 3.10)","Use named icon "image-missing"."] #-} +{- | +The “Missing image” icon. +-} +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"."] #-} +{- | +The “Media Stop” item and icon. + +/Since: 2.6/ +-} +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"."] #-} +{- | +The “Media Rewind” item and icon. The icon has an RTL variant. + +/Since: 2.6/ +-} +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"."] #-} +{- | +The “Media Record” item and icon. + +/Since: 2.6/ +-} +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"."] #-} +{- | +The “Media Previous” item and icon. The icon has an RTL variant. + +/Since: 2.6/ +-} +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"."] #-} +{- | +The “Media Play” item and icon. The icon has an RTL variant. + +/Since: 2.6/ +-} +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"."] #-} +{- | +The “Media Pause” item and icon. + +/Since: 2.6/ +-} +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"."] #-} +{- | +The “Media Next” item and icon. The icon has an RTL variant. + +/Since: 2.6/ +-} +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"."] #-} +{- | +The “Media Forward” item and icon. The icon has an RTL variant. + +/Since: 2.6/ +-} +pattern STOCK_MEDIA_FORWARD = "gtk-media-forward" :: T.Text + +{-# DEPRECATED STOCK_LEAVE_FULLSCREEN ["(Since version 3.10)","Use named icon "view-restore"."] #-} +{- | +The “Leave Fullscreen” item and icon. + +/Since: 2.8/ +-} +pattern STOCK_LEAVE_FULLSCREEN = "gtk-leave-fullscreen" :: T.Text + +{-# DEPRECATED STOCK_JUSTIFY_RIGHT ["(Since version 3.10)","Use named icon "format-justify-right"."] #-} +{- | +The “Right” item and icon. +-} +pattern STOCK_JUSTIFY_RIGHT = "gtk-justify-right" :: T.Text + +{-# DEPRECATED STOCK_JUSTIFY_LEFT ["(Since version 3.10)","Use named icon "format-justify-left"."] #-} +{- | +The “Left” item and icon. +-} +pattern STOCK_JUSTIFY_LEFT = "gtk-justify-left" :: T.Text + +{-# DEPRECATED STOCK_JUSTIFY_FILL ["(Since version 3.10)","Use named icon "format-justify-fill"."] #-} +{- | +The “Fill” item and icon. +-} +pattern STOCK_JUSTIFY_FILL = "gtk-justify-fill" :: T.Text + +{-# DEPRECATED STOCK_JUSTIFY_CENTER ["(Since version 3.10)","Use named icon "format-justify-center"."] #-} +{- | +The “Center” item and icon. +-} +pattern STOCK_JUSTIFY_CENTER = "gtk-justify-center" :: T.Text + +{-# DEPRECATED STOCK_JUMP_TO ["(Since version 3.10)","Use named icon "go-jump"."] #-} +{- | +The “Jump to” item and icon. The icon has an RTL variant. +-} +pattern STOCK_JUMP_TO = "gtk-jump-to" :: T.Text + +{-# DEPRECATED STOCK_ITALIC ["(Since version 3.10)","Use named icon "format-text-italic"."] #-} +{- | +The “Italic” item and icon. +-} +pattern STOCK_ITALIC = "gtk-italic" :: T.Text + +{-# DEPRECATED STOCK_INFO ["(Since version 3.10)","Use named icon "dialog-information"."] #-} +{- | +The “Info” item and icon. + +/Since: 2.8/ +-} +pattern STOCK_INFO = "gtk-info" :: T.Text + +{-# DEPRECATED STOCK_INDEX ["(Since version 3.10)"] #-} +{- | +The “Index” item and icon. +-} +pattern STOCK_INDEX = "gtk-index" :: T.Text + +{-# DEPRECATED STOCK_INDENT ["(Since version 3.10)","Use named icon "format-indent-more"."] #-} +{- | +The “Indent” item and icon. The icon has an RTL variant. + +/Since: 2.4/ +-} +pattern STOCK_INDENT = "gtk-indent" :: T.Text + +{-# DEPRECATED STOCK_HOME ["(Since version 3.10)","Use named icon "go-home"."] #-} +{- | +The “Home” item and icon. +-} +pattern STOCK_HOME = "gtk-home" :: T.Text + +{-# DEPRECATED STOCK_HELP ["(Since version 3.10)","Use named icon "help-browser"."] #-} +{- | +The “Help” item and icon. +-} +pattern STOCK_HELP = "gtk-help" :: T.Text + +{-# DEPRECATED STOCK_HARDDISK ["(Since version 3.10)","Use named icon "drive-harddisk"."] #-} +{- | +The “Harddisk” item and icon. + +/Since: 2.4/ +-} +pattern STOCK_HARDDISK = "gtk-harddisk" :: T.Text + +{-# DEPRECATED STOCK_GO_UP ["(Since version 3.10)","Use named icon "go-up"."] #-} +{- | +The “Up” item and icon. +-} +pattern STOCK_GO_UP = "gtk-go-up" :: T.Text + +{-# DEPRECATED STOCK_GO_FORWARD ["(Since version 3.10)","Use named icon "go-next"."] #-} +{- | +The “Forward” item and icon. The icon has an RTL variant. +-} +pattern STOCK_GO_FORWARD = "gtk-go-forward" :: T.Text + +{-# DEPRECATED STOCK_GO_DOWN ["(Since version 3.10)","Use named icon "go-down"."] #-} +{- | +The “Down” item and icon. +-} +pattern STOCK_GO_DOWN = "gtk-go-down" :: T.Text + +{-# DEPRECATED STOCK_GO_BACK ["(Since version 3.10)","Use named icon "go-previous"."] #-} +{- | +The “Back” item and icon. The icon has an RTL variant. +-} +pattern STOCK_GO_BACK = "gtk-go-back" :: T.Text + +{-# DEPRECATED STOCK_GOTO_TOP ["(Since version 3.10)","Use named icon "go-top"."] #-} +{- | +The “Top” item and icon. +-} +pattern STOCK_GOTO_TOP = "gtk-goto-top" :: T.Text + +{-# DEPRECATED STOCK_GOTO_LAST ["(Since version 3.10)","Use named icon "go-last"."] #-} +{- | +The “Last” item and icon. The icon has an RTL variant. +-} +pattern STOCK_GOTO_LAST = "gtk-goto-last" :: T.Text + +{-# DEPRECATED STOCK_GOTO_FIRST ["(Since version 3.10)","Use named icon "go-first"."] #-} +{- | +The “First” item and icon. The icon has an RTL variant. +-} +pattern STOCK_GOTO_FIRST = "gtk-goto-first" :: T.Text + +{-# DEPRECATED STOCK_GOTO_BOTTOM ["(Since version 3.10)","Use named icon "go-bottom"."] #-} +{- | +The “Bottom” item and icon. +-} +pattern STOCK_GOTO_BOTTOM = "gtk-goto-bottom" :: T.Text + +{-# DEPRECATED STOCK_FULLSCREEN ["(Since version 3.10)","Use named icon "view-fullscreen"."] #-} +{- | +The “Fullscreen” item and icon. + +/Since: 2.8/ +-} +pattern STOCK_FULLSCREEN = "gtk-fullscreen" :: T.Text + +{-# DEPRECATED STOCK_FLOPPY ["(Since version 3.10)"] #-} +{- | +The “Floppy” item and icon. +-} +pattern STOCK_FLOPPY = "gtk-floppy" :: T.Text + +{-# DEPRECATED STOCK_FIND_AND_REPLACE ["(Since version 3.10)","Use named icon "edit-find-replace"."] #-} +{- | +The “Find and Replace” item and icon. +-} +pattern STOCK_FIND_AND_REPLACE = "gtk-find-and-replace" :: T.Text + +{-# DEPRECATED STOCK_FIND ["(Since version 3.10)","Use named icon "edit-find"."] #-} +{- | +The “Find” item and icon. +-} +pattern STOCK_FIND = "gtk-find" :: T.Text + +{-# DEPRECATED STOCK_FILE ["(Since version 3.10)","Use named icon "text-x-generic"."] #-} +{- | +The “File” item and icon. + +Since 3.0, this item has a label, before it only had an icon. + +/Since: 2.6/ +-} +pattern STOCK_FILE = "gtk-file" :: T.Text + +{-# DEPRECATED STOCK_EXECUTE ["(Since version 3.10)","Use named icon "system-run"."] #-} +{- | +The “Execute” item and icon. +-} +pattern STOCK_EXECUTE = "gtk-execute" :: T.Text + +{-# DEPRECATED STOCK_EDIT ["(Since version 3.10)"] #-} +{- | +The “Edit” item and icon. + +/Since: 2.6/ +-} +pattern STOCK_EDIT = "gtk-edit" :: T.Text + +{-# DEPRECATED STOCK_DND_MULTIPLE ["(Since version 3.10)"] #-} +{- | +The “Drag-And-Drop multiple” icon. +-} +pattern STOCK_DND_MULTIPLE = "gtk-dnd-multiple" :: T.Text + +{-# DEPRECATED STOCK_DND ["(Since version 3.10)"] #-} +{- | +The “Drag-And-Drop” icon. +-} +pattern STOCK_DND = "gtk-dnd" :: T.Text + +{-# DEPRECATED STOCK_DISCONNECT ["(Since version 3.10)"] #-} +{- | +The “Disconnect” icon. + +/Since: 2.6/ +-} +pattern STOCK_DISCONNECT = "gtk-disconnect" :: T.Text + +{-# DEPRECATED STOCK_DISCARD ["(Since version 3.10)"] #-} +{- | +The “Discard” item. + +/Since: 2.12/ +-} +pattern STOCK_DISCARD = "gtk-discard" :: T.Text + +{-# DEPRECATED STOCK_DIRECTORY ["(Since version 3.10)","Use named icon "folder"."] #-} +{- | +The “Directory” icon. + +/Since: 2.6/ +-} +pattern STOCK_DIRECTORY = "gtk-directory" :: T.Text + +{-# DEPRECATED STOCK_DIALOG_WARNING ["(Since version 3.10)","Use named icon "dialog-warning"."] #-} +{- | +The “Warning” item and icon. +-} +pattern STOCK_DIALOG_WARNING = "gtk-dialog-warning" :: T.Text + +{-# DEPRECATED STOCK_DIALOG_QUESTION ["(Since version 3.10)","Use named icon "dialog-question"."] #-} +{- | +The “Question” item and icon. +-} +pattern STOCK_DIALOG_QUESTION = "gtk-dialog-question" :: T.Text + +{-# DEPRECATED STOCK_DIALOG_INFO ["(Since version 3.10)","Use named icon "dialog-information"."] #-} +{- | +The “Information” item and icon. +-} +pattern STOCK_DIALOG_INFO = "gtk-dialog-info" :: T.Text + +{-# DEPRECATED STOCK_DIALOG_ERROR ["(Since version 3.10)","Use named icon "dialog-error"."] #-} +{- | +The “Error” item and icon. +-} +pattern STOCK_DIALOG_ERROR = "gtk-dialog-error" :: T.Text + +{-# DEPRECATED STOCK_DIALOG_AUTHENTICATION ["(Since version 3.10)","Use named icon "dialog-password"."] #-} +{- | +The “Authentication” item and icon. + +/Since: 2.4/ +-} +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"."] #-} +{- | +The “Delete” item and icon. +-} +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"."] #-} +{- | +The “Cut” item and icon. +-} +pattern STOCK_CUT = "gtk-cut" :: T.Text + +{-# DEPRECATED STOCK_COPY ["(Since version 3.10)","Use the named icon "edit-copy" or the label "_Copy"."] #-} +{- | +The “Copy” item and icon. +-} +pattern STOCK_COPY = "gtk-copy" :: T.Text + +{-# DEPRECATED STOCK_CONVERT ["(Since version 3.10)"] #-} +{- | +The “Convert” item and icon. +-} +pattern STOCK_CONVERT = "gtk-convert" :: T.Text + +{-# DEPRECATED STOCK_CONNECT ["(Since version 3.10)"] #-} +{- | +The “Connect” icon. + +/Since: 2.6/ +-} +pattern STOCK_CONNECT = "gtk-connect" :: T.Text + +{-# DEPRECATED STOCK_COLOR_PICKER ["(Since version 3.10)"] #-} +{- | +The “Color Picker” item and icon. + +/Since: 2.2/ +-} +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"."] #-} +{- | +The “Close” item and icon. +-} +pattern STOCK_CLOSE = "gtk-close" :: T.Text + +{-# DEPRECATED STOCK_CLEAR ["(Since version 3.10)","Use named icon "edit-clear"."] #-} +{- | +The “Clear” item and icon. +-} +pattern STOCK_CLEAR = "gtk-clear" :: T.Text + +{-# DEPRECATED STOCK_CDROM ["(Since version 3.10)","Use named icon "media-optical"."] #-} +{- | +The “CD-Rom” item and icon. +-} +pattern STOCK_CDROM = "gtk-cdrom" :: T.Text + +{-# DEPRECATED STOCK_CAPS_LOCK_WARNING ["(Since version 3.10)","Use named icon "dialog-warning-symbolic"."] #-} +{- | +The “Caps Lock Warning” icon. + +/Since: 2.16/ +-} +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"."] #-} +{- | +The “Cancel” item and icon. +-} +pattern STOCK_CANCEL = "gtk-cancel" :: T.Text + +{-# DEPRECATED STOCK_BOLD ["(Since version 3.10)","Use named icon "format-text-bold"."] #-} +{- | +The “Bold” item and icon. +-} +pattern STOCK_BOLD = "gtk-bold" :: T.Text + +{-# DEPRECATED STOCK_APPLY ["(Since version 3.10)","Do not use an icon. Use label "_Apply"."] #-} +{- | +The “Apply” item and icon. +-} +pattern STOCK_APPLY = "gtk-apply" :: T.Text + +{-# DEPRECATED STOCK_ADD ["(Since version 3.10)","Use named icon "list-add" or the label "_Add"."] #-} +{- | +The “Add” item and icon. +-} +pattern STOCK_ADD = "gtk-add" :: T.Text + +{-# DEPRECATED STOCK_ABOUT ["(Since version 3.10)","Use named icon "help-about" or the label "_About"."] #-} +{- | +The “About” item. +<> + +/Since: 2.6/ +-} +pattern STOCK_ABOUT = "gtk-about" :: T.Text + +{- | +Use this priority for functionality related to size allocation. + +It is used internally by GTK+ to compute the sizes of widgets. +This priority is higher than 'GI.Gdk.Constants.PRIORITY_REDRAW' to avoid +resizing a widget which was just redrawn. +-} +pattern PRIORITY_RESIZE = 110 :: Int32 + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_WIN32_DRIVER_VERSION = "win32-driver-version" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_WIN32_DRIVER_EXTRA = "win32-driver-extra" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_USE_COLOR = "use-color" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_SCALE = "scale" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_REVERSE = "reverse" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_RESOLUTION_Y = "resolution-y" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_RESOLUTION_X = "resolution-x" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_RESOLUTION = "resolution" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_QUALITY = "quality" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PRINT_PAGES = "print-pages" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PRINTER_LPI = "printer-lpi" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PRINTER = "printer" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PAPER_WIDTH = "paper-width" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PAPER_HEIGHT = "paper-height" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PAPER_FORMAT = "paper-format" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PAGE_SET = "page-set" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_PAGE_RANGES = "page-ranges" :: T.Text + +{- | +The key used by the “Print to file” printer to store the URI +to which the output should be written. GTK+ itself supports +only “file:\/\/” URIs. +-} +pattern PRINT_SETTINGS_OUTPUT_URI = "output-uri" :: T.Text + +{- | +The key used by the “Print to file” printer to store the format +of the output. The supported values are “PS” and “PDF”. +-} +pattern PRINT_SETTINGS_OUTPUT_FILE_FORMAT = "output-file-format" :: T.Text + +{- | +The key used by the “Print to file” printer to store the +directory to which the output should be written. + +/Since: 3.6/ +-} +pattern PRINT_SETTINGS_OUTPUT_DIR = "output-dir" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_OUTPUT_BIN = "output-bin" :: T.Text + +{- | +The key used by the “Print to file” printer to store the file +name of the output without the path to the directory and the +file extension. + +/Since: 3.6/ +-} +pattern PRINT_SETTINGS_OUTPUT_BASENAME = "output-basename" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_ORIENTATION = "orientation" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_N_COPIES = "n-copies" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_NUMBER_UP_LAYOUT = "number-up-layout" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_NUMBER_UP = "number-up" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_MEDIA_TYPE = "media-type" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_FINISHINGS = "finishings" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_DUPLEX = "duplex" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_DITHER = "dither" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_DEFAULT_SOURCE = "default-source" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PRINT_SETTINGS_COLLATE = "collate" :: T.Text + +{- | +/No description available in the introspection data./ +-} +pattern PATH_PRIO_MASK = 15 :: Int32 + +{- | +Name for the Letter paper size. +-} +pattern PAPER_NAME_LETTER = "na_letter" :: T.Text + +{- | +Name for the Legal paper size. +-} +pattern PAPER_NAME_LEGAL = "na_legal" :: T.Text + +{- | +Name for the Executive paper size. +-} +pattern PAPER_NAME_EXECUTIVE = "na_executive" :: T.Text + +{- | +Name for the B5 paper size. +-} +pattern PAPER_NAME_B5 = "iso_b5" :: T.Text + +{- | +Name for the A5 paper size. +-} +pattern PAPER_NAME_A5 = "iso_a5" :: T.Text + +{- | +Name for the A4 paper size. +-} +pattern PAPER_NAME_A4 = "iso_a4" :: T.Text + +{- | +Name for the A3 paper size. +-} +pattern PAPER_NAME_A3 = "iso_a3" :: T.Text + +{- | +Like 'GI.Gtk.Functions.getMinorVersion', but from the headers used at +application compile time, rather than from the library linked +against at application run time. +-} +pattern MINOR_VERSION = 24 :: Int32 + +{- | +Like 'GI.Gtk.Functions.getMicroVersion', but from the headers used at +application compile time, rather than from the library linked +against at application run time. +-} +pattern MICRO_VERSION = 8 :: Int32 + +{- | +The maximum length of sequences in compose tables. +-} +pattern MAX_COMPOSE_LEN = 7 :: Int32 + +{- | +Like 'GI.Gtk.Functions.getMajorVersion', but from the headers used at +application compile time, rather than from the library linked +against at application run time. +-} +pattern MAJOR_VERSION = 3 :: Int32 + +{- | +The name used for the stock low offset included by 'GI.Gtk.Objects.LevelBar.LevelBar'. + +/Since: 3.6/ +-} +pattern LEVEL_BAR_OFFSET_LOW = "low" :: T.Text + +{- | +The name used for the stock high offset included by 'GI.Gtk.Objects.LevelBar.LevelBar'. + +/Since: 3.6/ +-} +pattern LEVEL_BAR_OFFSET_HIGH = "high" :: T.Text + +{- | +The name used for the stock full offset included by 'GI.Gtk.Objects.LevelBar.LevelBar'. + +/Since: 3.20/ +-} +pattern LEVEL_BAR_OFFSET_FULL = "full" :: T.Text + +{- | +Like 'GI.Gtk.Functions.getInterfaceAge', but from the headers used at +application compile time, rather than from the library linked +against at application run time. +-} +pattern INTERFACE_AGE = 4 :: Int32 + +{- | +Constant to return from a signal handler for the 'GI.Gtk.Objects.SpinButton.SpinButton'::@/input/@ +signal in case of conversion failure. +-} +pattern INPUT_ERROR = -1 :: Int32 + +{- | +Like 'GI.Gtk.Functions.getBinaryAge', but from the headers used at +application compile time, rather than from the library linked +against at application run time. +-} +pattern BINARY_AGE = 2408 :: Int32 + + diff --git a/GI/Gtk/Enums.hs b/GI/Gtk/Enums.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Enums.hs @@ -0,0 +1,6233 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Enums + ( + + -- * Enumerations +-- ** Align #enum:Align# + + Align(..) , + + +-- ** ArrowPlacement #enum:ArrowPlacement# + + ArrowPlacement(..) , + + +-- ** ArrowType #enum:ArrowType# + + ArrowType(..) , + + +-- ** AssistantPageType #enum:AssistantPageType# + + AssistantPageType(..) , + + +-- ** BaselinePosition #enum:BaselinePosition# + + BaselinePosition(..) , + + +-- ** BorderStyle #enum:BorderStyle# + + BorderStyle(..) , + + +-- ** BuilderError #enum:BuilderError# + + BuilderError(..) , + catchBuilderError , + handleBuilderError , + + +-- ** ButtonBoxStyle #enum:ButtonBoxStyle# + + ButtonBoxStyle(..) , + + +-- ** ButtonRole #enum:ButtonRole# + + ButtonRole(..) , + + +-- ** ButtonsType #enum:ButtonsType# + + ButtonsType(..) , + + +-- ** CellRendererAccelMode #enum:CellRendererAccelMode# + + CellRendererAccelMode(..) , + + +-- ** CellRendererMode #enum:CellRendererMode# + + CellRendererMode(..) , + + +-- ** CornerType #enum:CornerType# + + CornerType(..) , + + +-- ** CssProviderError #enum:CssProviderError# + + CssProviderError(..) , + catchCssProviderError , + handleCssProviderError , + + +-- ** CssSectionType #enum:CssSectionType# + + CssSectionType(..) , + + +-- ** DeleteType #enum:DeleteType# + + DeleteType(..) , + + +-- ** DirectionType #enum:DirectionType# + + DirectionType(..) , + + +-- ** DragResult #enum:DragResult# + + DragResult(..) , + + +-- ** EntryIconPosition #enum:EntryIconPosition# + + EntryIconPosition(..) , + + +-- ** EventSequenceState #enum:EventSequenceState# + + EventSequenceState(..) , + + +-- ** ExpanderStyle #enum:ExpanderStyle# + + ExpanderStyle(..) , + + +-- ** FileChooserAction #enum:FileChooserAction# + + FileChooserAction(..) , + + +-- ** FileChooserConfirmation #enum:FileChooserConfirmation# + + FileChooserConfirmation(..) , + + +-- ** FileChooserError #enum:FileChooserError# + + FileChooserError(..) , + catchFileChooserError , + handleFileChooserError , + + +-- ** IMPreeditStyle #enum:IMPreeditStyle# + + IMPreeditStyle(..) , + + +-- ** IMStatusStyle #enum:IMStatusStyle# + + IMStatusStyle(..) , + + +-- ** IconSize #enum:IconSize# + + IconSize(..) , + + +-- ** IconThemeError #enum:IconThemeError# + + IconThemeError(..) , + catchIconThemeError , + handleIconThemeError , + + +-- ** IconViewDropPosition #enum:IconViewDropPosition# + + IconViewDropPosition(..) , + + +-- ** ImageType #enum:ImageType# + + ImageType(..) , + + +-- ** InputPurpose #enum:InputPurpose# + + InputPurpose(..) , + + +-- ** Justification #enum:Justification# + + Justification(..) , + + +-- ** LevelBarMode #enum:LevelBarMode# + + LevelBarMode(..) , + + +-- ** License #enum:License# + + License(..) , + + +-- ** MenuDirectionType #enum:MenuDirectionType# + + MenuDirectionType(..) , + + +-- ** MessageType #enum:MessageType# + + MessageType(..) , + + +-- ** MovementStep #enum:MovementStep# + + MovementStep(..) , + + +-- ** NotebookTab #enum:NotebookTab# + + NotebookTab(..) , + + +-- ** NumberUpLayout #enum:NumberUpLayout# + + NumberUpLayout(..) , + + +-- ** Orientation #enum:Orientation# + + Orientation(..) , + + +-- ** PackDirection #enum:PackDirection# + + PackDirection(..) , + + +-- ** PackType #enum:PackType# + + PackType(..) , + + +-- ** PadActionType #enum:PadActionType# + + PadActionType(..) , + + +-- ** PageOrientation #enum:PageOrientation# + + PageOrientation(..) , + + +-- ** PageSet #enum:PageSet# + + PageSet(..) , + + +-- ** PanDirection #enum:PanDirection# + + PanDirection(..) , + + +-- ** PathPriorityType #enum:PathPriorityType# + + PathPriorityType(..) , + + +-- ** PathType #enum:PathType# + + PathType(..) , + + +-- ** PolicyType #enum:PolicyType# + + PolicyType(..) , + + +-- ** PopoverConstraint #enum:PopoverConstraint# + + PopoverConstraint(..) , + + +-- ** PositionType #enum:PositionType# + + PositionType(..) , + + +-- ** PrintDuplex #enum:PrintDuplex# + + PrintDuplex(..) , + + +-- ** PrintError #enum:PrintError# + + PrintError(..) , + catchPrintError , + handlePrintError , + + +-- ** PrintOperationAction #enum:PrintOperationAction# + + PrintOperationAction(..) , + + +-- ** PrintOperationResult #enum:PrintOperationResult# + + PrintOperationResult(..) , + + +-- ** PrintPages #enum:PrintPages# + + PrintPages(..) , + + +-- ** PrintQuality #enum:PrintQuality# + + PrintQuality(..) , + + +-- ** PrintStatus #enum:PrintStatus# + + PrintStatus(..) , + + +-- ** PropagationPhase #enum:PropagationPhase# + + PropagationPhase(..) , + + +-- ** RcTokenType #enum:RcTokenType# + + RcTokenType(..) , + + +-- ** RecentChooserError #enum:RecentChooserError# + + RecentChooserError(..) , + catchRecentChooserError , + handleRecentChooserError , + + +-- ** RecentManagerError #enum:RecentManagerError# + + RecentManagerError(..) , + catchRecentManagerError , + handleRecentManagerError , + + +-- ** RecentSortType #enum:RecentSortType# + + RecentSortType(..) , + + +-- ** ReliefStyle #enum:ReliefStyle# + + ReliefStyle(..) , + + +-- ** ResizeMode #enum:ResizeMode# + + ResizeMode(..) , + + +-- ** ResponseType #enum:ResponseType# + + ResponseType(..) , + + +-- ** RevealerTransitionType #enum:RevealerTransitionType# + + RevealerTransitionType(..) , + + +-- ** ScrollStep #enum:ScrollStep# + + ScrollStep(..) , + + +-- ** ScrollType #enum:ScrollType# + + ScrollType(..) , + + +-- ** ScrollablePolicy #enum:ScrollablePolicy# + + ScrollablePolicy(..) , + + +-- ** SelectionMode #enum:SelectionMode# + + SelectionMode(..) , + + +-- ** SensitivityType #enum:SensitivityType# + + SensitivityType(..) , + + +-- ** ShadowType #enum:ShadowType# + + ShadowType(..) , + + +-- ** ShortcutType #enum:ShortcutType# + + ShortcutType(..) , + + +-- ** SizeGroupMode #enum:SizeGroupMode# + + SizeGroupMode(..) , + + +-- ** SizeRequestMode #enum:SizeRequestMode# + + SizeRequestMode(..) , + + +-- ** SortType #enum:SortType# + + SortType(..) , + + +-- ** SpinButtonUpdatePolicy #enum:SpinButtonUpdatePolicy# + + SpinButtonUpdatePolicy(..) , + + +-- ** SpinType #enum:SpinType# + + SpinType(..) , + + +-- ** StackTransitionType #enum:StackTransitionType# + + StackTransitionType(..) , + + +-- ** StateType #enum:StateType# + + StateType(..) , + + +-- ** TextBufferTargetInfo #enum:TextBufferTargetInfo# + + TextBufferTargetInfo(..) , + + +-- ** TextDirection #enum:TextDirection# + + TextDirection(..) , + + +-- ** TextExtendSelection #enum:TextExtendSelection# + + TextExtendSelection(..) , + + +-- ** TextViewLayer #enum:TextViewLayer# + + TextViewLayer(..) , + + +-- ** TextWindowType #enum:TextWindowType# + + TextWindowType(..) , + + +-- ** ToolbarSpaceStyle #enum:ToolbarSpaceStyle# + + ToolbarSpaceStyle(..) , + + +-- ** ToolbarStyle #enum:ToolbarStyle# + + ToolbarStyle(..) , + + +-- ** TreeViewColumnSizing #enum:TreeViewColumnSizing# + + TreeViewColumnSizing(..) , + + +-- ** TreeViewDropPosition #enum:TreeViewDropPosition# + + TreeViewDropPosition(..) , + + +-- ** TreeViewGridLines #enum:TreeViewGridLines# + + TreeViewGridLines(..) , + + +-- ** Unit #enum:Unit# + + Unit(..) , + + +-- ** WidgetHelpType #enum:WidgetHelpType# + + WidgetHelpType(..) , + + +-- ** WindowPosition #enum:WindowPosition# + + WindowPosition(..) , + + +-- ** WindowType #enum:WindowType# + + WindowType(..) , + + +-- ** WrapMode #enum:WrapMode# + + WrapMode(..) , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + + +-- Enum WrapMode +{- | +Describes a type of line wrapping. +-} +data WrapMode = + WrapModeNone + {- ^ + do not wrap lines; just make the text area wider + -} + | WrapModeChar + {- ^ + wrap text, breaking lines anywhere the cursor can + appear (between characters, usually - if you want to be technical, + between graphemes, see 'GI.Pango.Functions.getLogAttrs') + -} + | WrapModeWord + {- ^ + wrap text, breaking lines in between words + -} + | WrapModeWordChar + {- ^ + wrap text, breaking lines in between words, or if + that is not enough, also between graphemes + -} + | AnotherWrapMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord WrapMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +A 'GI.Gtk.Objects.Window.Window' can be one of these types. Most things you’d consider a +“window” should have type @/GTK_WINDOW_TOPLEVEL/@; windows with this type +are managed by the window manager and have a frame by default (call +'GI.Gtk.Objects.Window.windowSetDecorated' to toggle the frame). Windows with type +@/GTK_WINDOW_POPUP/@ are ignored by the window manager; window manager +keybindings won’t work on them, the window manager won’t decorate the +window with a frame, many GTK+ features that rely on the window +manager will not work (e.g. resize grips and +maximization\/minimization). @/GTK_WINDOW_POPUP/@ is used to implement +widgets such as 'GI.Gtk.Objects.Menu.Menu' or tooltips that you normally don’t think of +as windows per se. Nearly all windows should be @/GTK_WINDOW_TOPLEVEL/@. +In particular, do not use @/GTK_WINDOW_POPUP/@ just to turn off +the window borders; use 'GI.Gtk.Objects.Window.windowSetDecorated' for that. +-} +data WindowType = + WindowTypeToplevel + {- ^ + A regular window, such as a dialog. + -} + | WindowTypePopup + {- ^ + A special window such as a tooltip. + -} + | AnotherWindowType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum WindowType where + fromEnum WindowTypeToplevel = 0 + fromEnum WindowTypePopup = 1 + fromEnum (AnotherWindowType k) = k + + toEnum 0 = WindowTypeToplevel + toEnum 1 = WindowTypePopup + toEnum k = AnotherWindowType k + +instance P.Ord WindowType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Window placement can be influenced using this enumeration. Note that +using @/GTK_WIN_POS_CENTER_ALWAYS/@ is almost always a bad idea. +It won’t necessarily work well with all window managers or on all windowing systems. +-} +data WindowPosition = + WindowPositionNone + {- ^ + No influence is made on placement. + -} + | WindowPositionCenter + {- ^ + Windows should be placed in the center of the screen. + -} + | WindowPositionMouse + {- ^ + Windows should be placed at the current mouse position. + -} + | WindowPositionCenterAlways + {- ^ + Keep window centered as it changes size, etc. + -} + | WindowPositionCenterOnParent + {- ^ + Center the window on its transient + parent (see 'GI.Gtk.Objects.Window.windowSetTransientFor'). + -} + | AnotherWindowPosition Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord WindowPosition where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Kinds of widget-specific help. Used by the ::show-help signal. +-} +data WidgetHelpType = + WidgetHelpTypeTooltip + {- ^ + Tooltip. + -} + | WidgetHelpTypeWhatsThis + {- ^ + What’s this. + -} + | AnotherWidgetHelpType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum WidgetHelpType where + fromEnum WidgetHelpTypeTooltip = 0 + fromEnum WidgetHelpTypeWhatsThis = 1 + fromEnum (AnotherWidgetHelpType k) = k + + toEnum 0 = WidgetHelpTypeTooltip + toEnum 1 = WidgetHelpTypeWhatsThis + toEnum k = AnotherWidgetHelpType k + +instance P.Ord WidgetHelpType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +See also 'GI.Gtk.Objects.PrintSettings.printSettingsSetPaperWidth'. +-} +data Unit = + UnitNone + {- ^ + No units. + -} + | UnitPoints + {- ^ + Dimensions in points. + -} + | UnitInch + {- ^ + Dimensions in inches. + -} + | UnitMm + {- ^ + Dimensions in millimeters + -} + | AnotherUnit Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord Unit where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to indicate which grid lines to draw in a tree view. +-} +data TreeViewGridLines = + TreeViewGridLinesNone + {- ^ + No grid lines. + -} + | TreeViewGridLinesHorizontal + {- ^ + Horizontal grid lines. + -} + | TreeViewGridLinesVertical + {- ^ + Vertical grid lines. + -} + | TreeViewGridLinesBoth + {- ^ + Horizontal and vertical grid lines. + -} + | AnotherTreeViewGridLines Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord TreeViewGridLines where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +An enum for determining where a dropped row goes. +-} +data TreeViewDropPosition = + TreeViewDropPositionBefore + {- ^ + dropped row is inserted before + -} + | TreeViewDropPositionAfter + {- ^ + dropped row is inserted after + -} + | TreeViewDropPositionIntoOrBefore + {- ^ + dropped row becomes a child or is inserted before + -} + | TreeViewDropPositionIntoOrAfter + {- ^ + dropped row becomes a child or is inserted after + -} + | AnotherTreeViewDropPosition Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord TreeViewDropPosition where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The sizing method the column uses to determine its width. Please note +that /@gTKTREEVIEWCOLUMNAUTOSIZE@/ are inefficient for large views, and +can make columns appear choppy. +-} +data TreeViewColumnSizing = + TreeViewColumnSizingGrowOnly + {- ^ + Columns only get bigger in reaction to changes in the model + -} + | TreeViewColumnSizingAutosize + {- ^ + Columns resize to be the optimal size everytime the model changes. + -} + | TreeViewColumnSizingFixed + {- ^ + Columns are a fixed numbers of pixels wide. + -} + | AnotherTreeViewColumnSizing Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord TreeViewColumnSizing where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to customize the appearance of a 'GI.Gtk.Objects.Toolbar.Toolbar'. Note that +setting the toolbar style overrides the user’s preferences +for the default toolbar style. Note that if the button has only +a label set and GTK_TOOLBAR_ICONS is used, the label will be +visible, and vice versa. +-} +data ToolbarStyle = + ToolbarStyleIcons + {- ^ + Buttons display only icons in the toolbar. + -} + | ToolbarStyleText + {- ^ + Buttons display only text labels in the toolbar. + -} + | ToolbarStyleBoth + {- ^ + Buttons display text and icons in the toolbar. + -} + | ToolbarStyleBothHoriz + {- ^ + Buttons display icons and text alongside each + other, rather than vertically stacked + -} + | AnotherToolbarStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ToolbarStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{-# DEPRECATED ToolbarSpaceStyle ["(Since version 3.20)"] #-} +{- | +Whether spacers are vertical lines or just blank. +-} +data ToolbarSpaceStyle = + ToolbarSpaceStyleEmpty + {- ^ + Use blank spacers. + -} + | ToolbarSpaceStyleLine + {- ^ + Use vertical lines for spacers. + -} + | AnotherToolbarSpaceStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum ToolbarSpaceStyle where + fromEnum ToolbarSpaceStyleEmpty = 0 + fromEnum ToolbarSpaceStyleLine = 1 + fromEnum (AnotherToolbarSpaceStyle k) = k + + toEnum 0 = ToolbarSpaceStyleEmpty + toEnum 1 = ToolbarSpaceStyleLine + toEnum k = AnotherToolbarSpaceStyle k + +instance P.Ord ToolbarSpaceStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to reference the parts of 'GI.Gtk.Objects.TextView.TextView'. +-} +data TextWindowType = + TextWindowTypePrivate + {- ^ + Invalid value, used as a marker + -} + | TextWindowTypeWidget + {- ^ + Window that floats over scrolling areas. + -} + | TextWindowTypeText + {- ^ + Scrollable text window. + -} + | TextWindowTypeLeft + {- ^ + Left side border window. + -} + | TextWindowTypeRight + {- ^ + Right side border window. + -} + | TextWindowTypeTop + {- ^ + Top border window. + -} + | TextWindowTypeBottom + {- ^ + Bottom border window. + -} + | AnotherTextWindowType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord TextWindowType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to reference the layers of 'GI.Gtk.Objects.TextView.TextView' for the purpose of customized +drawing with the ::draw_layer vfunc. +-} +data TextViewLayer = + TextViewLayerBelow + {- ^ + Old deprecated layer, use 'GI.Gtk.Enums.TextViewLayerBelowText' instead + -} + | TextViewLayerAbove + {- ^ + Old deprecated layer, use 'GI.Gtk.Enums.TextViewLayerAboveText' instead + -} + | TextViewLayerBelowText + {- ^ + The layer rendered below the text (but above the background). Since: 3.20 + -} + | TextViewLayerAboveText + {- ^ + The layer rendered above the text. Since: 3.20 + -} + | AnotherTextViewLayer Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum TextViewLayer where + fromEnum TextViewLayerBelow = 0 + fromEnum TextViewLayerAbove = 1 + fromEnum TextViewLayerBelowText = 2 + fromEnum TextViewLayerAboveText = 3 + fromEnum (AnotherTextViewLayer k) = k + + toEnum 0 = TextViewLayerBelow + toEnum 1 = TextViewLayerAbove + toEnum 2 = TextViewLayerBelowText + toEnum 3 = TextViewLayerAboveText + toEnum k = AnotherTextViewLayer k + +instance P.Ord TextViewLayer where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Granularity types that extend the text selection. Use the +'GI.Gtk.Objects.TextView.TextView'::@/extend-selection/@ signal to customize the selection. + +/Since: 3.16/ +-} +data TextExtendSelection = + TextExtendSelectionWord + {- ^ + Selects the current word. It is triggered by + a double-click for example. + -} + | TextExtendSelectionLine + {- ^ + Selects the current line. It is triggered by + a triple-click for example. + -} + | AnotherTextExtendSelection Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum TextExtendSelection where + fromEnum TextExtendSelectionWord = 0 + fromEnum TextExtendSelectionLine = 1 + fromEnum (AnotherTextExtendSelection k) = k + + toEnum 0 = TextExtendSelectionWord + toEnum 1 = TextExtendSelectionLine + toEnum k = AnotherTextExtendSelection k + +instance P.Ord TextExtendSelection where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Reading directions for text. +-} +data TextDirection = + TextDirectionNone + {- ^ + No direction. + -} + | TextDirectionLtr + {- ^ + Left to right text direction. + -} + | TextDirectionRtl + {- ^ + Right to left text direction. + -} + | AnotherTextDirection Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord TextDirection where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +These values are used as “info” for the targets contained in the +lists returned by 'GI.Gtk.Objects.TextBuffer.textBufferGetCopyTargetList' and +'GI.Gtk.Objects.TextBuffer.textBufferGetPasteTargetList'. + +The values counts down from @-1@ to avoid clashes +with application added drag destinations which usually start at 0. +-} +data TextBufferTargetInfo = + TextBufferTargetInfoBufferContents + {- ^ + Buffer contents + -} + | TextBufferTargetInfoRichText + {- ^ + Rich text + -} + | TextBufferTargetInfoText + {- ^ + Text + -} + | AnotherTextBufferTargetInfo Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum TextBufferTargetInfo where + fromEnum TextBufferTargetInfoBufferContents = -1 + fromEnum TextBufferTargetInfoRichText = -2 + fromEnum TextBufferTargetInfoText = -3 + fromEnum (AnotherTextBufferTargetInfo k) = k + + toEnum -1 = TextBufferTargetInfoBufferContents + toEnum -2 = TextBufferTargetInfoRichText + toEnum -3 = TextBufferTargetInfoText + toEnum k = AnotherTextBufferTargetInfo k + +instance P.Ord TextBufferTargetInfo where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 'GI.Gtk.Flags.StateFlags'."] #-} +{- | +This type indicates the current state of a widget; the state determines how +the widget is drawn. The 'GI.Gtk.Enums.StateType' enumeration is also used to +identify different colors in a 'GI.Gtk.Objects.Style.Style' for drawing, so states can be +used for subparts of a widget as well as entire widgets. +-} +data StateType = + StateTypeNormal + {- ^ + State during normal operation. + -} + | StateTypeActive + {- ^ + State of a currently active widget, such as a depressed button. + -} + | StateTypePrelight + {- ^ + State indicating that the mouse pointer is over + the widget and the widget will respond to mouse clicks. + -} + | StateTypeSelected + {- ^ + State of a selected item, such the selected row in a list. + -} + | StateTypeInsensitive + {- ^ + State indicating that the widget is + unresponsive to user actions. + -} + | StateTypeInconsistent + {- ^ + The widget is inconsistent, such as checkbuttons + or radiobuttons that aren’t either set to 'True' nor 'False', + or buttons requiring the user attention. + -} + | StateTypeFocused + {- ^ + The widget has the keyboard focus. + -} + | AnotherStateType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord StateType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +These enumeration values describe the possible transitions +between pages in a 'GI.Gtk.Objects.Stack.Stack' widget. + +New values may be added to this enumeration over time. +-} +data StackTransitionType = + StackTransitionTypeNone + {- ^ + No transition + -} + | StackTransitionTypeCrossfade + {- ^ + A cross-fade + -} + | StackTransitionTypeSlideRight + {- ^ + Slide from left to right + -} + | StackTransitionTypeSlideLeft + {- ^ + Slide from right to left + -} + | StackTransitionTypeSlideUp + {- ^ + Slide from bottom up + -} + | StackTransitionTypeSlideDown + {- ^ + Slide from top down + -} + | StackTransitionTypeSlideLeftRight + {- ^ + Slide from left or right according to the children order + -} + | StackTransitionTypeSlideUpDown + {- ^ + Slide from top down or bottom up according to the order + -} + | StackTransitionTypeOverUp + {- ^ + Cover the old page by sliding up. Since 3.12 + -} + | StackTransitionTypeOverDown + {- ^ + Cover the old page by sliding down. Since: 3.12 + -} + | StackTransitionTypeOverLeft + {- ^ + Cover the old page by sliding to the left. Since: 3.12 + -} + | StackTransitionTypeOverRight + {- ^ + Cover the old page by sliding to the right. Since: 3.12 + -} + | StackTransitionTypeUnderUp + {- ^ + Uncover the new page by sliding up. Since 3.12 + -} + | StackTransitionTypeUnderDown + {- ^ + Uncover the new page by sliding down. Since: 3.12 + -} + | StackTransitionTypeUnderLeft + {- ^ + Uncover the new page by sliding to the left. Since: 3.12 + -} + | StackTransitionTypeUnderRight + {- ^ + Uncover the new page by sliding to the right. Since: 3.12 + -} + | StackTransitionTypeOverUpDown + {- ^ + Cover the old page sliding up or uncover the new page sliding down, according to order. Since: 3.12 + -} + | StackTransitionTypeOverDownUp + {- ^ + Cover the old page sliding down or uncover the new page sliding up, according to order. Since: 3.14 + -} + | StackTransitionTypeOverLeftRight + {- ^ + Cover the old page sliding left or uncover the new page sliding right, according to order. Since: 3.14 + -} + | StackTransitionTypeOverRightLeft + {- ^ + Cover the old page sliding right or uncover the new page sliding left, according to order. Since: 3.14 + -} + | AnotherStackTransitionType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord StackTransitionType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The values of the GtkSpinType enumeration are used to specify the +change to make in 'GI.Gtk.Objects.SpinButton.spinButtonSpin'. +-} +data SpinType = + SpinTypeStepForward + {- ^ + Increment by the adjustments step increment. + -} + | SpinTypeStepBackward + {- ^ + Decrement by the adjustments step increment. + -} + | SpinTypePageForward + {- ^ + Increment by the adjustments page increment. + -} + | SpinTypePageBackward + {- ^ + Decrement by the adjustments page increment. + -} + | SpinTypeHome + {- ^ + Go to the adjustments lower bound. + -} + | SpinTypeEnd + {- ^ + Go to the adjustments upper bound. + -} + | SpinTypeUserDefined + {- ^ + Change by a specified amount. + -} + | AnotherSpinType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord SpinType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The spin button update policy determines whether the spin button displays +values even if they are outside the bounds of its adjustment. +See 'GI.Gtk.Objects.SpinButton.spinButtonSetUpdatePolicy'. +-} +data SpinButtonUpdatePolicy = + SpinButtonUpdatePolicyAlways + {- ^ + When refreshing your 'GI.Gtk.Objects.SpinButton.SpinButton', the value is + always displayed + -} + | SpinButtonUpdatePolicyIfValid + {- ^ + When refreshing your 'GI.Gtk.Objects.SpinButton.SpinButton', the value is + only displayed if it is valid within the bounds of the spin button\'s + adjustment + -} + | AnotherSpinButtonUpdatePolicy Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum SpinButtonUpdatePolicy where + fromEnum SpinButtonUpdatePolicyAlways = 0 + fromEnum SpinButtonUpdatePolicyIfValid = 1 + fromEnum (AnotherSpinButtonUpdatePolicy k) = k + + toEnum 0 = SpinButtonUpdatePolicyAlways + toEnum 1 = SpinButtonUpdatePolicyIfValid + toEnum k = AnotherSpinButtonUpdatePolicy k + +instance P.Ord SpinButtonUpdatePolicy where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Determines the direction of a sort. +-} +data SortType = + SortTypeAscending + {- ^ + Sorting is in ascending order. + -} + | SortTypeDescending + {- ^ + Sorting is in descending order. + -} + | AnotherSortType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum SortType where + fromEnum SortTypeAscending = 0 + fromEnum SortTypeDescending = 1 + fromEnum (AnotherSortType k) = k + + toEnum 0 = SortTypeAscending + toEnum 1 = SortTypeDescending + toEnum k = AnotherSortType k + +instance P.Ord SortType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Specifies a preference for height-for-width or +width-for-height geometry management. +-} +data SizeRequestMode = + SizeRequestModeHeightForWidth + {- ^ + Prefer height-for-width geometry management + -} + | SizeRequestModeWidthForHeight + {- ^ + Prefer width-for-height geometry management + -} + | SizeRequestModeConstantSize + {- ^ + Don’t trade height-for-width or width-for-height + -} + | AnotherSizeRequestMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord SizeRequestMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The mode of the size group determines the directions in which the size +group affects the requested sizes of its component widgets. +-} +data SizeGroupMode = + SizeGroupModeNone + {- ^ + group has no effect + -} + | SizeGroupModeHorizontal + {- ^ + group affects horizontal requisition + -} + | SizeGroupModeVertical + {- ^ + group affects vertical requisition + -} + | SizeGroupModeBoth + {- ^ + group affects both horizontal and vertical requisition + -} + | AnotherSizeGroupMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord SizeGroupMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 ShortcutType +{- | +GtkShortcutType specifies the kind of shortcut that is being described. +More values may be added to this enumeration over time. + +/Since: 3.20/ +-} +data ShortcutType = + ShortcutTypeAccelerator + {- ^ + The shortcut is a keyboard accelerator. The 'GI.Gtk.Objects.ShortcutsShortcut.ShortcutsShortcut':@/accelerator/@ + property will be used. + -} + | ShortcutTypeGesturePinch + {- ^ + The shortcut is a pinch gesture. GTK+ provides an icon and subtitle. + -} + | ShortcutTypeGestureStretch + {- ^ + The shortcut is a stretch gesture. GTK+ provides an icon and subtitle. + -} + | ShortcutTypeGestureRotateClockwise + {- ^ + The shortcut is a clockwise rotation gesture. GTK+ provides an icon and subtitle. + -} + | ShortcutTypeGestureRotateCounterclockwise + {- ^ + The shortcut is a counterclockwise rotation gesture. GTK+ provides an icon and subtitle. + -} + | ShortcutTypeGestureTwoFingerSwipeLeft + {- ^ + The shortcut is a two-finger swipe gesture. GTK+ provides an icon and subtitle. + -} + | ShortcutTypeGestureTwoFingerSwipeRight + {- ^ + The shortcut is a two-finger swipe gesture. GTK+ provides an icon and subtitle. + -} + | ShortcutTypeGesture + {- ^ + The shortcut is a gesture. The 'GI.Gtk.Objects.ShortcutsShortcut.ShortcutsShortcut':@/icon/@ property will be + used. + -} + | AnotherShortcutType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum ShortcutType where + fromEnum ShortcutTypeAccelerator = 0 + fromEnum ShortcutTypeGesturePinch = 1 + fromEnum ShortcutTypeGestureStretch = 2 + fromEnum ShortcutTypeGestureRotateClockwise = 3 + fromEnum ShortcutTypeGestureRotateCounterclockwise = 4 + fromEnum ShortcutTypeGestureTwoFingerSwipeLeft = 5 + fromEnum ShortcutTypeGestureTwoFingerSwipeRight = 6 + fromEnum ShortcutTypeGesture = 7 + fromEnum (AnotherShortcutType k) = k + + toEnum 0 = ShortcutTypeAccelerator + toEnum 1 = ShortcutTypeGesturePinch + toEnum 2 = ShortcutTypeGestureStretch + toEnum 3 = ShortcutTypeGestureRotateClockwise + toEnum 4 = ShortcutTypeGestureRotateCounterclockwise + toEnum 5 = ShortcutTypeGestureTwoFingerSwipeLeft + toEnum 6 = ShortcutTypeGestureTwoFingerSwipeRight + toEnum 7 = ShortcutTypeGesture + toEnum k = AnotherShortcutType k + +instance P.Ord ShortcutType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_shortcut_type_get_type" c_gtk_shortcut_type_get_type :: + IO GType + +instance BoxedEnum ShortcutType where + boxedEnumType _ = c_gtk_shortcut_type_get_type + +-- Enum ShadowType +{- | +Used to change the appearance of an outline typically provided by a 'GI.Gtk.Objects.Frame.Frame'. + +Note that many themes do not differentiate the appearance of the +various shadow types: Either their is no visible shadow (/@gTKSHADOWNONE@/), +or there is (any other value). +-} +data ShadowType = + ShadowTypeNone + {- ^ + No outline. + -} + | ShadowTypeIn + {- ^ + The outline is bevelled inwards. + -} + | ShadowTypeOut + {- ^ + The outline is bevelled outwards like a button. + -} + | ShadowTypeEtchedIn + {- ^ + The outline has a sunken 3d appearance. + -} + | ShadowTypeEtchedOut + {- ^ + The outline has a raised 3d appearance. + -} + | AnotherShadowType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ShadowType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Determines how GTK+ handles the sensitivity of stepper arrows +at the end of range widgets. +-} +data SensitivityType = + SensitivityTypeAuto + {- ^ + The arrow is made insensitive if the + thumb is at the end + -} + | SensitivityTypeOn + {- ^ + The arrow is always sensitive + -} + | SensitivityTypeOff + {- ^ + The arrow is always insensitive + -} + | AnotherSensitivityType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord SensitivityType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to control what selections users are allowed to make. +-} +data SelectionMode = + SelectionModeNone + {- ^ + No selection is possible. + -} + | SelectionModeSingle + {- ^ + Zero or one element may be selected. + -} + | SelectionModeBrowse + {- ^ + Exactly one element is selected. + In some circumstances, such as initially or during a search + operation, it’s possible for no element to be selected with + 'GI.Gtk.Enums.SelectionModeBrowse'. What is really enforced is that the user + can’t deselect a currently selected element except by selecting + another element. + -} + | SelectionModeMultiple + {- ^ + Any number of elements may be selected. + The Ctrl key may be used to enlarge the selection, and Shift + key to select between the focus and the child pointed to. + Some widgets may also allow Click-drag to select a range of elements. + -} + | AnotherSelectionMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord SelectionMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Defines the policy to be used in a scrollable widget when updating +the scrolled window adjustments in a given orientation. +-} +data ScrollablePolicy = + ScrollablePolicyMinimum + {- ^ + Scrollable adjustments are based on the minimum size + -} + | ScrollablePolicyNatural + {- ^ + Scrollable adjustments are based on the natural size + -} + | AnotherScrollablePolicy Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum ScrollablePolicy where + fromEnum ScrollablePolicyMinimum = 0 + fromEnum ScrollablePolicyNatural = 1 + fromEnum (AnotherScrollablePolicy k) = k + + toEnum 0 = ScrollablePolicyMinimum + toEnum 1 = ScrollablePolicyNatural + toEnum k = AnotherScrollablePolicy k + +instance P.Ord ScrollablePolicy where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Scrolling types. +-} +data ScrollType = + ScrollTypeNone + {- ^ + No scrolling. + -} + | ScrollTypeJump + {- ^ + Jump to new location. + -} + | ScrollTypeStepBackward + {- ^ + Step backward. + -} + | ScrollTypeStepForward + {- ^ + Step forward. + -} + | ScrollTypePageBackward + {- ^ + Page backward. + -} + | ScrollTypePageForward + {- ^ + Page forward. + -} + | ScrollTypeStepUp + {- ^ + Step up. + -} + | ScrollTypeStepDown + {- ^ + Step down. + -} + | ScrollTypePageUp + {- ^ + Page up. + -} + | ScrollTypePageDown + {- ^ + Page down. + -} + | ScrollTypeStepLeft + {- ^ + Step to the left. + -} + | ScrollTypeStepRight + {- ^ + Step to the right. + -} + | ScrollTypePageLeft + {- ^ + Page to the left. + -} + | ScrollTypePageRight + {- ^ + Page to the right. + -} + | ScrollTypeStart + {- ^ + Scroll to start. + -} + | ScrollTypeEnd + {- ^ + Scroll to end. + -} + | AnotherScrollType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ScrollType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +/No description available in the introspection data./ +-} +data ScrollStep = + ScrollStepSteps + {- ^ + Scroll in steps. + -} + | ScrollStepPages + {- ^ + Scroll by pages. + -} + | ScrollStepEnds + {- ^ + Scroll to ends. + -} + | ScrollStepHorizontalSteps + {- ^ + Scroll in horizontal steps. + -} + | ScrollStepHorizontalPages + {- ^ + Scroll by horizontal pages. + -} + | ScrollStepHorizontalEnds + {- ^ + Scroll to the horizontal ends. + -} + | AnotherScrollStep Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ScrollStep where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +These enumeration values describe the possible transitions +when the child of a 'GI.Gtk.Objects.Revealer.Revealer' widget is shown or hidden. +-} +data RevealerTransitionType = + RevealerTransitionTypeNone + {- ^ + No transition + -} + | RevealerTransitionTypeCrossfade + {- ^ + Fade in + -} + | RevealerTransitionTypeSlideRight + {- ^ + Slide in from the left + -} + | RevealerTransitionTypeSlideLeft + {- ^ + Slide in from the right + -} + | RevealerTransitionTypeSlideUp + {- ^ + Slide in from the bottom + -} + | RevealerTransitionTypeSlideDown + {- ^ + Slide in from the top + -} + | AnotherRevealerTransitionType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord RevealerTransitionType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Predefined values for use as response ids in 'GI.Gtk.Objects.Dialog.dialogAddButton'. +All predefined values are negative; GTK+ leaves values of 0 or greater for +application-defined response ids. +-} +data ResponseType = + ResponseTypeNone + {- ^ + Returned if an action widget has no response id, + or if the dialog gets programmatically hidden or destroyed + -} + | ResponseTypeReject + {- ^ + Generic response id, not used by GTK+ dialogs + -} + | ResponseTypeAccept + {- ^ + Generic response id, not used by GTK+ dialogs + -} + | ResponseTypeDeleteEvent + {- ^ + Returned if the dialog is deleted + -} + | ResponseTypeOk + {- ^ + Returned by OK buttons in GTK+ dialogs + -} + | ResponseTypeCancel + {- ^ + Returned by Cancel buttons in GTK+ dialogs + -} + | ResponseTypeClose + {- ^ + Returned by Close buttons in GTK+ dialogs + -} + | ResponseTypeYes + {- ^ + Returned by Yes buttons in GTK+ dialogs + -} + | ResponseTypeNo + {- ^ + Returned by No buttons in GTK+ dialogs + -} + | ResponseTypeApply + {- ^ + Returned by Apply buttons in GTK+ dialogs + -} + | ResponseTypeHelp + {- ^ + Returned by Help buttons in GTK+ dialogs + -} + | AnotherResponseType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 -1 = ResponseTypeNone + toEnum -2 = ResponseTypeReject + toEnum -3 = ResponseTypeAccept + toEnum -4 = ResponseTypeDeleteEvent + toEnum -5 = ResponseTypeOk + toEnum -6 = ResponseTypeCancel + toEnum -7 = ResponseTypeClose + toEnum -8 = ResponseTypeYes + toEnum -9 = ResponseTypeNo + toEnum -10 = ResponseTypeApply + toEnum -11 = ResponseTypeHelp + toEnum k = AnotherResponseType k + +instance P.Ord ResponseType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +/No description available in the introspection data./ +-} +data ResizeMode = + ResizeModeParent + {- ^ + Pass resize request to the parent + -} + | ResizeModeQueue + {- ^ + Queue resizes on this widget + -} + | ResizeModeImmediate + {- ^ + Resize immediately. Deprecated. + -} + | AnotherResizeMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ResizeMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Indicated the relief to be drawn around a 'GI.Gtk.Objects.Button.Button'. +-} +data ReliefStyle = + ReliefStyleNormal + {- ^ + Draw a normal relief. + -} + | ReliefStyleHalf + {- ^ + A half relief. Deprecated in 3.14, does the same as /@gTKRELIEFNORMAL@/ + -} + | ReliefStyleNone + {- ^ + No relief. + -} + | AnotherReliefStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ReliefStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to specify the sorting method to be applyed to the recently +used resource list. + +/Since: 2.10/ +-} +data RecentSortType = + RecentSortTypeNone + {- ^ + Do not sort the returned list of recently used + resources. + -} + | RecentSortTypeMru + {- ^ + Sort the returned list with the most recently used + items first. + -} + | RecentSortTypeLru + {- ^ + Sort the returned list with the least recently used + items first. + -} + | RecentSortTypeCustom + {- ^ + Sort the returned list using a custom sorting + function passed using 'GI.Gtk.Interfaces.RecentChooser.recentChooserSetSortFunc'. + -} + | AnotherRecentSortType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord RecentSortType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Error codes for 'GI.Gtk.Objects.RecentManager.RecentManager' operations + +/Since: 2.10/ +-} +data RecentManagerError = + RecentManagerErrorNotFound + {- ^ + the URI specified does not exists in + the recently used resources list. + -} + | RecentManagerErrorInvalidUri + {- ^ + the URI specified is not valid. + -} + | RecentManagerErrorInvalidEncoding + {- ^ + the supplied string is not + UTF-8 encoded. + -} + | RecentManagerErrorNotRegistered + {- ^ + no application has registered + the specified item. + -} + | RecentManagerErrorRead + {- ^ + failure while reading the recently used + resources file. + -} + | RecentManagerErrorWrite + {- ^ + failure while writing the recently used + resources file. + -} + | RecentManagerErrorUnknown + {- ^ + unspecified error. + -} + | AnotherRecentManagerError Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 P.Ord RecentManagerError where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +instance GErrorClass RecentManagerError where + gerrorClassDomain _ = "gtk-recent-manager-error-quark" + +-- | Catch exceptions of type `RecentManagerError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`. +catchRecentManagerError :: + IO a -> + (RecentManagerError -> GErrorMessage -> IO a) -> + IO a +catchRecentManagerError = catchGErrorJustDomain + +-- | Handle exceptions of type `RecentManagerError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`. +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 +{- | +These identify the various errors that can occur while calling +'GI.Gtk.Interfaces.RecentChooser.RecentChooser' functions. + +/Since: 2.10/ +-} +data RecentChooserError = + RecentChooserErrorNotFound + {- ^ + Indicates that a file does not exist + -} + | RecentChooserErrorInvalidUri + {- ^ + Indicates a malformed URI + -} + | AnotherRecentChooserError Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum RecentChooserError where + fromEnum RecentChooserErrorNotFound = 0 + fromEnum RecentChooserErrorInvalidUri = 1 + fromEnum (AnotherRecentChooserError k) = k + + toEnum 0 = RecentChooserErrorNotFound + toEnum 1 = RecentChooserErrorInvalidUri + toEnum k = AnotherRecentChooserError k + +instance P.Ord RecentChooserError where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +instance GErrorClass RecentChooserError where + gerrorClassDomain _ = "gtk-recent-chooser-error-quark" + +-- | Catch exceptions of type `RecentChooserError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`. +catchRecentChooserError :: + IO a -> + (RecentChooserError -> GErrorMessage -> IO a) -> + IO a +catchRecentChooserError = catchGErrorJustDomain + +-- | Handle exceptions of type `RecentChooserError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`. +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 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +The 'GI.Gtk.Enums.RcTokenType' enumeration represents the tokens +in the RC file. It is exposed so that theme engines +can reuse these tokens when parsing the theme-engine +specific portions of a RC file. +-} +data RcTokenType = + RcTokenTypeInvalid + {- ^ + Deprecated + -} + | RcTokenTypeInclude + {- ^ + Deprecated + -} + | RcTokenTypeNormal + {- ^ + Deprecated + -} + | RcTokenTypeActive + {- ^ + Deprecated + -} + | RcTokenTypePrelight + {- ^ + Deprecated + -} + | RcTokenTypeSelected + {- ^ + Deprecated + -} + | RcTokenTypeInsensitive + {- ^ + Deprecated + -} + | RcTokenTypeFg + {- ^ + Deprecated + -} + | RcTokenTypeBg + {- ^ + Deprecated + -} + | RcTokenTypeText + {- ^ + Deprecated + -} + | RcTokenTypeBase + {- ^ + Deprecated + -} + | RcTokenTypeXthickness + {- ^ + Deprecated + -} + | RcTokenTypeYthickness + {- ^ + Deprecated + -} + | RcTokenTypeFont + {- ^ + Deprecated + -} + | RcTokenTypeFontset + {- ^ + Deprecated + -} + | RcTokenTypeFontName + {- ^ + Deprecated + -} + | RcTokenTypeBgPixmap + {- ^ + Deprecated + -} + | RcTokenTypePixmapPath + {- ^ + Deprecated + -} + | RcTokenTypeStyle + {- ^ + Deprecated + -} + | RcTokenTypeBinding + {- ^ + Deprecated + -} + | RcTokenTypeBind + {- ^ + Deprecated + -} + | RcTokenTypeWidget + {- ^ + Deprecated + -} + | RcTokenTypeWidgetClass + {- ^ + Deprecated + -} + | RcTokenTypeClass + {- ^ + Deprecated + -} + | RcTokenTypeLowest + {- ^ + Deprecated + -} + | RcTokenTypeGtk + {- ^ + Deprecated + -} + | RcTokenTypeApplication + {- ^ + Deprecated + -} + | RcTokenTypeTheme + {- ^ + Deprecated + -} + | RcTokenTypeRc + {- ^ + Deprecated + -} + | RcTokenTypeHighest + {- ^ + Deprecated + -} + | RcTokenTypeEngine + {- ^ + Deprecated + -} + | RcTokenTypeModulePath + {- ^ + Deprecated + -} + | RcTokenTypeImModulePath + {- ^ + Deprecated + -} + | RcTokenTypeImModuleFile + {- ^ + Deprecated + -} + | RcTokenTypeStock + {- ^ + Deprecated + -} + | RcTokenTypeLtr + {- ^ + Deprecated + -} + | RcTokenTypeRtl + {- ^ + Deprecated + -} + | RcTokenTypeColor + {- ^ + Deprecated + -} + | RcTokenTypeUnbind + {- ^ + Deprecated + -} + | RcTokenTypeLast + {- ^ + Deprecated + -} + | AnotherRcTokenType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord RcTokenType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes the stage at which events are fed into a 'GI.Gtk.Objects.EventController.EventController'. + +/Since: 3.14/ +-} +data PropagationPhase = + PropagationPhaseNone + {- ^ + Events are not delivered automatically. Those can be + manually fed through 'GI.Gtk.Objects.EventController.eventControllerHandleEvent'. This should + only be used when full control about when, or whether the controller + handles the event is needed. + -} + | PropagationPhaseCapture + {- ^ + Events are delivered in the capture phase. The + capture phase happens before the bubble phase, runs from the toplevel down + to the event widget. This option should only be used on containers that + might possibly handle events before their children do. + -} + | PropagationPhaseBubble + {- ^ + Events are delivered in the bubble phase. The bubble + phase happens after the capture phase, and before the default handlers + are run. This phase runs from the event widget, up to the toplevel. + -} + | PropagationPhaseTarget + {- ^ + Events are delivered in the default widget event handlers, + note that widget implementations must chain up on button, motion, touch and + grab broken handlers for controllers in this phase to be run. + -} + | AnotherPropagationPhase Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PropagationPhase where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The status gives a rough indication of the completion of a running +print operation. +-} +data PrintStatus = + PrintStatusInitial + {- ^ + The printing has not started yet; this + status is set initially, and while the print dialog is shown. + -} + | PrintStatusPreparing + {- ^ + This status is set while the begin-print + signal is emitted and during pagination. + -} + | PrintStatusGeneratingData + {- ^ + This status is set while the + pages are being rendered. + -} + | PrintStatusSendingData + {- ^ + The print job is being sent off to the + printer. + -} + | PrintStatusPending + {- ^ + The print job has been sent to the printer, + but is not printed for some reason, e.g. the printer may be stopped. + -} + | PrintStatusPendingIssue + {- ^ + Some problem has occurred during + printing, e.g. a paper jam. + -} + | PrintStatusPrinting + {- ^ + The printer is processing the print job. + -} + | PrintStatusFinished + {- ^ + The printing has been completed successfully. + -} + | PrintStatusFinishedAborted + {- ^ + The printing has been aborted. + -} + | AnotherPrintStatus Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PrintStatus where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +See also 'GI.Gtk.Objects.PrintSettings.printSettingsSetQuality'. +-} +data PrintQuality = + PrintQualityLow + {- ^ + Low quality. + -} + | PrintQualityNormal + {- ^ + Normal quality. + -} + | PrintQualityHigh + {- ^ + High quality. + -} + | PrintQualityDraft + {- ^ + Draft quality. + -} + | AnotherPrintQuality Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PrintQuality where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +See also @/gtk_print_job_set_pages()/@ +-} +data PrintPages = + PrintPagesAll + {- ^ + All pages. + -} + | PrintPagesCurrent + {- ^ + Current page. + -} + | PrintPagesRanges + {- ^ + Range of pages. + -} + | PrintPagesSelection + {- ^ + Selected pages. + -} + | AnotherPrintPages Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PrintPages where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +A value of this type is returned by 'GI.Gtk.Objects.PrintOperation.printOperationRun'. +-} +data PrintOperationResult = + PrintOperationResultError + {- ^ + An error has occurred. + -} + | PrintOperationResultApply + {- ^ + The print settings should be stored. + -} + | PrintOperationResultCancel + {- ^ + The print operation has been canceled, + the print settings should not be stored. + -} + | PrintOperationResultInProgress + {- ^ + The print operation is not complete + yet. This value will only be returned when running asynchronously. + -} + | AnotherPrintOperationResult Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PrintOperationResult where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The /@action@/ parameter to 'GI.Gtk.Objects.PrintOperation.printOperationRun' +determines what action the print operation should perform. +-} +data PrintOperationAction = + PrintOperationActionPrintDialog + {- ^ + Show the print dialog. + -} + | PrintOperationActionPrint + {- ^ + Start to print without showing + the print dialog, based on the current print settings. + -} + | PrintOperationActionPreview + {- ^ + Show the print preview. + -} + | PrintOperationActionExport + {- ^ + Export to a file. This requires + the export-filename property to be set. + -} + | AnotherPrintOperationAction Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PrintOperationAction where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Error codes that identify various errors that can occur while +using the GTK+ printing support. +-} +data PrintError = + PrintErrorGeneral + {- ^ + An unspecified error occurred. + -} + | PrintErrorInternalError + {- ^ + An internal error occurred. + -} + | PrintErrorNomem + {- ^ + A memory allocation failed. + -} + | PrintErrorInvalidFile + {- ^ + An error occurred while loading a page setup + or paper size from a key file. + -} + | AnotherPrintError Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 P.Ord PrintError where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +instance GErrorClass PrintError where + gerrorClassDomain _ = "gtk-print-error-quark" + +-- | Catch exceptions of type `PrintError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`. +catchPrintError :: + IO a -> + (PrintError -> GErrorMessage -> IO a) -> + IO a +catchPrintError = catchGErrorJustDomain + +-- | Handle exceptions of type `PrintError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`. +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 +{- | +See also 'GI.Gtk.Objects.PrintSettings.printSettingsSetDuplex'. +-} +data PrintDuplex = + PrintDuplexSimplex + {- ^ + No duplex. + -} + | PrintDuplexHorizontal + {- ^ + Horizontal duplex. + -} + | PrintDuplexVertical + {- ^ + Vertical duplex. + -} + | AnotherPrintDuplex Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PrintDuplex where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes which edge of a widget a certain feature is positioned at, e.g. the +tabs of a 'GI.Gtk.Objects.Notebook.Notebook', the handle of a 'GI.Gtk.Objects.HandleBox.HandleBox' or the label of a +'GI.Gtk.Objects.Scale.Scale'. +-} +data PositionType = + PositionTypeLeft + {- ^ + The feature is at the left edge. + -} + | PositionTypeRight + {- ^ + The feature is at the right edge. + -} + | PositionTypeTop + {- ^ + The feature is at the top edge. + -} + | PositionTypeBottom + {- ^ + The feature is at the bottom edge. + -} + | AnotherPositionType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PositionType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 PopoverConstraint +{- | +Describes constraints to positioning of popovers. More values +may be added to this enumeration in the future. + +/Since: 3.20/ +-} +data PopoverConstraint = + PopoverConstraintNone + {- ^ + Don\'t constrain the popover position + beyond what is imposed by the implementation + -} + | PopoverConstraintWindow + {- ^ + Constrain the popover to the boundaries + of the window that it is attached to + -} + | AnotherPopoverConstraint Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum PopoverConstraint where + fromEnum PopoverConstraintNone = 0 + fromEnum PopoverConstraintWindow = 1 + fromEnum (AnotherPopoverConstraint k) = k + + toEnum 0 = PopoverConstraintNone + toEnum 1 = PopoverConstraintWindow + toEnum k = AnotherPopoverConstraint k + +instance P.Ord PopoverConstraint where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_popover_constraint_get_type" c_gtk_popover_constraint_get_type :: + IO GType + +instance BoxedEnum PopoverConstraint where + boxedEnumType _ = c_gtk_popover_constraint_get_type + +-- Enum PolicyType +{- | +Determines how the size should be computed to achieve the one of the +visibility mode for the scrollbars. +-} +data PolicyType = + PolicyTypeAlways + {- ^ + The scrollbar is always visible. The view size is + independent of the content. + -} + | PolicyTypeAutomatic + {- ^ + The scrollbar will appear and disappear as necessary. + For example, when all of a 'GI.Gtk.Objects.TreeView.TreeView' can not be seen. + -} + | PolicyTypeNever + {- ^ + The scrollbar should never appear. In this mode the + content determines the size. + -} + | PolicyTypeExternal + {- ^ + Don\'t show a scrollbar, but don\'t force the + size to follow the content. This can be used e.g. to make multiple + scrolled windows share a scrollbar. Since: 3.16 + -} + | AnotherPolicyType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PolicyType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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)"] #-} +{- | +Widget path types. +See also 'GI.Gtk.Structs.BindingSet.bindingSetAddPath'. +-} +data PathType = + PathTypeWidget + {- ^ + Deprecated + -} + | PathTypeWidgetClass + {- ^ + Deprecated + -} + | PathTypeClass + {- ^ + Deprecated + -} + | AnotherPathType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PathType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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)"] #-} +{- | +Priorities for path lookups. +See also 'GI.Gtk.Structs.BindingSet.bindingSetAddPath'. +-} +data PathPriorityType = + PathPriorityTypeLowest + {- ^ + Deprecated + -} + | PathPriorityTypeGtk + {- ^ + Deprecated + -} + | PathPriorityTypeApplication + {- ^ + Deprecated + -} + | PathPriorityTypeTheme + {- ^ + Deprecated + -} + | PathPriorityTypeRc + {- ^ + Deprecated + -} + | PathPriorityTypeHighest + {- ^ + Deprecated + -} + | AnotherPathPriorityType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PathPriorityType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes the panning direction of a 'GI.Gtk.Objects.GesturePan.GesturePan' + +/Since: 3.14/ +-} +data PanDirection = + PanDirectionLeft + {- ^ + panned towards the left + -} + | PanDirectionRight + {- ^ + panned towards the right + -} + | PanDirectionUp + {- ^ + panned upwards + -} + | PanDirectionDown + {- ^ + panned downwards + -} + | AnotherPanDirection Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PanDirection where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +See also @/gtk_print_job_set_page_set()/@. +-} +data PageSet = + PageSetAll + {- ^ + All pages. + -} + | PageSetEven + {- ^ + Even pages. + -} + | PageSetOdd + {- ^ + Odd pages. + -} + | AnotherPageSet Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PageSet where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +See also 'GI.Gtk.Objects.PrintSettings.printSettingsSetOrientation'. +-} +data PageOrientation = + PageOrientationPortrait + {- ^ + Portrait mode. + -} + | PageOrientationLandscape + {- ^ + Landscape mode. + -} + | PageOrientationReversePortrait + {- ^ + Reverse portrait mode. + -} + | PageOrientationReverseLandscape + {- ^ + Reverse landscape mode. + -} + | AnotherPageOrientation Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PageOrientation where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 PadActionType +{- | +The type of a pad action. +-} +data PadActionType = + PadActionTypeButton + {- ^ + Action is triggered by a pad button + -} + | PadActionTypeRing + {- ^ + Action is triggered by a pad ring + -} + | PadActionTypeStrip + {- ^ + Action is triggered by a pad strip + -} + | AnotherPadActionType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum PadActionType where + fromEnum PadActionTypeButton = 0 + fromEnum PadActionTypeRing = 1 + fromEnum PadActionTypeStrip = 2 + fromEnum (AnotherPadActionType k) = k + + toEnum 0 = PadActionTypeButton + toEnum 1 = PadActionTypeRing + toEnum 2 = PadActionTypeStrip + toEnum k = AnotherPadActionType k + +instance P.Ord PadActionType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_pad_action_type_get_type" c_gtk_pad_action_type_get_type :: + IO GType + +instance BoxedEnum PadActionType where + boxedEnumType _ = c_gtk_pad_action_type_get_type + +-- Enum PackType +{- | +Represents the packing location 'GI.Gtk.Objects.Box.Box' children. (See: 'GI.Gtk.Objects.VBox.VBox', +'GI.Gtk.Objects.HBox.HBox', and 'GI.Gtk.Objects.ButtonBox.ButtonBox'). +-} +data PackType = + PackTypeStart + {- ^ + The child is packed into the start of the box + -} + | PackTypeEnd + {- ^ + The child is packed into the end of the box + -} + | AnotherPackType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum PackType where + fromEnum PackTypeStart = 0 + fromEnum PackTypeEnd = 1 + fromEnum (AnotherPackType k) = k + + toEnum 0 = PackTypeStart + toEnum 1 = PackTypeEnd + toEnum k = AnotherPackType k + +instance P.Ord PackType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Determines how widgets should be packed inside menubars +and menuitems contained in menubars. +-} +data PackDirection = + PackDirectionLtr + {- ^ + Widgets are packed left-to-right + -} + | PackDirectionRtl + {- ^ + Widgets are packed right-to-left + -} + | PackDirectionTtb + {- ^ + Widgets are packed top-to-bottom + -} + | PackDirectionBtt + {- ^ + Widgets are packed bottom-to-top + -} + | AnotherPackDirection Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PackDirection where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Represents the orientation of widgets and other objects which can be switched +between horizontal and vertical orientation on the fly, like 'GI.Gtk.Objects.Toolbar.Toolbar' or +'GI.Gtk.Objects.GesturePan.GesturePan'. +-} +data Orientation = + OrientationHorizontal + {- ^ + The element is in horizontal orientation. + -} + | OrientationVertical + {- ^ + The element is in vertical orientation. + -} + | AnotherOrientation Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum Orientation where + fromEnum OrientationHorizontal = 0 + fromEnum OrientationVertical = 1 + fromEnum (AnotherOrientation k) = k + + toEnum 0 = OrientationHorizontal + toEnum 1 = OrientationVertical + toEnum k = AnotherOrientation k + +instance P.Ord Orientation where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to determine the layout of pages on a sheet when printing +multiple pages per sheet. +-} +data NumberUpLayout = + NumberUpLayoutLrtb + {- ^ + <> + -} + | NumberUpLayoutLrbt + {- ^ + <> + -} + | NumberUpLayoutRltb + {- ^ + <> + -} + | NumberUpLayoutRlbt + {- ^ + <> + -} + | NumberUpLayoutTblr + {- ^ + <> + -} + | NumberUpLayoutTbrl + {- ^ + <> + -} + | NumberUpLayoutBtlr + {- ^ + <> + -} + | NumberUpLayoutBtrl + {- ^ + <> + -} + | AnotherNumberUpLayout Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord NumberUpLayout where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +/No description available in the introspection data./ +-} +data NotebookTab = + NotebookTabFirst + {- ^ + /No description available in the introspection data./ + -} + | NotebookTabLast + {- ^ + /No description available in the introspection data./ + -} + | AnotherNotebookTab Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum NotebookTab where + fromEnum NotebookTabFirst = 0 + fromEnum NotebookTabLast = 1 + fromEnum (AnotherNotebookTab k) = k + + toEnum 0 = NotebookTabFirst + toEnum 1 = NotebookTabLast + toEnum k = AnotherNotebookTab k + +instance P.Ord NotebookTab where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +/No description available in the introspection data./ +-} +data MovementStep = + MovementStepLogicalPositions + {- ^ + Move forward or back by graphemes + -} + | MovementStepVisualPositions + {- ^ + Move left or right by graphemes + -} + | MovementStepWords + {- ^ + Move forward or back by words + -} + | MovementStepDisplayLines + {- ^ + Move up or down lines (wrapped lines) + -} + | MovementStepDisplayLineEnds + {- ^ + Move to either end of a line + -} + | MovementStepParagraphs + {- ^ + Move up or down paragraphs (newline-ended lines) + -} + | MovementStepParagraphEnds + {- ^ + Move to either end of a paragraph + -} + | MovementStepPages + {- ^ + Move by pages + -} + | MovementStepBufferEnds + {- ^ + Move to ends of the buffer + -} + | MovementStepHorizontalPages + {- ^ + Move horizontally by pages + -} + | AnotherMovementStep Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord MovementStep where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The type of message being displayed in the dialog. +-} +data MessageType = + MessageTypeInfo + {- ^ + Informational message + -} + | MessageTypeWarning + {- ^ + Non-fatal warning message + -} + | MessageTypeQuestion + {- ^ + Question requiring a choice + -} + | MessageTypeError + {- ^ + Fatal error message + -} + | MessageTypeOther + {- ^ + None of the above + -} + | AnotherMessageType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord MessageType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +An enumeration representing directional movements within a menu. +-} +data MenuDirectionType = + MenuDirectionTypeParent + {- ^ + To the parent menu shell + -} + | MenuDirectionTypeChild + {- ^ + To the submenu, if any, associated with the item + -} + | MenuDirectionTypeNext + {- ^ + To the next menu item + -} + | MenuDirectionTypePrev + {- ^ + To the previous menu item + -} + | AnotherMenuDirectionType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord MenuDirectionType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The type of license for an application. + +This enumeration can be expanded at later date. + +/Since: 3.0/ +-} +data License = + LicenseUnknown + {- ^ + No license specified + -} + | LicenseCustom + {- ^ + A license text is going to be specified by the + developer + -} + | LicenseGpl20 + {- ^ + The GNU General Public License, version 2.0 or later + -} + | LicenseGpl30 + {- ^ + The GNU General Public License, version 3.0 or later + -} + | LicenseLgpl21 + {- ^ + The GNU Lesser General Public License, version 2.1 or later + -} + | LicenseLgpl30 + {- ^ + The GNU Lesser General Public License, version 3.0 or later + -} + | LicenseBsd + {- ^ + The BSD standard license + -} + | LicenseMitX11 + {- ^ + The MIT\/X11 standard license + -} + | LicenseArtistic + {- ^ + The Artistic License, version 2.0 + -} + | LicenseGpl20Only + {- ^ + The GNU General Public License, version 2.0 only. Since 3.12. + -} + | LicenseGpl30Only + {- ^ + The GNU General Public License, version 3.0 only. Since 3.12. + -} + | LicenseLgpl21Only + {- ^ + The GNU Lesser General Public License, version 2.1 only. Since 3.12. + -} + | LicenseLgpl30Only + {- ^ + The GNU Lesser General Public License, version 3.0 only. Since 3.12. + -} + | LicenseAgpl30 + {- ^ + The GNU Affero General Public License, version 3.0 or later. Since: 3.22. + -} + | LicenseAgpl30Only + {- ^ + The GNU Affero General Public License, version 3.0 only. Since: 3.22.27. + -} + | AnotherLicense Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 LicenseAgpl30 = 13 + fromEnum LicenseAgpl30Only = 14 + 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 13 = LicenseAgpl30 + toEnum 14 = LicenseAgpl30Only + toEnum k = AnotherLicense k + +instance P.Ord License where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes how 'GI.Gtk.Objects.LevelBar.LevelBar' contents should be rendered. +Note that this enumeration could be extended with additional modes +in the future. + +/Since: 3.6/ +-} +data LevelBarMode = + LevelBarModeContinuous + {- ^ + the bar has a continuous mode + -} + | LevelBarModeDiscrete + {- ^ + the bar has a discrete mode + -} + | AnotherLevelBarMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum LevelBarMode where + fromEnum LevelBarModeContinuous = 0 + fromEnum LevelBarModeDiscrete = 1 + fromEnum (AnotherLevelBarMode k) = k + + toEnum 0 = LevelBarModeContinuous + toEnum 1 = LevelBarModeDiscrete + toEnum k = AnotherLevelBarMode k + +instance P.Ord LevelBarMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used for justifying the text inside a 'GI.Gtk.Objects.Label.Label' widget. (See also +'GI.Gtk.Objects.Alignment.Alignment'). +-} +data Justification = + JustificationLeft + {- ^ + The text is placed at the left edge of the label. + -} + | JustificationRight + {- ^ + The text is placed at the right edge of the label. + -} + | JustificationCenter + {- ^ + The text is placed in the center of the label. + -} + | JustificationFill + {- ^ + The text is placed is distributed across the label. + -} + | AnotherJustification Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord Justification where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes primary purpose of the input widget. This information is +useful for on-screen keyboards and similar input methods to decide +which keys should be presented to the user. + +Note that the purpose is not meant to impose a totally strict rule +about allowed characters, and does not replace input validation. +It is fine for an on-screen keyboard to let the user override the +character set restriction that is expressed by the purpose. The +application is expected to validate the entry contents, even if +it specified a purpose. + +The difference between /@gTKINPUTPURPOSEDIGITS@/ and +/@gTKINPUTPURPOSENUMBER@/ is that the former accepts only digits +while the latter also some punctuation (like commas or points, plus, +minus) and “e” or “E” as in 3.14E+000. + +This enumeration may be extended in the future; input methods should +interpret unknown values as “free form”. + +/Since: 3.6/ +-} +data InputPurpose = + InputPurposeFreeForm + {- ^ + Allow any character + -} + | InputPurposeAlpha + {- ^ + Allow only alphabetic characters + -} + | InputPurposeDigits + {- ^ + Allow only digits + -} + | InputPurposeNumber + {- ^ + Edited field expects numbers + -} + | InputPurposePhone + {- ^ + Edited field expects phone number + -} + | InputPurposeUrl + {- ^ + Edited field expects URL + -} + | InputPurposeEmail + {- ^ + Edited field expects email address + -} + | InputPurposeName + {- ^ + Edited field expects the name of a person + -} + | InputPurposePassword + {- ^ + Like /@gTKINPUTPURPOSEFREEFORM@/, but characters are hidden + -} + | InputPurposePin + {- ^ + Like /@gTKINPUTPURPOSEDIGITS@/, but characters are hidden + -} + | AnotherInputPurpose Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord InputPurpose where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes the image data representation used by a 'GI.Gtk.Objects.Image.Image'. If you +want to get the image from the widget, you can only get the +currently-stored representation. e.g. if the +'GI.Gtk.Objects.Image.imageGetStorageType' returns @/GTK_IMAGE_PIXBUF/@, then you can +call 'GI.Gtk.Objects.Image.imageGetPixbuf' but not 'GI.Gtk.Objects.Image.imageGetStock'. For empty +images, you can request any storage type (call any of the \"get\" +functions), but they will all return 'Nothing' values. +-} +data ImageType = + ImageTypeEmpty + {- ^ + there is no image displayed by the widget + -} + | ImageTypePixbuf + {- ^ + the widget contains a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' + -} + | ImageTypeStock + {- ^ + the widget contains a [stock item name][gtkstock] + -} + | ImageTypeIconSet + {- ^ + the widget contains a 'GI.Gtk.Structs.IconSet.IconSet' + -} + | ImageTypeAnimation + {- ^ + the widget contains a 'GI.GdkPixbuf.Objects.PixbufAnimation.PixbufAnimation' + -} + | ImageTypeIconName + {- ^ + the widget contains a named icon. + This image type was added in GTK+ 2.6 + -} + | ImageTypeGicon + {- ^ + the widget contains a 'GI.Gio.Interfaces.Icon.Icon'. + This image type was added in GTK+ 2.14 + -} + | ImageTypeSurface + {- ^ + the widget contains a 'GI.Cairo.Structs.Surface.Surface'. + This image type was added in GTK+ 3.10 + -} + | AnotherImageType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ImageType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +An enum for determining where a dropped item goes. +-} +data IconViewDropPosition = + IconViewDropPositionNoDrop + {- ^ + no drop possible + -} + | IconViewDropPositionDropInto + {- ^ + dropped item replaces the item + -} + | IconViewDropPositionDropLeft + {- ^ + droppped item is inserted to the left + -} + | IconViewDropPositionDropRight + {- ^ + dropped item is inserted to the right + -} + | IconViewDropPositionDropAbove + {- ^ + dropped item is inserted above + -} + | IconViewDropPositionDropBelow + {- ^ + dropped item is inserted below + -} + | AnotherIconViewDropPosition Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord IconViewDropPosition where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Error codes for GtkIconTheme operations. +-} +data IconThemeError = + IconThemeErrorNotFound + {- ^ + The icon specified does not exist in the theme + -} + | IconThemeErrorFailed + {- ^ + An unspecified error occurred. + -} + | AnotherIconThemeError Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum IconThemeError where + fromEnum IconThemeErrorNotFound = 0 + fromEnum IconThemeErrorFailed = 1 + fromEnum (AnotherIconThemeError k) = k + + toEnum 0 = IconThemeErrorNotFound + toEnum 1 = IconThemeErrorFailed + toEnum k = AnotherIconThemeError k + +instance P.Ord IconThemeError where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +instance GErrorClass IconThemeError where + gerrorClassDomain _ = "gtk-icon-theme-error-quark" + +-- | Catch exceptions of type `IconThemeError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`. +catchIconThemeError :: + IO a -> + (IconThemeError -> GErrorMessage -> IO a) -> + IO a +catchIconThemeError = catchGErrorJustDomain + +-- | Handle exceptions of type `IconThemeError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`. +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 +{- | +Built-in stock icon sizes. +-} +data IconSize = + IconSizeInvalid + {- ^ + Invalid size. + -} + | IconSizeMenu + {- ^ + Size appropriate for menus (16px). + -} + | IconSizeSmallToolbar + {- ^ + Size appropriate for small toolbars (16px). + -} + | IconSizeLargeToolbar + {- ^ + Size appropriate for large toolbars (24px) + -} + | IconSizeButton + {- ^ + Size appropriate for buttons (16px) + -} + | IconSizeDnd + {- ^ + Size appropriate for drag and drop (32px) + -} + | IconSizeDialog + {- ^ + Size appropriate for dialogs (48px) + -} + | AnotherIconSize Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord IconSize where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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)"] #-} +{- | +Style for input method status. See also +'GI.Gtk.Objects.Settings.Settings':@/gtk-im-status-style/@ +-} +data IMStatusStyle = + IMStatusStyleNothing + {- ^ + Deprecated + -} + | IMStatusStyleCallback + {- ^ + Deprecated + -} + | IMStatusStyleNone + {- ^ + Deprecated + -} + | AnotherIMStatusStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord IMStatusStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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)"] #-} +{- | +Style for input method preedit. See also +'GI.Gtk.Objects.Settings.Settings':@/gtk-im-preedit-style/@ +-} +data IMPreeditStyle = + IMPreeditStyleNothing + {- ^ + Deprecated + -} + | IMPreeditStyleCallback + {- ^ + Deprecated + -} + | IMPreeditStyleNone + {- ^ + Deprecated + -} + | AnotherIMPreeditStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord IMPreeditStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +These identify the various errors that can occur while calling +'GI.Gtk.Interfaces.FileChooser.FileChooser' functions. +-} +data FileChooserError = + FileChooserErrorNonexistent + {- ^ + Indicates that a file does not exist. + -} + | FileChooserErrorBadFilename + {- ^ + Indicates a malformed filename. + -} + | FileChooserErrorAlreadyExists + {- ^ + Indicates a duplicate path (e.g. when + adding a bookmark). + -} + | FileChooserErrorIncompleteHostname + {- ^ + Indicates an incomplete hostname (e.g. \"http:\/\/foo\" without a slash after that). + -} + | AnotherFileChooserError Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 P.Ord FileChooserError where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +instance GErrorClass FileChooserError where + gerrorClassDomain _ = "gtk-file-chooser-error-quark" + +-- | Catch exceptions of type `FileChooserError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`. +catchFileChooserError :: + IO a -> + (FileChooserError -> GErrorMessage -> IO a) -> + IO a +catchFileChooserError = catchGErrorJustDomain + +-- | Handle exceptions of type `FileChooserError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`. +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 +{- | +Used as a return value of handlers for the +'GI.Gtk.Interfaces.FileChooser.FileChooser'::@/confirm-overwrite/@ signal of a 'GI.Gtk.Interfaces.FileChooser.FileChooser'. This +value determines whether the file chooser will present the stock +confirmation dialog, accept the user’s choice of a filename, or +let the user choose another filename. + +/Since: 2.8/ +-} +data FileChooserConfirmation = + FileChooserConfirmationConfirm + {- ^ + The file chooser will present + its stock dialog to confirm about overwriting an existing file. + -} + | FileChooserConfirmationAcceptFilename + {- ^ + The file chooser will + terminate and accept the user’s choice of a file name. + -} + | FileChooserConfirmationSelectAgain + {- ^ + The file chooser will + continue running, so as to let the user select another file name. + -} + | AnotherFileChooserConfirmation Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord FileChooserConfirmation where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes whether a 'GI.Gtk.Interfaces.FileChooser.FileChooser' is being used to open existing files +or to save to a possibly new file. +-} +data FileChooserAction = + FileChooserActionOpen + {- ^ + Indicates open mode. The file chooser + will only let the user pick an existing file. + -} + | FileChooserActionSave + {- ^ + Indicates save mode. The file chooser + will let the user pick an existing file, or type in a new + filename. + -} + | FileChooserActionSelectFolder + {- ^ + Indicates an Open mode for + selecting folders. The file chooser will let the user pick an + existing folder. + -} + | FileChooserActionCreateFolder + {- ^ + Indicates a mode for creating a + new folder. The file chooser will let the user name an existing or + new folder. + -} + | AnotherFileChooserAction Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord FileChooserAction where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to specify the style of the expanders drawn by a 'GI.Gtk.Objects.TreeView.TreeView'. +-} +data ExpanderStyle = + ExpanderStyleCollapsed + {- ^ + The style used for a collapsed subtree. + -} + | ExpanderStyleSemiCollapsed + {- ^ + Intermediate style used during animation. + -} + | ExpanderStyleSemiExpanded + {- ^ + Intermediate style used during animation. + -} + | ExpanderStyleExpanded + {- ^ + The style used for an expanded subtree. + -} + | AnotherExpanderStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ExpanderStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Describes the state of a 'GI.Gdk.Structs.EventSequence.EventSequence' in a 'GI.Gtk.Objects.Gesture.Gesture'. + +/Since: 3.14/ +-} +data EventSequenceState = + EventSequenceStateNone + {- ^ + The sequence is handled, but not grabbed. + -} + | EventSequenceStateClaimed + {- ^ + The sequence is handled and grabbed. + -} + | EventSequenceStateDenied + {- ^ + The sequence is denied. + -} + | AnotherEventSequenceState Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord EventSequenceState where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Specifies the side of the entry at which an icon is placed. + +/Since: 2.16/ +-} +data EntryIconPosition = + EntryIconPositionPrimary + {- ^ + At the beginning of the entry (depending on the text direction). + -} + | EntryIconPositionSecondary + {- ^ + At the end of the entry (depending on the text direction). + -} + | AnotherEntryIconPosition Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum EntryIconPosition where + fromEnum EntryIconPositionPrimary = 0 + fromEnum EntryIconPositionSecondary = 1 + fromEnum (AnotherEntryIconPosition k) = k + + toEnum 0 = EntryIconPositionPrimary + toEnum 1 = EntryIconPositionSecondary + toEnum k = AnotherEntryIconPosition k + +instance P.Ord EntryIconPosition where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Gives an indication why a drag operation failed. +The value can by obtained by connecting to the +'GI.Gtk.Objects.Widget.Widget'::@/drag-failed/@ signal. +-} +data DragResult = + DragResultSuccess + {- ^ + The drag operation was successful. + -} + | DragResultNoTarget + {- ^ + No suitable drag target. + -} + | DragResultUserCancelled + {- ^ + The user cancelled the drag operation. + -} + | DragResultTimeoutExpired + {- ^ + The drag operation timed out. + -} + | DragResultGrabBroken + {- ^ + The pointer or keyboard grab used + for the drag operation was broken. + -} + | DragResultError + {- ^ + The drag operation failed due to some + unspecified error. + -} + | AnotherDragResult Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord DragResult where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Focus movement types. +-} +data DirectionType = + DirectionTypeTabForward + {- ^ + Move forward. + -} + | DirectionTypeTabBackward + {- ^ + Move backward. + -} + | DirectionTypeUp + {- ^ + Move up. + -} + | DirectionTypeDown + {- ^ + Move down. + -} + | DirectionTypeLeft + {- ^ + Move left. + -} + | DirectionTypeRight + {- ^ + Move right. + -} + | AnotherDirectionType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord DirectionType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +See also: 'GI.Gtk.Objects.Entry.Entry'::@/delete-from-cursor/@. +-} +data DeleteType = + DeleteTypeChars + {- ^ + Delete characters. + -} + | DeleteTypeWordEnds + {- ^ + Delete only the portion of the word to the + left\/right of cursor if we’re in the middle of a word. + -} + | DeleteTypeWords + {- ^ + Delete words. + -} + | DeleteTypeDisplayLines + {- ^ + Delete display-lines. Display-lines + refers to the visible lines, with respect to to the current line + breaks. As opposed to paragraphs, which are defined by line + breaks in the input. + -} + | DeleteTypeDisplayLineEnds + {- ^ + Delete only the portion of the + display-line to the left\/right of cursor. + -} + | DeleteTypeParagraphEnds + {- ^ + Delete to the end of the + paragraph. Like C-k in Emacs (or its reverse). + -} + | DeleteTypeParagraphs + {- ^ + Delete entire line. Like C-k in pico. + -} + | DeleteTypeWhitespace + {- ^ + Delete only whitespace. Like M-\\ in Emacs. + -} + | AnotherDeleteType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord DeleteType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The different types of sections indicate parts of a CSS document as +parsed by GTK’s CSS parser. They are oriented towards the +, +but may contain extensions. + +More types might be added in the future as the parser incorporates +more features. + +/Since: 3.2/ +-} +data CssSectionType = + CssSectionTypeDocument + {- ^ + The section describes a complete document. + This section time is the only one where 'GI.Gtk.Structs.CssSection.cssSectionGetParent' + might return 'Nothing'. + -} + | CssSectionTypeImport + {- ^ + The section defines an import rule. + -} + | CssSectionTypeColorDefinition + {- ^ + The section defines a color. This + is a GTK extension to CSS. + -} + | CssSectionTypeBindingSet + {- ^ + The section defines a binding set. This + is a GTK extension to CSS. + -} + | CssSectionTypeRuleset + {- ^ + The section defines a CSS ruleset. + -} + | CssSectionTypeSelector + {- ^ + The section defines a CSS selector. + -} + | CssSectionTypeDeclaration + {- ^ + The section defines the declaration of + a CSS variable. + -} + | CssSectionTypeValue + {- ^ + The section defines the value of a CSS declaration. + -} + | CssSectionTypeKeyframes + {- ^ + The section defines keyframes. See for details. Since 3.6 + -} + | AnotherCssSectionType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord CssSectionType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Error codes for @/GTK_CSS_PROVIDER_ERROR/@. +-} +data CssProviderError = + CssProviderErrorFailed + {- ^ + Failed. + -} + | CssProviderErrorSyntax + {- ^ + Syntax error. + -} + | CssProviderErrorImport + {- ^ + Import error. + -} + | CssProviderErrorName + {- ^ + Name error. + -} + | CssProviderErrorDeprecated + {- ^ + Deprecation error. + -} + | CssProviderErrorUnknownValue + {- ^ + Unknown value. + -} + | AnotherCssProviderError Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 P.Ord CssProviderError where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +instance GErrorClass CssProviderError where + gerrorClassDomain _ = "gtk-css-provider-error-quark" + +-- | Catch exceptions of type `CssProviderError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`. +catchCssProviderError :: + IO a -> + (CssProviderError -> GErrorMessage -> IO a) -> + IO a +catchCssProviderError = catchGErrorJustDomain + +-- | Handle exceptions of type `CssProviderError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`. +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 +{- | +Specifies which corner a child widget should be placed in when packed into +a 'GI.Gtk.Objects.ScrolledWindow.ScrolledWindow'. This is effectively the opposite of where the scroll +bars are placed. +-} +data CornerType = + CornerTypeTopLeft + {- ^ + Place the scrollbars on the right and bottom of the + widget (default behaviour). + -} + | CornerTypeBottomLeft + {- ^ + Place the scrollbars on the top and right of the + widget. + -} + | CornerTypeTopRight + {- ^ + Place the scrollbars on the left and bottom of the + widget. + -} + | CornerTypeBottomRight + {- ^ + Place the scrollbars on the top and left of the + widget. + -} + | AnotherCornerType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord CornerType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Identifies how the user can interact with a particular cell. +-} +data CellRendererMode = + CellRendererModeInert + {- ^ + The cell is just for display + and cannot be interacted with. Note that this doesn’t mean that eg. the + row being drawn can’t be selected -- just that a particular element of + it cannot be individually modified. + -} + | CellRendererModeActivatable + {- ^ + The cell can be clicked. + -} + | CellRendererModeEditable + {- ^ + The cell can be edited or otherwise modified. + -} + | AnotherCellRendererMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord CellRendererMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Determines if the edited accelerators are GTK+ accelerators. If +they are, consumed modifiers are suppressed, only accelerators +accepted by GTK+ are allowed, and the accelerators are rendered +in the same way as they are in menus. +-} +data CellRendererAccelMode = + CellRendererAccelModeGtk + {- ^ + GTK+ accelerators mode + -} + | CellRendererAccelModeOther + {- ^ + Other accelerator mode + -} + | AnotherCellRendererAccelMode Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum CellRendererAccelMode where + fromEnum CellRendererAccelModeGtk = 0 + fromEnum CellRendererAccelModeOther = 1 + fromEnum (AnotherCellRendererAccelMode k) = k + + toEnum 0 = CellRendererAccelModeGtk + toEnum 1 = CellRendererAccelModeOther + toEnum k = AnotherCellRendererAccelMode k + +instance P.Ord CellRendererAccelMode where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Prebuilt sets of buttons for the dialog. If +none of these choices are appropriate, simply use 'GI.Gtk.Enums.ButtonsTypeNone' +then call @/gtk_dialog_add_buttons()/@. + +> Please note that 'GI.Gtk.Enums.ButtonsTypeOk', 'GI.Gtk.Enums.ButtonsTypeYesNo' +> and 'GI.Gtk.Enums.ButtonsTypeOkCancel' are discouraged by the +> . +-} +data ButtonsType = + ButtonsTypeNone + {- ^ + no buttons at all + -} + | ButtonsTypeOk + {- ^ + an OK button + -} + | ButtonsTypeClose + {- ^ + a Close button + -} + | ButtonsTypeCancel + {- ^ + a Cancel button + -} + | ButtonsTypeYesNo + {- ^ + Yes and No buttons + -} + | ButtonsTypeOkCancel + {- ^ + OK and Cancel buttons + -} + | AnotherButtonsType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ButtonsType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +The role specifies the desired appearance of a 'GI.Gtk.Objects.ModelButton.ModelButton'. +-} +data ButtonRole = + ButtonRoleNormal + {- ^ + A plain button + -} + | ButtonRoleCheck + {- ^ + A check button + -} + | ButtonRoleRadio + {- ^ + A radio button + -} + | AnotherButtonRole Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ButtonRole where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to dictate the style that a 'GI.Gtk.Objects.ButtonBox.ButtonBox' uses to layout the buttons it +contains. +-} +data ButtonBoxStyle = + ButtonBoxStyleSpread + {- ^ + Buttons are evenly spread across the box. + -} + | ButtonBoxStyleEdge + {- ^ + Buttons are placed at the edges of the box. + -} + | ButtonBoxStyleStart + {- ^ + Buttons are grouped towards the start of the box, + (on the left for a HBox, or the top for a VBox). + -} + | ButtonBoxStyleEnd + {- ^ + Buttons are grouped towards the end of the box, + (on the right for a HBox, or the bottom for a VBox). + -} + | ButtonBoxStyleCenter + {- ^ + Buttons are centered in the box. Since 2.12. + -} + | ButtonBoxStyleExpand + {- ^ + Buttons expand to fill the box. This entails giving + buttons a \"linked\" appearance, making button sizes homogeneous, and + setting spacing to 0 (same as calling 'GI.Gtk.Objects.Box.boxSetHomogeneous' and + 'GI.Gtk.Objects.Box.boxSetSpacing' manually). Since 3.12. + -} + | AnotherButtonBoxStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ButtonBoxStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Error codes that identify various errors that can occur while using +'GI.Gtk.Objects.Builder.Builder'. +-} +data BuilderError = + BuilderErrorInvalidTypeFunction + {- ^ + A type-func attribute didn’t name + a function that returns a 'GType'. + -} + | BuilderErrorUnhandledTag + {- ^ + The input contained a tag that 'GI.Gtk.Objects.Builder.Builder' + can’t handle. + -} + | BuilderErrorMissingAttribute + {- ^ + An attribute that is required by + 'GI.Gtk.Objects.Builder.Builder' was missing. + -} + | BuilderErrorInvalidAttribute + {- ^ + 'GI.Gtk.Objects.Builder.Builder' found an attribute that + it doesn’t understand. + -} + | BuilderErrorInvalidTag + {- ^ + 'GI.Gtk.Objects.Builder.Builder' found a tag that + it doesn’t understand. + -} + | BuilderErrorMissingPropertyValue + {- ^ + A required property value was + missing. + -} + | BuilderErrorInvalidValue + {- ^ + 'GI.Gtk.Objects.Builder.Builder' couldn’t parse + some attribute value. + -} + | BuilderErrorVersionMismatch + {- ^ + The input file requires a newer version + of GTK+. + -} + | BuilderErrorDuplicateId + {- ^ + An object id occurred twice. + -} + | BuilderErrorObjectTypeRefused + {- ^ + A specified object type is of the same type or + derived from the type of the composite class being extended with builder XML. + -} + | BuilderErrorTemplateMismatch + {- ^ + The wrong type was specified in a composite class’s template XML + -} + | BuilderErrorInvalidProperty + {- ^ + The specified property is unknown for the object class. + -} + | BuilderErrorInvalidSignal + {- ^ + The specified signal is unknown for the object class. + -} + | BuilderErrorInvalidId + {- ^ + An object id is unknown + -} + | AnotherBuilderError Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum BuilderError where + fromEnum BuilderErrorInvalidTypeFunction = 0 + fromEnum BuilderErrorUnhandledTag = 1 + fromEnum BuilderErrorMissingAttribute = 2 + fromEnum BuilderErrorInvalidAttribute = 3 + fromEnum BuilderErrorInvalidTag = 4 + fromEnum BuilderErrorMissingPropertyValue = 5 + fromEnum BuilderErrorInvalidValue = 6 + fromEnum BuilderErrorVersionMismatch = 7 + fromEnum BuilderErrorDuplicateId = 8 + fromEnum BuilderErrorObjectTypeRefused = 9 + fromEnum BuilderErrorTemplateMismatch = 10 + fromEnum BuilderErrorInvalidProperty = 11 + fromEnum BuilderErrorInvalidSignal = 12 + fromEnum BuilderErrorInvalidId = 13 + fromEnum (AnotherBuilderError k) = k + + toEnum 0 = BuilderErrorInvalidTypeFunction + toEnum 1 = BuilderErrorUnhandledTag + toEnum 2 = BuilderErrorMissingAttribute + toEnum 3 = BuilderErrorInvalidAttribute + toEnum 4 = BuilderErrorInvalidTag + toEnum 5 = BuilderErrorMissingPropertyValue + toEnum 6 = BuilderErrorInvalidValue + toEnum 7 = BuilderErrorVersionMismatch + toEnum 8 = BuilderErrorDuplicateId + toEnum 9 = BuilderErrorObjectTypeRefused + toEnum 10 = BuilderErrorTemplateMismatch + toEnum 11 = BuilderErrorInvalidProperty + toEnum 12 = BuilderErrorInvalidSignal + toEnum 13 = BuilderErrorInvalidId + toEnum k = AnotherBuilderError k + +instance P.Ord BuilderError where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +instance GErrorClass BuilderError where + gerrorClassDomain _ = "gtk-builder-error-quark" + +-- | Catch exceptions of type `BuilderError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`. +catchBuilderError :: + IO a -> + (BuilderError -> GErrorMessage -> IO a) -> + IO a +catchBuilderError = catchGErrorJustDomain + +-- | Handle exceptions of type `BuilderError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`. +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 +{- | +Describes how the border of a UI element should be rendered. +-} +data BorderStyle = + BorderStyleNone + {- ^ + No visible border + -} + | BorderStyleSolid + {- ^ + A single line segment + -} + | BorderStyleInset + {- ^ + Looks as if the content is sunken into the canvas + -} + | BorderStyleOutset + {- ^ + Looks as if the content is coming out of the canvas + -} + | BorderStyleHidden + {- ^ + Same as /@gTKBORDERSTYLENONE@/ + -} + | BorderStyleDotted + {- ^ + A series of round dots + -} + | BorderStyleDashed + {- ^ + A series of square-ended dashes + -} + | BorderStyleDouble + {- ^ + Two parallel lines with some space between them + -} + | BorderStyleGroove + {- ^ + Looks as if it were carved in the canvas + -} + | BorderStyleRidge + {- ^ + Looks as if it were coming out of the canvas + -} + | AnotherBorderStyle Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord BorderStyle where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Whenever a container has some form of natural row it may align +children in that row along a common typographical baseline. If +the amount of verical space in the row is taller than the total +requested height of the baseline-aligned children then it can use a +'GI.Gtk.Enums.BaselinePosition' to select where to put the baseline inside the +extra availible space. + +/Since: 3.10/ +-} +data BaselinePosition = + BaselinePositionTop + {- ^ + Align the baseline at the top + -} + | BaselinePositionCenter + {- ^ + Center the baseline + -} + | BaselinePositionBottom + {- ^ + Align the baseline at the bottom + -} + | AnotherBaselinePosition Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord BaselinePosition where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +An enum for determining the page role inside the 'GI.Gtk.Objects.Assistant.Assistant'. It\'s +used to handle buttons sensitivity and visibility. + +Note that an assistant needs to end its page flow with a page of type +'GI.Gtk.Enums.AssistantPageTypeConfirm', 'GI.Gtk.Enums.AssistantPageTypeSummary' or +'GI.Gtk.Enums.AssistantPageTypeProgress' to be correct. + +The Cancel button will only be shown if the page isn’t “committed”. +See 'GI.Gtk.Objects.Assistant.assistantCommit' for details. +-} +data AssistantPageType = + AssistantPageTypeContent + {- ^ + The page has regular contents. Both the + Back and forward buttons will be shown. + -} + | AssistantPageTypeIntro + {- ^ + The page contains an introduction to the + assistant task. Only the Forward button will be shown if there is a + next page. + -} + | AssistantPageTypeConfirm + {- ^ + The page lets the user confirm or deny the + changes. The Back and Apply buttons will be shown. + -} + | AssistantPageTypeSummary + {- ^ + The page informs the user of the changes + done. Only the Close button will be shown. + -} + | AssistantPageTypeProgress + {- ^ + Used for tasks that take a long time to + complete, blocks the assistant until the page is marked as complete. + Only the back button will be shown. + -} + | AssistantPageTypeCustom + {- ^ + Used for when other page types are not + appropriate. No buttons will be shown, and the application must + add its own buttons through 'GI.Gtk.Objects.Assistant.assistantAddActionWidget'. + -} + | AnotherAssistantPageType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord AssistantPageType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to indicate the direction in which an arrow should point. +-} +data ArrowType = + ArrowTypeUp + {- ^ + Represents an upward pointing arrow. + -} + | ArrowTypeDown + {- ^ + Represents a downward pointing arrow. + -} + | ArrowTypeLeft + {- ^ + Represents a left pointing arrow. + -} + | ArrowTypeRight + {- ^ + Represents a right pointing arrow. + -} + | ArrowTypeNone + {- ^ + No arrow. Since 2.10. + -} + | AnotherArrowType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ArrowType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Used to specify the placement of scroll arrows in scrolling menus. +-} +data ArrowPlacement = + ArrowPlacementBoth + {- ^ + Place one arrow on each end of the menu. + -} + | ArrowPlacementStart + {- ^ + Place both arrows at the top of the menu. + -} + | ArrowPlacementEnd + {- ^ + Place both arrows at the bottom of the menu. + -} + | AnotherArrowPlacement Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ArrowPlacement where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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 +{- | +Controls how a widget deals with extra space in a single (x or y) +dimension. + +Alignment only matters if the widget receives a “too large” allocation, +for example if you packed the widget with the 'GI.Gtk.Objects.Widget.Widget':@/expand/@ +flag inside a 'GI.Gtk.Objects.Box.Box', then the widget might get extra space. If +you have for example a 16x16 icon inside a 32x32 space, the icon +could be scaled and stretched, it could be centered, or it could be +positioned to one side of the space. + +Note that in horizontal context /@gTKALIGNSTART@/ and /@gTKALIGNEND@/ +are interpreted relative to text direction. + +GTK_ALIGN_BASELINE support for it is optional for containers and widgets, and +it is only supported for vertical alignment. When its not supported by +a child or a container it is treated as /@gTKALIGNFILL@/. +-} +data Align = + AlignFill + {- ^ + stretch to fill all space if possible, center if + no meaningful way to stretch + -} + | AlignStart + {- ^ + snap to left or top side, leaving space on right + or bottom + -} + | AlignEnd + {- ^ + snap to right or bottom side, leaving space on left + or top + -} + | AlignCenter + {- ^ + center natural width of widget inside the + allocation + -} + | AlignBaseline + {- ^ + align the widget according to the baseline. Since 3.10. + -} + | AnotherAlign Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord Align where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +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/Enums.hs-boot b/GI/Gtk/Enums.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Enums.hs-boot @@ -0,0 +1,312 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Enums where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +data WrapMode +instance P.Enum WrapMode where +instance BoxedEnum WrapMode where +data WindowType +instance P.Enum WindowType where +instance BoxedEnum WindowType where +data WindowPosition +instance P.Enum WindowPosition where +instance BoxedEnum WindowPosition where +data WidgetHelpType +instance P.Enum WidgetHelpType where +instance BoxedEnum WidgetHelpType where +data Unit +instance P.Enum Unit where +instance BoxedEnum Unit where +data TreeViewGridLines +instance P.Enum TreeViewGridLines where +instance BoxedEnum TreeViewGridLines where +data TreeViewDropPosition +instance P.Enum TreeViewDropPosition where +instance BoxedEnum TreeViewDropPosition where +data TreeViewColumnSizing +instance P.Enum TreeViewColumnSizing where +instance BoxedEnum TreeViewColumnSizing where +data ToolbarStyle +instance P.Enum ToolbarStyle where +instance BoxedEnum ToolbarStyle where +data ToolbarSpaceStyle +instance P.Enum ToolbarSpaceStyle where +instance BoxedEnum ToolbarSpaceStyle where +data TextWindowType +instance P.Enum TextWindowType where +instance BoxedEnum TextWindowType where +data TextViewLayer +instance P.Enum TextViewLayer where +instance BoxedEnum TextViewLayer where +data TextExtendSelection +instance P.Enum TextExtendSelection where +instance BoxedEnum TextExtendSelection where +data TextDirection +instance P.Enum TextDirection where +instance BoxedEnum TextDirection where +data TextBufferTargetInfo +instance P.Enum TextBufferTargetInfo where +instance BoxedEnum TextBufferTargetInfo where +data StateType +instance P.Enum StateType where +instance BoxedEnum StateType where +data StackTransitionType +instance P.Enum StackTransitionType where +instance BoxedEnum StackTransitionType where +data SpinType +instance P.Enum SpinType where +instance BoxedEnum SpinType where +data SpinButtonUpdatePolicy +instance P.Enum SpinButtonUpdatePolicy where +instance BoxedEnum SpinButtonUpdatePolicy where +data SortType +instance P.Enum SortType where +instance BoxedEnum SortType where +data SizeRequestMode +instance P.Enum SizeRequestMode where +instance BoxedEnum SizeRequestMode where +data SizeGroupMode +instance P.Enum SizeGroupMode where +instance BoxedEnum SizeGroupMode where +data ShortcutType +instance P.Enum ShortcutType where +instance BoxedEnum ShortcutType where +data ShadowType +instance P.Enum ShadowType where +instance BoxedEnum ShadowType where +data SensitivityType +instance P.Enum SensitivityType where +instance BoxedEnum SensitivityType where +data SelectionMode +instance P.Enum SelectionMode where +instance BoxedEnum SelectionMode where +data ScrollablePolicy +instance P.Enum ScrollablePolicy where +instance BoxedEnum ScrollablePolicy where +data ScrollType +instance P.Enum ScrollType where +instance BoxedEnum ScrollType where +data ScrollStep +instance P.Enum ScrollStep where +instance BoxedEnum ScrollStep where +data RevealerTransitionType +instance P.Enum RevealerTransitionType where +instance BoxedEnum RevealerTransitionType where +data ResponseType +instance P.Enum ResponseType where +instance BoxedEnum ResponseType where +data ResizeMode +instance P.Enum ResizeMode where +instance BoxedEnum ResizeMode where +data ReliefStyle +instance P.Enum ReliefStyle where +instance BoxedEnum ReliefStyle where +data RecentSortType +instance P.Enum RecentSortType where +instance BoxedEnum RecentSortType where +data RecentManagerError +instance P.Enum RecentManagerError where +instance BoxedEnum RecentManagerError where +data RecentChooserError +instance P.Enum RecentChooserError where +instance BoxedEnum RecentChooserError where +data RcTokenType +instance P.Enum RcTokenType where +instance BoxedEnum RcTokenType where +data PropagationPhase +instance P.Enum PropagationPhase where +instance BoxedEnum PropagationPhase where +data PrintStatus +instance P.Enum PrintStatus where +instance BoxedEnum PrintStatus where +data PrintQuality +instance P.Enum PrintQuality where +instance BoxedEnum PrintQuality where +data PrintPages +instance P.Enum PrintPages where +instance BoxedEnum PrintPages where +data PrintOperationResult +instance P.Enum PrintOperationResult where +instance BoxedEnum PrintOperationResult where +data PrintOperationAction +instance P.Enum PrintOperationAction where +instance BoxedEnum PrintOperationAction where +data PrintError +instance P.Enum PrintError where +instance BoxedEnum PrintError where +data PrintDuplex +instance P.Enum PrintDuplex where +instance BoxedEnum PrintDuplex where +data PositionType +instance P.Enum PositionType where +instance BoxedEnum PositionType where +data PopoverConstraint +instance P.Enum PopoverConstraint where +instance BoxedEnum PopoverConstraint where +data PolicyType +instance P.Enum PolicyType where +instance BoxedEnum PolicyType where +data PathType +instance P.Enum PathType where +instance BoxedEnum PathType where +data PathPriorityType +instance P.Enum PathPriorityType where +instance BoxedEnum PathPriorityType where +data PanDirection +instance P.Enum PanDirection where +instance BoxedEnum PanDirection where +data PageSet +instance P.Enum PageSet where +instance BoxedEnum PageSet where +data PageOrientation +instance P.Enum PageOrientation where +instance BoxedEnum PageOrientation where +data PadActionType +instance P.Enum PadActionType where +instance BoxedEnum PadActionType where +data PackType +instance P.Enum PackType where +instance BoxedEnum PackType where +data PackDirection +instance P.Enum PackDirection where +instance BoxedEnum PackDirection where +data Orientation +instance P.Enum Orientation where +instance BoxedEnum Orientation where +data NumberUpLayout +instance P.Enum NumberUpLayout where +instance BoxedEnum NumberUpLayout where +data NotebookTab +instance P.Enum NotebookTab where +instance BoxedEnum NotebookTab where +data MovementStep +instance P.Enum MovementStep where +instance BoxedEnum MovementStep where +data MessageType +instance P.Enum MessageType where +instance BoxedEnum MessageType where +data MenuDirectionType +instance P.Enum MenuDirectionType where +instance BoxedEnum MenuDirectionType where +data License +instance P.Enum License where +instance BoxedEnum License where +data LevelBarMode +instance P.Enum LevelBarMode where +instance BoxedEnum LevelBarMode where +data Justification +instance P.Enum Justification where +instance BoxedEnum Justification where +data InputPurpose +instance P.Enum InputPurpose where +instance BoxedEnum InputPurpose where +data ImageType +instance P.Enum ImageType where +instance BoxedEnum ImageType where +data IconViewDropPosition +instance P.Enum IconViewDropPosition where +instance BoxedEnum IconViewDropPosition where +data IconThemeError +instance P.Enum IconThemeError where +instance BoxedEnum IconThemeError where +data IconSize +instance P.Enum IconSize where +instance BoxedEnum IconSize where +data IMStatusStyle +instance P.Enum IMStatusStyle where +instance BoxedEnum IMStatusStyle where +data IMPreeditStyle +instance P.Enum IMPreeditStyle where +instance BoxedEnum IMPreeditStyle where +data FileChooserError +instance P.Enum FileChooserError where +instance BoxedEnum FileChooserError where +data FileChooserConfirmation +instance P.Enum FileChooserConfirmation where +instance BoxedEnum FileChooserConfirmation where +data FileChooserAction +instance P.Enum FileChooserAction where +instance BoxedEnum FileChooserAction where +data ExpanderStyle +instance P.Enum ExpanderStyle where +instance BoxedEnum ExpanderStyle where +data EventSequenceState +instance P.Enum EventSequenceState where +instance BoxedEnum EventSequenceState where +data EntryIconPosition +instance P.Enum EntryIconPosition where +instance BoxedEnum EntryIconPosition where +data DragResult +instance P.Enum DragResult where +instance BoxedEnum DragResult where +data DirectionType +instance P.Enum DirectionType where +instance BoxedEnum DirectionType where +data DeleteType +instance P.Enum DeleteType where +instance BoxedEnum DeleteType where +data CssSectionType +instance P.Enum CssSectionType where +instance BoxedEnum CssSectionType where +data CssProviderError +instance P.Enum CssProviderError where +instance BoxedEnum CssProviderError where +data CornerType +instance P.Enum CornerType where +instance BoxedEnum CornerType where +data CellRendererMode +instance P.Enum CellRendererMode where +instance BoxedEnum CellRendererMode where +data CellRendererAccelMode +instance P.Enum CellRendererAccelMode where +instance BoxedEnum CellRendererAccelMode where +data ButtonsType +instance P.Enum ButtonsType where +instance BoxedEnum ButtonsType where +data ButtonRole +instance P.Enum ButtonRole where +instance BoxedEnum ButtonRole where +data ButtonBoxStyle +instance P.Enum ButtonBoxStyle where +instance BoxedEnum ButtonBoxStyle where +data BuilderError +instance P.Enum BuilderError where +instance BoxedEnum BuilderError where +data BorderStyle +instance P.Enum BorderStyle where +instance BoxedEnum BorderStyle where +data BaselinePosition +instance P.Enum BaselinePosition where +instance BoxedEnum BaselinePosition where +data AssistantPageType +instance P.Enum AssistantPageType where +instance BoxedEnum AssistantPageType where +data ArrowType +instance P.Enum ArrowType where +instance BoxedEnum ArrowType where +data ArrowPlacement +instance P.Enum ArrowPlacement where +instance BoxedEnum ArrowPlacement where +data Align +instance P.Enum Align where +instance BoxedEnum Align where diff --git a/GI/Gtk/Flags.hs b/GI/Gtk/Flags.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Flags.hs @@ -0,0 +1,1827 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Flags + ( + + -- * Flags +-- ** AccelFlags #flag:AccelFlags# + + AccelFlags(..) , + + +-- ** ApplicationInhibitFlags #flag:ApplicationInhibitFlags# + + ApplicationInhibitFlags(..) , + + +-- ** AttachOptions #flag:AttachOptions# + + AttachOptions(..) , + + +-- ** CalendarDisplayOptions #flag:CalendarDisplayOptions# + + CalendarDisplayOptions(..) , + + +-- ** CellRendererState #flag:CellRendererState# + + CellRendererState(..) , + + +-- ** DebugFlag #flag:DebugFlag# + + DebugFlag(..) , + + +-- ** DestDefaults #flag:DestDefaults# + + DestDefaults(..) , + + +-- ** DialogFlags #flag:DialogFlags# + + DialogFlags(..) , + + +-- ** EventControllerScrollFlags #flag:EventControllerScrollFlags# + + EventControllerScrollFlags(..) , + + +-- ** FileFilterFlags #flag:FileFilterFlags# + + FileFilterFlags(..) , + + +-- ** FontChooserLevel #flag:FontChooserLevel# + + FontChooserLevel(..) , + + +-- ** IconLookupFlags #flag:IconLookupFlags# + + IconLookupFlags(..) , + + +-- ** InputHints #flag:InputHints# + + InputHints(..) , + + +-- ** JunctionSides #flag:JunctionSides# + + JunctionSides(..) , + + +-- ** PlacesOpenFlags #flag:PlacesOpenFlags# + + PlacesOpenFlags(..) , + + +-- ** RcFlags #flag:RcFlags# + + RcFlags(..) , + + +-- ** RecentFilterFlags #flag:RecentFilterFlags# + + RecentFilterFlags(..) , + + +-- ** RegionFlags #flag:RegionFlags# + + RegionFlags(..) , + + +-- ** StateFlags #flag:StateFlags# + + StateFlags(..) , + + +-- ** StyleContextPrintFlags #flag:StyleContextPrintFlags# + + StyleContextPrintFlags(..) , + + +-- ** TargetFlags #flag:TargetFlags# + + TargetFlags(..) , + + +-- ** TextSearchFlags #flag:TextSearchFlags# + + TextSearchFlags(..) , + + +-- ** ToolPaletteDragTargets #flag:ToolPaletteDragTargets# + + ToolPaletteDragTargets(..) , + + +-- ** TreeModelFlags #flag:TreeModelFlags# + + TreeModelFlags(..) , + + +-- ** UIManagerItemType #flag:UIManagerItemType# + + UIManagerItemType(..) , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + + +-- Flags UIManagerItemType +{-# DEPRECATED UIManagerItemType ["(Since version 3.10)"] #-} +{- | +These enumeration values are used by 'GI.Gtk.Objects.UIManager.uIManagerAddUi' to determine +what UI element to create. +-} +data UIManagerItemType = + UIManagerItemTypeAuto + {- ^ + Pick the type of the UI element according to context. + -} + | UIManagerItemTypeMenubar + {- ^ + Create a menubar. + -} + | UIManagerItemTypeMenu + {- ^ + Create a menu. + -} + | UIManagerItemTypeToolbar + {- ^ + Create a toolbar. + -} + | UIManagerItemTypePlaceholder + {- ^ + Insert a placeholder. + -} + | UIManagerItemTypePopup + {- ^ + Create a popup menu. + -} + | UIManagerItemTypeMenuitem + {- ^ + Create a menuitem. + -} + | UIManagerItemTypeToolitem + {- ^ + Create a toolitem. + -} + | UIManagerItemTypeSeparator + {- ^ + Create a separator. + -} + | UIManagerItemTypeAccelerator + {- ^ + Install an accelerator. + -} + | UIManagerItemTypePopupWithAccels + {- ^ + Same as 'GI.Gtk.Flags.UIManagerItemTypePopup', but the + actions’ accelerators are shown. + -} + | AnotherUIManagerItemType Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord UIManagerItemType where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_ui_manager_item_type_get_type" c_gtk_ui_manager_item_type_get_type :: + IO GType + +instance BoxedFlags UIManagerItemType where + boxedFlagsType _ = c_gtk_ui_manager_item_type_get_type + +instance IsGFlag UIManagerItemType + +-- Flags TreeModelFlags +{- | +These flags indicate various properties of a 'GI.Gtk.Interfaces.TreeModel.TreeModel'. + +They are returned by 'GI.Gtk.Interfaces.TreeModel.treeModelGetFlags', and must be +static for the lifetime of the object. A more complete description +of @/GTK_TREE_MODEL_ITERS_PERSIST/@ can be found in the overview of +this section. +-} +data TreeModelFlags = + TreeModelFlagsItersPersist + {- ^ + iterators survive all signals + emitted by the tree + -} + | TreeModelFlagsListOnly + {- ^ + the model is a list only, and never + has children + -} + | AnotherTreeModelFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum TreeModelFlags where + fromEnum TreeModelFlagsItersPersist = 1 + fromEnum TreeModelFlagsListOnly = 2 + fromEnum (AnotherTreeModelFlags k) = k + + toEnum 1 = TreeModelFlagsItersPersist + toEnum 2 = TreeModelFlagsListOnly + toEnum k = AnotherTreeModelFlags k + +instance P.Ord TreeModelFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_tree_model_flags_get_type" c_gtk_tree_model_flags_get_type :: + IO GType + +instance BoxedFlags TreeModelFlags where + boxedFlagsType _ = c_gtk_tree_model_flags_get_type + +instance IsGFlag TreeModelFlags + +-- Flags ToolPaletteDragTargets +{- | +Flags used to specify the supported drag targets. +-} +data ToolPaletteDragTargets = + ToolPaletteDragTargetsItems + {- ^ + Support drag of items. + -} + | ToolPaletteDragTargetsGroups + {- ^ + Support drag of groups. + -} + | AnotherToolPaletteDragTargets Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum ToolPaletteDragTargets where + fromEnum ToolPaletteDragTargetsItems = 1 + fromEnum ToolPaletteDragTargetsGroups = 2 + fromEnum (AnotherToolPaletteDragTargets k) = k + + toEnum 1 = ToolPaletteDragTargetsItems + toEnum 2 = ToolPaletteDragTargetsGroups + toEnum k = AnotherToolPaletteDragTargets k + +instance P.Ord ToolPaletteDragTargets where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_tool_palette_drag_targets_get_type" c_gtk_tool_palette_drag_targets_get_type :: + IO GType + +instance BoxedFlags ToolPaletteDragTargets where + boxedFlagsType _ = c_gtk_tool_palette_drag_targets_get_type + +instance IsGFlag ToolPaletteDragTargets + +-- Flags TextSearchFlags +{- | +Flags affecting how a search is done. + +If neither @/GTK_TEXT_SEARCH_VISIBLE_ONLY/@ nor @/GTK_TEXT_SEARCH_TEXT_ONLY/@ are +enabled, the match must be exact; the special 0xFFFC character will match +embedded pixbufs or child widgets. +-} +data TextSearchFlags = + TextSearchFlagsVisibleOnly + {- ^ + Search only visible data. A search match may + have invisible text interspersed. + -} + | TextSearchFlagsTextOnly + {- ^ + Search only text. A match may have pixbufs or + child widgets mixed inside the matched range. + -} + | TextSearchFlagsCaseInsensitive + {- ^ + The text will be matched regardless of + what case it is in. + -} + | AnotherTextSearchFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord TextSearchFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_text_search_flags_get_type" c_gtk_text_search_flags_get_type :: + IO GType + +instance BoxedFlags TextSearchFlags where + boxedFlagsType _ = c_gtk_text_search_flags_get_type + +instance IsGFlag TextSearchFlags + +-- Flags TargetFlags +{- | +The 'GI.Gtk.Flags.TargetFlags' enumeration is used to specify +constraints on a 'GI.Gtk.Structs.TargetEntry.TargetEntry'. +-} +data TargetFlags = + TargetFlagsSameApp + {- ^ + If this is set, the target will only be selected + for drags within a single application. + -} + | TargetFlagsSameWidget + {- ^ + If this is set, the target will only be selected + for drags within a single widget. + -} + | TargetFlagsOtherApp + {- ^ + If this is set, the target will not be selected + for drags within a single application. + -} + | TargetFlagsOtherWidget + {- ^ + If this is set, the target will not be selected + for drags withing a single widget. + -} + | AnotherTargetFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord TargetFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_target_flags_get_type" c_gtk_target_flags_get_type :: + IO GType + +instance BoxedFlags TargetFlags where + boxedFlagsType _ = c_gtk_target_flags_get_type + +instance IsGFlag TargetFlags + +-- Flags StyleContextPrintFlags +{- | +Flags that modify the behavior of 'GI.Gtk.Objects.StyleContext.styleContextToString'. +New values may be added to this enumeration. +-} +data StyleContextPrintFlags = + StyleContextPrintFlagsNone + {- ^ + /No description available in the introspection data./ + -} + | StyleContextPrintFlagsRecurse + {- ^ + Print the entire tree of + CSS nodes starting at the style context\'s node + -} + | StyleContextPrintFlagsShowStyle + {- ^ + Show the values of the + CSS properties for each node + -} + | AnotherStyleContextPrintFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum StyleContextPrintFlags where + fromEnum StyleContextPrintFlagsNone = 0 + fromEnum StyleContextPrintFlagsRecurse = 1 + fromEnum StyleContextPrintFlagsShowStyle = 2 + fromEnum (AnotherStyleContextPrintFlags k) = k + + toEnum 0 = StyleContextPrintFlagsNone + toEnum 1 = StyleContextPrintFlagsRecurse + toEnum 2 = StyleContextPrintFlagsShowStyle + toEnum k = AnotherStyleContextPrintFlags k + +instance P.Ord StyleContextPrintFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_style_context_print_flags_get_type" c_gtk_style_context_print_flags_get_type :: + IO GType + +instance BoxedFlags StyleContextPrintFlags where + boxedFlagsType _ = c_gtk_style_context_print_flags_get_type + +instance IsGFlag StyleContextPrintFlags + +-- Flags StateFlags +{- | +Describes a widget state. Widget states are used to match the widget +against CSS pseudo-classes. Note that GTK extends the regular CSS +classes and sometimes uses different names. +-} +data StateFlags = + StateFlagsNormal + {- ^ + State during normal operation. + -} + | StateFlagsActive + {- ^ + Widget is active. + -} + | StateFlagsPrelight + {- ^ + Widget has a mouse pointer over it. + -} + | StateFlagsSelected + {- ^ + Widget is selected. + -} + | StateFlagsInsensitive + {- ^ + Widget is insensitive. + -} + | StateFlagsInconsistent + {- ^ + Widget is inconsistent. + -} + | StateFlagsFocused + {- ^ + Widget has the keyboard focus. + -} + | StateFlagsBackdrop + {- ^ + Widget is in a background toplevel window. + -} + | StateFlagsDirLtr + {- ^ + Widget is in left-to-right text direction. Since 3.8 + -} + | StateFlagsDirRtl + {- ^ + Widget is in right-to-left text direction. Since 3.8 + -} + | StateFlagsLink + {- ^ + Widget is a link. Since 3.12 + -} + | StateFlagsVisited + {- ^ + The location the widget points to has already been visited. Since 3.12 + -} + | StateFlagsChecked + {- ^ + Widget is checked. Since 3.14 + -} + | StateFlagsDropActive + {- ^ + Widget is highlighted as a drop target for DND. Since 3.20 + -} + | AnotherStateFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 StateFlagsDropActive = 4096 + 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 4096 = StateFlagsDropActive + toEnum k = AnotherStateFlags k + +instance P.Ord StateFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_state_flags_get_type" c_gtk_state_flags_get_type :: + IO GType + +instance BoxedFlags StateFlags where + boxedFlagsType _ = c_gtk_state_flags_get_type + +instance IsGFlag StateFlags + +-- Flags RegionFlags +{- | +Describes a region within a widget. +-} +data RegionFlags = + RegionFlagsEven + {- ^ + Region has an even number within a set. + -} + | RegionFlagsOdd + {- ^ + Region has an odd number within a set. + -} + | RegionFlagsFirst + {- ^ + Region is the first one within a set. + -} + | RegionFlagsLast + {- ^ + Region is the last one within a set. + -} + | RegionFlagsOnly + {- ^ + Region is the only one within a set. + -} + | RegionFlagsSorted + {- ^ + Region is part of a sorted area. + -} + | AnotherRegionFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord RegionFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_region_flags_get_type" c_gtk_region_flags_get_type :: + IO GType + +instance BoxedFlags RegionFlags where + boxedFlagsType _ = c_gtk_region_flags_get_type + +instance IsGFlag RegionFlags + +-- Flags RecentFilterFlags +{- | +These flags indicate what parts of a 'GI.Gtk.Structs.RecentFilterInfo.RecentFilterInfo' struct +are filled or need to be filled. +-} +data RecentFilterFlags = + RecentFilterFlagsUri + {- ^ + the URI of the file being tested + -} + | RecentFilterFlagsDisplayName + {- ^ + the string that will be used to + display the file in the recent chooser + -} + | RecentFilterFlagsMimeType + {- ^ + the mime type of the file + -} + | RecentFilterFlagsApplication + {- ^ + the list of applications that have + registered the file + -} + | RecentFilterFlagsGroup + {- ^ + the groups to which the file belongs to + -} + | RecentFilterFlagsAge + {- ^ + the number of days elapsed since the file + has been registered + -} + | AnotherRecentFilterFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord RecentFilterFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_recent_filter_flags_get_type" c_gtk_recent_filter_flags_get_type :: + IO GType + +instance BoxedFlags RecentFilterFlags where + boxedFlagsType _ = c_gtk_recent_filter_flags_get_type + +instance IsGFlag RecentFilterFlags + +-- Flags RcFlags +{- | +Deprecated +-} +data RcFlags = + RcFlagsFg + {- ^ + Deprecated + -} + | RcFlagsBg + {- ^ + Deprecated + -} + | RcFlagsText + {- ^ + Deprecated + -} + | RcFlagsBase + {- ^ + Deprecated + -} + | AnotherRcFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord RcFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_rc_flags_get_type" c_gtk_rc_flags_get_type :: + IO GType + +instance BoxedFlags RcFlags where + boxedFlagsType _ = c_gtk_rc_flags_get_type + +instance IsGFlag RcFlags + +-- Flags PlacesOpenFlags +{- | +These flags serve two purposes. First, the application can call 'GI.Gtk.Objects.PlacesSidebar.placesSidebarSetOpenFlags' +using these flags as a bitmask. This tells the sidebar that the application is able to open +folders selected from the sidebar in various ways, for example, in new tabs or in new windows in +addition to the normal mode. + +Second, when one of these values gets passed back to the application in the +'GI.Gtk.Objects.PlacesSidebar.PlacesSidebar'::@/open-location/@ signal, it means that the application should +open the selected location in the normal way, in a new tab, or in a new +window. The sidebar takes care of determining the desired way to open the location, +based on the modifier keys that the user is pressing at the time the selection is made. + +If the application never calls 'GI.Gtk.Objects.PlacesSidebar.placesSidebarSetOpenFlags', then the sidebar will only +use @/GTK_PLACES_OPEN_NORMAL/@ in the 'GI.Gtk.Objects.PlacesSidebar.PlacesSidebar'::@/open-location/@ signal. This is the +default mode of operation. +-} +data PlacesOpenFlags = + PlacesOpenFlagsNormal + {- ^ + This is the default mode that 'GI.Gtk.Objects.PlacesSidebar.PlacesSidebar' uses if no other flags + are specified. It indicates that the calling application should open the selected location + in the normal way, for example, in the folder view beside the sidebar. + -} + | PlacesOpenFlagsNewTab + {- ^ + When passed to 'GI.Gtk.Objects.PlacesSidebar.placesSidebarSetOpenFlags', this indicates + that the application can open folders selected from the sidebar in new tabs. This value + will be passed to the 'GI.Gtk.Objects.PlacesSidebar.PlacesSidebar'::@/open-location/@ signal when the user selects + that a location be opened in a new tab instead of in the standard fashion. + -} + | PlacesOpenFlagsNewWindow + {- ^ + Similar to /@gTKPLACESOPENNEWTAB@/, but indicates that the application + can open folders in new windows. + -} + | AnotherPlacesOpenFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord PlacesOpenFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_places_open_flags_get_type" c_gtk_places_open_flags_get_type :: + IO GType + +instance BoxedFlags PlacesOpenFlags where + boxedFlagsType _ = c_gtk_places_open_flags_get_type + +instance IsGFlag PlacesOpenFlags + +-- Flags JunctionSides +{- | +Describes how a rendered element connects to adjacent elements. +-} +data JunctionSides = + JunctionSidesNone + {- ^ + No junctions. + -} + | JunctionSidesCornerTopleft + {- ^ + Element connects on the top-left corner. + -} + | JunctionSidesCornerTopright + {- ^ + Element connects on the top-right corner. + -} + | JunctionSidesCornerBottomleft + {- ^ + Element connects on the bottom-left corner. + -} + | JunctionSidesCornerBottomright + {- ^ + Element connects on the bottom-right corner. + -} + | JunctionSidesTop + {- ^ + Element connects on the top side. + -} + | JunctionSidesBottom + {- ^ + Element connects on the bottom side. + -} + | JunctionSidesLeft + {- ^ + Element connects on the left side. + -} + | JunctionSidesRight + {- ^ + Element connects on the right side. + -} + | AnotherJunctionSides Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 4 = JunctionSidesCornerBottomleft + toEnum 8 = JunctionSidesCornerBottomright + toEnum 3 = JunctionSidesTop + toEnum 12 = JunctionSidesBottom + toEnum 5 = JunctionSidesLeft + toEnum 10 = JunctionSidesRight + toEnum k = AnotherJunctionSides k + +instance P.Ord JunctionSides where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_junction_sides_get_type" c_gtk_junction_sides_get_type :: + IO GType + +instance BoxedFlags JunctionSides where + boxedFlagsType _ = c_gtk_junction_sides_get_type + +instance IsGFlag JunctionSides + +-- Flags InputHints +{- | +Describes hints that might be taken into account by input methods +or applications. Note that input methods may already tailor their +behaviour according to the 'GI.Gtk.Enums.InputPurpose' of the entry. + +Some common sense is expected when using these flags - mixing +/@gTKINPUTHINTLOWERCASE@/ with any of the uppercase hints makes no sense. + +This enumeration may be extended in the future; input methods should +ignore unknown values. + +/Since: 3.6/ +-} +data InputHints = + InputHintsNone + {- ^ + No special behaviour suggested + -} + | InputHintsSpellcheck + {- ^ + Suggest checking for typos + -} + | InputHintsNoSpellcheck + {- ^ + Suggest not checking for typos + -} + | InputHintsWordCompletion + {- ^ + Suggest word completion + -} + | InputHintsLowercase + {- ^ + Suggest to convert all text to lowercase + -} + | InputHintsUppercaseChars + {- ^ + Suggest to capitalize all text + -} + | InputHintsUppercaseWords + {- ^ + Suggest to capitalize the first + character of each word + -} + | InputHintsUppercaseSentences + {- ^ + Suggest to capitalize the + first word of each sentence + -} + | InputHintsInhibitOsk + {- ^ + Suggest to not show an onscreen keyboard + (e.g for a calculator that already has all the keys). + -} + | InputHintsVerticalWriting + {- ^ + The text is vertical. Since 3.18 + -} + | InputHintsEmoji + {- ^ + Suggest offering Emoji support. Since 3.22.20 + -} + | InputHintsNoEmoji + {- ^ + Suggest not offering Emoji support. Since 3.22.20 + -} + | AnotherInputHints Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum InputHints where + fromEnum InputHintsNone = 0 + fromEnum InputHintsSpellcheck = 1 + fromEnum InputHintsNoSpellcheck = 2 + fromEnum InputHintsWordCompletion = 4 + fromEnum InputHintsLowercase = 8 + fromEnum InputHintsUppercaseChars = 16 + fromEnum InputHintsUppercaseWords = 32 + fromEnum InputHintsUppercaseSentences = 64 + fromEnum InputHintsInhibitOsk = 128 + fromEnum InputHintsVerticalWriting = 256 + fromEnum InputHintsEmoji = 512 + fromEnum InputHintsNoEmoji = 1024 + fromEnum (AnotherInputHints k) = k + + toEnum 0 = InputHintsNone + toEnum 1 = InputHintsSpellcheck + toEnum 2 = InputHintsNoSpellcheck + toEnum 4 = InputHintsWordCompletion + toEnum 8 = InputHintsLowercase + toEnum 16 = InputHintsUppercaseChars + toEnum 32 = InputHintsUppercaseWords + toEnum 64 = InputHintsUppercaseSentences + toEnum 128 = InputHintsInhibitOsk + toEnum 256 = InputHintsVerticalWriting + toEnum 512 = InputHintsEmoji + toEnum 1024 = InputHintsNoEmoji + toEnum k = AnotherInputHints k + +instance P.Ord InputHints where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_input_hints_get_type" c_gtk_input_hints_get_type :: + IO GType + +instance BoxedFlags InputHints where + boxedFlagsType _ = c_gtk_input_hints_get_type + +instance IsGFlag InputHints + +-- Flags IconLookupFlags +{- | +Used to specify options for 'GI.Gtk.Objects.IconTheme.iconThemeLookupIcon' +-} +data IconLookupFlags = + IconLookupFlagsNoSvg + {- ^ + Never get SVG icons, even if gdk-pixbuf + supports them. Cannot be used together with 'GI.Gtk.Flags.IconLookupFlagsForceSvg'. + -} + | IconLookupFlagsForceSvg + {- ^ + Get SVG icons, even if gdk-pixbuf + doesn’t support them. + Cannot be used together with 'GI.Gtk.Flags.IconLookupFlagsNoSvg'. + -} + | IconLookupFlagsUseBuiltin + {- ^ + When passed to + 'GI.Gtk.Objects.IconTheme.iconThemeLookupIcon' includes builtin icons + as well as files. For a builtin icon, 'GI.Gtk.Objects.IconInfo.iconInfoGetFilename' + is 'Nothing' and you need to call 'GI.Gtk.Objects.IconInfo.iconInfoGetBuiltinPixbuf'. + -} + | IconLookupFlagsGenericFallback + {- ^ + Try to shorten icon name at \'-\' + characters before looking at inherited themes. This flag is only + supported in functions that take a single icon name. For more general + fallback, see 'GI.Gtk.Objects.IconTheme.iconThemeChooseIcon'. Since 2.12. + -} + | IconLookupFlagsForceSize + {- ^ + Always get the icon scaled to the + requested size. Since 2.14. + -} + | IconLookupFlagsForceRegular + {- ^ + Try to always load regular icons, even + when symbolic icon names are given. Since 3.14. + -} + | IconLookupFlagsForceSymbolic + {- ^ + Try to always load symbolic icons, even + when regular icon names are given. Since 3.14. + -} + | IconLookupFlagsDirLtr + {- ^ + Try to load a variant of the icon for left-to-right + text direction. Since 3.14. + -} + | IconLookupFlagsDirRtl + {- ^ + Try to load a variant of the icon for right-to-left + text direction. Since 3.14. + -} + | AnotherIconLookupFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord IconLookupFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_icon_lookup_flags_get_type" c_gtk_icon_lookup_flags_get_type :: + IO GType + +instance BoxedFlags IconLookupFlags where + boxedFlagsType _ = c_gtk_icon_lookup_flags_get_type + +instance IsGFlag IconLookupFlags + +-- Flags FontChooserLevel +{- | +This enumeration specifies the granularity of font selection +that is desired in a font chooser. + +This enumeration may be extended in the future; applications should +ignore unknown values. +-} +data FontChooserLevel = + FontChooserLevelFamily + {- ^ + Allow selecting a font family + -} + | FontChooserLevelStyle + {- ^ + Allow selecting a specific font face + -} + | FontChooserLevelSize + {- ^ + Allow selecting a specific font size + -} + | FontChooserLevelVariations + {- ^ + /No description available in the introspection data./ + -} + | FontChooserLevelFeatures + {- ^ + Allow selecting specific OpenType font features + -} + | AnotherFontChooserLevel Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum FontChooserLevel where + fromEnum FontChooserLevelFamily = 0 + fromEnum FontChooserLevelStyle = 1 + fromEnum FontChooserLevelSize = 2 + fromEnum FontChooserLevelVariations = 4 + fromEnum FontChooserLevelFeatures = 8 + fromEnum (AnotherFontChooserLevel k) = k + + toEnum 0 = FontChooserLevelFamily + toEnum 1 = FontChooserLevelStyle + toEnum 2 = FontChooserLevelSize + toEnum 4 = FontChooserLevelVariations + toEnum 8 = FontChooserLevelFeatures + toEnum k = AnotherFontChooserLevel k + +instance P.Ord FontChooserLevel where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_font_chooser_level_get_type" c_gtk_font_chooser_level_get_type :: + IO GType + +instance BoxedFlags FontChooserLevel where + boxedFlagsType _ = c_gtk_font_chooser_level_get_type + +instance IsGFlag FontChooserLevel + +-- Flags FileFilterFlags +{- | +These flags indicate what parts of a 'GI.Gtk.Structs.FileFilterInfo.FileFilterInfo' struct +are filled or need to be filled. +-} +data FileFilterFlags = + FileFilterFlagsFilename + {- ^ + the filename of the file being tested + -} + | FileFilterFlagsUri + {- ^ + the URI for the file being tested + -} + | FileFilterFlagsDisplayName + {- ^ + the string that will be used to + display the file in the file chooser + -} + | FileFilterFlagsMimeType + {- ^ + the mime type of the file + -} + | AnotherFileFilterFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord FileFilterFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_file_filter_flags_get_type" c_gtk_file_filter_flags_get_type :: + IO GType + +instance BoxedFlags FileFilterFlags where + boxedFlagsType _ = c_gtk_file_filter_flags_get_type + +instance IsGFlag FileFilterFlags + +-- Flags EventControllerScrollFlags +{- | +Describes the behavior of a 'GI.Gtk.Objects.EventControllerScroll.EventControllerScroll'. + +/Since: 3.24/ +-} +data EventControllerScrollFlags = + EventControllerScrollFlagsNone + {- ^ + Don\'t emit scroll. + -} + | EventControllerScrollFlagsVertical + {- ^ + Emit scroll with vertical deltas. + -} + | EventControllerScrollFlagsHorizontal + {- ^ + Emit scroll with horizontal deltas. + -} + | EventControllerScrollFlagsDiscrete + {- ^ + Only emit deltas that are multiples of 1. + -} + | EventControllerScrollFlagsKinetic + {- ^ + Emit 'GI.Gtk.Objects.EventControllerScroll.EventControllerScroll'::@/decelerate/@ + after continuous scroll finishes. + -} + | EventControllerScrollFlagsBothAxes + {- ^ + Emit scroll on both axes. + -} + | AnotherEventControllerScrollFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.Enum EventControllerScrollFlags where + fromEnum EventControllerScrollFlagsNone = 0 + fromEnum EventControllerScrollFlagsVertical = 1 + fromEnum EventControllerScrollFlagsHorizontal = 2 + fromEnum EventControllerScrollFlagsDiscrete = 4 + fromEnum EventControllerScrollFlagsKinetic = 8 + fromEnum EventControllerScrollFlagsBothAxes = 3 + fromEnum (AnotherEventControllerScrollFlags k) = k + + toEnum 0 = EventControllerScrollFlagsNone + toEnum 1 = EventControllerScrollFlagsVertical + toEnum 2 = EventControllerScrollFlagsHorizontal + toEnum 4 = EventControllerScrollFlagsDiscrete + toEnum 8 = EventControllerScrollFlagsKinetic + toEnum 3 = EventControllerScrollFlagsBothAxes + toEnum k = AnotherEventControllerScrollFlags k + +instance P.Ord EventControllerScrollFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_event_controller_scroll_flags_get_type" c_gtk_event_controller_scroll_flags_get_type :: + IO GType + +instance BoxedFlags EventControllerScrollFlags where + boxedFlagsType _ = c_gtk_event_controller_scroll_flags_get_type + +instance IsGFlag EventControllerScrollFlags + +-- Flags DialogFlags +{- | +Flags used to influence dialog construction. +-} +data DialogFlags = + DialogFlagsModal + {- ^ + Make the constructed dialog modal, + see 'GI.Gtk.Objects.Window.windowSetModal' + -} + | DialogFlagsDestroyWithParent + {- ^ + Destroy the dialog when its + parent is destroyed, see 'GI.Gtk.Objects.Window.windowSetDestroyWithParent' + -} + | DialogFlagsUseHeaderBar + {- ^ + Create dialog with actions in header + bar instead of action area. Since 3.12. + -} + | AnotherDialogFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord DialogFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_dialog_flags_get_type" c_gtk_dialog_flags_get_type :: + IO GType + +instance BoxedFlags DialogFlags where + boxedFlagsType _ = c_gtk_dialog_flags_get_type + +instance IsGFlag DialogFlags + +-- Flags DestDefaults +{- | +The 'GI.Gtk.Flags.DestDefaults' enumeration specifies the various +types of action that will be taken on behalf +of the user for a drag destination site. +-} +data DestDefaults = + DestDefaultsMotion + {- ^ + If set for a widget, GTK+, during a drag over this + widget will check if the drag matches this widget’s list of possible targets + and actions. + GTK+ will then call 'GI.Gdk.Functions.dragStatus' as appropriate. + -} + | DestDefaultsHighlight + {- ^ + If set for a widget, GTK+ will draw a highlight on + this widget as long as a drag is over this widget and the widget drag format + and action are acceptable. + -} + | DestDefaultsDrop + {- ^ + If set for a widget, when a drop occurs, GTK+ will + will check if the drag matches this widget’s list of possible targets and + actions. If so, GTK+ will call 'GI.Gtk.Objects.Widget.widgetDragGetData' on behalf of the widget. + Whether or not the drop is successful, GTK+ will call 'GI.Gtk.Functions.dragFinish'. If + the action was a move, then if the drag was successful, then 'True' will be + passed for the /@delete@/ parameter to 'GI.Gtk.Functions.dragFinish'. + -} + | DestDefaultsAll + {- ^ + If set, specifies that all default actions should + be taken. + -} + | AnotherDestDefaults Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord DestDefaults where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_dest_defaults_get_type" c_gtk_dest_defaults_get_type :: + IO GType + +instance BoxedFlags DestDefaults where + boxedFlagsType _ = c_gtk_dest_defaults_get_type + +instance IsGFlag DestDefaults + +-- Flags DebugFlag +{- | +/No description available in the introspection data./ +-} +data DebugFlag = + DebugFlagMisc + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagPlugsocket + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagText + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagTree + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagUpdates + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagKeybindings + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagMultihead + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagModules + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagGeometry + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagIcontheme + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagPrinting + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagBuilder + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagSizeRequest + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagNoCssCache + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagBaselines + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagPixelCache + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagNoPixelCache + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagInteractive + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagTouchscreen + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagActions + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagResize + {- ^ + /No description available in the introspection data./ + -} + | DebugFlagLayout + {- ^ + /No description available in the introspection data./ + -} + | AnotherDebugFlag Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 DebugFlagResize = 1048576 + fromEnum DebugFlagLayout = 2097152 + 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 1048576 = DebugFlagResize + toEnum 2097152 = DebugFlagLayout + toEnum k = AnotherDebugFlag k + +instance P.Ord DebugFlag where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_debug_flag_get_type" c_gtk_debug_flag_get_type :: + IO GType + +instance BoxedFlags DebugFlag where + boxedFlagsType _ = c_gtk_debug_flag_get_type + +instance IsGFlag DebugFlag + +-- Flags CellRendererState +{- | +Tells how a cell is to be rendered. +-} +data CellRendererState = + CellRendererStateSelected + {- ^ + The cell is currently selected, and + probably has a selection colored background to render to. + -} + | CellRendererStatePrelit + {- ^ + The mouse is hovering over the cell. + -} + | CellRendererStateInsensitive + {- ^ + The cell is drawn in an insensitive manner + -} + | CellRendererStateSorted + {- ^ + The cell is in a sorted row + -} + | CellRendererStateFocused + {- ^ + The cell is in the focus row. + -} + | CellRendererStateExpandable + {- ^ + The cell is in a row that can be expanded. Since 3.4 + -} + | CellRendererStateExpanded + {- ^ + The cell is in a row that is expanded. Since 3.4 + -} + | AnotherCellRendererState Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord CellRendererState where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_cell_renderer_state_get_type" c_gtk_cell_renderer_state_get_type :: + IO GType + +instance BoxedFlags CellRendererState where + boxedFlagsType _ = c_gtk_cell_renderer_state_get_type + +instance IsGFlag CellRendererState + +-- Flags CalendarDisplayOptions +{- | +These options can be used to influence the display and behaviour of a 'GI.Gtk.Objects.Calendar.Calendar'. +-} +data CalendarDisplayOptions = + CalendarDisplayOptionsShowHeading + {- ^ + Specifies that the month and year should be displayed. + -} + | CalendarDisplayOptionsShowDayNames + {- ^ + Specifies that three letter day descriptions should be present. + -} + | CalendarDisplayOptionsNoMonthChange + {- ^ + Prevents the user from switching months with the calendar. + -} + | CalendarDisplayOptionsShowWeekNumbers + {- ^ + Displays each week numbers of the current year, down the + left side of the calendar. + -} + | CalendarDisplayOptionsShowDetails + {- ^ + Just show an indicator, not the full details + text when details are provided. See 'GI.Gtk.Objects.Calendar.calendarSetDetailFunc'. + -} + | AnotherCalendarDisplayOptions Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord CalendarDisplayOptions where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_calendar_display_options_get_type" c_gtk_calendar_display_options_get_type :: + IO GType + +instance BoxedFlags CalendarDisplayOptions where + boxedFlagsType _ = c_gtk_calendar_display_options_get_type + +instance IsGFlag CalendarDisplayOptions + +-- Flags AttachOptions +{- | +Denotes the expansion properties that a widget will have when it (or its +parent) is resized. +-} +data AttachOptions = + AttachOptionsExpand + {- ^ + the widget should expand to take up any extra space in its + container that has been allocated. + -} + | AttachOptionsShrink + {- ^ + the widget should shrink as and when possible. + -} + | AttachOptionsFill + {- ^ + the widget should fill the space allocated to it. + -} + | AnotherAttachOptions Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord AttachOptions where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_attach_options_get_type" c_gtk_attach_options_get_type :: + IO GType + +instance BoxedFlags AttachOptions where + boxedFlagsType _ = c_gtk_attach_options_get_type + +instance IsGFlag AttachOptions + +-- Flags ApplicationInhibitFlags +{- | +Types of user actions that may be blocked by 'GI.Gtk.Objects.Application.applicationInhibit'. + +/Since: 3.4/ +-} +data ApplicationInhibitFlags = + ApplicationInhibitFlagsLogout + {- ^ + Inhibit ending the user session + by logging out or by shutting down the computer + -} + | ApplicationInhibitFlagsSwitch + {- ^ + Inhibit user switching + -} + | ApplicationInhibitFlagsSuspend + {- ^ + Inhibit suspending the + session or computer + -} + | ApplicationInhibitFlagsIdle + {- ^ + Inhibit the session being + marked as idle (and possibly locked) + -} + | AnotherApplicationInhibitFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord ApplicationInhibitFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_application_inhibit_flags_get_type" c_gtk_application_inhibit_flags_get_type :: + IO GType + +instance BoxedFlags ApplicationInhibitFlags where + boxedFlagsType _ = c_gtk_application_inhibit_flags_get_type + +instance IsGFlag ApplicationInhibitFlags + +-- Flags AccelFlags +{- | +Accelerator flags used with 'GI.Gtk.Objects.AccelGroup.accelGroupConnect'. +-} +data AccelFlags = + AccelFlagsVisible + {- ^ + Accelerator is visible + -} + | AccelFlagsLocked + {- ^ + Accelerator not removable + -} + | AccelFlagsMask + {- ^ + Mask + -} + | AnotherAccelFlags Int + -- ^ Catch-all for unknown values + deriving (Show, Eq) + +instance P.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 + +instance P.Ord AccelFlags where + compare a b = P.compare (P.fromEnum a) (P.fromEnum b) + +foreign import ccall "gtk_accel_flags_get_type" c_gtk_accel_flags_get_type :: + IO GType + +instance BoxedFlags AccelFlags where + boxedFlagsType _ = c_gtk_accel_flags_get_type + +instance IsGFlag AccelFlags + + diff --git a/GI/Gtk/Flags.hs-boot b/GI/Gtk/Flags.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Flags.hs-boot @@ -0,0 +1,124 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Flags where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +data UIManagerItemType +instance P.Enum UIManagerItemType where +instance BoxedFlags UIManagerItemType where +instance IsGFlag UIManagerItemType +data TreeModelFlags +instance P.Enum TreeModelFlags where +instance BoxedFlags TreeModelFlags where +instance IsGFlag TreeModelFlags +data ToolPaletteDragTargets +instance P.Enum ToolPaletteDragTargets where +instance BoxedFlags ToolPaletteDragTargets where +instance IsGFlag ToolPaletteDragTargets +data TextSearchFlags +instance P.Enum TextSearchFlags where +instance BoxedFlags TextSearchFlags where +instance IsGFlag TextSearchFlags +data TargetFlags +instance P.Enum TargetFlags where +instance BoxedFlags TargetFlags where +instance IsGFlag TargetFlags +data StyleContextPrintFlags +instance P.Enum StyleContextPrintFlags where +instance BoxedFlags StyleContextPrintFlags where +instance IsGFlag StyleContextPrintFlags +data StateFlags +instance P.Enum StateFlags where +instance BoxedFlags StateFlags where +instance IsGFlag StateFlags +data RegionFlags +instance P.Enum RegionFlags where +instance BoxedFlags RegionFlags where +instance IsGFlag RegionFlags +data RecentFilterFlags +instance P.Enum RecentFilterFlags where +instance BoxedFlags RecentFilterFlags where +instance IsGFlag RecentFilterFlags +data RcFlags +instance P.Enum RcFlags where +instance BoxedFlags RcFlags where +instance IsGFlag RcFlags +data PlacesOpenFlags +instance P.Enum PlacesOpenFlags where +instance BoxedFlags PlacesOpenFlags where +instance IsGFlag PlacesOpenFlags +data JunctionSides +instance P.Enum JunctionSides where +instance BoxedFlags JunctionSides where +instance IsGFlag JunctionSides +data InputHints +instance P.Enum InputHints where +instance BoxedFlags InputHints where +instance IsGFlag InputHints +data IconLookupFlags +instance P.Enum IconLookupFlags where +instance BoxedFlags IconLookupFlags where +instance IsGFlag IconLookupFlags +data FontChooserLevel +instance P.Enum FontChooserLevel where +instance BoxedFlags FontChooserLevel where +instance IsGFlag FontChooserLevel +data FileFilterFlags +instance P.Enum FileFilterFlags where +instance BoxedFlags FileFilterFlags where +instance IsGFlag FileFilterFlags +data EventControllerScrollFlags +instance P.Enum EventControllerScrollFlags where +instance BoxedFlags EventControllerScrollFlags where +instance IsGFlag EventControllerScrollFlags +data DialogFlags +instance P.Enum DialogFlags where +instance BoxedFlags DialogFlags where +instance IsGFlag DialogFlags +data DestDefaults +instance P.Enum DestDefaults where +instance BoxedFlags DestDefaults where +instance IsGFlag DestDefaults +data DebugFlag +instance P.Enum DebugFlag where +instance BoxedFlags DebugFlag where +instance IsGFlag DebugFlag +data CellRendererState +instance P.Enum CellRendererState where +instance BoxedFlags CellRendererState where +instance IsGFlag CellRendererState +data CalendarDisplayOptions +instance P.Enum CalendarDisplayOptions where +instance BoxedFlags CalendarDisplayOptions where +instance IsGFlag CalendarDisplayOptions +data AttachOptions +instance P.Enum AttachOptions where +instance BoxedFlags AttachOptions where +instance IsGFlag AttachOptions +data ApplicationInhibitFlags +instance P.Enum ApplicationInhibitFlags where +instance BoxedFlags ApplicationInhibitFlags where +instance IsGFlag ApplicationInhibitFlags +data AccelFlags +instance P.Enum AccelFlags where +instance BoxedFlags AccelFlags where +instance IsGFlag AccelFlags diff --git a/GI/Gtk/Functions.hs b/GI/Gtk/Functions.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Functions.hs @@ -0,0 +1,8086 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Functions + ( + + -- * Methods +-- ** accelGroupsActivate #method:accelGroupsActivate# + + accelGroupsActivate , + + +-- ** accelGroupsFromObject #method:accelGroupsFromObject# + + accelGroupsFromObject , + + +-- ** acceleratorGetDefaultModMask #method:acceleratorGetDefaultModMask# + + acceleratorGetDefaultModMask , + + +-- ** acceleratorGetLabel #method:acceleratorGetLabel# + + acceleratorGetLabel , + + +-- ** acceleratorGetLabelWithKeycode #method:acceleratorGetLabelWithKeycode# + + acceleratorGetLabelWithKeycode , + + +-- ** acceleratorName #method:acceleratorName# + + acceleratorName , + + +-- ** acceleratorNameWithKeycode #method:acceleratorNameWithKeycode# + + acceleratorNameWithKeycode , + + +-- ** acceleratorParse #method:acceleratorParse# + + acceleratorParse , + + +-- ** acceleratorParseWithKeycode #method:acceleratorParseWithKeycode# + + acceleratorParseWithKeycode , + + +-- ** acceleratorSetDefaultModMask #method:acceleratorSetDefaultModMask# + + acceleratorSetDefaultModMask , + + +-- ** acceleratorValid #method:acceleratorValid# + + acceleratorValid , + + +-- ** alternativeDialogButtonOrder #method:alternativeDialogButtonOrder# + + alternativeDialogButtonOrder , + + +-- ** bindingsActivate #method:bindingsActivate# + + bindingsActivate , + + +-- ** bindingsActivateEvent #method:bindingsActivateEvent# + + bindingsActivateEvent , + + +-- ** cairoShouldDrawWindow #method:cairoShouldDrawWindow# + + cairoShouldDrawWindow , + + +-- ** cairoTransformToWindow #method:cairoTransformToWindow# + + cairoTransformToWindow , + + +-- ** checkVersion #method:checkVersion# + + checkVersion , + + +-- ** deviceGrabAdd #method:deviceGrabAdd# + + deviceGrabAdd , + + +-- ** deviceGrabRemove #method:deviceGrabRemove# + + deviceGrabRemove , + + +-- ** disableSetlocale #method:disableSetlocale# + + disableSetlocale , + + +-- ** distributeNaturalAllocation #method:distributeNaturalAllocation# + + distributeNaturalAllocation , + + +-- ** dragCancel #method:dragCancel# + + dragCancel , + + +-- ** dragFinish #method:dragFinish# + + dragFinish , + + +-- ** dragGetSourceWidget #method:dragGetSourceWidget# + + dragGetSourceWidget , + + +-- ** dragSetIconDefault #method:dragSetIconDefault# + + dragSetIconDefault , + + +-- ** dragSetIconGicon #method:dragSetIconGicon# + + dragSetIconGicon , + + +-- ** dragSetIconName #method:dragSetIconName# + + dragSetIconName , + + +-- ** dragSetIconPixbuf #method:dragSetIconPixbuf# + + dragSetIconPixbuf , + + +-- ** dragSetIconStock #method:dragSetIconStock# + + dragSetIconStock , + + +-- ** dragSetIconSurface #method:dragSetIconSurface# + + dragSetIconSurface , + + +-- ** dragSetIconWidget #method:dragSetIconWidget# + + dragSetIconWidget , + + +-- ** drawInsertionCursor #method:drawInsertionCursor# + + drawInsertionCursor , + + +-- ** eventsPending #method:eventsPending# + + eventsPending , + + +-- ** false #method:false# + + false , + + +-- ** getBinaryAge #method:getBinaryAge# + + getBinaryAge , + + +-- ** getCurrentEvent #method:getCurrentEvent# + + getCurrentEvent , + + +-- ** getCurrentEventDevice #method:getCurrentEventDevice# + + getCurrentEventDevice , + + +-- ** getCurrentEventState #method:getCurrentEventState# + + getCurrentEventState , + + +-- ** getCurrentEventTime #method:getCurrentEventTime# + + getCurrentEventTime , + + +-- ** getDebugFlags #method:getDebugFlags# + + getDebugFlags , + + +-- ** getDefaultLanguage #method:getDefaultLanguage# + + getDefaultLanguage , + + +-- ** getEventWidget #method:getEventWidget# + + getEventWidget , + + +-- ** getInterfaceAge #method:getInterfaceAge# + + getInterfaceAge , + + +-- ** getLocaleDirection #method:getLocaleDirection# + + getLocaleDirection , + + +-- ** getMajorVersion #method:getMajorVersion# + + getMajorVersion , + + +-- ** getMicroVersion #method:getMicroVersion# + + getMicroVersion , + + +-- ** getMinorVersion #method:getMinorVersion# + + getMinorVersion , + + +-- ** getOptionGroup #method:getOptionGroup# + + getOptionGroup , + + +-- ** grabGetCurrent #method:grabGetCurrent# + + grabGetCurrent , + + +-- ** init #method:init# + + init , + + +-- ** initCheck #method:initCheck# + + initCheck , + + +-- ** initWithArgs #method:initWithArgs# + + initWithArgs , + + +-- ** keySnooperRemove #method:keySnooperRemove# + + keySnooperRemove , + + +-- ** main #method:main# + + main , + + +-- ** mainDoEvent #method:mainDoEvent# + + mainDoEvent , + + +-- ** mainIteration #method:mainIteration# + + mainIteration , + + +-- ** mainIterationDo #method:mainIterationDo# + + mainIterationDo , + + +-- ** mainLevel #method:mainLevel# + + mainLevel , + + +-- ** mainQuit #method:mainQuit# + + mainQuit , + + +-- ** paintArrow #method:paintArrow# + + paintArrow , + + +-- ** paintBox #method:paintBox# + + paintBox , + + +-- ** paintBoxGap #method:paintBoxGap# + + paintBoxGap , + + +-- ** paintCheck #method:paintCheck# + + paintCheck , + + +-- ** paintDiamond #method:paintDiamond# + + paintDiamond , + + +-- ** paintExpander #method:paintExpander# + + paintExpander , + + +-- ** paintExtension #method:paintExtension# + + paintExtension , + + +-- ** paintFlatBox #method:paintFlatBox# + + paintFlatBox , + + +-- ** paintFocus #method:paintFocus# + + paintFocus , + + +-- ** paintHandle #method:paintHandle# + + paintHandle , + + +-- ** paintHline #method:paintHline# + + paintHline , + + +-- ** paintLayout #method:paintLayout# + + paintLayout , + + +-- ** paintOption #method:paintOption# + + paintOption , + + +-- ** paintResizeGrip #method:paintResizeGrip# + + paintResizeGrip , + + +-- ** paintShadow #method:paintShadow# + + paintShadow , + + +-- ** paintShadowGap #method:paintShadowGap# + + paintShadowGap , + + +-- ** paintSlider #method:paintSlider# + + paintSlider , + + +-- ** paintSpinner #method:paintSpinner# + + paintSpinner , + + +-- ** paintTab #method:paintTab# + + paintTab , + + +-- ** paintVline #method:paintVline# + + paintVline , + + +-- ** parseArgs #method:parseArgs# + + parseArgs , + + +-- ** printRunPageSetupDialog #method:printRunPageSetupDialog# + + printRunPageSetupDialog , + + +-- ** printRunPageSetupDialogAsync #method:printRunPageSetupDialogAsync# + + printRunPageSetupDialogAsync , + + +-- ** propagateEvent #method:propagateEvent# + + propagateEvent , + + +-- ** rcAddDefaultFile #method:rcAddDefaultFile# + + rcAddDefaultFile , + + +-- ** rcFindModuleInPath #method:rcFindModuleInPath# + + rcFindModuleInPath , + + +-- ** rcFindPixmapInPath #method:rcFindPixmapInPath# + + rcFindPixmapInPath , + + +-- ** rcGetDefaultFiles #method:rcGetDefaultFiles# + + rcGetDefaultFiles , + + +-- ** rcGetImModuleFile #method:rcGetImModuleFile# + + rcGetImModuleFile , + + +-- ** rcGetImModulePath #method:rcGetImModulePath# + + rcGetImModulePath , + + +-- ** rcGetModuleDir #method:rcGetModuleDir# + + rcGetModuleDir , + + +-- ** rcGetStyle #method:rcGetStyle# + + rcGetStyle , + + +-- ** rcGetStyleByPaths #method:rcGetStyleByPaths# + + rcGetStyleByPaths , + + +-- ** rcGetThemeDir #method:rcGetThemeDir# + + rcGetThemeDir , + + +-- ** rcParse #method:rcParse# + + rcParse , + + +-- ** rcParseColor #method:rcParseColor# + + rcParseColor , + + +-- ** rcParseColorFull #method:rcParseColorFull# + + rcParseColorFull , + + +-- ** rcParsePriority #method:rcParsePriority# + + rcParsePriority , + + +-- ** rcParseState #method:rcParseState# + + rcParseState , + + +-- ** rcParseString #method:rcParseString# + + rcParseString , + + +-- ** rcReparseAll #method:rcReparseAll# + + rcReparseAll , + + +-- ** rcReparseAllForSettings #method:rcReparseAllForSettings# + + rcReparseAllForSettings , + + +-- ** rcResetStyles #method:rcResetStyles# + + rcResetStyles , + + +-- ** rcSetDefaultFiles #method:rcSetDefaultFiles# + + rcSetDefaultFiles , + + +-- ** renderActivity #method:renderActivity# + + renderActivity , + + +-- ** renderArrow #method:renderArrow# + + renderArrow , + + +-- ** renderBackground #method:renderBackground# + + renderBackground , + + +-- ** renderBackgroundGetClip #method:renderBackgroundGetClip# + + renderBackgroundGetClip , + + +-- ** renderCheck #method:renderCheck# + + renderCheck , + + +-- ** renderExpander #method:renderExpander# + + renderExpander , + + +-- ** renderExtension #method:renderExtension# + + renderExtension , + + +-- ** renderFocus #method:renderFocus# + + renderFocus , + + +-- ** renderFrame #method:renderFrame# + + renderFrame , + + +-- ** renderFrameGap #method:renderFrameGap# + + renderFrameGap , + + +-- ** renderHandle #method:renderHandle# + + renderHandle , + + +-- ** renderIcon #method:renderIcon# + + renderIcon , + + +-- ** renderIconPixbuf #method:renderIconPixbuf# + + renderIconPixbuf , + + +-- ** renderIconSurface #method:renderIconSurface# + + renderIconSurface , + + +-- ** renderInsertionCursor #method:renderInsertionCursor# + + renderInsertionCursor , + + +-- ** renderLayout #method:renderLayout# + + renderLayout , + + +-- ** renderLine #method:renderLine# + + renderLine , + + +-- ** renderOption #method:renderOption# + + renderOption , + + +-- ** renderSlider #method:renderSlider# + + renderSlider , + + +-- ** rgbToHsv #method:rgbToHsv# + + rgbToHsv , + + +-- ** selectionAddTarget #method:selectionAddTarget# + + selectionAddTarget , + + +-- ** selectionAddTargets #method:selectionAddTargets# + + selectionAddTargets , + + +-- ** selectionClearTargets #method:selectionClearTargets# + + selectionClearTargets , + + +-- ** selectionConvert #method:selectionConvert# + + selectionConvert , + + +-- ** selectionOwnerSet #method:selectionOwnerSet# + + selectionOwnerSet , + + +-- ** selectionOwnerSetForDisplay #method:selectionOwnerSetForDisplay# + + selectionOwnerSetForDisplay , + + +-- ** selectionRemoveAll #method:selectionRemoveAll# + + selectionRemoveAll , + + +-- ** setDebugFlags #method:setDebugFlags# + + setDebugFlags , + + +-- ** showUri #method:showUri# + + showUri , + + +-- ** showUriOnWindow #method:showUriOnWindow# + + showUriOnWindow , + + +-- ** stockAdd #method:stockAdd# + + stockAdd , + + +-- ** stockAddStatic #method:stockAddStatic# + + stockAddStatic , + + +-- ** stockListIds #method:stockListIds# + + stockListIds , + + +-- ** stockLookup #method:stockLookup# + + stockLookup , + + +-- ** stockSetTranslateFunc #method:stockSetTranslateFunc# + + stockSetTranslateFunc , + + +-- ** targetTableFree #method:targetTableFree# + + targetTableFree , + + +-- ** targetTableNewFromList #method:targetTableNewFromList# + + targetTableNewFromList , + + +-- ** targetsIncludeImage #method:targetsIncludeImage# + + targetsIncludeImage , + + +-- ** targetsIncludeRichText #method:targetsIncludeRichText# + + targetsIncludeRichText , + + +-- ** targetsIncludeText #method:targetsIncludeText# + + targetsIncludeText , + + +-- ** targetsIncludeUri #method:targetsIncludeUri# + + targetsIncludeUri , + + +-- ** testCreateSimpleWindow #method:testCreateSimpleWindow# + + testCreateSimpleWindow , + + +-- ** testFindLabel #method:testFindLabel# + + testFindLabel , + + +-- ** testFindSibling #method:testFindSibling# + + testFindSibling , + + +-- ** testFindWidget #method:testFindWidget# + + testFindWidget , + + +-- ** testListAllTypes #method:testListAllTypes# + + testListAllTypes , + + +-- ** testRegisterAllTypes #method:testRegisterAllTypes# + + testRegisterAllTypes , + + +-- ** testSliderGetValue #method:testSliderGetValue# + + testSliderGetValue , + + +-- ** testSliderSetPerc #method:testSliderSetPerc# + + testSliderSetPerc , + + +-- ** testSpinButtonClick #method:testSpinButtonClick# + + testSpinButtonClick , + + +-- ** testTextGet #method:testTextGet# + + testTextGet , + + +-- ** testTextSet #method:testTextSet# + + testTextSet , + + +-- ** testWidgetClick #method:testWidgetClick# + + testWidgetClick , + + +-- ** testWidgetSendKey #method:testWidgetSendKey# + + testWidgetSendKey , + + +-- ** testWidgetWaitForDraw #method:testWidgetWaitForDraw# + + testWidgetWaitForDraw , + + +-- ** treeGetRowDragData #method:treeGetRowDragData# + + treeGetRowDragData , + + +-- ** treeSetRowDragData #method:treeSetRowDragData# + + treeSetRowDragData , + + +-- ** true #method:true# + + true , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Cairo.Structs.Context as Cairo.Context +import qualified GI.Cairo.Structs.Surface as Cairo.Surface +import qualified GI.GLib.Callbacks as GLib.Callbacks +import qualified GI.GLib.Structs.OptionEntry as GLib.OptionEntry +import qualified GI.GLib.Structs.OptionGroup as GLib.OptionGroup +import qualified GI.GLib.Structs.Scanner as GLib.Scanner +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gdk.Enums as Gdk.Enums +import qualified GI.Gdk.Flags as Gdk.Flags +import qualified GI.Gdk.Objects.Device as Gdk.Device +import qualified GI.Gdk.Objects.Display as Gdk.Display +import qualified GI.Gdk.Objects.DragContext as Gdk.DragContext +import qualified GI.Gdk.Objects.Screen as Gdk.Screen +import qualified GI.Gdk.Objects.Window as Gdk.Window +import qualified GI.Gdk.Structs.Atom as Gdk.Atom +import qualified GI.Gdk.Structs.Color as Gdk.Color +import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey +import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle +import qualified GI.Gdk.Unions.Event as Gdk.Event +import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf +import qualified GI.Gio.Interfaces.Icon as Gio.Icon +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel +import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup +import {-# SOURCE #-} qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup +import {-# SOURCE #-} qualified GI.Gtk.Objects.PrintSettings as Gtk.PrintSettings +import {-# SOURCE #-} qualified GI.Gtk.Objects.RcStyle as Gtk.RcStyle +import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings +import {-# SOURCE #-} qualified GI.Gtk.Objects.SpinButton as Gtk.SpinButton +import {-# SOURCE #-} qualified GI.Gtk.Objects.Style as Gtk.Style +import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext +import {-# SOURCE #-} qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget +import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window +import {-# SOURCE #-} qualified GI.Gtk.Structs.IconSource as Gtk.IconSource +import {-# SOURCE #-} qualified GI.Gtk.Structs.RequestedSize as Gtk.RequestedSize +import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData +import {-# SOURCE #-} qualified GI.Gtk.Structs.StockItem as Gtk.StockItem +import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetEntry as Gtk.TargetEntry +import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetList as Gtk.TargetList +import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath +import qualified GI.Pango.Enums as Pango.Enums +import qualified GI.Pango.Objects.Layout as Pango.Layout +import qualified GI.Pango.Structs.Language as Pango.Language + +-- function gtk_true +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_true" gtk_true :: + IO CInt + +{- | +All this function does it to return 'True'. + +This can be useful for example if you want to inhibit the deletion +of a window. Of course you should not do this as the user expects +a reaction from clicking the close icon of the window... + +== A persistent window + + +=== /C code/ +> +>#include +> +>int +>main (int argc, char **argv) +>{ +> GtkWidget *win, *but; +> const char *text = "Close yourself. I mean it!"; +> +> gtk_init (&argc, &argv); +> +> win = gtk_window_new (GTK_WINDOW_TOPLEVEL); +> g_signal_connect (win, +> "delete-event", +> G_CALLBACK (gtk_true), +> NULL); +> g_signal_connect (win, "destroy", +> G_CALLBACK (gtk_main_quit), +> NULL); +> +> but = gtk_button_new_with_label (text); +> g_signal_connect_swapped (but, "clicked", +> G_CALLBACK (gtk_object_destroy), +> win); +> gtk_container_add (GTK_CONTAINER (win), but); +> +> gtk_widget_show_all (win); +> +> gtk_main (); +> +> return 0; +>} +-} +true :: + (B.CallStack.HasCallStack, MonadIO m) => + m Bool + {- ^ __Returns:__ 'True' -} +true = liftIO $ do + result <- gtk_true + let result' = (/= 0) result + return result' + + +-- function gtk_tree_set_row_drag_data +-- Args : [Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "some #GtkSelectionData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a row in @tree_model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_set_row_drag_data" gtk_tree_set_row_drag_data :: + Ptr Gtk.SelectionData.SelectionData -> -- selection_data : TInterface (Name {namespace = "Gtk", name = "SelectionData"}) + Ptr Gtk.TreeModel.TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + IO CInt + +{- | +Sets selection data of target type @/GTK_TREE_MODEL_ROW/@. Normally used +in a drag_data_get handler. +-} +treeSetRowDragData :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) => + Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: some 'GI.Gtk.Structs.SelectionData.SelectionData' -} + -> a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: a row in /@treeModel@/ -} + -> m Bool + {- ^ __Returns:__ 'True' if the 'GI.Gtk.Structs.SelectionData.SelectionData' had the proper target type to allow us to set a tree row -} +treeSetRowDragData selectionData treeModel path = liftIO $ do + selectionData' <- unsafeManagedPtrGetPtr selectionData + treeModel' <- unsafeManagedPtrCastPtr treeModel + path' <- unsafeManagedPtrGetPtr path + result <- gtk_tree_set_row_drag_data selectionData' treeModel' path' + let result' = (/= 0) result + touchManagedPtr selectionData + touchManagedPtr treeModel + touchManagedPtr path + return result' + + +-- function gtk_tree_get_row_drag_data +-- Args : [Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSelectionData", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "row in @tree_model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_get_row_drag_data" gtk_tree_get_row_drag_data :: + Ptr Gtk.SelectionData.SelectionData -> -- selection_data : TInterface (Name {namespace = "Gtk", name = "SelectionData"}) + Ptr (Ptr Gtk.TreeModel.TreeModel) -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr (Ptr Gtk.TreePath.TreePath) -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + IO CInt + +{- | +Obtains a /@treeModel@/ and /@path@/ from selection data of target type +@/GTK_TREE_MODEL_ROW/@. Normally called from a drag_data_received handler. +This function can only be used if /@selectionData@/ originates from the same +process that’s calling this function, because a pointer to the tree model +is being passed around. If you aren’t in the same process, then you\'ll +get memory corruption. In the 'GI.Gtk.Interfaces.TreeDragDest.TreeDragDest' drag_data_received handler, +you can assume that selection data of type @/GTK_TREE_MODEL_ROW/@ is +in from the current process. The returned path must be freed with +'GI.Gtk.Structs.TreePath.treePathFree'. +-} +treeGetRowDragData :: + (B.CallStack.HasCallStack, MonadIO m) => + Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: a 'GI.Gtk.Structs.SelectionData.SelectionData' -} + -> m ((Bool, Maybe Gtk.TreeModel.TreeModel, Maybe Gtk.TreePath.TreePath)) + {- ^ __Returns:__ 'True' if /@selectionData@/ had target type @/GTK_TREE_MODEL_ROW/@ and + is otherwise valid -} +treeGetRowDragData selectionData = liftIO $ do + selectionData' <- unsafeManagedPtrGetPtr selectionData + treeModel <- allocMem :: IO (Ptr (Ptr Gtk.TreeModel.TreeModel)) + path <- allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath)) + result <- gtk_tree_get_row_drag_data selectionData' treeModel path + let result' = (/= 0) result + treeModel' <- peek treeModel + maybeTreeModel' <- convertIfNonNull treeModel' $ \treeModel'' -> do + treeModel''' <- (newObject Gtk.TreeModel.TreeModel) treeModel'' + return treeModel''' + path' <- peek path + maybePath' <- convertIfNonNull path' $ \path'' -> do + path''' <- (wrapBoxed Gtk.TreePath.TreePath) path'' + return path''' + touchManagedPtr selectionData + freeMem treeModel + freeMem path + return (result', maybeTreeModel', maybePath') + + +-- function gtk_test_widget_wait_for_draw +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget to wait for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_widget_wait_for_draw" gtk_test_widget_wait_for_draw :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Enters the main loop and waits for /@widget@/ to be “drawn”. In this +context that means it waits for the frame clock of /@widget@/ to have +run a full styling, layout and drawing cycle. + +This function is intended to be used for syncing with actions that +depend on /@widget@/ relayouting or on interaction with the display +server. + +/Since: 3.10/ +-} +testWidgetWaitForDraw :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: the widget to wait for -} + -> m () +testWidgetWaitForDraw widget = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + gtk_test_widget_wait_for_draw widget' + touchManagedPtr widget + return () + + +-- function gtk_test_widget_send_key +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Widget to generate a key press and release on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A Gdk keyboard value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Keyboard modifiers the event is setup with.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_widget_send_key" gtk_test_widget_send_key :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Word32 -> -- keyval : TBasicType TUInt + CUInt -> -- modifiers : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{- | +This function will generate keyboard press and release events in +the middle of the first GdkWindow found that belongs to /@widget@/. +For windowless widgets like 'GI.Gtk.Objects.Button.Button' (which returns 'False' from +'GI.Gtk.Objects.Widget.widgetGetHasWindow'), this will often be an +input-only event window. For other widgets, this is usually widget->window. +Certain caveats should be considered when using this function, in +particular because the mouse pointer is warped to the key press +location, see 'GI.Gdk.Functions.testSimulateKey' for details. + +/Since: 2.14/ +-} +testWidgetSendKey :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: Widget to generate a key press and release on. -} + -> Word32 + {- ^ /@keyval@/: A Gdk keyboard value. -} + -> [Gdk.Flags.ModifierType] + {- ^ /@modifiers@/: Keyboard modifiers the event is setup with. -} + -> m Bool + {- ^ __Returns:__ whether all actions neccessary for the key event simulation were carried out successfully. -} +testWidgetSendKey widget keyval modifiers = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + let modifiers' = gflagsToWord modifiers + result <- gtk_test_widget_send_key widget' keyval modifiers' + let result' = (/= 0) result + touchManagedPtr widget + return result' + + +-- function gtk_test_widget_click +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Widget to generate a button click on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of the pointer button for the event, usually 1, 2 or 3.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Keyboard modifiers the event is setup with.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_widget_click" gtk_test_widget_click :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Word32 -> -- button : TBasicType TUInt + CUInt -> -- modifiers : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{-# DEPRECATED testWidgetClick ["(Since version 3.20)","This testing infrastructure is phased out in favor of reftests."] #-} +{- | +This function will generate a /@button@/ click (button press and button +release event) in the middle of the first GdkWindow found that belongs +to /@widget@/. +For windowless widgets like 'GI.Gtk.Objects.Button.Button' (which returns 'False' from +'GI.Gtk.Objects.Widget.widgetGetHasWindow'), this will often be an +input-only event window. For other widgets, this is usually widget->window. +Certain caveats should be considered when using this function, in +particular because the mouse pointer is warped to the button click +location, see 'GI.Gdk.Functions.testSimulateButton' for details. + +/Since: 2.14/ +-} +testWidgetClick :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: Widget to generate a button click on. -} + -> Word32 + {- ^ /@button@/: Number of the pointer button for the event, usually 1, 2 or 3. -} + -> [Gdk.Flags.ModifierType] + {- ^ /@modifiers@/: Keyboard modifiers the event is setup with. -} + -> m Bool + {- ^ __Returns:__ whether all actions neccessary for the button click simulation were carried out successfully. -} +testWidgetClick widget button modifiers = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + let modifiers' = gflagsToWord modifiers + result <- gtk_test_widget_click widget' button modifiers' + let result' = (/= 0) result + touchManagedPtr widget + return result' + + +-- function gtk_test_text_set +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "valid widget pointer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a 0-terminated C string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_text_set" gtk_test_text_set :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- string : TBasicType TUTF8 + IO () + +{-# DEPRECATED testTextSet ["(Since version 3.20)","This testing infrastructure is phased out in favor of reftests."] #-} +{- | +Set the text string of /@widget@/ to /@string@/ if it is a GtkLabel, +GtkEditable (entry and text widgets) or GtkTextView. + +/Since: 2.14/ +-} +testTextSet :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: valid widget pointer. -} + -> T.Text + {- ^ /@string@/: a 0-terminated C string -} + -> m () +testTextSet widget string = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + string' <- textToCString string + gtk_test_text_set widget' string' + touchManagedPtr widget + freeMem string' + return () + + +-- function gtk_test_text_get +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "valid widget pointer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_text_get" gtk_test_text_get :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO CString + +{-# DEPRECATED testTextGet ["(Since version 3.20)","This testing infrastructure is phased out in favor of reftests."] #-} +{- | +Retrive the text string of /@widget@/ if it is a GtkLabel, +GtkEditable (entry and text widgets) or GtkTextView. + +/Since: 2.14/ +-} +testTextGet :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: valid widget pointer. -} + -> m T.Text + {- ^ __Returns:__ new 0-terminated C string, needs to be released with 'GI.GLib.Functions.free'. -} +testTextGet widget = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + result <- gtk_test_text_get widget' + checkUnexpectedReturnNULL "testTextGet" result + result' <- cstringToText result + freeMem result + touchManagedPtr widget + return result' + + +-- function gtk_test_spin_button_click +-- Args : [Arg {argCName = "spinner", argType = TInterface (Name {namespace = "Gtk", name = "SpinButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "valid GtkSpinButton widget.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of the pointer button for the event, usually 1, 2 or 3.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE for upwards arrow click, %FALSE for downwards arrow click.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_spin_button_click" gtk_test_spin_button_click :: + Ptr Gtk.SpinButton.SpinButton -> -- spinner : TInterface (Name {namespace = "Gtk", name = "SpinButton"}) + Word32 -> -- button : TBasicType TUInt + CInt -> -- upwards : TBasicType TBoolean + IO CInt + +{-# DEPRECATED testSpinButtonClick ["(Since version 3.20)","This testing infrastructure is phased out in favor of reftests."] #-} +{- | +This function will generate a /@button@/ click in the upwards or downwards +spin button arrow areas, usually leading to an increase or decrease of +spin button’s value. + +/Since: 2.14/ +-} +testSpinButtonClick :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.SpinButton.IsSpinButton a) => + a + {- ^ /@spinner@/: valid GtkSpinButton widget. -} + -> Word32 + {- ^ /@button@/: Number of the pointer button for the event, usually 1, 2 or 3. -} + -> Bool + {- ^ /@upwards@/: 'True' for upwards arrow click, 'False' for downwards arrow click. -} + -> m Bool + {- ^ __Returns:__ whether all actions neccessary for the button click simulation were carried out successfully. -} +testSpinButtonClick spinner button upwards = liftIO $ do + spinner' <- unsafeManagedPtrCastPtr spinner + let upwards' = (fromIntegral . fromEnum) upwards + result <- gtk_test_spin_button_click spinner' button upwards' + let result' = (/= 0) result + touchManagedPtr spinner + return result' + + +-- function gtk_test_slider_set_perc +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "valid widget pointer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "value between 0 and 100.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_slider_set_perc" gtk_test_slider_set_perc :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CDouble -> -- percentage : TBasicType TDouble + IO () + +{-# DEPRECATED testSliderSetPerc ["(Since version 3.20)","This testing infrastructure is phased out in favor of reftests."] #-} +{- | +This function will adjust the slider position of all GtkRange +based widgets, such as scrollbars or scales, it’ll also adjust +spin buttons. The adjustment value of these widgets is set to +a value between the lower and upper limits, according to the +/@percentage@/ argument. + +/Since: 2.14/ +-} +testSliderSetPerc :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: valid widget pointer. -} + -> Double + {- ^ /@percentage@/: value between 0 and 100. -} + -> m () +testSliderSetPerc widget percentage = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + let percentage' = realToFrac percentage + gtk_test_slider_set_perc widget' percentage' + touchManagedPtr widget + return () + + +-- function gtk_test_slider_get_value +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "valid widget pointer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_slider_get_value" gtk_test_slider_get_value :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO CDouble + +{-# DEPRECATED testSliderGetValue ["(Since version 3.20)","This testing infrastructure is phased out in favor of reftests."] #-} +{- | +Retrive the literal adjustment value for GtkRange based +widgets and spin buttons. Note that the value returned by +this function is anything between the lower and upper bounds +of the adjustment belonging to /@widget@/, and is not a percentage +as passed in to 'GI.Gtk.Functions.testSliderSetPerc'. + +/Since: 2.14/ +-} +testSliderGetValue :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: valid widget pointer. -} + -> m Double + {- ^ __Returns:__ gtk_adjustment_get_value (adjustment) for an adjustment belonging to /@widget@/. -} +testSliderGetValue widget = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + result <- gtk_test_slider_get_value widget' + let result' = realToFrac result + touchManagedPtr widget + return result' + + +-- function gtk_test_register_all_types +-- Args : [] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_register_all_types" gtk_test_register_all_types :: + IO () + +{- | +Force registration of all core Gtk+ and Gdk object types. +This allowes to refer to any of those object types via +'GI.GObject.Functions.typeFromName' after calling this function. + +/Since: 2.14/ +-} +testRegisterAllTypes :: + (B.CallStack.HasCallStack, MonadIO m) => + m () +testRegisterAllTypes = liftIO $ do + gtk_test_register_all_types + return () + + +-- function gtk_test_list_all_types +-- Args : [Arg {argCName = "n_types", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store number of types", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) 0 (TBasicType TGType)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_list_all_types" gtk_test_list_all_types :: + Ptr Word32 -> -- n_types : TBasicType TUInt + IO (Ptr CGType) + +{- | +Return the type ids that have been registered after +calling 'GI.Gtk.Functions.testRegisterAllTypes'. + +/Since: 2.14/ +-} +testListAllTypes :: + (B.CallStack.HasCallStack, MonadIO m) => + m (([GType], Word32)) + {- ^ __Returns:__ + 0-terminated array of type ids -} +testListAllTypes = liftIO $ do + nTypes <- allocMem :: IO (Ptr Word32) + result <- gtk_test_list_all_types nTypes + checkUnexpectedReturnNULL "testListAllTypes" result + result' <- (unpackMapZeroTerminatedStorableArray GType) result + nTypes' <- peek nTypes + freeMem nTypes + return (result', nTypes') + + +-- function gtk_test_find_widget +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Container widget, usually a GtkWindow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Shell-glob pattern to match a label string.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Type of a aearched for label sibling widget.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_find_widget" gtk_test_find_widget :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- label_pattern : TBasicType TUTF8 + CGType -> -- widget_type : TBasicType TGType + IO (Ptr Gtk.Widget.Widget) + +{- | +This function will search the descendants of /@widget@/ for a widget +of type /@widgetType@/ that has a label matching /@labelPattern@/ next +to it. This is most useful for automated GUI testing, e.g. to find +the “OK” button in a dialog and synthesize clicks on it. +However see 'GI.Gtk.Functions.testFindLabel', 'GI.Gtk.Functions.testFindSibling' and +'GI.Gtk.Functions.testWidgetClick' for possible caveats involving the search of +such widgets and synthesizing widget events. + +/Since: 2.14/ +-} +testFindWidget :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: Container widget, usually a GtkWindow. -} + -> T.Text + {- ^ /@labelPattern@/: Shell-glob pattern to match a label string. -} + -> GType + {- ^ /@widgetType@/: Type of a aearched for label sibling widget. -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ a valid widget if any is found or 'Nothing'. -} +testFindWidget widget labelPattern widgetType = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + labelPattern' <- textToCString labelPattern + let widgetType' = gtypeToCGType widgetType + result <- gtk_test_find_widget widget' labelPattern' widgetType' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr widget + freeMem labelPattern' + return maybeResult + + +-- function gtk_test_find_sibling +-- Args : [Arg {argCName = "base_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Valid widget, part of a widget hierarchy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Type of a aearched for sibling widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_find_sibling" gtk_test_find_sibling :: + Ptr Gtk.Widget.Widget -> -- base_widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CGType -> -- widget_type : TBasicType TGType + IO (Ptr Gtk.Widget.Widget) + +{- | +This function will search siblings of /@baseWidget@/ and siblings of its +ancestors for all widgets matching /@widgetType@/. +Of the matching widgets, the one that is geometrically closest to +/@baseWidget@/ will be returned. +The general purpose of this function is to find the most likely “action” +widget, relative to another labeling widget. Such as finding a +button or text entry widget, given its corresponding label widget. + +/Since: 2.14/ +-} +testFindSibling :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@baseWidget@/: Valid widget, part of a widget hierarchy -} + -> GType + {- ^ /@widgetType@/: Type of a aearched for sibling widget -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a widget of type /@widgetType@/ if any is found. -} +testFindSibling baseWidget widgetType = liftIO $ do + baseWidget' <- unsafeManagedPtrCastPtr baseWidget + let widgetType' = gtypeToCGType widgetType + result <- gtk_test_find_sibling baseWidget' widgetType' + checkUnexpectedReturnNULL "testFindSibling" result + result' <- (newObject Gtk.Widget.Widget) result + touchManagedPtr baseWidget + return result' + + +-- function gtk_test_find_label +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Valid label or container widget.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Shell-glob pattern to match a label string.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_test_find_label" gtk_test_find_label :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- label_pattern : TBasicType TUTF8 + IO (Ptr Gtk.Widget.Widget) + +{- | +This function will search /@widget@/ and all its descendants for a GtkLabel +widget with a text string matching /@labelPattern@/. +The /@labelPattern@/ may contain asterisks “*” and question marks “?” as +placeholders, 'GI.GLib.Functions.patternMatch' is used for the matching. +Note that locales other than \"C“ tend to alter (translate” label strings, +so this function is genrally only useful in test programs with +predetermined locales, see @/gtk_test_init()/@ for more details. + +/Since: 2.14/ +-} +testFindLabel :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: Valid label or container widget. -} + -> T.Text + {- ^ /@labelPattern@/: Shell-glob pattern to match a label string. -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a GtkLabel widget if any is found. -} +testFindLabel widget labelPattern = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + labelPattern' <- textToCString labelPattern + result <- gtk_test_find_label widget' labelPattern' + checkUnexpectedReturnNULL "testFindLabel" result + result' <- (newObject Gtk.Widget.Widget) result + touchManagedPtr widget + freeMem labelPattern' + return result' + + +-- function gtk_test_create_simple_window +-- Args : [Arg {argCName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Title of the window to be displayed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Text inside the window to be displayed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 Gtk.Widget.Widget) + +{-# DEPRECATED testCreateSimpleWindow ["(Since version 3.20)","This testing infrastructure is phased out in favor of reftests."] #-} +{- | +Create a simple window with window title /@windowTitle@/ and +text contents /@dialogText@/. +The window will quit any running 'GI.Gtk.Functions.main'-loop when destroyed, and it +will automatically be destroyed upon test function teardown. + +/Since: 2.14/ +-} +testCreateSimpleWindow :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@windowTitle@/: Title of the window to be displayed. -} + -> T.Text + {- ^ /@dialogText@/: Text inside the window to be displayed. -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a widget pointer to the newly created GtkWindow. -} +testCreateSimpleWindow windowTitle dialogText = liftIO $ do + windowTitle' <- textToCString windowTitle + dialogText' <- textToCString dialogText + result <- gtk_test_create_simple_window windowTitle' dialogText' + checkUnexpectedReturnNULL "testCreateSimpleWindow" result + result' <- (newObject Gtk.Widget.Widget) result + freeMem windowTitle' + freeMem dialogText' + return result' + + +-- function gtk_targets_include_uri +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GdkAtoms", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_targets_include_uri" gtk_targets_include_uri :: + Ptr (Ptr Gdk.Atom.Atom) -> -- targets : TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})) + Int32 -> -- n_targets : TBasicType TInt + IO CInt + +{- | +Determines if any of the targets in /@targets@/ can be used to +provide an uri list. + +/Since: 2.10/ +-} +targetsIncludeUri :: + (B.CallStack.HasCallStack, MonadIO m) => + [Gdk.Atom.Atom] + {- ^ /@targets@/: an array of @/GdkAtoms/@ -} + -> m Bool + {- ^ __Returns:__ 'True' if /@targets@/ include a suitable target for uri lists, + otherwise 'False'. -} +targetsIncludeUri targets = liftIO $ do + let nTargets = fromIntegral $ length targets + targets' <- mapM unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + result <- gtk_targets_include_uri targets'' nTargets + let result' = (/= 0) result + mapM_ touchManagedPtr targets + freeMem targets'' + return result' + + +-- function gtk_targets_include_text +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GdkAtoms", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_targets_include_text" gtk_targets_include_text :: + Ptr (Ptr Gdk.Atom.Atom) -> -- targets : TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})) + Int32 -> -- n_targets : TBasicType TInt + IO CInt + +{- | +Determines if any of the targets in /@targets@/ can be used to +provide text. + +/Since: 2.10/ +-} +targetsIncludeText :: + (B.CallStack.HasCallStack, MonadIO m) => + [Gdk.Atom.Atom] + {- ^ /@targets@/: an array of @/GdkAtoms/@ -} + -> m Bool + {- ^ __Returns:__ 'True' if /@targets@/ include a suitable target for text, + otherwise 'False'. -} +targetsIncludeText targets = liftIO $ do + let nTargets = fromIntegral $ length targets + targets' <- mapM unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + result <- gtk_targets_include_text targets'' nTargets + let result' = (/= 0) result + mapM_ touchManagedPtr targets + freeMem targets'' + return result' + + +-- function gtk_targets_include_rich_text +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GdkAtoms", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Gtk", name = "TextBuffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTextBuffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_targets_include_rich_text" gtk_targets_include_rich_text :: + Ptr (Ptr Gdk.Atom.Atom) -> -- targets : TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})) + Int32 -> -- n_targets : TBasicType TInt + Ptr Gtk.TextBuffer.TextBuffer -> -- buffer : TInterface (Name {namespace = "Gtk", name = "TextBuffer"}) + IO CInt + +{- | +Determines if any of the targets in /@targets@/ can be used to +provide rich text. + +/Since: 2.10/ +-} +targetsIncludeRichText :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.TextBuffer.IsTextBuffer a) => + [Gdk.Atom.Atom] + {- ^ /@targets@/: an array of @/GdkAtoms/@ -} + -> a + {- ^ /@buffer@/: a 'GI.Gtk.Objects.TextBuffer.TextBuffer' -} + -> m Bool + {- ^ __Returns:__ 'True' if /@targets@/ include a suitable target for rich text, + otherwise 'False'. -} +targetsIncludeRichText targets buffer = liftIO $ do + let nTargets = fromIntegral $ length targets + targets' <- mapM unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + buffer' <- unsafeManagedPtrCastPtr buffer + result <- gtk_targets_include_rich_text targets'' nTargets buffer' + let result' = (/= 0) result + mapM_ touchManagedPtr targets + touchManagedPtr buffer + freeMem targets'' + return result' + + +-- function gtk_targets_include_image +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GdkAtoms", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to accept only targets for which GTK+ knows\n how to convert a pixbuf into the format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_targets_include_image" gtk_targets_include_image :: + Ptr (Ptr Gdk.Atom.Atom) -> -- targets : TCArray False (-1) 1 (TInterface (Name {namespace = "Gdk", name = "Atom"})) + Int32 -> -- n_targets : TBasicType TInt + CInt -> -- writable : TBasicType TBoolean + IO CInt + +{- | +Determines if any of the targets in /@targets@/ can be used to +provide a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf'. + +/Since: 2.10/ +-} +targetsIncludeImage :: + (B.CallStack.HasCallStack, MonadIO m) => + [Gdk.Atom.Atom] + {- ^ /@targets@/: an array of @/GdkAtoms/@ -} + -> Bool + {- ^ /@writable@/: whether to accept only targets for which GTK+ knows + how to convert a pixbuf into the format -} + -> m Bool + {- ^ __Returns:__ 'True' if /@targets@/ include a suitable target for images, + otherwise 'False'. -} +targetsIncludeImage targets writable = liftIO $ do + let nTargets = fromIntegral $ length targets + targets' <- mapM unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + let writable' = (fromIntegral . fromEnum) writable + result <- gtk_targets_include_image targets'' nTargets writable' + let result' = (/= 0) result + mapM_ touchManagedPtr targets + freeMem targets'' + return result' + + +-- function gtk_target_table_new_from_list +-- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gtk", name = "TargetList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTargetList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the number ot targets in the table", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the number ot targets in the table", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 1 (TInterface (Name {namespace = "Gtk", name = "TargetEntry"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_target_table_new_from_list" gtk_target_table_new_from_list :: + Ptr Gtk.TargetList.TargetList -> -- list : TInterface (Name {namespace = "Gtk", name = "TargetList"}) + Ptr Int32 -> -- n_targets : TBasicType TInt + IO (Ptr Gtk.TargetEntry.TargetEntry) + +{- | +This function creates an 'GI.Gtk.Structs.TargetEntry.TargetEntry' array that contains the +same targets as the passed @/list/@. The returned table is newly +allocated and should be freed using 'GI.Gtk.Functions.targetTableFree' when no +longer needed. + +/Since: 2.10/ +-} +targetTableNewFromList :: + (B.CallStack.HasCallStack, MonadIO m) => + Gtk.TargetList.TargetList + {- ^ /@list@/: a 'GI.Gtk.Structs.TargetList.TargetList' -} + -> m [Gtk.TargetEntry.TargetEntry] + {- ^ __Returns:__ the new table. -} +targetTableNewFromList list = liftIO $ do + list' <- unsafeManagedPtrGetPtr list + nTargets <- allocMem :: IO (Ptr Int32) + result <- gtk_target_table_new_from_list list' nTargets + nTargets' <- peek nTargets + checkUnexpectedReturnNULL "targetTableNewFromList" result + result' <- (unpackBoxedArrayWithLength 16 nTargets') result + result'' <- mapM (wrapBoxed Gtk.TargetEntry.TargetEntry) result' + freeMem result + touchManagedPtr list + freeMem nTargets + return result'' + + +-- function gtk_target_table_free +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gtk", name = "TargetEntry"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTargetEntry array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of entries in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of entries in the array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_target_table_free" gtk_target_table_free :: + Ptr Gtk.TargetEntry.TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface (Name {namespace = "Gtk", name = "TargetEntry"})) + Int32 -> -- n_targets : TBasicType TInt + IO () + +{- | +This function frees a target table as returned by +'GI.Gtk.Functions.targetTableNewFromList' + +/Since: 2.10/ +-} +targetTableFree :: + (B.CallStack.HasCallStack, MonadIO m) => + [Gtk.TargetEntry.TargetEntry] + {- ^ /@targets@/: a 'GI.Gtk.Structs.TargetEntry.TargetEntry' array -} + -> m () +targetTableFree targets = liftIO $ do + let nTargets = fromIntegral $ length targets + targets' <- mapM unsafeManagedPtrGetPtr targets + targets'' <- packBlockArray 16 targets' + gtk_target_table_free targets'' nTargets + mapM_ touchManagedPtr targets + freeMem targets'' + return () + + +-- function gtk_stock_set_translate_func +-- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the translation domain for which @func shall be used", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "Gtk", name = "TranslateFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTranslateFunc", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify that is called when @data is\n no longer needed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_stock_set_translate_func" gtk_stock_set_translate_func :: + CString -> -- domain : TBasicType TUTF8 + FunPtr Gtk.Callbacks.C_TranslateFunc -> -- func : TInterface (Name {namespace = "Gtk", name = "TranslateFunc"}) + Ptr () -> -- data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{-# DEPRECATED stockSetTranslateFunc ["(Since version 3.10)"] #-} +{- | +Sets a function to be used for translating the /@label@/ of +a stock item. + +If no function is registered for a translation domain, +'GI.GLib.Functions.dgettext' is used. + +The function is used for all stock items whose +/@translationDomain@/ matches /@domain@/. Note that it is possible +to use strings different from the actual gettext translation domain +of your application for this, as long as your 'GI.Gtk.Callbacks.TranslateFunc' uses +the correct domain when calling @/dgettext()/@. This can be useful, e.g. +when dealing with message contexts: + + +=== /C code/ +> +>GtkStockItem items[] = { +> { MY_ITEM1, NC_("odd items", "Item 1"), 0, 0, "odd-item-domain" }, +> { MY_ITEM2, NC_("even items", "Item 2"), 0, 0, "even-item-domain" }, +>}; +> +>gchar * +>my_translate_func (const gchar *msgid, +> gpointer data) +>{ +> gchar *msgctxt = data; +> +> return (gchar*)g_dpgettext2 (GETTEXT_PACKAGE, msgctxt, msgid); +>} +> +>... +> +>gtk_stock_add (items, G_N_ELEMENTS (items)); +>gtk_stock_set_translate_func ("odd-item-domain", my_translate_func, "odd items"); +>gtk_stock_set_translate_func ("even-item-domain", my_translate_func, "even items"); + + +/Since: 2.8/ +-} +stockSetTranslateFunc :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@domain@/: the translation domain for which /@func@/ shall be used -} + -> Gtk.Callbacks.TranslateFunc + {- ^ /@func@/: a 'GI.Gtk.Callbacks.TranslateFunc' -} + -> m () +stockSetTranslateFunc domain func = liftIO $ do + domain' <- textToCString domain + func' <- Gtk.Callbacks.mk_TranslateFunc (Gtk.Callbacks.wrap_TranslateFunc Nothing (Gtk.Callbacks.drop_closures_TranslateFunc func)) + let data_ = castFunPtrToPtr func' + let notify = safeFreeFunPtrPtr + gtk_stock_set_translate_func domain' func' data_ notify + freeMem domain' + return () + + +-- function gtk_stock_lookup +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock item name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "Gtk", name = "StockItem"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "stock item to initialize with values", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_stock_lookup" gtk_stock_lookup :: + CString -> -- stock_id : TBasicType TUTF8 + Ptr Gtk.StockItem.StockItem -> -- item : TInterface (Name {namespace = "Gtk", name = "StockItem"}) + IO CInt + +{-# DEPRECATED stockLookup ["(Since version 3.10)"] #-} +{- | +Fills /@item@/ with the registered values for /@stockId@/, returning 'True' +if /@stockId@/ was known. +-} +stockLookup :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@stockId@/: a stock item name -} + -> m ((Bool, Gtk.StockItem.StockItem)) + {- ^ __Returns:__ 'True' if /@item@/ was initialized -} +stockLookup stockId = liftIO $ do + stockId' <- textToCString stockId + item <- callocBytes 32 :: IO (Ptr Gtk.StockItem.StockItem) + result <- gtk_stock_lookup stockId' item + let result' = (/= 0) result + item' <- (wrapPtr Gtk.StockItem.StockItem) item + freeMem stockId' + return (result', item') + + +-- function gtk_stock_list_ids +-- Args : [] +-- Lengths : [] +-- returnType : Just (TGSList (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_stock_list_ids" gtk_stock_list_ids :: + IO (Ptr (GSList CString)) + +{-# DEPRECATED stockListIds ["(Since version 3.10)"] #-} +{- | +Retrieves a list of all known stock IDs added to a 'GI.Gtk.Objects.IconFactory.IconFactory' +or registered with 'GI.Gtk.Functions.stockAdd'. The list must be freed with @/g_slist_free()/@, +and each string in the list must be freed with 'GI.GLib.Functions.free'. +-} +stockListIds :: + (B.CallStack.HasCallStack, MonadIO m) => + m [T.Text] + {- ^ __Returns:__ a list of known stock IDs -} +stockListIds = liftIO $ do + result <- gtk_stock_list_ids + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + return result'' + + +-- function gtk_stock_add_static +-- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gtk", name = "StockItem"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStockItem or array of #GtkStockItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of items", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of items", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_stock_add_static" gtk_stock_add_static :: + Ptr Gtk.StockItem.StockItem -> -- items : TCArray False (-1) 1 (TInterface (Name {namespace = "Gtk", name = "StockItem"})) + Word32 -> -- n_items : TBasicType TUInt + IO () + +{-# DEPRECATED stockAddStatic ["(Since version 3.10)"] #-} +{- | +Same as 'GI.Gtk.Functions.stockAdd', but doesn’t copy /@items@/, so +/@items@/ must persist until application exit. +-} +stockAddStatic :: + (B.CallStack.HasCallStack, MonadIO m) => + [Gtk.StockItem.StockItem] + {- ^ /@items@/: a 'GI.Gtk.Structs.StockItem.StockItem' or array of 'GI.Gtk.Structs.StockItem.StockItem' -} + -> m () +stockAddStatic items = liftIO $ do + let nItems = fromIntegral $ length items + items' <- mapM unsafeManagedPtrGetPtr items + items'' <- packBlockArray 32 items' + gtk_stock_add_static items'' nItems + mapM_ touchManagedPtr items + freeMem items'' + return () + + +-- function gtk_stock_add +-- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "Gtk", name = "StockItem"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStockItem or array of items", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of #GtkStockItem in @items", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of #GtkStockItem in @items", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_stock_add" gtk_stock_add :: + Ptr Gtk.StockItem.StockItem -> -- items : TCArray False (-1) 1 (TInterface (Name {namespace = "Gtk", name = "StockItem"})) + Word32 -> -- n_items : TBasicType TUInt + IO () + +{-# DEPRECATED stockAdd ["(Since version 3.10)"] #-} +{- | +Registers each of the stock items in /@items@/. If an item already +exists with the same stock ID as one of the /@items@/, the old item +gets replaced. The stock items are copied, so GTK+ does not hold +any pointer into /@items@/ and /@items@/ can be freed. Use +'GI.Gtk.Functions.stockAddStatic' if /@items@/ is persistent and GTK+ need not +copy the array. +-} +stockAdd :: + (B.CallStack.HasCallStack, MonadIO m) => + [Gtk.StockItem.StockItem] + {- ^ /@items@/: a 'GI.Gtk.Structs.StockItem.StockItem' or array of items -} + -> m () +stockAdd items = liftIO $ do + let nItems = fromIntegral $ length items + items' <- mapM unsafeManagedPtrGetPtr items + items'' <- packBlockArray 32 items' + gtk_stock_add items'' nItems + mapM_ touchManagedPtr items + freeMem items'' + return () + + +-- function gtk_show_uri_on_window +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "parent window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uri to show", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a timestamp to prevent focus stealing", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_show_uri_on_window" gtk_show_uri_on_window :: + Ptr Gtk.Window.Window -> -- parent : TInterface (Name {namespace = "Gtk", name = "Window"}) + CString -> -- uri : TBasicType TUTF8 + Word32 -> -- timestamp : TBasicType TUInt32 + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +This is a convenience function for launching the default application +to show the uri. The uri must be of a form understood by GIO (i.e. you +need to install gvfs to get support for uri schemes such as http:\/\/ +or ftp:\/\/, as only local files are handled by GIO itself). +Typical examples are + +* @file:\/\/\/home\/gnome\/pict.jpg@ +* @http:\/\/www.gnome.org@ +* @mailto:me\@gnome.org@ + + +Ideally the timestamp is taken from the event triggering +the 'GI.Gtk.Functions.showUri' call. If timestamp is not known you can take +'GI.Gdk.Constants.CURRENT_TIME'. + +This is the recommended call to be used as it passes information +necessary for sandbox helpers to parent their dialogs properly. + +/Since: 3.22/ +-} +showUriOnWindow :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) => + Maybe (a) + {- ^ /@parent@/: parent window -} + -> T.Text + {- ^ /@uri@/: the uri to show -} + -> Word32 + {- ^ /@timestamp@/: a timestamp to prevent focus stealing -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +showUriOnWindow parent uri timestamp = liftIO $ do + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + jParent' <- unsafeManagedPtrCastPtr jParent + return jParent' + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_show_uri_on_window maybeParent uri' timestamp + whenJust parent touchManagedPtr + freeMem uri' + return () + ) (do + freeMem uri' + ) + + +-- function gtk_show_uri +-- Args : [Arg {argCName = "screen", argType = TInterface (Name {namespace = "Gdk", name = "Screen"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "screen to show the uri on\n or %NULL for the default screen", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uri to show", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a timestamp to prevent focus stealing", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_show_uri" gtk_show_uri :: + Ptr Gdk.Screen.Screen -> -- screen : TInterface (Name {namespace = "Gdk", name = "Screen"}) + CString -> -- uri : TBasicType TUTF8 + Word32 -> -- timestamp : TBasicType TUInt32 + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +A convenience function for launching the default application +to show the uri. Like 'GI.Gtk.Functions.showUriOnWindow', but takes a screen +as transient parent instead of a window. + +Note that this function is deprecated as it does not pass the necessary +information for helpers to parent their dialog properly, when run from +sandboxed applications for example. + +/Since: 2.14/ +-} +showUri :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a) => + Maybe (a) + {- ^ /@screen@/: screen to show the uri on + or 'Nothing' for the default screen -} + -> T.Text + {- ^ /@uri@/: the uri to show -} + -> Word32 + {- ^ /@timestamp@/: a timestamp to prevent focus stealing -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +showUri screen uri timestamp = liftIO $ do + maybeScreen <- case screen of + Nothing -> return nullPtr + Just jScreen -> do + jScreen' <- unsafeManagedPtrCastPtr jScreen + return jScreen' + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_show_uri maybeScreen uri' timestamp + whenJust screen touchManagedPtr + freeMem uri' + return () + ) (do + freeMem uri' + ) + + +-- function gtk_set_debug_flags +-- Args : [Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_set_debug_flags" gtk_set_debug_flags :: + Word32 -> -- flags : TBasicType TUInt + IO () + +{- | +Sets the GTK+ debug flags. +-} +setDebugFlags :: + (B.CallStack.HasCallStack, MonadIO m) => + Word32 + -> m () +setDebugFlags flags = liftIO $ do + gtk_set_debug_flags flags + return () + + +-- function gtk_selection_remove_all +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_selection_remove_all" gtk_selection_remove_all :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Removes all handlers and unsets ownership of all +selections for a widget. Called when widget is being +destroyed. This function will not generally be +called by applications. +-} +selectionRemoveAll :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> m () +selectionRemoveAll widget = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + gtk_selection_remove_all widget' + touchManagedPtr widget + return () + + +-- function gtk_selection_owner_set_for_display +-- Args : [Arg {argCName = "display", argType = TInterface (Name {namespace = "Gdk", name = "Display"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GdkDisplay where the selection is set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "new selection owner (a #GtkWidget), or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an interned atom representing the selection to claim.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timestamp with which to claim the selection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_selection_owner_set_for_display" gtk_selection_owner_set_for_display :: + Ptr Gdk.Display.Display -> -- display : TInterface (Name {namespace = "Gdk", name = "Display"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Atom.Atom -> -- selection : TInterface (Name {namespace = "Gdk", name = "Atom"}) + Word32 -> -- time_ : TBasicType TUInt32 + IO CInt + +{- | +Claim ownership of a given selection for a particular widget, or, +if /@widget@/ is 'Nothing', release ownership of the selection. + +/Since: 2.2/ +-} +selectionOwnerSetForDisplay :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Display.IsDisplay a, Gtk.Widget.IsWidget b) => + a + {- ^ /@display@/: the 'GI.Gdk.Objects.Display.Display' where the selection is set -} + -> Maybe (b) + {- ^ /@widget@/: new selection owner (a 'GI.Gtk.Objects.Widget.Widget'), or 'Nothing'. -} + -> Gdk.Atom.Atom + {- ^ /@selection@/: an interned atom representing the selection to claim. -} + -> Word32 + {- ^ /@time_@/: timestamp with which to claim the selection -} + -> m Bool + {- ^ __Returns:__ TRUE if the operation succeeded -} +selectionOwnerSetForDisplay display widget selection time_ = liftIO $ do + display' <- unsafeManagedPtrCastPtr display + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + selection' <- unsafeManagedPtrGetPtr selection + result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time_ + let result' = (/= 0) result + touchManagedPtr display + whenJust widget touchManagedPtr + touchManagedPtr selection + return result' + + +-- function gtk_selection_owner_set +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkWidget, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an interned atom representing the selection to claim", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timestamp with which to claim the selection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_selection_owner_set" gtk_selection_owner_set :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Atom.Atom -> -- selection : TInterface (Name {namespace = "Gdk", name = "Atom"}) + Word32 -> -- time_ : TBasicType TUInt32 + IO CInt + +{- | +Claims ownership of a given selection for a particular widget, +or, if /@widget@/ is 'Nothing', release ownership of the selection. +-} +selectionOwnerSet :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + Maybe (a) + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget', or 'Nothing'. -} + -> Gdk.Atom.Atom + {- ^ /@selection@/: an interned atom representing the selection to claim -} + -> Word32 + {- ^ /@time_@/: timestamp with which to claim the selection -} + -> m Bool + {- ^ __Returns:__ 'True' if the operation succeeded -} +selectionOwnerSet widget selection time_ = liftIO $ do + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + selection' <- unsafeManagedPtrGetPtr selection + result <- gtk_selection_owner_set maybeWidget selection' time_ + let result' = (/= 0) result + whenJust widget touchManagedPtr + touchManagedPtr selection + return result' + + +-- function gtk_selection_convert +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The widget which acts as requestor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Which selection to get", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Form of information desired (e.g., STRING)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Time of request (usually of triggering event)\n In emergency, you could use #GDK_CURRENT_TIME", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_selection_convert" gtk_selection_convert :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Atom.Atom -> -- selection : TInterface (Name {namespace = "Gdk", name = "Atom"}) + Ptr Gdk.Atom.Atom -> -- target : TInterface (Name {namespace = "Gdk", name = "Atom"}) + Word32 -> -- time_ : TBasicType TUInt32 + IO CInt + +{- | +Requests the contents of a selection. When received, +a “selection-received” signal will be generated. +-} +selectionConvert :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: The widget which acts as requestor -} + -> Gdk.Atom.Atom + {- ^ /@selection@/: Which selection to get -} + -> Gdk.Atom.Atom + {- ^ /@target@/: Form of information desired (e.g., STRING) -} + -> Word32 + {- ^ /@time_@/: Time of request (usually of triggering event) + In emergency, you could use 'GI.Gdk.Constants.CURRENT_TIME' -} + -> m Bool + {- ^ __Returns:__ 'True' if requested succeeded. 'False' if we could not process + request. (e.g., there was already a request in process for + this widget). -} +selectionConvert widget selection target time_ = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + selection' <- unsafeManagedPtrGetPtr selection + target' <- unsafeManagedPtrGetPtr target + result <- gtk_selection_convert widget' selection' target' time_ + let result' = (/= 0) result + touchManagedPtr widget + touchManagedPtr selection + touchManagedPtr target + return result' + + +-- function gtk_selection_clear_targets +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an atom representing a selection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_selection_clear_targets" gtk_selection_clear_targets :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Atom.Atom -> -- selection : TInterface (Name {namespace = "Gdk", name = "Atom"}) + IO () + +{- | +Remove all targets registered for the given selection for the +widget. +-} +selectionClearTargets :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> Gdk.Atom.Atom + {- ^ /@selection@/: an atom representing a selection -} + -> m () +selectionClearTargets widget selection = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + selection' <- unsafeManagedPtrGetPtr selection + gtk_selection_clear_targets widget' selection' + touchManagedPtr widget + touchManagedPtr selection + return () + + +-- function gtk_selection_add_targets +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the selection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface (Name {namespace = "Gtk", name = "TargetEntry"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a table of targets to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of entries in @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of entries in @targets", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_selection_add_targets" gtk_selection_add_targets :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Atom.Atom -> -- selection : TInterface (Name {namespace = "Gdk", name = "Atom"}) + Ptr Gtk.TargetEntry.TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface (Name {namespace = "Gtk", name = "TargetEntry"})) + Word32 -> -- ntargets : TBasicType TUInt + IO () + +{- | +Prepends a table of targets to the list of supported targets +for a given widget and selection. +-} +selectionAddTargets :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> Gdk.Atom.Atom + {- ^ /@selection@/: the selection -} + -> [Gtk.TargetEntry.TargetEntry] + {- ^ /@targets@/: a table of targets to add -} + -> m () +selectionAddTargets widget selection targets = liftIO $ do + let ntargets = fromIntegral $ length targets + widget' <- unsafeManagedPtrCastPtr widget + selection' <- unsafeManagedPtrGetPtr selection + targets' <- mapM unsafeManagedPtrGetPtr targets + targets'' <- packBlockArray 16 targets' + gtk_selection_add_targets widget' selection' targets'' ntargets + touchManagedPtr widget + touchManagedPtr selection + mapM_ touchManagedPtr targets + freeMem targets'' + return () + + +-- function gtk_selection_add_target +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the selection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface (Name {namespace = "Gdk", name = "Atom"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "target to add.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A unsigned integer which will be passed back to the application.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_selection_add_target" gtk_selection_add_target :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Atom.Atom -> -- selection : TInterface (Name {namespace = "Gdk", name = "Atom"}) + Ptr Gdk.Atom.Atom -> -- target : TInterface (Name {namespace = "Gdk", name = "Atom"}) + Word32 -> -- info : TBasicType TUInt + IO () + +{- | +Appends a specified target to the list of supported targets for a +given widget and selection. +-} +selectionAddTarget :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> Gdk.Atom.Atom + {- ^ /@selection@/: the selection -} + -> Gdk.Atom.Atom + {- ^ /@target@/: target to add. -} + -> Word32 + {- ^ /@info@/: A unsigned integer which will be passed back to the application. -} + -> m () +selectionAddTarget widget selection target info = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + selection' <- unsafeManagedPtrGetPtr selection + target' <- unsafeManagedPtrGetPtr target + gtk_selection_add_target widget' selection' target' info + touchManagedPtr widget + touchManagedPtr selection + touchManagedPtr target + return () + + +-- function gtk_rgb_to_hsv +-- Args : [Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Red", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Green", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Blue", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return value for the hue component", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return value for the saturation component", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return value for the value component", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rgb_to_hsv" gtk_rgb_to_hsv :: + CDouble -> -- r : TBasicType TDouble + CDouble -> -- g : TBasicType TDouble + CDouble -> -- b : TBasicType TDouble + Ptr CDouble -> -- h : TBasicType TDouble + Ptr CDouble -> -- s : TBasicType TDouble + Ptr CDouble -> -- v : TBasicType TDouble + IO () + +{- | +Converts a color from RGB space to HSV. + +Input values must be in the [0.0, 1.0] range; +output values will be in the same range. + +/Since: 2.14/ +-} +rgbToHsv :: + (B.CallStack.HasCallStack, MonadIO m) => + Double + {- ^ /@r@/: Red -} + -> Double + {- ^ /@g@/: Green -} + -> Double + {- ^ /@b@/: Blue -} + -> 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 {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface (Name {namespace = "Gtk", name = "Orientation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "orientation of the slider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_slider" gtk_render_slider :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + CUInt -> -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"}) + IO () + +{- | +Renders a slider (as in 'GI.Gtk.Objects.Scale.Scale') in the rectangle defined by /@x@/, /@y@/, +/@width@/, /@height@/. /@orientation@/ defines whether the slider is vertical +or horizontal. + +Typical slider rendering: + +<> + +/Since: 3.0/ +-} +renderSlider :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> Gtk.Enums.Orientation + {- ^ /@orientation@/: orientation of the slider -} + -> m () +renderSlider context cr x y width height orientation = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + let orientation' = (fromIntegral . fromEnum) orientation + gtk_render_slider context' cr' x' y' width' height' orientation' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_option +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_option" gtk_render_option :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders an option mark (as in a 'GI.Gtk.Objects.RadioButton.RadioButton'), the 'GI.Gtk.Flags.StateFlagsChecked' +state will determine whether the option is on or off, and +'GI.Gtk.Flags.StateFlagsInconsistent' whether it should be marked as undefined. + +Typical option mark rendering: + +<> + +/Since: 3.0/ +-} +renderOption :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderOption context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + gtk_render_option context' cr' x' y' width' height' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_line +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X coordinate for the origin of the line", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y coordinate for the origin of the line", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X coordinate for the end of the line", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y coordinate for the end of the line", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_line" gtk_render_line :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x0 : TBasicType TDouble + CDouble -> -- y0 : TBasicType TDouble + CDouble -> -- x1 : TBasicType TDouble + CDouble -> -- y1 : TBasicType TDouble + IO () + +{- | +Renders a line from (x0, y0) to (x1, y1). + +/Since: 3.0/ +-} +renderLine :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x0@/: X coordinate for the origin of the line -} + -> Double + {- ^ /@y0@/: Y coordinate for the origin of the line -} + -> Double + {- ^ /@x1@/: X coordinate for the end of the line -} + -> Double + {- ^ /@y1@/: Y coordinate for the end of the line -} + -> m () +renderLine context cr x0 y0 x1 y1 = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x0' = realToFrac x0 + let y0' = realToFrac y0 + let x1' = realToFrac x1 + let y1' = realToFrac y1 + gtk_render_line context' cr' x0' y0' x1' y1' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_layout +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface (Name {namespace = "Pango", name = "Layout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #PangoLayout to render", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_layout" gtk_render_layout :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + Ptr Pango.Layout.Layout -> -- layout : TInterface (Name {namespace = "Pango", name = "Layout"}) + IO () + +{- | +Renders /@layout@/ on the coordinates /@x@/, /@y@/ + +/Since: 3.0/ +-} +renderLayout :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a, Pango.Layout.IsLayout b) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin -} + -> Double + {- ^ /@y@/: Y origin -} + -> b + {- ^ /@layout@/: the 'GI.Pango.Objects.Layout.Layout' to render -} + -> m () +renderLayout context cr x y layout = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + layout' <- unsafeManagedPtrCastPtr layout + gtk_render_layout context' cr' x' y' layout' + touchManagedPtr context + touchManagedPtr cr + touchManagedPtr layout + return () + + +-- function gtk_render_insertion_cursor +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface (Name {namespace = "Pango", name = "Layout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #PangoLayout of the text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index in the #PangoLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface (Name {namespace = "Pango", name = "Direction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #PangoDirection of the text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_insertion_cursor" gtk_render_insertion_cursor :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + Ptr Pango.Layout.Layout -> -- layout : TInterface (Name {namespace = "Pango", name = "Layout"}) + Int32 -> -- index : TBasicType TInt + CUInt -> -- direction : TInterface (Name {namespace = "Pango", name = "Direction"}) + IO () + +{- | +Draws a text caret on /@cr@/ at the specified index of /@layout@/. + +/Since: 3.4/ +-} +renderInsertionCursor :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a, Pango.Layout.IsLayout b) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin -} + -> Double + {- ^ /@y@/: Y origin -} + -> b + {- ^ /@layout@/: the 'GI.Pango.Objects.Layout.Layout' of the text -} + -> Int32 + {- ^ /@index@/: the index in the 'GI.Pango.Objects.Layout.Layout' -} + -> Pango.Enums.Direction + {- ^ /@direction@/: the 'GI.Pango.Enums.Direction' of the text -} + -> m () +renderInsertionCursor context cr x y layout index direction = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + layout' <- unsafeManagedPtrCastPtr layout + let direction' = (fromIntegral . fromEnum) direction + gtk_render_insertion_cursor context' cr' x' y' layout' index direction' + touchManagedPtr context + touchManagedPtr cr + touchManagedPtr layout + return () + + +-- function gtk_render_icon_surface +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface (Name {namespace = "cairo", name = "Surface"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_surface_t containing the icon to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X position for the @icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y position for the @incon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_icon_surface" gtk_render_icon_surface :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + Ptr Cairo.Surface.Surface -> -- surface : TInterface (Name {namespace = "cairo", name = "Surface"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + IO () + +{- | +Renders the icon in /@surface@/ at the specified /@x@/ and /@y@/ coordinates. + +/Since: 3.10/ +-} +renderIconSurface :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Cairo.Surface.Surface + {- ^ /@surface@/: a 'GI.Cairo.Structs.Surface.Surface' containing the icon to draw -} + -> Double + {- ^ /@x@/: X position for the /@icon@/ -} + -> Double + {- ^ /@y@/: Y position for the /@incon@/ -} + -> m () +renderIconSurface context cr surface x y = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + surface' <- unsafeManagedPtrGetPtr surface + let x' = realToFrac x + let y' = realToFrac y + gtk_render_icon_surface context' cr' surface' x' y' + touchManagedPtr context + touchManagedPtr cr + touchManagedPtr surface + return () + + +-- function gtk_render_icon_pixbuf +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "Gtk", name = "IconSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkIconSource specifying the icon to render", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size (#GtkIconSize) to render the icon at.\n A size of `(GtkIconSize) -1` means render at the size of the source\n and don\8217t scale.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_icon_pixbuf" gtk_render_icon_pixbuf :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Gtk.IconSource.IconSource -> -- source : TInterface (Name {namespace = "Gtk", name = "IconSource"}) + Int32 -> -- size : TBasicType TInt + IO (Ptr GdkPixbuf.Pixbuf.Pixbuf) + +{-# DEPRECATED renderIconPixbuf ["(Since version 3.10)","Use 'GI.Gtk.Objects.IconTheme.iconThemeLoadIcon' instead."] #-} +{- | +Renders the icon specified by /@source@/ at the given /@size@/, returning the result +in a pixbuf. + +/Since: 3.0/ +-} +renderIconPixbuf :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Gtk.IconSource.IconSource + {- ^ /@source@/: the 'GI.Gtk.Structs.IconSource.IconSource' specifying the icon to render -} + -> Int32 + {- ^ /@size@/: the size ('GI.Gtk.Enums.IconSize') to render the icon at. + A size of @(GtkIconSize) -1@ means render at the size of the source + and don’t scale. -} + -> m GdkPixbuf.Pixbuf.Pixbuf + {- ^ __Returns:__ a newly-created 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' containing the rendered icon -} +renderIconPixbuf context source size = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + source' <- unsafeManagedPtrGetPtr source + result <- gtk_render_icon_pixbuf context' source' size + checkUnexpectedReturnNULL "renderIconPixbuf" result + result' <- (wrapObject GdkPixbuf.Pixbuf.Pixbuf) result + touchManagedPtr context + touchManagedPtr source + return result' + + +-- function gtk_render_icon +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkPixbuf containing the icon to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X position for the @pixbuf", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y position for the @pixbuf", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_icon" gtk_render_icon :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + IO () + +{- | +Renders the icon in /@pixbuf@/ at the specified /@x@/ and /@y@/ coordinates. + +This function will render the icon in /@pixbuf@/ at exactly its size, +regardless of scaling factors, which may not be appropriate when +drawing on displays with high pixel densities. + +You probably want to use 'GI.Gtk.Functions.renderIconSurface' instead, if you +already have a Cairo surface. + +/Since: 3.2/ +-} +renderIcon :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a, GdkPixbuf.Pixbuf.IsPixbuf b) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> b + {- ^ /@pixbuf@/: a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' containing the icon to draw -} + -> Double + {- ^ /@x@/: X position for the /@pixbuf@/ -} + -> Double + {- ^ /@y@/: Y position for the /@pixbuf@/ -} + -> m () +renderIcon context cr pixbuf x y = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + pixbuf' <- unsafeManagedPtrCastPtr pixbuf + let x' = realToFrac x + let y' = realToFrac y + gtk_render_icon context' cr' pixbuf' x' y' + touchManagedPtr context + touchManagedPtr cr + touchManagedPtr pixbuf + return () + + +-- function gtk_render_handle +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_handle" gtk_render_handle :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders a handle (as in 'GI.Gtk.Objects.HandleBox.HandleBox', 'GI.Gtk.Objects.Paned.Paned' and +'GI.Gtk.Objects.Window.Window'’s resize grip), in the rectangle +determined by /@x@/, /@y@/, /@width@/, /@height@/. + +Handles rendered for the paned and grip classes: + +<> + +/Since: 3.0/ +-} +renderHandle :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderHandle context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + gtk_render_handle context' cr' x' y' width' height' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_frame_gap +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface (Name {namespace = "Gtk", name = "PositionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "side where the gap is", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "initial coordinate (X or Y depending on @gap_side) for the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "end coordinate (X or Y depending on @gap_side) for the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_frame_gap" gtk_render_frame_gap :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + CUInt -> -- gap_side : TInterface (Name {namespace = "Gtk", name = "PositionType"}) + CDouble -> -- xy0_gap : TBasicType TDouble + CDouble -> -- xy1_gap : TBasicType TDouble + IO () + +{-# DEPRECATED renderFrameGap ["(Since version 3.24)","Use 'GI.Gtk.Functions.renderFrame' instead. Themes can create gaps"," by omitting borders via CSS."] #-} +{- | +Renders a frame around the rectangle defined by (/@x@/, /@y@/, /@width@/, /@height@/), +leaving a gap on one side. /@xy0Gap@/ and /@xy1Gap@/ will mean X coordinates +for 'GI.Gtk.Enums.PositionTypeTop' and 'GI.Gtk.Enums.PositionTypeBottom' gap sides, and Y coordinates for +'GI.Gtk.Enums.PositionTypeLeft' and 'GI.Gtk.Enums.PositionTypeRight'. + +Typical rendering of a frame with a gap: + +<> + +/Since: 3.0/ +-} +renderFrameGap :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> Gtk.Enums.PositionType + {- ^ /@gapSide@/: side where the gap is -} + -> Double + {- ^ /@xy0Gap@/: initial coordinate (X or Y depending on /@gapSide@/) for the gap -} + -> Double + {- ^ /@xy1Gap@/: end coordinate (X or Y depending on /@gapSide@/) for the gap -} + -> m () +renderFrameGap context cr x y width height gapSide xy0Gap xy1Gap = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + let gapSide' = (fromIntegral . fromEnum) gapSide + let xy0Gap' = realToFrac xy0Gap + let xy1Gap' = realToFrac xy1Gap + gtk_render_frame_gap context' cr' x' y' width' height' gapSide' xy0Gap' xy1Gap' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_frame +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_frame" gtk_render_frame :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders a frame around the rectangle defined by /@x@/, /@y@/, /@width@/, /@height@/. + +Examples of frame rendering, showing the effect of @border-image@, +@border-color@, @border-width@, @border-radius@ and junctions: + +<> + +/Since: 3.0/ +-} +renderFrame :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderFrame context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + gtk_render_frame context' cr' x' y' width' height' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_focus +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_focus" gtk_render_focus :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders a focus indicator on the rectangle determined by /@x@/, /@y@/, /@width@/, /@height@/. + +Typical focus rendering: + +<> + +/Since: 3.0/ +-} +renderFocus :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderFocus context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + gtk_render_focus context' cr' x' y' width' height' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_extension +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface (Name {namespace = "Gtk", name = "PositionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "side where the gap is", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_extension" gtk_render_extension :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + CUInt -> -- gap_side : TInterface (Name {namespace = "Gtk", name = "PositionType"}) + IO () + +{- | +Renders a extension (as in a 'GI.Gtk.Objects.Notebook.Notebook' tab) in the rectangle +defined by /@x@/, /@y@/, /@width@/, /@height@/. The side where the extension +connects to is defined by /@gapSide@/. + +Typical extension rendering: + +<> + +/Since: 3.0/ +-} +renderExtension :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> Gtk.Enums.PositionType + {- ^ /@gapSide@/: side where the gap is -} + -> m () +renderExtension context cr x y width height gapSide = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + let gapSide' = (fromIntegral . fromEnum) gapSide + gtk_render_extension context' cr' x' y' width' height' gapSide' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_expander +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_expander" gtk_render_expander :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders an expander (as used in 'GI.Gtk.Objects.TreeView.TreeView' and 'GI.Gtk.Objects.Expander.Expander') in the area +defined by /@x@/, /@y@/, /@width@/, /@height@/. The state 'GI.Gtk.Flags.StateFlagsChecked' +determines whether the expander is collapsed or expanded. + +Typical expander rendering: + +<> + +/Since: 3.0/ +-} +renderExpander :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderExpander context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + gtk_render_expander context' cr' x' y' width' height' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_check +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_check" gtk_render_check :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders a checkmark (as in a 'GI.Gtk.Objects.CheckButton.CheckButton'). + +The 'GI.Gtk.Flags.StateFlagsChecked' state determines whether the check is +on or off, and 'GI.Gtk.Flags.StateFlagsInconsistent' determines whether it +should be marked as undefined. + +Typical checkmark rendering: + +<> + +/Since: 3.0/ +-} +renderCheck :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderCheck context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + 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_get_clip +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_clip", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the clip", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_background_get_clip" gtk_render_background_get_clip :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + Ptr Gdk.Rectangle.Rectangle -> -- out_clip : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) + IO () + +{- | +Returns the area that will be affected (i.e. drawn to) when +calling 'GI.Gtk.Functions.renderBackground' for the given /@context@/ and +rectangle. + +/Since: 3.20/ +-} +renderBackgroundGetClip :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m (Gdk.Rectangle.Rectangle) +renderBackgroundGetClip context x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + outClip <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle) + gtk_render_background_get_clip context' x' y' width' height' outClip + outClip' <- (wrapBoxed Gdk.Rectangle.Rectangle) outClip + touchManagedPtr context + return outClip' + + +-- function gtk_render_background +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_background" gtk_render_background :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders the background of an element. + +Typical background rendering, showing the effect of +@background-image@, @border-width@ and @border-radius@: + +<> + +/Since: 3.0./ +-} +renderBackground :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderBackground context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + gtk_render_background context' cr' x' y' width' height' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_arrow +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "arrow angle from 0 to 2 * %G_PI, being 0 the arrow pointing to the north", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the render area", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the render area", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "square side for render area", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_arrow" gtk_render_arrow :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- angle : TBasicType TDouble + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- size : TBasicType TDouble + IO () + +{- | +Renders an arrow pointing to /@angle@/. + +Typical arrow rendering at 0, 1⁄2 π;, π; and 3⁄2 π: + +<> + +/Since: 3.0/ +-} +renderArrow :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@angle@/: arrow angle from 0 to 2 * 'GI.GLib.Constants.PI', being 0 the arrow pointing to the north -} + -> Double + {- ^ /@x@/: X origin of the render area -} + -> Double + {- ^ /@y@/: Y origin of the render area -} + -> Double + {- ^ /@size@/: square side for render area -} + -> m () +renderArrow context cr angle x y size = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let angle' = realToFrac angle + let x' = realToFrac x + let y' = realToFrac y + let size' = realToFrac size + gtk_render_arrow context' cr' angle' x' y' size' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_activity +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gtk", name = "StyleContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_render_activity" gtk_render_activity :: + Ptr Gtk.StyleContext.StyleContext -> -- context : TInterface (Name {namespace = "Gtk", name = "StyleContext"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CDouble -> -- x : TBasicType TDouble + CDouble -> -- y : TBasicType TDouble + CDouble -> -- width : TBasicType TDouble + CDouble -> -- height : TBasicType TDouble + IO () + +{- | +Renders an activity indicator (such as in 'GI.Gtk.Objects.Spinner.Spinner'). +The state 'GI.Gtk.Flags.StateFlagsChecked' determines whether there is +activity going on. + +/Since: 3.0/ +-} +renderActivity :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.StyleContext.IsStyleContext a) => + a + {- ^ /@context@/: a 'GI.Gtk.Objects.StyleContext.StyleContext' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Double + {- ^ /@x@/: X origin of the rectangle -} + -> Double + {- ^ /@y@/: Y origin of the rectangle -} + -> Double + {- ^ /@width@/: rectangle width -} + -> Double + {- ^ /@height@/: rectangle height -} + -> m () +renderActivity context cr x y width height = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + cr' <- unsafeManagedPtrGetPtr cr + let x' = realToFrac x + let y' = realToFrac y + let width' = realToFrac width + let height' = realToFrac height + gtk_render_activity context' cr' x' y' width' height' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_rc_set_default_files +-- Args : [Arg {argCName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A\n %NULL-terminated list of filenames.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_set_default_files" gtk_rc_set_default_files :: + Ptr CString -> -- filenames : TCArray True (-1) (-1) (TBasicType TFileName) + IO () + +{-# DEPRECATED rcSetDefaultFiles ["(Since version 3.0)","Use 'GI.Gtk.Objects.StyleContext.StyleContext' with a custom 'GI.Gtk.Interfaces.StyleProvider.StyleProvider' instead"] #-} +{- | +Sets the list of files that GTK+ will read at the +end of 'GI.Gtk.Functions.init'. +-} +rcSetDefaultFiles :: + (B.CallStack.HasCallStack, MonadIO m) => + [[Char]] + {- ^ /@filenames@/: A + 'Nothing'-terminated list of 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 {argCName = "settings", argType = TInterface (Name {namespace = "Gtk", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_reset_styles" gtk_rc_reset_styles :: + Ptr Gtk.Settings.Settings -> -- settings : TInterface (Name {namespace = "Gtk", name = "Settings"}) + IO () + +{-# DEPRECATED rcResetStyles ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +This function recomputes the styles for all widgets that use a +particular 'GI.Gtk.Objects.Settings.Settings' object. (There is one 'GI.Gtk.Objects.Settings.Settings' object +per 'GI.Gdk.Objects.Screen.Screen', see 'GI.Gtk.Objects.Settings.settingsGetForScreen'); It is useful +when some global parameter has changed that affects the appearance +of all widgets, because when a widget gets a new style, it will +both redraw and recompute any cached information about its +appearance. As an example, it is used when the default font size +set by the operating system changes. Note that this function +doesn’t affect widgets that have a style set explicitly on them +with 'GI.Gtk.Objects.Widget.widgetSetStyle'. + +/Since: 2.4/ +-} +rcResetStyles :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Settings.IsSettings a) => + a + {- ^ /@settings@/: a 'GI.Gtk.Objects.Settings.Settings' -} + -> m () +rcResetStyles settings = liftIO $ do + settings' <- unsafeManagedPtrCastPtr settings + gtk_rc_reset_styles settings' + touchManagedPtr settings + return () + + +-- function gtk_rc_reparse_all_for_settings +-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gtk", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "load whether or not anything changed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_reparse_all_for_settings" gtk_rc_reparse_all_for_settings :: + Ptr Gtk.Settings.Settings -> -- settings : TInterface (Name {namespace = "Gtk", name = "Settings"}) + CInt -> -- force_load : TBasicType TBoolean + IO CInt + +{-# DEPRECATED rcReparseAllForSettings ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +If the modification time on any previously read file +for the given 'GI.Gtk.Objects.Settings.Settings' has changed, discard all style information +and then reread all previously read RC files. +-} +rcReparseAllForSettings :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Settings.IsSettings a) => + a + {- ^ /@settings@/: a 'GI.Gtk.Objects.Settings.Settings' -} + -> Bool + {- ^ /@forceLoad@/: load whether or not anything changed -} + -> m Bool + {- ^ __Returns:__ 'True' if the files were reread. -} +rcReparseAllForSettings settings forceLoad = liftIO $ do + settings' <- unsafeManagedPtrCastPtr settings + let forceLoad' = (fromIntegral . fromEnum) forceLoad + result <- gtk_rc_reparse_all_for_settings settings' forceLoad' + let result' = (/= 0) result + touchManagedPtr settings + return result' + + +-- function gtk_rc_reparse_all +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_reparse_all" gtk_rc_reparse_all :: + IO CInt + +{-# DEPRECATED rcReparseAll ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +If the modification time on any previously read file for the +default 'GI.Gtk.Objects.Settings.Settings' has changed, discard all style information +and then reread all previously read RC files. +-} +rcReparseAll :: + (B.CallStack.HasCallStack, MonadIO m) => + m Bool + {- ^ __Returns:__ 'True' if the files were reread. -} +rcReparseAll = liftIO $ do + result <- gtk_rc_reparse_all + let result' = (/= 0) result + return result' + + +-- function gtk_rc_parse_string +-- Args : [Arg {argCName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string to parse.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_parse_string" gtk_rc_parse_string :: + CString -> -- rc_string : TBasicType TUTF8 + IO () + +{-# DEPRECATED rcParseString ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Parses resource information directly from a string. +-} +rcParseString :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@rcString@/: a string to parse. -} + -> m () +rcParseString rcString = liftIO $ do + rcString' <- textToCString rcString + gtk_rc_parse_string rcString' + freeMem rcString' + return () + + +-- function gtk_rc_parse_state +-- Args : [Arg {argCName = "scanner", argType = TInterface (Name {namespace = "GLib", name = "Scanner"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GScanner (must be initialized for parsing an RC file)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A pointer to a #GtkStateType variable in which to\n store the result.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_parse_state" gtk_rc_parse_state :: + Ptr GLib.Scanner.Scanner -> -- scanner : TInterface (Name {namespace = "GLib", name = "Scanner"}) + Ptr CUInt -> -- state : TInterface (Name {namespace = "Gtk", name = "StateType"}) + IO Word32 + +{-# DEPRECATED rcParseState ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead"] #-} +{- | +Parses a 'GI.Gtk.Enums.StateType' variable from the format expected +in a RC file. +-} +rcParseState :: + (B.CallStack.HasCallStack, MonadIO m) => + GLib.Scanner.Scanner + {- ^ /@scanner@/: a 'GI.GLib.Structs.Scanner.Scanner' (must be initialized for parsing an RC file) -} + -> m ((Word32, Gtk.Enums.StateType)) + {- ^ __Returns:__ 'GI.GLib.Enums.TokenTypeNone' if parsing succeeded, otherwise the token + that was expected but not found. -} +rcParseState scanner = liftIO $ do + scanner' <- unsafeManagedPtrGetPtr scanner + state <- allocMem :: IO (Ptr CUInt) + result <- gtk_rc_parse_state scanner' state + state' <- peek state + let state'' = (toEnum . fromIntegral) state' + touchManagedPtr scanner + freeMem state + return (result, state'') + + +-- function gtk_rc_parse_priority +-- Args : [Arg {argCName = "scanner", argType = TInterface (Name {namespace = "GLib", name = "Scanner"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GScanner (must be initialized for parsing an RC file)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface (Name {namespace = "Gtk", name = "PathPriorityType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A pointer to #GtkPathPriorityType variable in which\n to store the result.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_parse_priority" gtk_rc_parse_priority :: + Ptr GLib.Scanner.Scanner -> -- scanner : TInterface (Name {namespace = "GLib", name = "Scanner"}) + CUInt -> -- priority : TInterface (Name {namespace = "Gtk", name = "PathPriorityType"}) + IO Word32 + +{-# DEPRECATED rcParsePriority ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead"] #-} +{- | +Parses a 'GI.Gtk.Enums.PathPriorityType' variable from the format expected +in a RC file. +-} +rcParsePriority :: + (B.CallStack.HasCallStack, MonadIO m) => + GLib.Scanner.Scanner + {- ^ /@scanner@/: a 'GI.GLib.Structs.Scanner.Scanner' (must be initialized for parsing an RC file) -} + -> Gtk.Enums.PathPriorityType + {- ^ /@priority@/: A pointer to 'GI.Gtk.Enums.PathPriorityType' variable in which + to store the result. -} + -> m Word32 + {- ^ __Returns:__ 'GI.GLib.Enums.TokenTypeNone' if parsing succeeded, otherwise the token + that was expected but not found. -} +rcParsePriority scanner priority = liftIO $ do + scanner' <- unsafeManagedPtrGetPtr scanner + let priority' = (fromIntegral . fromEnum) priority + result <- gtk_rc_parse_priority scanner' priority' + touchManagedPtr scanner + return result + + +-- function gtk_rc_parse_color_full +-- Args : [Arg {argCName = "scanner", argType = TInterface (Name {namespace = "GLib", name = "Scanner"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GScanner", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "RcStyle"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkRcStyle, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface (Name {namespace = "Gdk", name = "Color"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to a #GdkColor in which to store\n the result", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_parse_color_full" gtk_rc_parse_color_full :: + Ptr GLib.Scanner.Scanner -> -- scanner : TInterface (Name {namespace = "GLib", name = "Scanner"}) + Ptr Gtk.RcStyle.RcStyle -> -- style : TInterface (Name {namespace = "Gtk", name = "RcStyle"}) + Ptr Gdk.Color.Color -> -- color : TInterface (Name {namespace = "Gdk", name = "Color"}) + IO Word32 + +{-# DEPRECATED rcParseColorFull ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead"] #-} +{- | +Parses a color in the format expected +in a RC file. If /@style@/ is not 'Nothing', it will be consulted to resolve +references to symbolic colors. + +/Since: 2.12/ +-} +rcParseColorFull :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.RcStyle.IsRcStyle a) => + GLib.Scanner.Scanner + {- ^ /@scanner@/: a 'GI.GLib.Structs.Scanner.Scanner' -} + -> Maybe (a) + {- ^ /@style@/: a 'GI.Gtk.Objects.RcStyle.RcStyle', or 'Nothing' -} + -> m ((Word32, Gdk.Color.Color)) + {- ^ __Returns:__ 'GI.GLib.Enums.TokenTypeNone' if parsing succeeded, otherwise the token + that was expected but not found -} +rcParseColorFull scanner style = liftIO $ do + scanner' <- unsafeManagedPtrGetPtr scanner + maybeStyle <- case style of + Nothing -> return nullPtr + Just jStyle -> do + jStyle' <- unsafeManagedPtrCastPtr jStyle + return jStyle' + color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color.Color) + result <- gtk_rc_parse_color_full scanner' maybeStyle color + color' <- (wrapBoxed Gdk.Color.Color) color + touchManagedPtr scanner + whenJust style touchManagedPtr + return (result, color') + + +-- function gtk_rc_parse_color +-- Args : [Arg {argCName = "scanner", argType = TInterface (Name {namespace = "GLib", name = "Scanner"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GScanner", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface (Name {namespace = "Gdk", name = "Color"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to a #GdkColor in which to store\n the result", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_parse_color" gtk_rc_parse_color :: + Ptr GLib.Scanner.Scanner -> -- scanner : TInterface (Name {namespace = "GLib", name = "Scanner"}) + Ptr Gdk.Color.Color -> -- color : TInterface (Name {namespace = "Gdk", name = "Color"}) + IO Word32 + +{-# DEPRECATED rcParseColor ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead"] #-} +{- | +Parses a color in the format expected +in a RC file. + +Note that theme engines should use 'GI.Gtk.Functions.rcParseColorFull' in +order to support symbolic colors. +-} +rcParseColor :: + (B.CallStack.HasCallStack, MonadIO m) => + GLib.Scanner.Scanner + {- ^ /@scanner@/: a 'GI.GLib.Structs.Scanner.Scanner' -} + -> m ((Word32, Gdk.Color.Color)) + {- ^ __Returns:__ 'GI.GLib.Enums.TokenTypeNone' if parsing succeeded, otherwise the token + that was expected but not found -} +rcParseColor scanner = liftIO $ do + scanner' <- unsafeManagedPtrGetPtr scanner + color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color.Color) + result <- gtk_rc_parse_color scanner' color + color' <- (wrapBoxed Gdk.Color.Color) color + touchManagedPtr scanner + return (result, color') + + +-- function gtk_rc_parse +-- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename of a file to parse. If @filename is not absolute, it\n is searched in the current directory.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_parse" gtk_rc_parse :: + CString -> -- filename : TBasicType TUTF8 + IO () + +{-# DEPRECATED rcParse ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Parses a given resource file. +-} +rcParse :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@filename@/: the filename of a file to parse. If /@filename@/ is not absolute, it + is searched in the current directory. -} + -> m () +rcParse filename = liftIO $ do + filename' <- textToCString filename + gtk_rc_parse filename' + freeMem filename' + return () + + +-- function gtk_rc_get_theme_dir +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_get_theme_dir" gtk_rc_get_theme_dir :: + IO CString + +{-# DEPRECATED rcGetThemeDir ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Returns the standard directory in which themes should +be installed. (GTK+ does not actually use this directory +itself.) +-} +rcGetThemeDir :: + (B.CallStack.HasCallStack, MonadIO m) => + m T.Text + {- ^ __Returns:__ The directory (must be freed with 'GI.GLib.Functions.free'). -} +rcGetThemeDir = liftIO $ do + result <- gtk_rc_get_theme_dir + checkUnexpectedReturnNULL "rcGetThemeDir" result + result' <- cstringToText result + freeMem result + return result' + + +-- function gtk_rc_get_style_by_paths +-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gtk", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSettings object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget path to use when looking up the\n style, or %NULL if no matching against the widget path should be done", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the class path to use when looking up the style,\n or %NULL if no matching against the class path should be done.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a type that will be used along with parent types of this type\n when matching against class styles, or #G_TYPE_NONE", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Style"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_get_style_by_paths" gtk_rc_get_style_by_paths :: + Ptr Gtk.Settings.Settings -> -- settings : TInterface (Name {namespace = "Gtk", name = "Settings"}) + CString -> -- widget_path : TBasicType TUTF8 + CString -> -- class_path : TBasicType TUTF8 + CGType -> -- type : TBasicType TGType + IO (Ptr Gtk.Style.Style) + +{-# DEPRECATED rcGetStyleByPaths ["(Since version 3.0)","Use 'GI.Gtk.Objects.StyleContext.StyleContext' instead"] #-} +{- | +Creates up a 'GI.Gtk.Objects.Style.Style' from styles defined in a RC file by providing +the raw components used in matching. This function may be useful +when creating pseudo-widgets that should be themed like widgets but +don’t actually have corresponding GTK+ widgets. An example of this +would be items inside a GNOME canvas widget. + +The action of 'GI.Gtk.Functions.rcGetStyle' is similar to: + +=== /C code/ +> +> gtk_widget_path (widget, NULL, &path, NULL); +> gtk_widget_class_path (widget, NULL, &class_path, NULL); +> gtk_rc_get_style_by_paths (gtk_widget_get_settings (widget), +> path, class_path, +> G_OBJECT_TYPE (widget)); +-} +rcGetStyleByPaths :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Settings.IsSettings a) => + a + {- ^ /@settings@/: a 'GI.Gtk.Objects.Settings.Settings' object -} + -> Maybe (T.Text) + {- ^ /@widgetPath@/: the widget path to use when looking up the + style, or 'Nothing' if no matching against the widget path should be done -} + -> Maybe (T.Text) + {- ^ /@classPath@/: the class path to use when looking up the style, + or 'Nothing' if no matching against the class path should be done. -} + -> GType + {- ^ /@type@/: a type that will be used along with parent types of this type + when matching against class styles, or @/G_TYPE_NONE/@ -} + -> m (Maybe Gtk.Style.Style) + {- ^ __Returns:__ A style created by matching + with the supplied paths, or 'Nothing' if nothing matching was + specified and the default style should be used. The returned + value is owned by GTK+ as part of an internal cache, so you + must call 'GI.GObject.Objects.Object.objectRef' on the returned value if you want to + keep a reference to it. -} +rcGetStyleByPaths settings widgetPath classPath type_ = liftIO $ do + settings' <- unsafeManagedPtrCastPtr settings + maybeWidgetPath <- case widgetPath of + Nothing -> return nullPtr + Just jWidgetPath -> do + jWidgetPath' <- textToCString jWidgetPath + return jWidgetPath' + maybeClassPath <- case classPath of + Nothing -> return nullPtr + Just jClassPath -> do + jClassPath' <- textToCString jClassPath + return jClassPath' + let type_' = gtypeToCGType type_ + result <- gtk_rc_get_style_by_paths settings' maybeWidgetPath maybeClassPath type_' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Style.Style) result' + return result'' + touchManagedPtr settings + freeMem maybeWidgetPath + freeMem maybeClassPath + return maybeResult + + +-- function gtk_rc_get_style +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Style"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_get_style" gtk_rc_get_style :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO (Ptr Gtk.Style.Style) + +{-# DEPRECATED rcGetStyle ["(Since version 3.0)","Use 'GI.Gtk.Objects.StyleContext.StyleContext' instead"] #-} +{- | +Finds all matching RC styles for a given widget, +composites them together, and then creates a +'GI.Gtk.Objects.Style.Style' representing the composite appearance. +(GTK+ actually keeps a cache of previously +created styles, so a new style may not be +created.) +-} +rcGetStyle :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> m Gtk.Style.Style + {- ^ __Returns:__ the resulting style. No refcount is added + to the returned style, so if you want to save this style around, + you should add a reference yourself. -} +rcGetStyle widget = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + result <- gtk_rc_get_style widget' + checkUnexpectedReturnNULL "rcGetStyle" result + result' <- (newObject Gtk.Style.Style) result + touchManagedPtr widget + return result' + + +-- function gtk_rc_get_module_dir +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_get_module_dir" gtk_rc_get_module_dir :: + IO CString + +{-# DEPRECATED rcGetModuleDir ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Returns a directory in which GTK+ looks for theme engines. +For full information about the search for theme engines, +see the docs for @GTK_PATH@ in [Running GTK+ Applications][gtk-running]. +-} +rcGetModuleDir :: + (B.CallStack.HasCallStack, MonadIO m) => + m [Char] + {- ^ __Returns:__ the directory. (Must be freed with 'GI.GLib.Functions.free') -} +rcGetModuleDir = liftIO $ do + result <- gtk_rc_get_module_dir + checkUnexpectedReturnNULL "rcGetModuleDir" result + result' <- cstringToString result + freeMem result + return result' + + +-- function gtk_rc_get_im_module_path +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_get_im_module_path" gtk_rc_get_im_module_path :: + IO CString + +{-# DEPRECATED rcGetImModulePath ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Obtains the path in which to look for IM modules. See the documentation +of the @GTK_PATH@ +environment variable for more details about looking up modules. This +function is useful solely for utilities supplied with GTK+ and should +not be used by applications under normal circumstances. +-} +rcGetImModulePath :: + (B.CallStack.HasCallStack, MonadIO m) => + m [Char] + {- ^ __Returns:__ a newly-allocated string containing the + path in which to look for IM modules. -} +rcGetImModulePath = liftIO $ do + result <- gtk_rc_get_im_module_path + checkUnexpectedReturnNULL "rcGetImModulePath" result + result' <- cstringToString result + freeMem result + return result' + + +-- function gtk_rc_get_im_module_file +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_get_im_module_file" gtk_rc_get_im_module_file :: + IO CString + +{-# DEPRECATED rcGetImModuleFile ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Obtains the path to the IM modules file. See the documentation +of the @GTK_IM_MODULE_FILE@ +environment variable for more details. +-} +rcGetImModuleFile :: + (B.CallStack.HasCallStack, MonadIO m) => + m [Char] + {- ^ __Returns:__ a newly-allocated string containing the + name of the file listing the IM modules available for loading -} +rcGetImModuleFile = liftIO $ do + result <- gtk_rc_get_im_module_file + checkUnexpectedReturnNULL "rcGetImModuleFile" result + result' <- cstringToString result + freeMem result + return result' + + +-- function gtk_rc_get_default_files +-- Args : [] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TFileName)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_get_default_files" gtk_rc_get_default_files :: + IO (Ptr CString) + +{-# DEPRECATED rcGetDefaultFiles ["(Since version 3.0)","Use 'GI.Gtk.Objects.StyleContext.StyleContext' instead"] #-} +{- | +Retrieves the current list of RC files that will be parsed +at the end of 'GI.Gtk.Functions.init'. +-} +rcGetDefaultFiles :: + (B.CallStack.HasCallStack, MonadIO m) => + m [[Char]] + {- ^ __Returns:__ + A 'Nothing'-terminated array of filenames. This memory is owned + by GTK+ and must not be freed by the application. If you want + to store this information, you should make a copy. -} +rcGetDefaultFiles = liftIO $ do + result <- gtk_rc_get_default_files + checkUnexpectedReturnNULL "rcGetDefaultFiles" result + result' <- unpackZeroTerminatedFileNameArray result + return result' + + +-- function gtk_rc_find_pixmap_in_path +-- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gtk", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scanner", argType = TInterface (Name {namespace = "GLib", name = "Scanner"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Scanner used to get line number information for the\n warning message, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of the pixmap file to locate.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_find_pixmap_in_path" gtk_rc_find_pixmap_in_path :: + Ptr Gtk.Settings.Settings -> -- settings : TInterface (Name {namespace = "Gtk", name = "Settings"}) + Ptr GLib.Scanner.Scanner -> -- scanner : TInterface (Name {namespace = "GLib", name = "Scanner"}) + CString -> -- pixmap_file : TBasicType TUTF8 + IO CString + +{-# DEPRECATED rcFindPixmapInPath ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Looks up a file in pixmap path for the specified 'GI.Gtk.Objects.Settings.Settings'. +If the file is not found, it outputs a warning message using +@/g_warning()/@ and returns 'Nothing'. +-} +rcFindPixmapInPath :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Settings.IsSettings a) => + a + {- ^ /@settings@/: a 'GI.Gtk.Objects.Settings.Settings' -} + -> GLib.Scanner.Scanner + {- ^ /@scanner@/: Scanner used to get line number information for the + warning message, or 'Nothing' -} + -> T.Text + {- ^ /@pixmapFile@/: name of the pixmap file to locate. -} + -> m [Char] + {- ^ __Returns:__ the filename. -} +rcFindPixmapInPath settings scanner pixmapFile = liftIO $ do + settings' <- unsafeManagedPtrCastPtr settings + scanner' <- unsafeManagedPtrGetPtr scanner + pixmapFile' <- textToCString pixmapFile + result <- gtk_rc_find_pixmap_in_path settings' scanner' pixmapFile' + checkUnexpectedReturnNULL "rcFindPixmapInPath" result + result' <- cstringToString result + freeMem result + touchManagedPtr settings + touchManagedPtr scanner + freeMem pixmapFile' + return result' + + +-- function gtk_rc_find_module_in_path +-- Args : [Arg {argCName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of a theme engine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_find_module_in_path" gtk_rc_find_module_in_path :: + CString -> -- module_file : TBasicType TUTF8 + IO CString + +{-# DEPRECATED rcFindModuleInPath ["(Since version 3.0)","Use 'GI.Gtk.Objects.CssProvider.CssProvider' instead."] #-} +{- | +Searches for a theme engine in the GTK+ search path. This function +is not useful for applications and should not be used. +-} +rcFindModuleInPath :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@moduleFile@/: name of a theme engine -} + -> m [Char] + {- ^ __Returns:__ The filename, if found (must be + freed with 'GI.GLib.Functions.free'), otherwise 'Nothing'. -} +rcFindModuleInPath moduleFile = liftIO $ do + moduleFile' <- textToCString moduleFile + result <- gtk_rc_find_module_in_path moduleFile' + checkUnexpectedReturnNULL "rcFindModuleInPath" result + result' <- cstringToString result + freeMem result + freeMem moduleFile' + return result' + + +-- function gtk_rc_add_default_file +-- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the pathname to the file. If @filename\n is not absolute, it is searched in the current directory.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_rc_add_default_file" gtk_rc_add_default_file :: + CString -> -- filename : TBasicType TFileName + IO () + +{-# DEPRECATED rcAddDefaultFile ["(Since version 3.0)","Use 'GI.Gtk.Objects.StyleContext.StyleContext' with a custom 'GI.Gtk.Interfaces.StyleProvider.StyleProvider' instead"] #-} +{- | +Adds a file to the list of files to be parsed at the +end of 'GI.Gtk.Functions.init'. +-} +rcAddDefaultFile :: + (B.CallStack.HasCallStack, MonadIO m) => + [Char] + {- ^ /@filename@/: the pathname to the file. If /@filename@/ + is not absolute, it is searched in the current directory. -} + -> m () +rcAddDefaultFile filename = liftIO $ do + filename' <- stringToCString filename + gtk_rc_add_default_file filename' + freeMem filename' + return () + + +-- function gtk_propagate_event +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "Event"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_propagate_event" gtk_propagate_event :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Event.Event -> -- event : TInterface (Name {namespace = "Gdk", name = "Event"}) + IO () + +{- | +Sends an event to a widget, propagating the event to parent widgets +if the event remains unhandled. + +Events received by GTK+ from GDK normally begin in 'GI.Gtk.Functions.mainDoEvent'. +Depending on the type of event, existence of modal dialogs, grabs, etc., +the event may be propagated; if so, this function is used. + +'GI.Gtk.Functions.propagateEvent' calls 'GI.Gtk.Objects.Widget.widgetEvent' on each widget it +decides to send the event to. So 'GI.Gtk.Objects.Widget.widgetEvent' is the lowest-level +function; it simply emits the 'GI.Gtk.Objects.Widget.Widget'::@/event/@ and possibly an +event-specific signal on a widget. 'GI.Gtk.Functions.propagateEvent' is a bit +higher-level, and 'GI.Gtk.Functions.mainDoEvent' is the highest level. + +All that said, you most likely don’t want to use any of these +functions; synthesizing events is rarely needed. There are almost +certainly better ways to achieve your goals. For example, use +'GI.Gdk.Objects.Window.windowInvalidateRect' or 'GI.Gtk.Objects.Widget.widgetQueueDraw' instead +of making up expose events. +-} +propagateEvent :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> Gdk.Event.Event + {- ^ /@event@/: an event -} + -> m () +propagateEvent widget event = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + event' <- unsafeManagedPtrGetPtr event + gtk_propagate_event widget' event' + touchManagedPtr widget + touchManagedPtr event + return () + + +-- function gtk_print_run_page_setup_dialog_async +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "transient parent, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface (Name {namespace = "Gtk", name = "PageSetup"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an existing #GtkPageSetup, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gtk", name = "PrintSettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPrintSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "done_cb", argType = TInterface (Name {namespace = "Gtk", name = "PageSetupDoneFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a function to call when the user saves\n the modified page setup", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to pass to @done_cb", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_run_page_setup_dialog_async" gtk_print_run_page_setup_dialog_async :: + Ptr Gtk.Window.Window -> -- parent : TInterface (Name {namespace = "Gtk", name = "Window"}) + Ptr Gtk.PageSetup.PageSetup -> -- page_setup : TInterface (Name {namespace = "Gtk", name = "PageSetup"}) + Ptr Gtk.PrintSettings.PrintSettings -> -- settings : TInterface (Name {namespace = "Gtk", name = "PrintSettings"}) + FunPtr Gtk.Callbacks.C_PageSetupDoneFunc -> -- done_cb : TInterface (Name {namespace = "Gtk", name = "PageSetupDoneFunc"}) + Ptr () -> -- data : TBasicType TPtr + IO () + +{- | +Runs a page setup dialog, letting the user modify the values from /@pageSetup@/. + +In contrast to 'GI.Gtk.Functions.printRunPageSetupDialog', this function returns after +showing the page setup dialog on platforms that support this, and calls /@doneCb@/ +from a signal handler for the ::response signal of the dialog. + +/Since: 2.10/ +-} +printRunPageSetupDialogAsync :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a, Gtk.PageSetup.IsPageSetup b, Gtk.PrintSettings.IsPrintSettings c) => + Maybe (a) + {- ^ /@parent@/: transient parent, or 'Nothing' -} + -> Maybe (b) + {- ^ /@pageSetup@/: an existing 'GI.Gtk.Objects.PageSetup.PageSetup', or 'Nothing' -} + -> c + {- ^ /@settings@/: a 'GI.Gtk.Objects.PrintSettings.PrintSettings' -} + -> Gtk.Callbacks.PageSetupDoneFunc + {- ^ /@doneCb@/: a function to call when the user saves + the modified page setup -} + -> m () +printRunPageSetupDialogAsync parent pageSetup settings doneCb = liftIO $ do + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + jParent' <- unsafeManagedPtrCastPtr jParent + return jParent' + maybePageSetup <- case pageSetup of + Nothing -> return nullPtr + Just jPageSetup -> do + jPageSetup' <- unsafeManagedPtrCastPtr jPageSetup + return jPageSetup' + settings' <- unsafeManagedPtrCastPtr settings + ptrdoneCb <- callocMem :: IO (Ptr (FunPtr Gtk.Callbacks.C_PageSetupDoneFunc)) + doneCb' <- Gtk.Callbacks.mk_PageSetupDoneFunc (Gtk.Callbacks.wrap_PageSetupDoneFunc (Just ptrdoneCb) (Gtk.Callbacks.drop_closures_PageSetupDoneFunc doneCb)) + poke ptrdoneCb doneCb' + let data_ = nullPtr + gtk_print_run_page_setup_dialog_async maybeParent maybePageSetup settings' doneCb' data_ + whenJust parent touchManagedPtr + whenJust pageSetup touchManagedPtr + touchManagedPtr settings + return () + + +-- function gtk_print_run_page_setup_dialog +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "transient parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface (Name {namespace = "Gtk", name = "PageSetup"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an existing #GtkPageSetup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gtk", name = "PrintSettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPrintSettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "PageSetup"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_run_page_setup_dialog" gtk_print_run_page_setup_dialog :: + Ptr Gtk.Window.Window -> -- parent : TInterface (Name {namespace = "Gtk", name = "Window"}) + Ptr Gtk.PageSetup.PageSetup -> -- page_setup : TInterface (Name {namespace = "Gtk", name = "PageSetup"}) + Ptr Gtk.PrintSettings.PrintSettings -> -- settings : TInterface (Name {namespace = "Gtk", name = "PrintSettings"}) + IO (Ptr Gtk.PageSetup.PageSetup) + +{- | +Runs a page setup dialog, letting the user modify the values from +/@pageSetup@/. If the user cancels the dialog, the returned 'GI.Gtk.Objects.PageSetup.PageSetup' +is identical to the passed in /@pageSetup@/, otherwise it contains the +modifications done in the dialog. + +Note that this function may use a recursive mainloop to show the page +setup dialog. See 'GI.Gtk.Functions.printRunPageSetupDialogAsync' if this is +a problem. + +/Since: 2.10/ +-} +printRunPageSetupDialog :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a, Gtk.PageSetup.IsPageSetup b, Gtk.PrintSettings.IsPrintSettings c) => + Maybe (a) + {- ^ /@parent@/: transient parent -} + -> Maybe (b) + {- ^ /@pageSetup@/: an existing 'GI.Gtk.Objects.PageSetup.PageSetup' -} + -> c + {- ^ /@settings@/: a 'GI.Gtk.Objects.PrintSettings.PrintSettings' -} + -> m Gtk.PageSetup.PageSetup + {- ^ __Returns:__ a new 'GI.Gtk.Objects.PageSetup.PageSetup' -} +printRunPageSetupDialog parent pageSetup settings = liftIO $ do + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + jParent' <- unsafeManagedPtrCastPtr jParent + return jParent' + maybePageSetup <- case pageSetup of + Nothing -> return nullPtr + Just jPageSetup -> do + jPageSetup' <- unsafeManagedPtrCastPtr jPageSetup + return jPageSetup' + settings' <- unsafeManagedPtrCastPtr settings + result <- gtk_print_run_page_setup_dialog maybeParent maybePageSetup settings' + checkUnexpectedReturnNULL "printRunPageSetupDialog" result + result' <- (wrapObject Gtk.PageSetup.PageSetup) result + whenJust parent touchManagedPtr + whenJust pageSetup touchManagedPtr + touchManagedPtr settings + return result' + + +-- function gtk_parse_args +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the number of command line arguments", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the array of\n command line arguments", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the number of command line arguments", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_parse_args" gtk_parse_args :: + Ptr Int32 -> -- argc : TBasicType TInt + Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) + IO CInt + +{- | +Parses command line arguments, and initializes global +attributes of GTK+, but does not actually open a connection +to a display. (See 'GI.Gdk.Objects.Display.displayOpen', 'GI.Gdk.Functions.getDisplayArgName') + +Any arguments used by GTK+ or GDK are removed from the array and +/@argc@/ and /@argv@/ are updated accordingly. + +There is no need to call this function explicitly if you are using +'GI.Gtk.Functions.init', or 'GI.Gtk.Functions.initCheck'. + +Note that many aspects of GTK+ require a display connection to +function, so this way of initializing GTK+ is really only useful +for specialized use cases. +-} +parseArgs :: + (B.CallStack.HasCallStack, MonadIO m) => + [T.Text] + {- ^ /@argv@/: a pointer to the array of + command line arguments -} + -> m ((Bool, [T.Text])) + {- ^ __Returns:__ 'True' if initialization succeeded, otherwise 'False' -} +parseArgs argv = liftIO $ do + let argc = fromIntegral $ length argv + argc' <- allocMem :: IO (Ptr Int32) + poke argc' argc + argv' <- packUTF8CArray argv + argv'' <- allocMem :: IO (Ptr (Ptr CString)) + poke argv'' argv' + result <- gtk_parse_args argc' argv'' + argc'' <- peek argc' + let result' = (/= 0) result + argv''' <- peek argv'' + argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' + (mapCArrayWithLength argc'') freeMem argv''' + freeMem argv''' + freeMem argc' + freeMem argv'' + return (result', argv'''') + + +-- function gtk_paint_vline +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the starting y coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ending y coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the x coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_vline" gtk_paint_vline :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- y1_ : TBasicType TInt + Int32 -> -- y2_ : TBasicType TInt + Int32 -> -- x : TBasicType TInt + IO () + +{-# DEPRECATED paintVline ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderLine' instead"] #-} +{- | +Draws a vertical line from (/@x@/, /@y1_@/) to (/@x@/, /@y2_@/) in /@cr@/ +using the given style and state. +-} +paintVline :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@y1_@/: the starting y coordinate -} + -> Int32 + {- ^ /@y2_@/: the ending y coordinate -} + -> Int32 + {- ^ /@x@/: the x coordinate -} + -> m () +paintVline style cr stateType widget detail y1_ y2_ x = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_vline style' cr' stateType' maybeWidget maybeDetail y1_ y2_ x + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_tab +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle to draw the tab in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle to draw the tab in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the rectangle to draw the tab in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the rectangle to draw the tab in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_tab" gtk_paint_tab :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintTab ["(Since version 3.0)","Use cairo instead"] #-} +{- | +Draws an option menu tab (i.e. the up and down pointing arrows) +in the given rectangle on /@cr@/ using the given parameters. +-} +paintTab :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: the type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle to draw the tab in -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle to draw the tab in -} + -> Int32 + {- ^ /@width@/: the width of the rectangle to draw the tab in -} + -> Int32 + {- ^ /@height@/: the height of the rectangle to draw the tab in -} + -> m () +paintTab style cr stateType shadowType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_tab style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_spinner +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget (may be %NULL)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail (may be %NULL)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the nth step", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the x origin of the rectangle in which to draw the spinner", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the y origin of the rectangle in which to draw the spinner", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the rectangle in which to draw the spinner", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the rectangle in which to draw the spinner", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_spinner" gtk_paint_spinner :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Word32 -> -- step : TBasicType TUInt + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintSpinner ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderIcon' and the 'GI.Gtk.Objects.StyleContext.StyleContext'"," you are drawing instead"] #-} +{- | +Draws a spinner on /@window@/ using the given parameters. +-} +paintSpinner :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Maybe (b) + {- ^ /@widget@/: the widget (may be 'Nothing') -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail (may be 'Nothing') -} + -> Word32 + {- ^ /@step@/: the nth step -} + -> Int32 + {- ^ /@x@/: the x origin of the rectangle in which to draw the spinner -} + -> Int32 + {- ^ /@y@/: the y origin of the rectangle in which to draw the spinner -} + -> Int32 + {- ^ /@width@/: the width of the rectangle in which to draw the spinner -} + -> Int32 + {- ^ /@height@/: the height of the rectangle in which to draw the spinner -} + -> m () +paintSpinner style cr stateType widget detail step x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_spinner style' cr' stateType' maybeWidget maybeDetail step x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_slider +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a shadow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the x origin of the rectangle in which to draw a slider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the y origin of the rectangle in which to draw a slider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the rectangle in which to draw a slider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the rectangle in which to draw a slider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface (Name {namespace = "Gtk", name = "Orientation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the orientation to be used", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_slider" gtk_paint_slider :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + CUInt -> -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"}) + IO () + +{-# DEPRECATED paintSlider ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderSlider' instead"] #-} +{- | +Draws a slider in the given rectangle on /@cr@/ using the +given style and orientation. +-} +paintSlider :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: a shadow -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: the x origin of the rectangle in which to draw a slider -} + -> Int32 + {- ^ /@y@/: the y origin of the rectangle in which to draw a slider -} + -> Int32 + {- ^ /@width@/: the width of the rectangle in which to draw a slider -} + -> Int32 + {- ^ /@height@/: the height of the rectangle in which to draw a slider -} + -> Gtk.Enums.Orientation + {- ^ /@orientation@/: the orientation to be used -} + -> m () +paintSlider style cr stateType shadowType widget detail x y width height orientation = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let orientation' = (fromIntegral . fromEnum) orientation + gtk_paint_slider style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height orientation' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_shadow_gap +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface (Name {namespace = "Gtk", name = "PositionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "side in which to leave the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "starting position of the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_shadow_gap" gtk_paint_shadow_gap :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + CUInt -> -- gap_side : TInterface (Name {namespace = "Gtk", name = "PositionType"}) + Int32 -> -- gap_x : TBasicType TInt + Int32 -> -- gap_width : TBasicType TInt + IO () + +{-# DEPRECATED paintShadowGap ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderFrameGap' instead"] #-} +{- | +Draws a shadow around the given rectangle in /@cr@/ +using the given style and state and shadow type, leaving a +gap in one side. +-} +paintShadowGap :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle -} + -> Int32 + {- ^ /@width@/: width of the rectangle -} + -> Int32 + {- ^ /@height@/: width of the rectangle -} + -> Gtk.Enums.PositionType + {- ^ /@gapSide@/: side in which to leave the gap -} + -> Int32 + {- ^ /@gapX@/: starting position of the gap -} + -> Int32 + {- ^ /@gapWidth@/: width of the gap -} + -> m () +paintShadowGap style cr stateType shadowType widget detail x y width height gapSide gapX gapWidth = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let gapSide' = (fromIntegral . fromEnum) gapSide + gtk_paint_shadow_gap style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' gapX gapWidth + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_shadow +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_shadow" gtk_paint_shadow :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintShadow ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderFrame' instead"] #-} +{- | +Draws a shadow around the given rectangle in /@cr@/ +using the given style and state and shadow type. +-} +paintShadow :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle -} + -> Int32 + {- ^ /@width@/: width of the rectangle -} + -> Int32 + {- ^ /@height@/: width of the rectangle -} + -> m () +paintShadow style cr stateType shadowType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_shadow style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_resize_grip +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface (Name {namespace = "Gdk", name = "WindowEdge"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the edge in which to draw the resize grip", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the x origin of the rectangle in which to draw the resize grip", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the y origin of the rectangle in which to draw the resize grip", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the rectangle in which to draw the resize grip", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the rectangle in which to draw the resize grip", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_resize_grip" gtk_paint_resize_grip :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + CUInt -> -- edge : TInterface (Name {namespace = "Gdk", name = "WindowEdge"}) + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintResizeGrip ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderHandle' instead"] #-} +{- | +Draws a resize grip in the given rectangle on /@cr@/ using the given +parameters. +-} +paintResizeGrip :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Gdk.Enums.WindowEdge + {- ^ /@edge@/: the edge in which to draw the resize grip -} + -> Int32 + {- ^ /@x@/: the x origin of the rectangle in which to draw the resize grip -} + -> Int32 + {- ^ /@y@/: the y origin of the rectangle in which to draw the resize grip -} + -> Int32 + {- ^ /@width@/: the width of the rectangle in which to draw the resize grip -} + -> Int32 + {- ^ /@height@/: the height of the rectangle in which to draw the resize grip -} + -> m () +paintResizeGrip style cr stateType widget detail edge x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let edge' = (fromIntegral . fromEnum) edge + gtk_paint_resize_grip style' cr' stateType' maybeWidget maybeDetail edge' x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_option +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle to draw the option in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle to draw the option in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the rectangle to draw the option in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the rectangle to draw the option in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_option" gtk_paint_option :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintOption ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderOption' instead"] #-} +{- | +Draws a radio button indicator in the given rectangle on /@cr@/ with +the given parameters. +-} +paintOption :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: the type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle to draw the option in -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle to draw the option in -} + -> Int32 + {- ^ /@width@/: the width of the rectangle to draw the option in -} + -> Int32 + {- ^ /@height@/: the height of the rectangle to draw the option in -} + -> m () +paintOption style cr stateType shadowType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_option style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_layout +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to use the text or foreground\n graphics context of @style", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface (Name {namespace = "Pango", name = "Layout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the layout to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_layout" gtk_paint_layout :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CInt -> -- use_text : TBasicType TBoolean + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Ptr Pango.Layout.Layout -> -- layout : TInterface (Name {namespace = "Pango", name = "Layout"}) + IO () + +{-# DEPRECATED paintLayout ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderLayout' instead"] #-} +{- | +Draws a layout on /@cr@/ using the given parameters. +-} +paintLayout :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b, Pango.Layout.IsLayout c) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Bool + {- ^ /@useText@/: whether to use the text or foreground + graphics context of /@style@/ -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin -} + -> Int32 + {- ^ /@y@/: y origin -} + -> c + {- ^ /@layout@/: the layout to draw -} + -> m () +paintLayout style cr stateType useText widget detail x y layout = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let useText' = (fromIntegral . fromEnum) useText + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + layout' <- unsafeManagedPtrCastPtr layout + gtk_paint_layout style' cr' stateType' useText' maybeWidget maybeDetail x y layout' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + touchManagedPtr layout + freeMem maybeDetail + return () + + +-- function gtk_paint_hline +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #caio_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the starting x coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x2", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ending x coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the y coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_hline" gtk_paint_hline :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x1 : TBasicType TInt + Int32 -> -- x2 : TBasicType TInt + Int32 -> -- y : TBasicType TInt + IO () + +{-# DEPRECATED paintHline ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderLine' instead"] #-} +{- | +Draws a horizontal line from (/@x1@/, /@y@/) to (/@x2@/, /@y@/) in /@cr@/ +using the given style and state. +-} +paintHline :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a @/caio_t/@ -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x1@/: the starting x coordinate -} + -> Int32 + {- ^ /@x2@/: the ending x coordinate -} + -> Int32 + {- ^ /@y@/: the y coordinate -} + -> m () +paintHline style cr stateType widget detail x1 x2 y = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_hline style' cr' stateType' maybeWidget maybeDetail x1 x2 y + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_handle +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the handle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the handle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "with of the handle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "height of the handle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface (Name {namespace = "Gtk", name = "Orientation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the orientation of the handle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_handle" gtk_paint_handle :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + CUInt -> -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"}) + IO () + +{-# DEPRECATED paintHandle ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderHandle' instead"] #-} +{- | +Draws a handle as used in 'GI.Gtk.Objects.HandleBox.HandleBox' and 'GI.Gtk.Objects.Paned.Paned'. +-} +paintHandle :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the handle -} + -> Int32 + {- ^ /@y@/: y origin of the handle -} + -> Int32 + {- ^ /@width@/: with of the handle -} + -> Int32 + {- ^ /@height@/: height of the handle -} + -> Gtk.Enums.Orientation + {- ^ /@orientation@/: the orientation of the handle -} + -> m () +paintHandle style cr stateType shadowType widget detail x y width height orientation = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let orientation' = (fromIntegral . fromEnum) orientation + gtk_paint_handle style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height orientation' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_focus +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the x origin of the rectangle around which to draw a focus indicator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the y origin of the rectangle around which to draw a focus indicator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the rectangle around which to draw a focus indicator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the rectangle around which to draw a focus indicator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_focus" gtk_paint_focus :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintFocus ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderFocus' instead"] #-} +{- | +Draws a focus indicator around the given rectangle on /@cr@/ using the +given style. +-} +paintFocus :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: the x origin of the rectangle around which to draw a focus indicator -} + -> Int32 + {- ^ /@y@/: the y origin of the rectangle around which to draw a focus indicator -} + -> Int32 + {- ^ /@width@/: the width of the rectangle around which to draw a focus indicator -} + -> Int32 + {- ^ /@height@/: the height of the rectangle around which to draw a focus indicator -} + -> m () +paintFocus style cr stateType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_focus style' cr' stateType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_flat_box +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_flat_box" gtk_paint_flat_box :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintFlatBox ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderFrame' and 'GI.Gtk.Functions.renderBackground' instead"] #-} +{- | +Draws a flat box on /@cr@/ with the given parameters. +-} +paintFlatBox :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: the type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the box -} + -> Int32 + {- ^ /@y@/: y origin of the box -} + -> Int32 + {- ^ /@width@/: the width of the box -} + -> Int32 + {- ^ /@height@/: the height of the box -} + -> m () +paintFlatBox style cr stateType shadowType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_flat_box style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_extension +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the extension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the extension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the extension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the extension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface (Name {namespace = "Gtk", name = "PositionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the side on to which the extension is attached", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_extension" gtk_paint_extension :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + CUInt -> -- gap_side : TInterface (Name {namespace = "Gtk", name = "PositionType"}) + IO () + +{-# DEPRECATED paintExtension ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderExtension' instead"] #-} +{- | +Draws an extension, i.e. a notebook tab. +-} +paintExtension :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the extension -} + -> Int32 + {- ^ /@y@/: y origin of the extension -} + -> Int32 + {- ^ /@width@/: width of the extension -} + -> Int32 + {- ^ /@height@/: width of the extension -} + -> Gtk.Enums.PositionType + {- ^ /@gapSide@/: the side on to which the extension is attached -} + -> m () +paintExtension style cr stateType shadowType widget detail x y width height gapSide = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let gapSide' = (fromIntegral . fromEnum) gapSide + gtk_paint_extension style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_expander +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the x position to draw the expander at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the y position to draw the expander at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expander_style", argType = TInterface (Name {namespace = "Gtk", name = "ExpanderStyle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the style to draw the expander in; determines\n whether the expander is collapsed, expanded, or in an\n intermediate state.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_expander" gtk_paint_expander :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + CUInt -> -- expander_style : TInterface (Name {namespace = "Gtk", name = "ExpanderStyle"}) + IO () + +{-# DEPRECATED paintExpander ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderExpander' instead"] #-} +{- | +Draws an expander as used in 'GI.Gtk.Objects.TreeView.TreeView'. /@x@/ and /@y@/ specify the +center the expander. The size of the expander is determined by the +“expander-size” style property of /@widget@/. (If widget is not +specified or doesn’t have an “expander-size” property, an +unspecified default size will be used, since the caller doesn\'t +have sufficient information to position the expander, this is +likely not useful.) The expander is expander_size pixels tall +in the collapsed position and expander_size pixels wide in the +expanded position. +-} +paintExpander :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: the x position to draw the expander at -} + -> Int32 + {- ^ /@y@/: the y position to draw the expander at -} + -> Gtk.Enums.ExpanderStyle + {- ^ /@expanderStyle@/: the style to draw the expander in; determines + whether the expander is collapsed, expanded, or in an + intermediate state. -} + -> m () +paintExpander style cr stateType widget detail x y expanderStyle = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let expanderStyle' = (fromIntegral . fromEnum) expanderStyle + gtk_paint_expander style' cr' stateType' maybeWidget maybeDetail x y expanderStyle' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_diamond +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle to draw the diamond in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle to draw the diamond in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle to draw the diamond in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "height of the rectangle to draw the diamond in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_diamond" gtk_paint_diamond :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintDiamond ["(Since version 3.0)","Use cairo instead"] #-} +{- | +Draws a diamond in the given rectangle on /@window@/ using the given +parameters. +-} +paintDiamond :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: the type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle to draw the diamond in -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle to draw the diamond in -} + -> Int32 + {- ^ /@width@/: width of the rectangle to draw the diamond in -} + -> Int32 + {- ^ /@height@/: height of the rectangle to draw the diamond in -} + -> m () +paintDiamond style cr stateType shadowType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_diamond style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_check +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle to draw the check in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle to draw the check in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the rectangle to draw the check in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the rectangle to draw the check in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_check" gtk_paint_check :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintCheck ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderCheck' instead"] #-} +{- | +Draws a check button indicator in the given rectangle on /@cr@/ with +the given parameters. +-} +paintCheck :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: the type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle to draw the check in -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle to draw the check in -} + -> Int32 + {- ^ /@width@/: the width of the rectangle to draw the check in -} + -> Int32 + {- ^ /@height@/: the height of the rectangle to draw the check in -} + -> m () +paintCheck style cr stateType shadowType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_check style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_box_gap +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface (Name {namespace = "Gtk", name = "PositionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "side in which to leave the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "starting position of the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the gap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_box_gap" gtk_paint_box_gap :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + CUInt -> -- gap_side : TInterface (Name {namespace = "Gtk", name = "PositionType"}) + Int32 -> -- gap_x : TBasicType TInt + Int32 -> -- gap_width : TBasicType TInt + IO () + +{-# DEPRECATED paintBoxGap ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderFrameGap' instead"] #-} +{- | +Draws a box in /@cr@/ using the given style and state and shadow type, +leaving a gap in one side. +-} +paintBoxGap :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle -} + -> Int32 + {- ^ /@width@/: width of the rectangle -} + -> Int32 + {- ^ /@height@/: width of the rectangle -} + -> Gtk.Enums.PositionType + {- ^ /@gapSide@/: side in which to leave the gap -} + -> Int32 + {- ^ /@gapX@/: starting position of the gap -} + -> Int32 + {- ^ /@gapWidth@/: width of the gap -} + -> m () +paintBoxGap style cr stateType shadowType widget detail x y width height gapSide gapX gapWidth = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let gapSide' = (fromIntegral . fromEnum) gapSide + gtk_paint_box_gap style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' gapX gapWidth + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_box +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the width of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the height of the box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_box" gtk_paint_box :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintBox ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderFrame' and 'GI.Gtk.Functions.renderBackground' instead"] #-} +{- | +Draws a box on /@cr@/ with the given parameters. +-} +paintBox :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: the type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Int32 + {- ^ /@x@/: x origin of the box -} + -> Int32 + {- ^ /@y@/: y origin of the box -} + -> Int32 + {- ^ /@width@/: the width of the box -} + -> Int32 + {- ^ /@height@/: the height of the box -} + -> m () +paintBox style cr stateType shadowType widget detail x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + gtk_paint_box style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_arrow +-- Args : [Arg {argCName = "style", argType = TInterface (Name {namespace = "Gtk", name = "Style"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "Gtk", name = "StateType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of shadow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a style detail", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface (Name {namespace = "Gtk", name = "ArrowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of arrow to draw", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the arrow tip should be filled", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "x origin of the rectangle to draw the arrow in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "y origin of the rectangle to draw the arrow in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the rectangle to draw the arrow in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "height of the rectangle to draw the arrow in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_paint_arrow" gtk_paint_arrow :: + Ptr Gtk.Style.Style -> -- style : TInterface (Name {namespace = "Gtk", name = "Style"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + CUInt -> -- state_type : TInterface (Name {namespace = "Gtk", name = "StateType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- detail : TBasicType TUTF8 + CUInt -> -- arrow_type : TInterface (Name {namespace = "Gtk", name = "ArrowType"}) + CInt -> -- fill : TBasicType TBoolean + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + +{-# DEPRECATED paintArrow ["(Since version 3.0)","Use 'GI.Gtk.Functions.renderArrow' instead"] #-} +{- | +Draws an arrow in the given rectangle on /@cr@/ using the given +parameters. /@arrowType@/ determines the direction of the arrow. +-} +paintArrow :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Style.IsStyle a, Gtk.Widget.IsWidget b) => + a + {- ^ /@style@/: a 'GI.Gtk.Objects.Style.Style' -} + -> Cairo.Context.Context + {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} + -> Gtk.Enums.StateType + {- ^ /@stateType@/: a state -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: the type of shadow to draw -} + -> Maybe (b) + {- ^ /@widget@/: the widget -} + -> Maybe (T.Text) + {- ^ /@detail@/: a style detail -} + -> Gtk.Enums.ArrowType + {- ^ /@arrowType@/: the type of arrow to draw -} + -> Bool + {- ^ /@fill@/: 'True' if the arrow tip should be filled -} + -> Int32 + {- ^ /@x@/: x origin of the rectangle to draw the arrow in -} + -> Int32 + {- ^ /@y@/: y origin of the rectangle to draw the arrow in -} + -> Int32 + {- ^ /@width@/: width of the rectangle to draw the arrow in -} + -> Int32 + {- ^ /@height@/: height of the rectangle to draw the arrow in -} + -> m () +paintArrow style cr stateType shadowType widget detail arrowType fill x y width height = liftIO $ do + style' <- unsafeManagedPtrCastPtr style + cr' <- unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + let arrowType' = (fromIntegral . fromEnum) arrowType + let fill' = (fromIntegral . fromEnum) fill + gtk_paint_arrow style' cr' stateType' shadowType' maybeWidget maybeDetail arrowType' fill' x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_main_quit +-- Args : [] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_quit" gtk_main_quit :: + IO () + +{- | +Makes the innermost invocation of the main loop return +when it regains control. +-} +mainQuit :: + (B.CallStack.HasCallStack, MonadIO m) => + m () +mainQuit = liftIO $ do + gtk_main_quit + return () + + +-- function gtk_main_level +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_level" gtk_main_level :: + IO Word32 + +{- | +Asks for the current nesting level of the main loop. +-} +mainLevel :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the nesting level of the current invocation + of the main loop -} +mainLevel = liftIO $ do + result <- gtk_main_level + return result + + +-- function gtk_main_iteration_do +-- Args : [Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if you want GTK+ to block if no events are pending", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_iteration_do" gtk_main_iteration_do :: + CInt -> -- blocking : TBasicType TBoolean + IO CInt + +{- | +Runs a single iteration of the mainloop. +If no events are available either return or block depending on +the value of /@blocking@/. +-} +mainIterationDo :: + (B.CallStack.HasCallStack, MonadIO m) => + Bool + {- ^ /@blocking@/: 'True' if you want GTK+ to block if no events are pending -} + -> m Bool + {- ^ __Returns:__ 'True' if 'GI.Gtk.Functions.mainQuit' has been called for the + innermost mainloop -} +mainIterationDo blocking = liftIO $ do + let blocking' = (fromIntegral . fromEnum) blocking + result <- gtk_main_iteration_do blocking' + let result' = (/= 0) result + return result' + + +-- function gtk_main_iteration +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_iteration" gtk_main_iteration :: + IO CInt + +{- | +Runs a single iteration of the mainloop. + +If no events are waiting to be processed GTK+ will block +until the next event is noticed. If you don’t want to block +look at 'GI.Gtk.Functions.mainIterationDo' or check if any events are +pending with 'GI.Gtk.Functions.eventsPending' first. +-} +mainIteration :: + (B.CallStack.HasCallStack, MonadIO m) => + m Bool + {- ^ __Returns:__ 'True' if 'GI.Gtk.Functions.mainQuit' has been called for the + innermost mainloop -} +mainIteration = liftIO $ do + result <- gtk_main_iteration + let result' = (/= 0) result + return result' + + +-- function gtk_main_do_event +-- Args : [Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "Event"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An event to process (normally passed by GDK)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_do_event" gtk_main_do_event :: + Ptr Gdk.Event.Event -> -- event : TInterface (Name {namespace = "Gdk", name = "Event"}) + IO () + +{- | +Processes a single GDK event. + +This is public only to allow filtering of events between GDK and GTK+. +You will not usually need to call this function directly. + +While you should not call this function directly, you might want to +know how exactly events are handled. So here is what this function +does with the event: + +1. Compress enter\/leave notify events. If the event passed build an + enter\/leave pair together with the next event (peeked from GDK), both + events are thrown away. This is to avoid a backlog of (de-)highlighting + widgets crossed by the pointer. + +2. Find the widget which got the event. If the widget can’t be determined + the event is thrown away unless it belongs to a INCR transaction. + +3. Then the event is pushed onto a stack so you can query the currently + handled event with 'GI.Gtk.Functions.getCurrentEvent'. + +4. The event is sent to a widget. If a grab is active all events for widgets + that are not in the contained in the grab widget are sent to the latter + with a few exceptions: + - Deletion and destruction events are still sent to the event widget for + obvious reasons. + - Events which directly relate to the visual representation of the event + widget. + - Leave events are delivered to the event widget if there was an enter + event delivered to it before without the paired leave event. + - Drag events are not redirected because it is unclear what the semantics + of that would be. + Another point of interest might be that all key events are first passed + through the key snooper functions if there are any. Read the description + of @/gtk_key_snooper_install()/@ if you need this feature. + +5. After finishing the delivery the event is popped from the event stack. +-} +mainDoEvent :: + (B.CallStack.HasCallStack, MonadIO m) => + Gdk.Event.Event + {- ^ /@event@/: An event to process (normally passed by GDK) -} + -> m () +mainDoEvent event = liftIO $ do + event' <- unsafeManagedPtrGetPtr event + gtk_main_do_event event' + touchManagedPtr event + return () + + +-- function gtk_main +-- Args : [] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main" gtk_main :: + IO () + +{- | +Runs the main loop until 'GI.Gtk.Functions.mainQuit' is called. + +You can nest calls to 'GI.Gtk.Functions.main'. In that case 'GI.Gtk.Functions.mainQuit' +will make the innermost invocation of the main loop return. +-} +main :: + (B.CallStack.HasCallStack, MonadIO m) => + m () +main = liftIO $ do + gtk_main + return () + + +-- function gtk_key_snooper_remove +-- Args : [Arg {argCName = "snooper_handler_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Identifies the key snooper to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_key_snooper_remove" gtk_key_snooper_remove :: + Word32 -> -- snooper_handler_id : TBasicType TUInt + IO () + +{-# DEPRECATED keySnooperRemove ["(Since version 3.4)","Key snooping should not be done. Events should"," be handled by widgets."] #-} +{- | +Removes the key snooper function with the given id. +-} +keySnooperRemove :: + (B.CallStack.HasCallStack, MonadIO m) => + Word32 + {- ^ /@snooperHandlerId@/: Identifies the key snooper to remove -} + -> m () +keySnooperRemove snooperHandlerId = liftIO $ do + gtk_key_snooper_remove snooperHandlerId + return () + + +-- function gtk_init_with_args +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Address of the `argc` parameter of\n your main() function (or 0 if @argv is %NULL). This will be changed if\n any arguments were handled.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Address of the\n `argv` parameter of main(), or %NULL. Any options\n understood by GTK+ are stripped before return.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a string which is displayed in\n the first line of `--help` output, after\n `programname [OPTION...]`", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface (Name {namespace = "GLib", name = "OptionEntry"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %NULL-terminated array\n of #GOptionEntrys describing the options of your program", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a translation domain to use for translating\n the `--help` output for the options in @entries\n and the @parameter_string with gettext(), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Address of the `argc` parameter of\n your main() function (or 0 if @argv is %NULL). This will be changed if\n any arguments were handled.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_init_with_args" gtk_init_with_args :: + Ptr Int32 -> -- argc : TBasicType TInt + Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) + CString -> -- parameter_string : TBasicType TUTF8 + Ptr (Ptr GLib.OptionEntry.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface (Name {namespace = "GLib", name = "OptionEntry"})) + CString -> -- translation_domain : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +This function does the same work as 'GI.Gtk.Functions.initCheck'. +Additionally, it allows you to add your own commandline options, +and it automatically generates nicely formatted +@--help@ output. Note that your program will +be terminated after writing out the help output. + +/Since: 2.6/ +-} +initWithArgs :: + (B.CallStack.HasCallStack, MonadIO m) => + Maybe ([T.Text]) + {- ^ /@argv@/: Address of the + @argv@ parameter of @/main()/@, or 'Nothing'. Any options + understood by GTK+ are stripped before return. -} + -> Maybe (T.Text) + {- ^ /@parameterString@/: a string which is displayed in + the first line of @--help@ output, after + @programname [OPTION...]@ -} + -> [GLib.OptionEntry.OptionEntry] + {- ^ /@entries@/: a 'Nothing'-terminated array + of @/GOptionEntrys/@ describing the options of your program -} + -> Maybe (T.Text) + {- ^ /@translationDomain@/: a translation domain to use for translating + the @--help@ output for the options in /@entries@/ + and the /@parameterString@/ with @/gettext()/@, or 'Nothing' -} + -> m ((Maybe [T.Text])) + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +initWithArgs argv parameterString entries translationDomain = liftIO $ do + let argc = case argv of + Nothing -> 0 + Just jArgv -> fromIntegral $ length jArgv + argc' <- allocMem :: IO (Ptr Int32) + poke argc' argc + maybeArgv <- case argv of + Nothing -> return nullPtr + Just jArgv -> do + jArgv' <- packUTF8CArray jArgv + return jArgv' + maybeArgv' <- allocMem :: IO (Ptr (Ptr CString)) + poke maybeArgv' maybeArgv + maybeParameterString <- case parameterString of + Nothing -> return nullPtr + Just jParameterString -> do + jParameterString' <- textToCString jParameterString + return jParameterString' + entries' <- mapM unsafeManagedPtrGetPtr entries + entries'' <- packZeroTerminatedPtrArray entries' + maybeTranslationDomain <- case translationDomain of + Nothing -> return nullPtr + Just jTranslationDomain -> do + jTranslationDomain' <- textToCString jTranslationDomain + return jTranslationDomain' + onException (do + _ <- propagateGError $ gtk_init_with_args argc' maybeArgv' maybeParameterString entries'' maybeTranslationDomain + argc'' <- peek argc' + maybeArgv'' <- peek maybeArgv' + maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do + maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv''' + (mapCArrayWithLength argc'') freeMem maybeArgv''' + freeMem maybeArgv''' + return maybeArgv'''' + mapM_ touchManagedPtr entries + freeMem argc' + freeMem maybeArgv' + freeMem maybeParameterString + freeMem entries'' + freeMem maybeTranslationDomain + return maybeMaybeArgv'' + ) (do + freeMem argc' + freeMem maybeArgv' + freeMem maybeParameterString + freeMem entries'' + freeMem maybeTranslationDomain + ) + + +-- function gtk_init_check +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Address of the `argc` parameter of\n your main() function (or 0 if @argv is %NULL). This will be changed if\n any arguments were handled.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Address of the\n `argv` parameter of main(), or %NULL. Any options\n understood by GTK+ are stripped before return.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Address of the `argc` parameter of\n your main() function (or 0 if @argv is %NULL). This will be changed if\n any arguments were handled.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_init_check" gtk_init_check :: + Ptr Int32 -> -- argc : TBasicType TInt + Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) + IO CInt + +{- | +This function does the same work as 'GI.Gtk.Functions.init' with only a single +change: It does not terminate the program if the commandline +arguments couldn’t be parsed or the windowing system can’t be +initialized. Instead it returns 'False' on failure. + +This way the application can fall back to some other means of +communication with the user - for example a curses or command line +interface. +-} +initCheck :: + (B.CallStack.HasCallStack, MonadIO m) => + Maybe ([T.Text]) + {- ^ /@argv@/: Address of the + @argv@ parameter of @/main()/@, or 'Nothing'. Any options + understood by GTK+ are stripped before return. -} + -> m ((Bool, Maybe [T.Text])) + {- ^ __Returns:__ 'True' if the commandline arguments (if any) were valid and + the windowing system has been successfully initialized, 'False' + otherwise -} +initCheck argv = liftIO $ do + let argc = case argv of + Nothing -> 0 + Just jArgv -> fromIntegral $ length jArgv + argc' <- allocMem :: IO (Ptr Int32) + poke argc' argc + maybeArgv <- case argv of + Nothing -> return nullPtr + Just jArgv -> do + jArgv' <- packUTF8CArray jArgv + return jArgv' + maybeArgv' <- allocMem :: IO (Ptr (Ptr CString)) + poke maybeArgv' maybeArgv + result <- gtk_init_check argc' maybeArgv' + argc'' <- peek argc' + let result' = (/= 0) result + maybeArgv'' <- peek maybeArgv' + maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do + maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv''' + (mapCArrayWithLength argc'') freeMem maybeArgv''' + freeMem maybeArgv''' + return maybeArgv'''' + freeMem argc' + freeMem maybeArgv' + return (result', maybeMaybeArgv'') + + +-- function gtk_init +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Address of the `argc` parameter of\n your main() function (or 0 if @argv is %NULL). This will be changed if\n any arguments were handled.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Address of the\n `argv` parameter of main(), or %NULL. Any options\n understood by GTK+ are stripped before return.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Address of the `argc` parameter of\n your main() function (or 0 if @argv is %NULL). This will be changed if\n any arguments were handled.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_init" gtk_init :: + Ptr Int32 -> -- argc : TBasicType TInt + Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) + IO () + +{- | +Call this function before using any other GTK+ functions in your GUI +applications. It will initialize everything needed to operate the +toolkit and parses some standard command line options. + +Although you are expected to pass the /@argc@/, /@argv@/ parameters from @/main()/@ to +this function, it is possible to pass 'Nothing' if /@argv@/ is not available or +commandline handling is not required. + +/@argc@/ and /@argv@/ are adjusted accordingly so your own code will +never see those standard arguments. + +Note that there are some alternative ways to initialize GTK+: +if you are calling 'GI.Gtk.Functions.parseArgs', 'GI.Gtk.Functions.initCheck', +'GI.Gtk.Functions.initWithArgs' or 'GI.GLib.Structs.OptionContext.optionContextParse' with +the option group returned by 'GI.Gtk.Functions.getOptionGroup', +you don’t have to call 'GI.Gtk.Functions.init'. + +And if you are using 'GI.Gtk.Objects.Application.Application', you don\'t have to call any of the +initialization functions either; the 'GI.Gtk.Objects.Application.Application'::@/startup/@ handler +does it for you. + +This function will terminate your program if it was unable to +initialize the windowing system for some reason. If you want +your program to fall back to a textual interface you want to +call 'GI.Gtk.Functions.initCheck' instead. + +Since 2.18, GTK+ calls @signal (SIGPIPE, SIG_IGN)@ +during initialization, to ignore SIGPIPE signals, since these are +almost never wanted in graphical applications. If you do need to +handle SIGPIPE for some reason, reset the handler after 'GI.Gtk.Functions.init', +but notice that other libraries (e.g. libdbus or gvfs) might do +similar things. +-} +init :: + (B.CallStack.HasCallStack, MonadIO m) => + Maybe ([T.Text]) + {- ^ /@argv@/: Address of the + @argv@ parameter of @/main()/@, or 'Nothing'. Any options + understood by GTK+ are stripped before return. -} + -> 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_grab_get_current +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_grab_get_current" gtk_grab_get_current :: + IO (Ptr Gtk.Widget.Widget) + +{- | +Queries the current grab of the default window group. +-} +grabGetCurrent :: + (B.CallStack.HasCallStack, MonadIO m) => + m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ The widget which currently + has the grab or 'Nothing' if no grab is active -} +grabGetCurrent = liftIO $ do + result <- gtk_grab_get_current + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + return maybeResult + + +-- function gtk_get_option_group +-- Args : [Arg {argCName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to open the default display\n when parsing the commandline arguments", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "GLib", name = "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.OptionGroup) + +{- | +Returns a 'GI.GLib.Structs.OptionGroup.OptionGroup' for the commandline arguments recognized +by GTK+ and GDK. + +You should add this group to your 'GI.GLib.Structs.OptionContext.OptionContext' +with 'GI.GLib.Structs.OptionContext.optionContextAddGroup', if you are using +'GI.GLib.Structs.OptionContext.optionContextParse' to parse your commandline arguments. + +/Since: 2.6/ +-} +getOptionGroup :: + (B.CallStack.HasCallStack, MonadIO m) => + Bool + {- ^ /@openDefaultDisplay@/: whether to open the default display + when parsing the commandline arguments -} + -> m GLib.OptionGroup.OptionGroup + {- ^ __Returns:__ a 'GI.GLib.Structs.OptionGroup.OptionGroup' for the commandline + arguments recognized by GTK+ -} +getOptionGroup openDefaultDisplay = liftIO $ do + let openDefaultDisplay' = (fromIntegral . fromEnum) openDefaultDisplay + result <- gtk_get_option_group openDefaultDisplay' + checkUnexpectedReturnNULL "getOptionGroup" result + result' <- (wrapBoxed GLib.OptionGroup.OptionGroup) result + return result' + + +-- function gtk_get_minor_version +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_minor_version" gtk_get_minor_version :: + IO Word32 + +{- | +Returns the minor version number of the GTK+ library. +(e.g. in GTK+ version 3.1.5 this is 1.) + +This function is in the library, so it represents the GTK+ library +your code is are running against. Contrast with the +'GI.Gtk.Constants.MINOR_VERSION' macro, which represents the minor version of the +GTK+ headers you have included when compiling your code. + +/Since: 3.0/ +-} +getMinorVersion :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the minor version number of the GTK+ library -} +getMinorVersion = liftIO $ do + result <- gtk_get_minor_version + return result + + +-- function gtk_get_micro_version +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_micro_version" gtk_get_micro_version :: + IO Word32 + +{- | +Returns the micro version number of the GTK+ library. +(e.g. in GTK+ version 3.1.5 this is 5.) + +This function is in the library, so it represents the GTK+ library +your code is are running against. Contrast with the +'GI.Gtk.Constants.MICRO_VERSION' macro, which represents the micro version of the +GTK+ headers you have included when compiling your code. + +/Since: 3.0/ +-} +getMicroVersion :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the micro version number of the GTK+ library -} +getMicroVersion = liftIO $ do + result <- gtk_get_micro_version + return result + + +-- function gtk_get_major_version +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_major_version" gtk_get_major_version :: + IO Word32 + +{- | +Returns the major version number of the GTK+ library. +(e.g. in GTK+ version 3.1.5 this is 3.) + +This function is in the library, so it represents the GTK+ library +your code is running against. Contrast with the 'GI.Gtk.Constants.MAJOR_VERSION' +macro, which represents the major version of the GTK+ headers you +have included when compiling your code. + +/Since: 3.0/ +-} +getMajorVersion :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the major version number of the GTK+ library -} +getMajorVersion = liftIO $ do + result <- gtk_get_major_version + return result + + +-- function gtk_get_locale_direction +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TextDirection"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_locale_direction" gtk_get_locale_direction :: + IO CUInt + +{- | +Get the direction of the current locale. This is the expected +reading direction for text and UI. + +This function depends on the current locale being set with +@/setlocale()/@ and will default to setting the 'GI.Gtk.Enums.TextDirectionLtr' +direction otherwise. 'GI.Gtk.Enums.TextDirectionNone' will never be returned. + +GTK+ sets the default text direction according to the locale +during 'GI.Gtk.Functions.init', and you should normally use +'GI.Gtk.Objects.Widget.widgetGetDirection' or 'GI.Gtk.Objects.Widget.widgetGetDefaultDirection' +to obtain the current direcion. + +This function is only needed rare cases when the locale is +changed after GTK+ has already been initialized. In this case, +you can use it to update the default text direction as follows: + + +=== /C code/ +> +>setlocale (LC_ALL, new_locale); +>direction = gtk_get_locale_direction (); +>gtk_widget_set_default_direction (direction); + + +/Since: 3.12/ +-} +getLocaleDirection :: + (B.CallStack.HasCallStack, MonadIO m) => + m Gtk.Enums.TextDirection + {- ^ __Returns:__ the 'GI.Gtk.Enums.TextDirection' of the current locale -} +getLocaleDirection = liftIO $ do + result <- gtk_get_locale_direction + let result' = (toEnum . fromIntegral) result + return result' + + +-- function gtk_get_interface_age +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_interface_age" gtk_get_interface_age :: + IO Word32 + +{- | +Returns the interface age as passed to @libtool@ +when building the GTK+ library the process is running against. +If @libtool@ means nothing to you, don\'t +worry about it. + +/Since: 3.0/ +-} +getInterfaceAge :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the interface age of the GTK+ library -} +getInterfaceAge = liftIO $ do + result <- gtk_get_interface_age + return result + + +-- function gtk_get_event_widget +-- Args : [Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "Event"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkEvent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_event_widget" gtk_get_event_widget :: + Ptr Gdk.Event.Event -> -- event : TInterface (Name {namespace = "Gdk", name = "Event"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +If /@event@/ is 'Nothing' or the event was not associated with any widget, +returns 'Nothing', otherwise returns the widget that received the event +originally. +-} +getEventWidget :: + (B.CallStack.HasCallStack, MonadIO m) => + Gdk.Event.Event + {- ^ /@event@/: a 'GI.Gdk.Unions.Event.Event' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the widget that originally + received /@event@/, or 'Nothing' -} +getEventWidget event = liftIO $ do + event' <- unsafeManagedPtrGetPtr event + result <- gtk_get_event_widget event' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr event + return maybeResult + + +-- function gtk_get_default_language +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Pango", name = "Language"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_default_language" gtk_get_default_language :: + IO (Ptr Pango.Language.Language) + +{- | +Returns the 'GI.Pango.Structs.Language.Language' for the default language currently in +effect. (Note that this can change over the life of an +application.) The default language is derived from the current +locale. It determines, for example, whether GTK+ uses the +right-to-left or left-to-right text direction. + +This function is equivalent to 'GI.Pango.Functions.languageGetDefault'. +See that function for details. +-} +getDefaultLanguage :: + (B.CallStack.HasCallStack, MonadIO m) => + m Pango.Language.Language + {- ^ __Returns:__ the default language as a 'GI.Pango.Structs.Language.Language', + must not be freed -} +getDefaultLanguage = liftIO $ do + result <- gtk_get_default_language + checkUnexpectedReturnNULL "getDefaultLanguage" result + result' <- (newBoxed Pango.Language.Language) result + return result' + + +-- function gtk_get_debug_flags +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_debug_flags" gtk_get_debug_flags :: + IO Word32 + +{- | +Returns the GTK+ debug flags. + +This function is intended for GTK+ modules that want +to adjust their debug output based on GTK+ debug flags. +-} +getDebugFlags :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the GTK+ debug flags. -} +getDebugFlags = liftIO $ do + result <- gtk_get_debug_flags + return result + + +-- function gtk_get_current_event_time +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt32) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_current_event_time" gtk_get_current_event_time :: + IO Word32 + +{- | +If there is a current event and it has a timestamp, +return that timestamp, otherwise return 'GI.Gdk.Constants.CURRENT_TIME'. +-} +getCurrentEventTime :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the timestamp from the current event, + or 'GI.Gdk.Constants.CURRENT_TIME'. -} +getCurrentEventTime = liftIO $ do + result <- gtk_get_current_event_time + return result + + +-- function gtk_get_current_event_state +-- Args : [Arg {argCName = "state", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to store the state of the current event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_current_event_state" gtk_get_current_event_state :: + Ptr CUInt -> -- state : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{- | +If there is a current event and it has a state field, place +that state field in /@state@/ and return 'True', otherwise return +'False'. +-} +getCurrentEventState :: + (B.CallStack.HasCallStack, MonadIO m) => + m ((Bool, [Gdk.Flags.ModifierType])) + {- ^ __Returns:__ 'True' if there was a current event and it + had a state field -} +getCurrentEventState = liftIO $ do + state <- allocMem :: IO (Ptr CUInt) + result <- gtk_get_current_event_state state + let result' = (/= 0) result + state' <- peek state + let state'' = wordToGFlags state' + freeMem state + return (result', state'') + + +-- function gtk_get_current_event_device +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Device"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_current_event_device" gtk_get_current_event_device :: + IO (Ptr Gdk.Device.Device) + +{- | +If there is a current event and it has a device, return that +device, otherwise return 'Nothing'. +-} +getCurrentEventDevice :: + (B.CallStack.HasCallStack, MonadIO m) => + m (Maybe Gdk.Device.Device) + {- ^ __Returns:__ a 'GI.Gdk.Objects.Device.Device', or 'Nothing' -} +getCurrentEventDevice = liftIO $ do + result <- gtk_get_current_event_device + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gdk.Device.Device) result' + return result'' + return maybeResult + + +-- function gtk_get_current_event +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Event"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_current_event" gtk_get_current_event :: + IO (Ptr Gdk.Event.Event) + +{- | +Obtains a copy of the event currently being processed by GTK+. + +For example, if you are handling a 'GI.Gtk.Objects.Button.Button'::@/clicked/@ signal, +the current event will be the 'GI.Gdk.Structs.EventButton.EventButton' that triggered +the ::clicked signal. +-} +getCurrentEvent :: + (B.CallStack.HasCallStack, MonadIO m) => + m (Maybe Gdk.Event.Event) + {- ^ __Returns:__ a copy of the current event, or + 'Nothing' if there is no current event. The returned event must be + freed with 'GI.Gdk.Unions.Event.eventFree'. -} +getCurrentEvent = liftIO $ do + result <- gtk_get_current_event + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed Gdk.Event.Event) result' + return result'' + return maybeResult + + +-- function gtk_get_binary_age +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_get_binary_age" gtk_get_binary_age :: + IO Word32 + +{- | +Returns the binary age as passed to @libtool@ +when building the GTK+ library the process is running against. +If @libtool@ means nothing to you, don\'t +worry about it. + +/Since: 3.0/ +-} +getBinaryAge :: + (B.CallStack.HasCallStack, MonadIO m) => + m Word32 + {- ^ __Returns:__ the binary age of the GTK+ library -} +getBinaryAge = liftIO $ do + result <- gtk_get_binary_age + return result + + +-- function gtk_false +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_false" gtk_false :: + IO CInt + +{- | +Analogical to 'GI.Gtk.Functions.true', this function does nothing +but always returns 'False'. +-} +false :: + (B.CallStack.HasCallStack, MonadIO m) => + m Bool + {- ^ __Returns:__ 'False' -} +false = liftIO $ do + result <- gtk_false + let result' = (/= 0) result + return result' + + +-- function gtk_events_pending +-- Args : [] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_events_pending" gtk_events_pending :: + IO CInt + +{- | +Checks if any events are pending. + +This can be used to update the UI and invoke timeouts etc. +while doing some time intensive computation. + +== Updating the UI during a long computation + + +=== /C code/ +> +> // computation going on... +> +> while (gtk_events_pending ()) +> gtk_main_iteration (); +> +> // ...computation continued +-} +eventsPending :: + (B.CallStack.HasCallStack, MonadIO m) => + m Bool + {- ^ __Returns:__ 'True' if any events are pending, 'False' otherwise -} +eventsPending = liftIO $ do + result <- gtk_events_pending + let result' = (/= 0) result + return result' + + +-- function gtk_draw_insertion_cursor +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "cairo context to draw to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location where to draw the cursor (@location->width is ignored)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if the cursor should be the primary cursor color.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface (Name {namespace = "Gtk", name = "TextDirection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the cursor is left-to-right or\n right-to-left. Should never be #GTK_TEXT_DIR_NONE", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to draw a directional arrow on the\n cursor. Should be %FALSE unless the cursor is split.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_draw_insertion_cursor" gtk_draw_insertion_cursor :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + Ptr Gdk.Rectangle.Rectangle -> -- location : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) + CInt -> -- is_primary : TBasicType TBoolean + CUInt -> -- direction : TInterface (Name {namespace = "Gtk", name = "TextDirection"}) + CInt -> -- draw_arrow : TBasicType TBoolean + IO () + +{-# DEPRECATED drawInsertionCursor ["(Since version 3.4)","Use 'GI.Gtk.Functions.renderInsertionCursor' instead."] #-} +{- | +Draws a text caret on /@cr@/ at /@location@/. This is not a style function +but merely a convenience function for drawing the standard cursor shape. + +/Since: 3.0/ +-} +drawInsertionCursor :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> Cairo.Context.Context + {- ^ /@cr@/: cairo context to draw to -} + -> Gdk.Rectangle.Rectangle + {- ^ /@location@/: location where to draw the cursor (/@location@/->width is ignored) -} + -> Bool + {- ^ /@isPrimary@/: if the cursor should be the primary cursor color. -} + -> Gtk.Enums.TextDirection + {- ^ /@direction@/: whether the cursor is left-to-right or + right-to-left. Should never be @/GTK_TEXT_DIR_NONE/@ -} + -> Bool + {- ^ /@drawArrow@/: 'True' to draw a directional arrow on the + cursor. Should be 'False' unless the cursor is split. -} + -> m () +drawInsertionCursor widget cr location isPrimary direction drawArrow = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + cr' <- unsafeManagedPtrGetPtr cr + location' <- unsafeManagedPtrGetPtr location + let isPrimary' = (fromIntegral . fromEnum) isPrimary + let direction' = (fromIntegral . fromEnum) direction + let drawArrow' = (fromIntegral . fromEnum) drawArrow + gtk_draw_insertion_cursor widget' cr' location' isPrimary' direction' drawArrow' + touchManagedPtr widget + touchManagedPtr cr + touchManagedPtr location + return () + + +-- function gtk_drag_set_icon_widget +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the context for a drag. (This must be called\n with a context for the source side of a drag)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a widget to use as an icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the X offset within @widget of the hotspot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the Y offset within @widget of the hotspot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_set_icon_widget" gtk_drag_set_icon_widget :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt + IO () + +{- | +Changes the icon for drag operation to a given widget. +GTK+ will not destroy the widget, so if you don’t want +it to persist, you should connect to the “drag-end” +signal and destroy it yourself. +-} +dragSetIconWidget :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a, Gtk.Widget.IsWidget b) => + a + {- ^ /@context@/: the context for a drag. (This must be called + with a context for the source side of a drag) -} + -> b + {- ^ /@widget@/: a widget to use as an icon -} + -> Int32 + {- ^ /@hotX@/: the X offset within /@widget@/ of the hotspot -} + -> Int32 + {- ^ /@hotY@/: the Y offset within /@widget@/ of the hotspot -} + -> m () +dragSetIconWidget context widget hotX hotY = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + widget' <- unsafeManagedPtrCastPtr widget + gtk_drag_set_icon_widget context' widget' hotX hotY + touchManagedPtr context + touchManagedPtr widget + return () + + +-- function gtk_drag_set_icon_surface +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the context for a drag (This must be called\n with a context for the source side of a drag)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface (Name {namespace = "cairo", name = "Surface"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the surface to use as icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_set_icon_surface" gtk_drag_set_icon_surface :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + Ptr Cairo.Surface.Surface -> -- surface : TInterface (Name {namespace = "cairo", name = "Surface"}) + IO () + +{- | +Sets /@surface@/ as the icon for a given drag. GTK+ retains +references for the arguments, and will release them when +they are no longer needed. + +To position the surface relative to the mouse, use +@/cairo_surface_set_device_offset()/@ on /@surface@/. The mouse +cursor will be positioned at the (0,0) coordinate of the +surface. +-} +dragSetIconSurface :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a) => + a + {- ^ /@context@/: the context for a drag (This must be called + with a context for the source side of a drag) -} + -> Cairo.Surface.Surface + {- ^ /@surface@/: the surface to use as icon -} + -> m () +dragSetIconSurface context surface = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + surface' <- unsafeManagedPtrGetPtr surface + gtk_drag_set_icon_surface context' surface' + touchManagedPtr context + touchManagedPtr surface + return () + + +-- function gtk_drag_set_icon_stock +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the context for a drag (This must be called\n with a context for the source side of a drag)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ID of the stock icon to use for the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the X offset within the icon of the hotspot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the Y offset within the icon of the hotspot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_set_icon_stock" gtk_drag_set_icon_stock :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + CString -> -- stock_id : TBasicType TUTF8 + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt + IO () + +{-# DEPRECATED dragSetIconStock ["(Since version 3.10)","Use 'GI.Gtk.Functions.dragSetIconName' instead."] #-} +{- | +Sets the icon for a given drag from a stock ID. +-} +dragSetIconStock :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a) => + a + {- ^ /@context@/: the context for a drag (This must be called + with a context for the source side of a drag) -} + -> T.Text + {- ^ /@stockId@/: the ID of the stock icon to use for the drag -} + -> Int32 + {- ^ /@hotX@/: the X offset within the icon of the hotspot -} + -> Int32 + {- ^ /@hotY@/: the Y offset within the icon of the hotspot -} + -> m () +dragSetIconStock context stockId hotX hotY = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + stockId' <- textToCString stockId + gtk_drag_set_icon_stock context' stockId' hotX hotY + touchManagedPtr context + freeMem stockId' + return () + + +-- function gtk_drag_set_icon_pixbuf +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the context for a drag (This must be called\n with a context for the source side of a drag)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GdkPixbuf to use as the drag icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the X offset within @widget of the hotspot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the Y offset within @widget of the hotspot", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_set_icon_pixbuf" gtk_drag_set_icon_pixbuf :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt + IO () + +{- | +Sets /@pixbuf@/ as the icon for a given drag. +-} +dragSetIconPixbuf :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a, GdkPixbuf.Pixbuf.IsPixbuf b) => + a + {- ^ /@context@/: the context for a drag (This must be called + with a context for the source side of a drag) -} + -> b + {- ^ /@pixbuf@/: the 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' to use as the drag icon -} + -> Int32 + {- ^ /@hotX@/: the X offset within /@widget@/ of the hotspot -} + -> Int32 + {- ^ /@hotY@/: the Y offset within /@widget@/ of the hotspot -} + -> m () +dragSetIconPixbuf context pixbuf hotX hotY = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + pixbuf' <- unsafeManagedPtrCastPtr pixbuf + gtk_drag_set_icon_pixbuf context' pixbuf' hotX hotY + touchManagedPtr context + touchManagedPtr pixbuf + return () + + +-- function gtk_drag_set_icon_name +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the context for a drag (This must be called\n with a context for the source side of a drag)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of icon to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the X offset of the hotspot within the icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the Y offset of the hotspot within the icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_set_icon_name" gtk_drag_set_icon_name :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + CString -> -- icon_name : TBasicType TUTF8 + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt + IO () + +{- | +Sets the icon for a given drag from a named themed icon. See +the docs for 'GI.Gtk.Objects.IconTheme.IconTheme' for more details. Note that the +size of the icon depends on the icon theme (the icon is +loaded at the symbolic size @/GTK_ICON_SIZE_DND/@), thus +/@hotX@/ and /@hotY@/ have to be used with care. + +/Since: 2.8/ +-} +dragSetIconName :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a) => + a + {- ^ /@context@/: the context for a drag (This must be called + with a context for the source side of a drag) -} + -> T.Text + {- ^ /@iconName@/: name of icon to use -} + -> Int32 + {- ^ /@hotX@/: the X offset of the hotspot within the icon -} + -> Int32 + {- ^ /@hotY@/: the Y offset of the hotspot within the icon -} + -> m () +dragSetIconName context iconName hotX hotY = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + iconName' <- textToCString iconName + gtk_drag_set_icon_name context' iconName' hotX hotY + touchManagedPtr context + freeMem iconName' + return () + + +-- function gtk_drag_set_icon_gicon +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the context for a drag (This must be called\n with a context for the source side of a drag)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the X offset of the hotspot within the icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the Y offset of the hotspot within the icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_set_icon_gicon" gtk_drag_set_icon_gicon :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + Ptr Gio.Icon.Icon -> -- icon : TInterface (Name {namespace = "Gio", name = "Icon"}) + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt + IO () + +{- | +Sets the icon for a given drag from the given /@icon@/. +See the documentation for 'GI.Gtk.Functions.dragSetIconName' +for more details about using icons in drag and drop. + +/Since: 3.2/ +-} +dragSetIconGicon :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a, Gio.Icon.IsIcon b) => + a + {- ^ /@context@/: the context for a drag (This must be called + with a context for the source side of a drag) -} + -> b + {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon' -} + -> Int32 + {- ^ /@hotX@/: the X offset of the hotspot within the icon -} + -> Int32 + {- ^ /@hotY@/: the Y offset of the hotspot within the icon -} + -> m () +dragSetIconGicon context icon hotX hotY = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + icon' <- unsafeManagedPtrCastPtr icon + gtk_drag_set_icon_gicon context' icon' hotX hotY + touchManagedPtr context + touchManagedPtr icon + return () + + +-- function gtk_drag_set_icon_default +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the context for a drag (This must be called\n with a context for the source side of a drag)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_set_icon_default" gtk_drag_set_icon_default :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + IO () + +{- | +Sets the icon for a particular drag to the default +icon. +-} +dragSetIconDefault :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a) => + a + {- ^ /@context@/: the context for a drag (This must be called + with a context for the source side of a drag) -} + -> m () +dragSetIconDefault context = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + gtk_drag_set_icon_default context' + touchManagedPtr context + return () + + +-- function gtk_drag_get_source_widget +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a (destination side) drag context", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_get_source_widget" gtk_drag_get_source_widget :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Determines the source widget for a drag. +-} +dragGetSourceWidget :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a) => + a + {- ^ /@context@/: a (destination side) drag context -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ if the drag is occurring + within a single application, a pointer to the source widget. + Otherwise, 'Nothing'. -} +dragGetSourceWidget context = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + result <- gtk_drag_get_source_widget context' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr context + return maybeResult + + +-- function gtk_drag_finish +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the drag context", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a flag indicating whether the drop was successful", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a flag indicating whether the source should delete the\n original data. (This should be %TRUE for a move)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timestamp from the #GtkWidget::drag-drop signal", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_finish" gtk_drag_finish :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + CInt -> -- success : TBasicType TBoolean + CInt -> -- del : TBasicType TBoolean + Word32 -> -- time_ : TBasicType TUInt32 + IO () + +{- | +Informs the drag source that the drop is finished, and +that the data of the drag will no longer be required. +-} +dragFinish :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a) => + a + {- ^ /@context@/: the drag context -} + -> Bool + {- ^ /@success@/: a flag indicating whether the drop was successful -} + -> Bool + {- ^ /@del@/: a flag indicating whether the source should delete the + original data. (This should be 'True' for a move) -} + -> Word32 + {- ^ /@time_@/: the timestamp from the 'GI.Gtk.Objects.Widget.Widget'::@/drag-drop/@ signal -} + -> m () +dragFinish context success del time_ = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + let success' = (fromIntegral . fromEnum) success + let del' = (fromIntegral . fromEnum) del + gtk_drag_finish context' success' del' time_ + touchManagedPtr context + return () + + +-- function gtk_drag_cancel +-- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DragContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkDragContext, as e.g. returned by gtk_drag_begin_with_coordinates()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_cancel" gtk_drag_cancel :: + Ptr Gdk.DragContext.DragContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DragContext"}) + IO () + +{- | +Cancels an ongoing drag operation on the source side. + +If you want to be able to cancel a drag operation in this way, +you need to keep a pointer to the drag context, either from an +explicit call to 'GI.Gtk.Objects.Widget.widgetDragBeginWithCoordinates', or by +connecting to 'GI.Gtk.Objects.Widget.Widget'::@/drag-begin/@. + +If /@context@/ does not refer to an ongoing drag operation, this +function does nothing. + +If a drag is cancelled in this way, the /@result@/ argument of +'GI.Gtk.Objects.Widget.Widget'::@/drag-failed/@ is set to /@gTKDRAGRESULTERROR@/. + +/Since: 3.16/ +-} +dragCancel :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.DragContext.IsDragContext a) => + a + {- ^ /@context@/: a 'GI.Gdk.Objects.DragContext.DragContext', as e.g. returned by 'GI.Gtk.Objects.Widget.widgetDragBeginWithCoordinates' -} + -> m () +dragCancel context = liftIO $ do + context' <- unsafeManagedPtrCastPtr context + gtk_drag_cancel context' + touchManagedPtr context + return () + + +-- function gtk_distribute_natural_allocation +-- Args : [Arg {argCName = "extra_space", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Extra space to redistribute among children after subtracting\n minimum sizes and any child padding from the overall allocation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_requested_sizes", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Number of requests to fit into the allocation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TInterface (Name {namespace = "Gtk", name = "RequestedSize"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An array of structs with a client pointer and a minimum/natural size\n in the orientation of the allocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_distribute_natural_allocation" gtk_distribute_natural_allocation :: + Int32 -> -- extra_space : TBasicType TInt + Word32 -> -- n_requested_sizes : TBasicType TUInt + Ptr Gtk.RequestedSize.RequestedSize -> -- sizes : TInterface (Name {namespace = "Gtk", name = "RequestedSize"}) + IO Int32 + +{- | +Distributes /@extraSpace@/ to child /@sizes@/ by bringing smaller +children up to natural size first. + +The remaining space will be added to the /@minimumSize@/ member of the +GtkRequestedSize struct. If all sizes reach their natural size then +the remaining space is returned. +-} +distributeNaturalAllocation :: + (B.CallStack.HasCallStack, MonadIO m) => + Int32 + {- ^ /@extraSpace@/: Extra space to redistribute among children after subtracting + minimum sizes and any child padding from the overall allocation -} + -> Word32 + {- ^ /@nRequestedSizes@/: Number of requests to fit into the allocation -} + -> Gtk.RequestedSize.RequestedSize + {- ^ /@sizes@/: An array of structs with a client pointer and a minimum\/natural size + in the orientation of the allocation. -} + -> m Int32 + {- ^ __Returns:__ The remainder of /@extraSpace@/ after redistributing space +to /@sizes@/. -} +distributeNaturalAllocation extraSpace nRequestedSizes sizes = liftIO $ do + sizes' <- unsafeManagedPtrGetPtr sizes + result <- gtk_distribute_natural_allocation extraSpace nRequestedSizes sizes' + touchManagedPtr sizes + return result + + +-- function gtk_disable_setlocale +-- Args : [] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_disable_setlocale" gtk_disable_setlocale :: + IO () + +{- | +Prevents 'GI.Gtk.Functions.init', 'GI.Gtk.Functions.initCheck', 'GI.Gtk.Functions.initWithArgs' and +'GI.Gtk.Functions.parseArgs' from automatically +calling @setlocale (LC_ALL, \"\")@. You would +want to use this function if you wanted to set the locale for +your program to something other than the user’s locale, or if +you wanted to set different values for different locale categories. + +Most programs should not need to call this function. +-} +disableSetlocale :: + (B.CallStack.HasCallStack, MonadIO m) => + m () +disableSetlocale = liftIO $ do + gtk_disable_setlocale + return () + + +-- function gtk_device_grab_remove +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkDevice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_device_grab_remove" gtk_device_grab_remove :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) + IO () + +{- | +Removes a device grab from the given widget. + +You have to pair calls to 'GI.Gtk.Functions.deviceGrabAdd' and +'GI.Gtk.Functions.deviceGrabRemove'. + +/Since: 3.0/ +-} +deviceGrabRemove :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Device.IsDevice b) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> b + {- ^ /@device@/: a 'GI.Gdk.Objects.Device.Device' -} + -> m () +deviceGrabRemove widget device = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + device' <- unsafeManagedPtrCastPtr device + gtk_device_grab_remove widget' device' + touchManagedPtr widget + touchManagedPtr device + return () + + +-- function gtk_device_grab_add +-- Args : [Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkDevice to grab on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to prevent other devices to interact with @widget.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_device_grab_add" gtk_device_grab_add :: + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) + CInt -> -- block_others : TBasicType TBoolean + IO () + +{- | +Adds a GTK+ grab on /@device@/, so all the events on /@device@/ and its +associated pointer or keyboard (if any) are delivered to /@widget@/. +If the /@blockOthers@/ parameter is 'True', any other devices will be +unable to interact with /@widget@/ during the grab. + +/Since: 3.0/ +-} +deviceGrabAdd :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Device.IsDevice b) => + a + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> b + {- ^ /@device@/: a 'GI.Gdk.Objects.Device.Device' to grab on. -} + -> Bool + {- ^ /@blockOthers@/: 'True' to prevent other devices to interact with /@widget@/. -} + -> m () +deviceGrabAdd widget device blockOthers = liftIO $ do + widget' <- unsafeManagedPtrCastPtr widget + device' <- unsafeManagedPtrCastPtr device + let blockOthers' = (fromIntegral . fromEnum) blockOthers + gtk_device_grab_add widget' device' blockOthers' + touchManagedPtr widget + touchManagedPtr device + return () + + +-- function gtk_check_version +-- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the required major version", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the required minor version", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the required micro version", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_check_version" gtk_check_version :: + Word32 -> -- required_major : TBasicType TUInt + Word32 -> -- required_minor : TBasicType TUInt + Word32 -> -- required_micro : TBasicType TUInt + IO CString + +{- | +Checks that the GTK+ library in use is compatible with the +given version. Generally you would pass in the constants +'GI.Gtk.Constants.MAJOR_VERSION', 'GI.Gtk.Constants.MINOR_VERSION', 'GI.Gtk.Constants.MICRO_VERSION' +as the three arguments to this function; that produces +a check that the library in use is compatible with +the version of GTK+ the application or module was compiled +against. + +Compatibility is defined by two things: first the version +of the running library is newer than the version +/@requiredMajor@/.required_minor./@requiredMicro@/. Second +the running library must be binary compatible with the +version /@requiredMajor@/.required_minor./@requiredMicro@/ +(same major version.) + +This function is primarily for GTK+ modules; the module +can call this function to check that it wasn’t loaded +into an incompatible version of GTK+. However, such a +check isn’t completely reliable, since the module may be +linked against an old version of GTK+ and calling the +old version of 'GI.Gtk.Functions.checkVersion', but still get loaded +into an application using a newer version of GTK+. +-} +checkVersion :: + (B.CallStack.HasCallStack, MonadIO m) => + Word32 + {- ^ /@requiredMajor@/: the required major version -} + -> Word32 + {- ^ /@requiredMinor@/: the required minor version -} + -> Word32 + {- ^ /@requiredMicro@/: the required micro version -} + -> m (Maybe T.Text) + {- ^ __Returns:__ 'Nothing' if the GTK+ library is compatible with the + given version, or a string describing the version mismatch. + The returned string is owned by GTK+ and should not be modified + or freed. -} +checkVersion requiredMajor requiredMinor requiredMicro = liftIO $ do + result <- gtk_check_version requiredMajor requiredMinor requiredMicro + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + return result'' + return maybeResult + + +-- function gtk_cairo_transform_to_window +-- Args : [Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cairo context to transform", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the widget the context is currently centered for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the window to transform the context to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cairo_transform_to_window" gtk_cairo_transform_to_window :: + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr Gdk.Window.Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) + IO () + +{- | +Transforms the given cairo context /@cr@/ that from /@widget@/-relative +coordinates to /@window@/-relative coordinates. +If the /@widget@/’s window is not an ancestor of /@window@/, no +modification will be applied. + +This is the inverse to the transformation GTK applies when +preparing an expose event to be emitted with the 'GI.Gtk.Objects.Widget.Widget'::@/draw/@ +signal. It is intended to help porting multiwindow widgets from +GTK+ 2 to the rendering architecture of GTK+ 3. + +/Since: 3.0/ +-} +cairoTransformToWindow :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Window.IsWindow b) => + Cairo.Context.Context + {- ^ /@cr@/: the cairo context to transform -} + -> a + {- ^ /@widget@/: the widget the context is currently centered for -} + -> b + {- ^ /@window@/: the window to transform the context to -} + -> m () +cairoTransformToWindow cr widget window = liftIO $ do + cr' <- unsafeManagedPtrGetPtr cr + widget' <- unsafeManagedPtrCastPtr widget + window' <- unsafeManagedPtrCastPtr window + gtk_cairo_transform_to_window cr' widget' window' + touchManagedPtr cr + touchManagedPtr widget + touchManagedPtr window + return () + + +-- function gtk_cairo_should_draw_window +-- Args : [Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a cairo context", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the window to check. @window may not be an input-only\n window.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cairo_should_draw_window" gtk_cairo_should_draw_window :: + Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) + Ptr Gdk.Window.Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) + IO CInt + +{- | +This function is supposed to be called in 'GI.Gtk.Objects.Widget.Widget'::@/draw/@ +implementations for widgets that support multiple windows. +/@cr@/ must be untransformed from invoking of the draw function. +This function will return 'True' if the contents of the given +/@window@/ are supposed to be drawn and 'False' otherwise. Note +that when the drawing was not initiated by the windowing +system this function will return 'True' for all windows, so +you need to draw the bottommost window first. Also, do not +use “else if” statements to check which window should be drawn. + +/Since: 3.0/ +-} +cairoShouldDrawWindow :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Window.IsWindow a) => + Cairo.Context.Context + {- ^ /@cr@/: a cairo context -} + -> a + {- ^ /@window@/: the window to check. /@window@/ may not be an input-only + window. -} + -> m Bool + {- ^ __Returns:__ 'True' if /@window@/ should be drawn -} +cairoShouldDrawWindow cr window = liftIO $ do + cr' <- unsafeManagedPtrGetPtr cr + window' <- unsafeManagedPtrCastPtr window + result <- gtk_cairo_should_draw_window cr' window' + let result' = (/= 0) result + touchManagedPtr cr + touchManagedPtr window + return result' + + +-- function gtk_bindings_activate_event +-- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject (generally must be a widget)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "EventKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkEventKey", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_bindings_activate_event" gtk_bindings_activate_event :: + Ptr GObject.Object.Object -> -- object : TInterface (Name {namespace = "GObject", name = "Object"}) + Ptr Gdk.EventKey.EventKey -> -- event : TInterface (Name {namespace = "Gdk", name = "EventKey"}) + IO CInt + +{- | +Looks up key bindings for /@object@/ to find one matching +/@event@/, and if one was found, activate it. + +/Since: 2.4/ +-} +bindingsActivateEvent :: + (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) => + a + {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object' (generally must be a widget) -} + -> Gdk.EventKey.EventKey + {- ^ /@event@/: a 'GI.Gdk.Structs.EventKey.EventKey' -} + -> m Bool + {- ^ __Returns:__ 'True' if a matching key binding was found -} +bindingsActivateEvent object event = liftIO $ do + object' <- unsafeManagedPtrCastPtr object + event' <- unsafeManagedPtrGetPtr event + result <- gtk_bindings_activate_event object' event' + let result' = (/= 0) result + touchManagedPtr object + touchManagedPtr event + return result' + + +-- function gtk_bindings_activate +-- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "object to activate when binding found", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "key value of the binding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "key modifier of the binding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_bindings_activate" gtk_bindings_activate :: + Ptr GObject.Object.Object -> -- object : TInterface (Name {namespace = "GObject", name = "Object"}) + Word32 -> -- keyval : TBasicType TUInt + CUInt -> -- modifiers : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{- | +Find a key binding matching /@keyval@/ and /@modifiers@/ and activate the +binding on /@object@/. +-} +bindingsActivate :: + (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) => + a + {- ^ /@object@/: object to activate when binding found -} + -> Word32 + {- ^ /@keyval@/: key value of the binding -} + -> [Gdk.Flags.ModifierType] + {- ^ /@modifiers@/: key modifier of the binding -} + -> m Bool + {- ^ __Returns:__ 'True' if a binding was found and activated -} +bindingsActivate object keyval modifiers = liftIO $ do + object' <- unsafeManagedPtrCastPtr object + let modifiers' = gflagsToWord modifiers + result <- gtk_bindings_activate object' keyval modifiers' + let result' = (/= 0) result + touchManagedPtr object + return result' + + +-- function gtk_alternative_dialog_button_order +-- Args : [Arg {argCName = "screen", argType = TInterface (Name {namespace = "Gdk", name = "Screen"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkScreen, or %NULL to use the default screen", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_alternative_dialog_button_order" gtk_alternative_dialog_button_order :: + Ptr Gdk.Screen.Screen -> -- screen : TInterface (Name {namespace = "Gdk", name = "Screen"}) + IO CInt + +{-# DEPRECATED alternativeDialogButtonOrder ["(Since version 3.10)","Deprecated"] #-} +{- | +Returns 'True' if dialogs are expected to use an alternative +button order on the screen /@screen@/. See +@/gtk_dialog_set_alternative_button_order()/@ for more details +about alternative button order. + +If you need to use this function, you should probably connect +to the ::notify:gtk-alternative-button-order signal on the +'GI.Gtk.Objects.Settings.Settings' object associated to /@screen@/, in order to be +notified if the button order setting changes. + +/Since: 2.6/ +-} +alternativeDialogButtonOrder :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a) => + Maybe (a) + {- ^ /@screen@/: a 'GI.Gdk.Objects.Screen.Screen', or 'Nothing' to use the default screen -} + -> m Bool + {- ^ __Returns:__ Whether the alternative button order should be used -} +alternativeDialogButtonOrder screen = liftIO $ do + maybeScreen <- case screen of + Nothing -> return nullPtr + Just jScreen -> do + jScreen' <- unsafeManagedPtrCastPtr jScreen + return jScreen' + result <- gtk_alternative_dialog_button_order maybeScreen + let result' = (/= 0) result + whenJust screen touchManagedPtr + return result' + + +-- function gtk_accelerator_valid +-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a GDK keyval", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_valid" gtk_accelerator_valid :: + Word32 -> -- keyval : TBasicType TUInt + CUInt -> -- modifiers : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{- | +Determines whether a given keyval and modifier mask constitute +a valid keyboard accelerator. For example, the 'GI.Gdk.Constants.KEY_a' keyval +plus @/GDK_CONTROL_MASK/@ is valid - this is a “Ctrl+a” accelerator. +But, you can\'t, for instance, use the 'GI.Gdk.Constants.KEY_Control_L' keyval +as an accelerator. +-} +acceleratorValid :: + (B.CallStack.HasCallStack, MonadIO m) => + Word32 + {- ^ /@keyval@/: a GDK keyval -} + -> [Gdk.Flags.ModifierType] + {- ^ /@modifiers@/: modifier mask -} + -> m Bool + {- ^ __Returns:__ 'True' if the accelerator is valid -} +acceleratorValid keyval modifiers = liftIO $ do + let modifiers' = gflagsToWord modifiers + result <- gtk_accelerator_valid keyval modifiers' + let result' = (/= 0) result + return result' + + +-- function gtk_accelerator_set_default_mod_mask +-- Args : [Arg {argCName = "default_mod_mask", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_set_default_mod_mask" gtk_accelerator_set_default_mod_mask :: + CUInt -> -- default_mod_mask : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO () + +{- | +Sets the modifiers that will be considered significant for keyboard +accelerators. The default mod mask depends on the GDK backend in use, +but will typically include @/GDK_CONTROL_MASK/@ | @/GDK_SHIFT_MASK/@ | +@/GDK_MOD1_MASK/@ | @/GDK_SUPER_MASK/@ | @/GDK_HYPER_MASK/@ | @/GDK_META_MASK/@. +In other words, Control, Shift, Alt, Super, Hyper and Meta. Other +modifiers will by default be ignored by 'GI.Gtk.Objects.AccelGroup.AccelGroup'. + +You must include at least the three modifiers Control, Shift +and Alt in any value you pass to this function. + +The default mod mask should be changed on application startup, +before using any accelerator groups. +-} +acceleratorSetDefaultModMask :: + (B.CallStack.HasCallStack, MonadIO m) => + [Gdk.Flags.ModifierType] + {- ^ /@defaultModMask@/: accelerator modifier mask -} + -> m () +acceleratorSetDefaultModMask defaultModMask = liftIO $ do + let defaultModMask' = gflagsToWord defaultModMask + gtk_accelerator_set_default_mod_mask defaultModMask' + return () + + +-- function gtk_accelerator_parse_with_keycode +-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "string representing an accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for accelerator\n keyval, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "\n return location for accelerator keycodes, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for accelerator\n modifier mask, %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_parse_with_keycode" gtk_accelerator_parse_with_keycode :: + CString -> -- accelerator : TBasicType TUTF8 + Ptr Word32 -> -- accelerator_key : TBasicType TUInt + Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt) + Ptr CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO () + +{- | +Parses a string representing an accelerator, similarly to +'GI.Gtk.Functions.acceleratorParse' but handles keycodes as well. This is only +useful for system-level components, applications should use +'GI.Gtk.Functions.acceleratorParse' instead. + +If /@acceleratorCodes@/ is given and the result stored in it is non-'Nothing', +the result must be freed with 'GI.GLib.Functions.free'. + +If a keycode is present in the accelerator and no /@acceleratorCodes@/ +is given, the parse will fail. + +If the parse fails, /@acceleratorKey@/, /@acceleratorMods@/ and +/@acceleratorCodes@/ will be set to 0 (zero). + +/Since: 3.4/ +-} +acceleratorParseWithKeycode :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@accelerator@/: string representing an accelerator -} + -> m ((Word32, [Word32], [Gdk.Flags.ModifierType])) +acceleratorParseWithKeycode accelerator = liftIO $ do + accelerator' <- textToCString accelerator + acceleratorKey <- allocMem :: IO (Ptr Word32) + acceleratorCodes <- allocMem :: IO (Ptr (Ptr Word32)) + acceleratorMods <- allocMem :: IO (Ptr CUInt) + gtk_accelerator_parse_with_keycode accelerator' acceleratorKey acceleratorCodes acceleratorMods + acceleratorKey' <- peek acceleratorKey + acceleratorCodes' <- peek acceleratorCodes + acceleratorCodes'' <- unpackZeroTerminatedStorableArray acceleratorCodes' + freeMem acceleratorCodes' + acceleratorMods' <- peek acceleratorMods + let acceleratorMods'' = wordToGFlags acceleratorMods' + freeMem accelerator' + freeMem acceleratorKey + freeMem acceleratorCodes + freeMem acceleratorMods + return (acceleratorKey', acceleratorCodes'', acceleratorMods'') + + +-- function gtk_accelerator_parse +-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "string representing an accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for accelerator\n keyval, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for accelerator\n modifier mask, %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_parse" gtk_accelerator_parse :: + CString -> -- accelerator : TBasicType TUTF8 + Ptr Word32 -> -- accelerator_key : TBasicType TUInt + Ptr CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO () + +{- | +Parses a string representing an accelerator. The format looks like +“\a” or “\\F1” or “\z” (the last one is +for key release). + +The parser is fairly liberal and allows lower or upper case, and also +abbreviations such as “\” and “\”. Key names are parsed using +'GI.Gdk.Functions.keyvalFromName'. For character keys the name is not the symbol, +but the lowercase name, e.g. one would use “\minus” instead of +“\-”. + +If the parse fails, /@acceleratorKey@/ and /@acceleratorMods@/ will +be set to 0 (zero). +-} +acceleratorParse :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@accelerator@/: string representing an accelerator -} + -> m ((Word32, [Gdk.Flags.ModifierType])) +acceleratorParse accelerator = liftIO $ do + accelerator' <- textToCString accelerator + acceleratorKey <- allocMem :: IO (Ptr Word32) + acceleratorMods <- allocMem :: IO (Ptr CUInt) + gtk_accelerator_parse accelerator' acceleratorKey acceleratorMods + acceleratorKey' <- peek acceleratorKey + acceleratorMods' <- peek acceleratorMods + let acceleratorMods'' = wordToGFlags acceleratorMods' + freeMem accelerator' + freeMem acceleratorKey + freeMem acceleratorMods + return (acceleratorKey', acceleratorMods'') + + +-- function gtk_accelerator_name_with_keycode +-- Args : [Arg {argCName = "display", argType = TInterface (Name {namespace = "Gdk", name = "Display"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkDisplay or %NULL to use the default display", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keyval", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keycode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_name_with_keycode" gtk_accelerator_name_with_keycode :: + Ptr Gdk.Display.Display -> -- display : TInterface (Name {namespace = "Gdk", name = "Display"}) + Word32 -> -- accelerator_key : TBasicType TUInt + Word32 -> -- keycode : TBasicType TUInt + CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CString + +{- | +Converts an accelerator keyval and modifier mask +into a string parseable by 'GI.Gtk.Functions.acceleratorParseWithKeycode', +similarly to 'GI.Gtk.Functions.acceleratorName' but handling keycodes. +This is only useful for system-level components, applications +should use 'GI.Gtk.Functions.acceleratorParse' instead. + +/Since: 3.4/ +-} +acceleratorNameWithKeycode :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Display.IsDisplay a) => + Maybe (a) + {- ^ /@display@/: a 'GI.Gdk.Objects.Display.Display' or 'Nothing' to use the default display -} + -> Word32 + {- ^ /@acceleratorKey@/: accelerator keyval -} + -> Word32 + {- ^ /@keycode@/: accelerator keycode -} + -> [Gdk.Flags.ModifierType] + {- ^ /@acceleratorMods@/: accelerator modifier mask -} + -> m T.Text + {- ^ __Returns:__ a newly allocated accelerator name. -} +acceleratorNameWithKeycode display acceleratorKey keycode acceleratorMods = liftIO $ do + maybeDisplay <- case display of + Nothing -> return nullPtr + Just jDisplay -> do + jDisplay' <- unsafeManagedPtrCastPtr jDisplay + return jDisplay' + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_name_with_keycode maybeDisplay acceleratorKey keycode acceleratorMods' + checkUnexpectedReturnNULL "acceleratorNameWithKeycode" result + result' <- cstringToText result + freeMem result + whenJust display touchManagedPtr + return result' + + +-- function gtk_accelerator_name +-- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keyval", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_name" gtk_accelerator_name :: + Word32 -> -- accelerator_key : TBasicType TUInt + CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CString + +{- | +Converts an accelerator keyval and modifier mask into a string +parseable by 'GI.Gtk.Functions.acceleratorParse'. For example, if you pass in +'GI.Gdk.Constants.KEY_q' and @/GDK_CONTROL_MASK/@, this function returns “\q”. + +If you need to display accelerators in the user interface, +see 'GI.Gtk.Functions.acceleratorGetLabel'. +-} +acceleratorName :: + (B.CallStack.HasCallStack, MonadIO m) => + Word32 + {- ^ /@acceleratorKey@/: accelerator keyval -} + -> [Gdk.Flags.ModifierType] + {- ^ /@acceleratorMods@/: accelerator modifier mask -} + -> m T.Text + {- ^ __Returns:__ a newly-allocated accelerator name -} +acceleratorName acceleratorKey acceleratorMods = liftIO $ do + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_name acceleratorKey acceleratorMods' + checkUnexpectedReturnNULL "acceleratorName" result + result' <- cstringToText result + freeMem result + return result' + + +-- function gtk_accelerator_get_label_with_keycode +-- Args : [Arg {argCName = "display", argType = TInterface (Name {namespace = "Gdk", name = "Display"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkDisplay or %NULL to use the default display", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keyval", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keycode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_get_label_with_keycode" gtk_accelerator_get_label_with_keycode :: + Ptr Gdk.Display.Display -> -- display : TInterface (Name {namespace = "Gdk", name = "Display"}) + Word32 -> -- accelerator_key : TBasicType TUInt + Word32 -> -- keycode : TBasicType TUInt + CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CString + +{- | +Converts an accelerator keyval and modifier mask +into a (possibly translated) string that can be displayed to +a user, similarly to 'GI.Gtk.Functions.acceleratorGetLabel', but handling +keycodes. + +This is only useful for system-level components, applications +should use 'GI.Gtk.Functions.acceleratorParse' instead. + +/Since: 3.4/ +-} +acceleratorGetLabelWithKeycode :: + (B.CallStack.HasCallStack, MonadIO m, Gdk.Display.IsDisplay a) => + Maybe (a) + {- ^ /@display@/: a 'GI.Gdk.Objects.Display.Display' or 'Nothing' to use the default display -} + -> Word32 + {- ^ /@acceleratorKey@/: accelerator keyval -} + -> Word32 + {- ^ /@keycode@/: accelerator keycode -} + -> [Gdk.Flags.ModifierType] + {- ^ /@acceleratorMods@/: accelerator modifier mask -} + -> m T.Text + {- ^ __Returns:__ a newly-allocated string representing the accelerator. -} +acceleratorGetLabelWithKeycode display acceleratorKey keycode acceleratorMods = liftIO $ do + maybeDisplay <- case display of + Nothing -> return nullPtr + Just jDisplay -> do + jDisplay' <- unsafeManagedPtrCastPtr jDisplay + return jDisplay' + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_get_label_with_keycode maybeDisplay acceleratorKey keycode acceleratorMods' + checkUnexpectedReturnNULL "acceleratorGetLabelWithKeycode" result + result' <- cstringToText result + freeMem result + whenJust display touchManagedPtr + return result' + + +-- function gtk_accelerator_get_label +-- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keyval", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_get_label" gtk_accelerator_get_label :: + Word32 -> -- accelerator_key : TBasicType TUInt + CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CString + +{- | +Converts an accelerator keyval and modifier mask into a string +which can be used to represent the accelerator to the user. + +/Since: 2.6/ +-} +acceleratorGetLabel :: + (B.CallStack.HasCallStack, MonadIO m) => + Word32 + {- ^ /@acceleratorKey@/: accelerator keyval -} + -> [Gdk.Flags.ModifierType] + {- ^ /@acceleratorMods@/: accelerator modifier mask -} + -> m T.Text + {- ^ __Returns:__ a newly-allocated string representing the accelerator. -} +acceleratorGetLabel acceleratorKey acceleratorMods = liftIO $ do + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_get_label acceleratorKey acceleratorMods' + checkUnexpectedReturnNULL "acceleratorGetLabel" result + result' <- cstringToText result + freeMem result + return result' + + +-- function gtk_accelerator_get_default_mod_mask +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gdk", name = "ModifierType"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accelerator_get_default_mod_mask" gtk_accelerator_get_default_mod_mask :: + IO CUInt + +{- | +Gets the modifier mask. + +The modifier mask determines which modifiers are considered significant +for keyboard accelerators. See 'GI.Gtk.Functions.acceleratorSetDefaultModMask'. +-} +acceleratorGetDefaultModMask :: + (B.CallStack.HasCallStack, MonadIO m) => + m [Gdk.Flags.ModifierType] + {- ^ __Returns:__ the default accelerator modifier mask -} +acceleratorGetDefaultModMask = liftIO $ do + result <- gtk_accelerator_get_default_mod_mask + let result' = wordToGFlags result + return result' + + +-- function gtk_accel_groups_from_object +-- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject, usually a #GtkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TInterface (Name {namespace = "Gtk", name = "AccelGroup"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_groups_from_object" gtk_accel_groups_from_object :: + Ptr GObject.Object.Object -> -- object : TInterface (Name {namespace = "GObject", name = "Object"}) + IO (Ptr (GSList (Ptr Gtk.AccelGroup.AccelGroup))) + +{- | +Gets a list of all accel groups which are attached to /@object@/. +-} +accelGroupsFromObject :: + (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) => + a + {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object', usually a 'GI.Gtk.Objects.Window.Window' -} + -> m [Gtk.AccelGroup.AccelGroup] + {- ^ __Returns:__ a list of + all accel groups which are attached to /@object@/ -} +accelGroupsFromObject object = liftIO $ do + object' <- unsafeManagedPtrCastPtr object + result <- gtk_accel_groups_from_object object' + result' <- unpackGSList result + result'' <- mapM (newObject Gtk.AccelGroup.AccelGroup) result' + touchManagedPtr object + return result'' + + +-- function gtk_accel_groups_activate +-- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GObject, usually a #GtkWindow, on which\n to activate the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keyval from a key event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "keyboard state mask from a key event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_groups_activate" gtk_accel_groups_activate :: + Ptr GObject.Object.Object -> -- object : TInterface (Name {namespace = "GObject", name = "Object"}) + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{- | +Finds the first accelerator in any 'GI.Gtk.Objects.AccelGroup.AccelGroup' attached +to /@object@/ that matches /@accelKey@/ and /@accelMods@/, and +activates that accelerator. +-} +accelGroupsActivate :: + (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) => + a + {- ^ /@object@/: the 'GI.GObject.Objects.Object.Object', usually a 'GI.Gtk.Objects.Window.Window', on which + to activate the accelerator -} + -> Word32 + {- ^ /@accelKey@/: accelerator keyval from a key event -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: keyboard state mask from a key event -} + -> m Bool + {- ^ __Returns:__ 'True' if an accelerator was activated and handled + this keypress -} +accelGroupsActivate object accelKey accelMods = liftIO $ do + object' <- unsafeManagedPtrCastPtr object + let accelMods' = gflagsToWord accelMods + result <- gtk_accel_groups_activate object' accelKey accelMods' + let result' = (/= 0) result + touchManagedPtr object + return result' + + + diff --git a/GI/Gtk/Interfaces.hs b/GI/Gtk/Interfaces.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces.hs @@ -0,0 +1,81 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces + ( module GI.Gtk.Interfaces.Actionable , + module GI.Gtk.Interfaces.Activatable , + module GI.Gtk.Interfaces.AppChooser , + module GI.Gtk.Interfaces.Buildable , + module GI.Gtk.Interfaces.CellAccessibleParent, + module GI.Gtk.Interfaces.CellEditable , + module GI.Gtk.Interfaces.CellLayout , + module GI.Gtk.Interfaces.ColorChooser , + module GI.Gtk.Interfaces.Editable , + module GI.Gtk.Interfaces.FileChooser , + module GI.Gtk.Interfaces.FontChooser , + module GI.Gtk.Interfaces.Orientable , + module GI.Gtk.Interfaces.PrintOperationPreview, + module GI.Gtk.Interfaces.RecentChooser , + module GI.Gtk.Interfaces.Scrollable , + module GI.Gtk.Interfaces.StyleProvider , + module GI.Gtk.Interfaces.ToolShell , + module GI.Gtk.Interfaces.TreeDragDest , + module GI.Gtk.Interfaces.TreeDragSource , + module GI.Gtk.Interfaces.TreeModel , + module GI.Gtk.Interfaces.TreeSortable , + + + ) where + +import GI.Gtk.Interfaces.Actionable +import GI.Gtk.Interfaces.Activatable +import GI.Gtk.Interfaces.AppChooser +import GI.Gtk.Interfaces.Buildable +import GI.Gtk.Interfaces.CellAccessibleParent +import GI.Gtk.Interfaces.CellEditable +import GI.Gtk.Interfaces.CellLayout +import GI.Gtk.Interfaces.ColorChooser +import GI.Gtk.Interfaces.Editable +import GI.Gtk.Interfaces.FileChooser +import GI.Gtk.Interfaces.FontChooser +import GI.Gtk.Interfaces.Orientable +import GI.Gtk.Interfaces.PrintOperationPreview +import GI.Gtk.Interfaces.RecentChooser +import GI.Gtk.Interfaces.Scrollable +import GI.Gtk.Interfaces.StyleProvider +import GI.Gtk.Interfaces.ToolShell +import GI.Gtk.Interfaces.TreeDragDest +import GI.Gtk.Interfaces.TreeDragSource +import GI.Gtk.Interfaces.TreeModel +import GI.Gtk.Interfaces.TreeSortable + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + + + diff --git a/GI/Gtk/Interfaces/Actionable.hs b/GI/Gtk/Interfaces/Actionable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Actionable.hs @@ -0,0 +1,858 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +This interface provides a convenient way of associating widgets with +actions on a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' or 'GI.Gtk.Objects.Application.Application'. + +It primarily consists of two properties: 'GI.Gtk.Interfaces.Actionable.Actionable':@/action-name/@ +and 'GI.Gtk.Interfaces.Actionable.Actionable':@/action-target/@. There are also some convenience APIs +for setting these properties. + +The action will be looked up in action groups that are found among +the widgets ancestors. Most commonly, these will be the actions with +the “win.” or “app.” prefix that are associated with the 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' +or 'GI.Gtk.Objects.Application.Application', but other action groups that are added with +'GI.Gtk.Objects.Widget.widgetInsertActionGroup' will be consulted as well. + +/Since: 3.4/ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.Actionable + ( + +-- * Exported types + Actionable(..) , + noActionable , + IsActionable , + toActionable , + + + -- * Methods +-- ** getActionName #method:getActionName# + +#if ENABLE_OVERLOADING + ActionableGetActionNameMethodInfo , +#endif + actionableGetActionName , + + +-- ** getActionTargetValue #method:getActionTargetValue# + +#if ENABLE_OVERLOADING + ActionableGetActionTargetValueMethodInfo, +#endif + actionableGetActionTargetValue , + + +-- ** setActionName #method:setActionName# + +#if ENABLE_OVERLOADING + ActionableSetActionNameMethodInfo , +#endif + actionableSetActionName , + + +-- ** setActionTargetValue #method:setActionTargetValue# + +#if ENABLE_OVERLOADING + ActionableSetActionTargetValueMethodInfo, +#endif + actionableSetActionTargetValue , + + +-- ** setDetailedActionName #method:setDetailedActionName# + +#if ENABLE_OVERLOADING + ActionableSetDetailedActionNameMethodInfo, +#endif + actionableSetDetailedActionName , + + + + + -- * Properties +-- ** actionName #attr:actionName# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + ActionableActionNamePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionableActionName , +#endif + clearActionableActionName , + constructActionableActionName , + getActionableActionName , + setActionableActionName , + + +-- ** actionTarget #attr:actionTarget# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + ActionableActionTargetPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionableActionTarget , +#endif + clearActionableActionTarget , + constructActionableActionTarget , + getActionableActionTarget , + setActionableActionTarget , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- interface Actionable +-- | Memory-managed wrapper type. +newtype Actionable = Actionable (ManagedPtr Actionable) +-- | A convenience alias for `Nothing` :: `Maybe` `Actionable`. +noActionable :: Maybe Actionable +noActionable = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList Actionable = ActionableSignalList +type ActionableSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_actionable_get_type" + c_gtk_actionable_get_type :: IO GType + +instance GObject Actionable where + gobjectType = c_gtk_actionable_get_type + + +-- | Type class for types which can be safely cast to `Actionable`, for instance with `toActionable`. +class (GObject o, O.IsDescendantOf Actionable o) => IsActionable o +instance (GObject o, O.IsDescendantOf Actionable o) => IsActionable o + +instance O.HasParentTypes Actionable +type instance O.ParentTypes Actionable = '[GObject.Object.Object, Gtk.Widget.Widget] + +-- | Cast to `Actionable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toActionable :: (MonadIO m, IsActionable o) => o -> m Actionable +toActionable = liftIO . unsafeCastTo Actionable + +-- VVV Prop "action-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just True) + +{- | +Get the value of the “@action-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' actionable #actionName +@ +-} +getActionableActionName :: (MonadIO m, IsActionable o) => o -> m (Maybe T.Text) +getActionableActionName obj = liftIO $ B.Properties.getObjectPropertyString obj "action-name" + +{- | +Set the value of the “@action-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' actionable [ #actionName 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionableActionName :: (MonadIO m, IsActionable o) => o -> T.Text -> m () +setActionableActionName obj val = liftIO $ B.Properties.setObjectPropertyString obj "action-name" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@action-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionableActionName :: (IsActionable o) => T.Text -> IO (GValueConstruct o) +constructActionableActionName val = B.Properties.constructObjectPropertyString "action-name" (Just val) + +{- | +Set the value of the “@action-name@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #actionName +@ +-} +clearActionableActionName :: (MonadIO m, IsActionable o) => o -> m () +clearActionableActionName obj = liftIO $ B.Properties.setObjectPropertyString obj "action-name" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data ActionableActionNamePropertyInfo +instance AttrInfo ActionableActionNamePropertyInfo where + type AttrAllowedOps ActionableActionNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionableActionNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionableActionNamePropertyInfo = IsActionable + type AttrGetType ActionableActionNamePropertyInfo = (Maybe T.Text) + type AttrLabel ActionableActionNamePropertyInfo = "action-name" + type AttrOrigin ActionableActionNamePropertyInfo = Actionable + attrGet _ = getActionableActionName + attrSet _ = setActionableActionName + attrConstruct _ = constructActionableActionName + attrClear _ = clearActionableActionName +#endif + +-- VVV Prop "action-target" + -- Type: TVariant + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@action-target@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' actionable #actionTarget +@ +-} +getActionableActionTarget :: (MonadIO m, IsActionable o) => o -> m (Maybe GVariant) +getActionableActionTarget obj = liftIO $ B.Properties.getObjectPropertyVariant obj "action-target" + +{- | +Set the value of the “@action-target@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' actionable [ #actionTarget 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionableActionTarget :: (MonadIO m, IsActionable o) => o -> GVariant -> m () +setActionableActionTarget obj val = liftIO $ B.Properties.setObjectPropertyVariant obj "action-target" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@action-target@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionableActionTarget :: (IsActionable o) => GVariant -> IO (GValueConstruct o) +constructActionableActionTarget val = B.Properties.constructObjectPropertyVariant "action-target" (Just val) + +{- | +Set the value of the “@action-target@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #actionTarget +@ +-} +clearActionableActionTarget :: (MonadIO m, IsActionable o) => o -> m () +clearActionableActionTarget obj = liftIO $ B.Properties.setObjectPropertyVariant obj "action-target" (Nothing :: Maybe GVariant) + +#if ENABLE_OVERLOADING +data ActionableActionTargetPropertyInfo +instance AttrInfo ActionableActionTargetPropertyInfo where + type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionableActionTargetPropertyInfo = (~) GVariant + type AttrBaseTypeConstraint ActionableActionTargetPropertyInfo = IsActionable + type AttrGetType ActionableActionTargetPropertyInfo = (Maybe GVariant) + type AttrLabel ActionableActionTargetPropertyInfo = "action-target" + type AttrOrigin ActionableActionTargetPropertyInfo = Actionable + attrGet _ = getActionableActionTarget + attrSet _ = setActionableActionTarget + attrConstruct _ = constructActionableActionTarget + attrClear _ = clearActionableActionTarget +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Actionable +type instance O.AttributeList Actionable = ActionableAttributeList +type ActionableAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +actionableActionName :: AttrLabelProxy "actionName" +actionableActionName = AttrLabelProxy + +actionableActionTarget :: AttrLabelProxy "actionTarget" +actionableActionTarget = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveActionableMethod (t :: Symbol) (o :: *) :: * where + ResolveActionableMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveActionableMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveActionableMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveActionableMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveActionableMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveActionableMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveActionableMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveActionableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveActionableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveActionableMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveActionableMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveActionableMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo + ResolveActionableMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveActionableMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveActionableMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveActionableMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveActionableMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveActionableMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveActionableMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveActionableMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveActionableMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveActionableMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveActionableMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveActionableMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveActionableMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveActionableMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveActionableMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveActionableMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveActionableMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveActionableMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveActionableMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveActionableMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveActionableMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveActionableMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveActionableMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveActionableMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveActionableMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveActionableMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveActionableMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveActionableMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveActionableMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveActionableMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveActionableMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveActionableMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveActionableMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveActionableMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveActionableMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveActionableMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveActionableMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveActionableMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveActionableMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveActionableMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveActionableMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveActionableMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveActionableMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveActionableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveActionableMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveActionableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveActionableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveActionableMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveActionableMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveActionableMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveActionableMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveActionableMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveActionableMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveActionableMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveActionableMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveActionableMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveActionableMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveActionableMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveActionableMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveActionableMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveActionableMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveActionableMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveActionableMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveActionableMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveActionableMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveActionableMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveActionableMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveActionableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveActionableMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveActionableMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveActionableMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveActionableMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveActionableMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveActionableMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveActionableMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveActionableMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveActionableMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveActionableMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveActionableMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveActionableMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveActionableMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveActionableMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveActionableMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveActionableMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveActionableMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveActionableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveActionableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveActionableMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveActionableMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveActionableMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveActionableMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveActionableMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveActionableMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveActionableMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveActionableMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveActionableMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveActionableMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveActionableMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveActionableMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveActionableMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveActionableMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveActionableMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveActionableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveActionableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveActionableMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveActionableMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveActionableMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveActionableMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveActionableMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveActionableMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveActionableMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveActionableMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveActionableMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveActionableMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveActionableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveActionableMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveActionableMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveActionableMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveActionableMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveActionableMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveActionableMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveActionableMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveActionableMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveActionableMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveActionableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveActionableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveActionableMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveActionableMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveActionableMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveActionableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveActionableMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveActionableMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveActionableMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveActionableMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveActionableMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveActionableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveActionableMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveActionableMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveActionableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveActionableMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveActionableMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveActionableMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveActionableMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveActionableMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveActionableMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveActionableMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveActionableMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveActionableMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveActionableMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveActionableMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveActionableMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveActionableMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveActionableMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveActionableMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveActionableMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveActionableMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveActionableMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveActionableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveActionableMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveActionableMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveActionableMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveActionableMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveActionableMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveActionableMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveActionableMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveActionableMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveActionableMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveActionableMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveActionableMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveActionableMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveActionableMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveActionableMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveActionableMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveActionableMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveActionableMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveActionableMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveActionableMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveActionableMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveActionableMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveActionableMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveActionableMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveActionableMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveActionableMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveActionableMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveActionableMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveActionableMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveActionableMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveActionableMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveActionableMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveActionableMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveActionableMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveActionableMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveActionableMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveActionableMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveActionableMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveActionableMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveActionableMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveActionableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveActionableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveActionableMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveActionableMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveActionableMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveActionableMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveActionableMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveActionableMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveActionableMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveActionableMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveActionableMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveActionableMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveActionableMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveActionableMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveActionableMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveActionableMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveActionableMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveActionableMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveActionableMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveActionableMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveActionableMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveActionableMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveActionableMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveActionableMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveActionableMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveActionableMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveActionableMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveActionableMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveActionableMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveActionableMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveActionableMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveActionableMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveActionableMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveActionableMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveActionableMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveActionableMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveActionableMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveActionableMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveActionableMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveActionableMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveActionableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveActionableMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveActionableMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveActionableMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveActionableMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveActionableMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveActionableMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveActionableMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveActionableMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveActionableMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveActionableMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveActionableMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveActionableMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveActionableMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveActionableMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveActionableMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveActionableMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveActionableMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveActionableMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveActionableMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveActionableMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveActionableMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveActionableMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveActionableMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveActionableMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveActionableMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveActionableMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveActionableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveActionableMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveActionableMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveActionableMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveActionableMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveActionableMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveActionableMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveActionableMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveActionableMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveActionableMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveActionableMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveActionableMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveActionableMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveActionableMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveActionableMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveActionableMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveActionableMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveActionableMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveActionableMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveActionableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveActionableMethod t Actionable, O.MethodInfo info Actionable p) => OL.IsLabel t (Actionable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method Actionable::get_action_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "actionable", argType = TInterface (Name {namespace = "Gtk", name = "Actionable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionable widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_actionable_get_action_name" gtk_actionable_get_action_name :: + Ptr Actionable -> -- actionable : TInterface (Name {namespace = "Gtk", name = "Actionable"}) + IO CString + +{- | +Gets the action name for /@actionable@/. + +See 'GI.Gtk.Interfaces.Actionable.actionableSetActionName' for more information. + +/Since: 3.4/ +-} +actionableGetActionName :: + (B.CallStack.HasCallStack, MonadIO m, IsActionable a) => + a + {- ^ /@actionable@/: a 'GI.Gtk.Interfaces.Actionable.Actionable' widget -} + -> m (Maybe T.Text) + {- ^ __Returns:__ the action name, or 'Nothing' if none is set -} +actionableGetActionName actionable = liftIO $ do + actionable' <- unsafeManagedPtrCastPtr actionable + result <- gtk_actionable_get_action_name actionable' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + return result'' + touchManagedPtr actionable + return maybeResult + +#if ENABLE_OVERLOADING +data ActionableGetActionNameMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsActionable a) => O.MethodInfo ActionableGetActionNameMethodInfo a signature where + overloadedMethod _ = actionableGetActionName + +#endif + +-- method Actionable::get_action_target_value +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "actionable", argType = TInterface (Name {namespace = "Gtk", name = "Actionable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionable widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just TVariant +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_actionable_get_action_target_value" gtk_actionable_get_action_target_value :: + Ptr Actionable -> -- actionable : TInterface (Name {namespace = "Gtk", name = "Actionable"}) + IO (Ptr GVariant) + +{- | +Gets the current target value of /@actionable@/. + +See 'GI.Gtk.Interfaces.Actionable.actionableSetActionTargetValue' for more information. + +/Since: 3.4/ +-} +actionableGetActionTargetValue :: + (B.CallStack.HasCallStack, MonadIO m, IsActionable a) => + a + {- ^ /@actionable@/: a 'GI.Gtk.Interfaces.Actionable.Actionable' widget -} + -> m GVariant + {- ^ __Returns:__ the current target value -} +actionableGetActionTargetValue actionable = liftIO $ do + actionable' <- unsafeManagedPtrCastPtr actionable + result <- gtk_actionable_get_action_target_value actionable' + checkUnexpectedReturnNULL "actionableGetActionTargetValue" result + result' <- B.GVariant.newGVariantFromPtr result + touchManagedPtr actionable + return result' + +#if ENABLE_OVERLOADING +data ActionableGetActionTargetValueMethodInfo +instance (signature ~ (m GVariant), MonadIO m, IsActionable a) => O.MethodInfo ActionableGetActionTargetValueMethodInfo a signature where + overloadedMethod _ = actionableGetActionTargetValue + +#endif + +-- method Actionable::set_action_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "actionable", argType = TInterface (Name {namespace = "Gtk", name = "Actionable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionable widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an action name, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_actionable_set_action_name" gtk_actionable_set_action_name :: + Ptr Actionable -> -- actionable : TInterface (Name {namespace = "Gtk", name = "Actionable"}) + CString -> -- action_name : TBasicType TUTF8 + IO () + +{- | +Specifies the name of the action with which this widget should be +associated. If /@actionName@/ is 'Nothing' then the widget will be +unassociated from any previous action. + +Usually this function is used when the widget is located (or will be +located) within the hierarchy of a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow'. + +Names are of the form “win.save” or “app.quit” for actions on the +containing 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' or its associated 'GI.Gtk.Objects.Application.Application', +respectively. This is the same form used for actions in the 'GI.Gio.Objects.Menu.Menu' +associated with the window. + +/Since: 3.4/ +-} +actionableSetActionName :: + (B.CallStack.HasCallStack, MonadIO m, IsActionable a) => + a + {- ^ /@actionable@/: a 'GI.Gtk.Interfaces.Actionable.Actionable' widget -} + -> Maybe (T.Text) + {- ^ /@actionName@/: an action name, or 'Nothing' -} + -> m () +actionableSetActionName actionable actionName = liftIO $ do + actionable' <- unsafeManagedPtrCastPtr actionable + maybeActionName <- case actionName of + Nothing -> return nullPtr + Just jActionName -> do + jActionName' <- textToCString jActionName + return jActionName' + gtk_actionable_set_action_name actionable' maybeActionName + touchManagedPtr actionable + freeMem maybeActionName + return () + +#if ENABLE_OVERLOADING +data ActionableSetActionNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsActionable a) => O.MethodInfo ActionableSetActionNameMethodInfo a signature where + overloadedMethod _ = actionableSetActionName + +#endif + +-- method Actionable::set_action_target_value +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "actionable", argType = TInterface (Name {namespace = "Gtk", name = "Actionable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionable widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant to set as the target value, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_actionable_set_action_target_value" gtk_actionable_set_action_target_value :: + Ptr Actionable -> -- actionable : TInterface (Name {namespace = "Gtk", name = "Actionable"}) + Ptr GVariant -> -- target_value : TVariant + IO () + +{- | +Sets the target value of an actionable widget. + +If /@targetValue@/ is 'Nothing' then the target value is unset. + +The target value has two purposes. First, it is used as the +parameter to activation of the action associated with the +'GI.Gtk.Interfaces.Actionable.Actionable' widget. Second, it is used to determine if the widget +should be rendered as “active” — the widget is active if the state +is equal to the given target. + +Consider the example of associating a set of buttons with a 'GI.Gio.Interfaces.Action.Action' +with string state in a typical “radio button” situation. Each button +will be associated with the same action, but with a different target +value for that action. Clicking on a particular button will activate +the action with the target of that button, which will typically cause +the action’s state to change to that value. Since the action’s state +is now equal to the target value of the button, the button will now +be rendered as active (and the other buttons, with different targets, +rendered inactive). + +/Since: 3.4/ +-} +actionableSetActionTargetValue :: + (B.CallStack.HasCallStack, MonadIO m, IsActionable a) => + a + {- ^ /@actionable@/: a 'GI.Gtk.Interfaces.Actionable.Actionable' widget -} + -> Maybe (GVariant) + {- ^ /@targetValue@/: a 'GVariant' to set as the target value, or 'Nothing' -} + -> m () +actionableSetActionTargetValue actionable targetValue = liftIO $ do + actionable' <- unsafeManagedPtrCastPtr actionable + maybeTargetValue <- case targetValue of + Nothing -> return nullPtr + Just jTargetValue -> do + jTargetValue' <- unsafeManagedPtrGetPtr jTargetValue + return jTargetValue' + gtk_actionable_set_action_target_value actionable' maybeTargetValue + touchManagedPtr actionable + whenJust targetValue touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ActionableSetActionTargetValueMethodInfo +instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsActionable a) => O.MethodInfo ActionableSetActionTargetValueMethodInfo a signature where + overloadedMethod _ = actionableSetActionTargetValue + +#endif + +-- method Actionable::set_detailed_action_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "actionable", argType = TInterface (Name {namespace = "Gtk", name = "Actionable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionable widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the detailed action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_actionable_set_detailed_action_name" gtk_actionable_set_detailed_action_name :: + Ptr Actionable -> -- actionable : TInterface (Name {namespace = "Gtk", name = "Actionable"}) + CString -> -- detailed_action_name : TBasicType TUTF8 + IO () + +{- | +Sets the action-name and associated string target value of an +actionable widget. + +/@detailedActionName@/ is a string in the format accepted by +'GI.Gio.Functions.actionParseDetailedName'. + +(Note that prior to version 3.22.25, +this function is only usable for actions with a simple \"s\" target, and +/@detailedActionName@/ must be of the form @\"action::target\"@ where +@action@ is the action name and @target@ is the string to use +as the target.) + +/Since: 3.4/ +-} +actionableSetDetailedActionName :: + (B.CallStack.HasCallStack, MonadIO m, IsActionable a) => + a + {- ^ /@actionable@/: a 'GI.Gtk.Interfaces.Actionable.Actionable' widget -} + -> T.Text + {- ^ /@detailedActionName@/: the detailed action name -} + -> m () +actionableSetDetailedActionName actionable detailedActionName = liftIO $ do + actionable' <- unsafeManagedPtrCastPtr actionable + detailedActionName' <- textToCString detailedActionName + gtk_actionable_set_detailed_action_name actionable' detailedActionName' + touchManagedPtr actionable + freeMem detailedActionName' + return () + +#if ENABLE_OVERLOADING +data ActionableSetDetailedActionNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsActionable a) => O.MethodInfo ActionableSetDetailedActionNameMethodInfo a signature where + overloadedMethod _ = actionableSetDetailedActionName + +#endif + + diff --git a/GI/Gtk/Interfaces/Actionable.hs-boot b/GI/Gtk/Interfaces/Actionable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Actionable.hs-boot @@ -0,0 +1,50 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.Actionable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Actionable = Actionable (ManagedPtr Actionable) +instance GObject Actionable where +class (GObject o, O.IsDescendantOf Actionable o) => IsActionable o +instance (GObject o, O.IsDescendantOf Actionable o) => IsActionable o +instance O.HasParentTypes Actionable +#if ENABLE_OVERLOADING +data ActionableActionNamePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionableActionTargetPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionableGetActionNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionableGetActionTargetValueMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionableSetActionNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionableSetActionTargetValueMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionableSetDetailedActionNameMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/Activatable.hs b/GI/Gtk/Interfaces/Activatable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Activatable.hs @@ -0,0 +1,837 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +Activatable widgets can be connected to a 'GI.Gtk.Objects.Action.Action' and reflects +the state of its action. A 'GI.Gtk.Interfaces.Activatable.Activatable' can also provide feedback +through its action, as they are responsible for activating their +related actions. + += Implementing GtkActivatable + +When extending a class that is already 'GI.Gtk.Interfaces.Activatable.Activatable'; it is only +necessary to implement the 'GI.Gtk.Interfaces.Activatable.Activatable'->@/sync_action_properties()/@ +and 'GI.Gtk.Interfaces.Activatable.Activatable'->@/update()/@ methods and chain up to the parent +implementation, however when introducing +a new 'GI.Gtk.Interfaces.Activatable.Activatable' class; the 'GI.Gtk.Interfaces.Activatable.Activatable':@/related-action/@ and +'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ properties need to be handled by +the implementor. Handling these properties is mostly a matter of installing +the action pointer and boolean flag on your instance, and calling +'GI.Gtk.Interfaces.Activatable.activatableDoSetRelatedAction' and +'GI.Gtk.Interfaces.Activatable.activatableSyncActionProperties' at the appropriate times. + +## A class fragment implementing 'GI.Gtk.Interfaces.Activatable.Activatable' + + +=== /C code/ +> +> +>enum { +>... +> +>PROP_ACTIVATABLE_RELATED_ACTION, +>PROP_ACTIVATABLE_USE_ACTION_APPEARANCE +>} +> +>struct _FooBarPrivate +>{ +> +> ... +> +> GtkAction *action; +> gboolean use_action_appearance; +>}; +> +>... +> +>static void foo_bar_activatable_interface_init (GtkActivatableIface *iface); +>static void foo_bar_activatable_update (GtkActivatable *activatable, +> GtkAction *action, +> const gchar *property_name); +>static void foo_bar_activatable_sync_action_properties (GtkActivatable *activatable, +> GtkAction *action); +>... +> +> +>static void +>foo_bar_class_init (FooBarClass *klass) +>{ +> +> ... +> +> g_object_class_override_property (gobject_class, PROP_ACTIVATABLE_RELATED_ACTION, "related-action"); +> g_object_class_override_property (gobject_class, PROP_ACTIVATABLE_USE_ACTION_APPEARANCE, "use-action-appearance"); +> +> ... +>} +> +> +>static void +>foo_bar_activatable_interface_init (GtkActivatableIface *iface) +>{ +> iface->update = foo_bar_activatable_update; +> iface->sync_action_properties = foo_bar_activatable_sync_action_properties; +>} +> +>... Break the reference using gtk_activatable_do_set_related_action()... +> +>static void +>foo_bar_dispose (GObject *object) +>{ +> FooBar *bar = FOO_BAR (object); +> FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar); +> +> ... +> +> if (priv->action) +> { +> gtk_activatable_do_set_related_action (GTK_ACTIVATABLE (bar), NULL); +> priv->action = NULL; +> } +> G_OBJECT_CLASS (foo_bar_parent_class)->dispose (object); +>} +> +>... Handle the “related-action” and “use-action-appearance” properties ... +> +>static void +>foo_bar_set_property (GObject *object, +> guint prop_id, +> const GValue *value, +> GParamSpec *pspec) +>{ +> FooBar *bar = FOO_BAR (object); +> FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar); +> +> switch (prop_id) +> { +> +> ... +> +> case PROP_ACTIVATABLE_RELATED_ACTION: +> foo_bar_set_related_action (bar, g_value_get_object (value)); +> break; +> case PROP_ACTIVATABLE_USE_ACTION_APPEARANCE: +> foo_bar_set_use_action_appearance (bar, g_value_get_boolean (value)); +> break; +> default: +> G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec); +> break; +> } +>} +> +>static void +>foo_bar_get_property (GObject *object, +> guint prop_id, +> GValue *value, +> GParamSpec *pspec) +>{ +> FooBar *bar = FOO_BAR (object); +> FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar); +> +> switch (prop_id) +> { +> +> ... +> +> case PROP_ACTIVATABLE_RELATED_ACTION: +> g_value_set_object (value, priv->action); +> break; +> case PROP_ACTIVATABLE_USE_ACTION_APPEARANCE: +> g_value_set_boolean (value, priv->use_action_appearance); +> break; +> default: +> G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec); +> break; +> } +>} +> +> +>static void +>foo_bar_set_use_action_appearance (FooBar *bar, +> gboolean use_appearance) +>{ +> FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar); +> +> if (priv->use_action_appearance != use_appearance) +> { +> priv->use_action_appearance = use_appearance; +> +> gtk_activatable_sync_action_properties (GTK_ACTIVATABLE (bar), priv->action); +> } +>} +> +>... call gtk_activatable_do_set_related_action() and then assign the action pointer, +>no need to reference the action here since gtk_activatable_do_set_related_action() already +>holds a reference here for you... +>static void +>foo_bar_set_related_action (FooBar *bar, +> GtkAction *action) +>{ +> FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar); +> +> if (priv->action == action) +> return; +> +> gtk_activatable_do_set_related_action (GTK_ACTIVATABLE (bar), action); +> +> priv->action = action; +>} +> +>... Selectively reset and update activatable depending on the use-action-appearance property ... +>static void +>gtk_button_activatable_sync_action_properties (GtkActivatable *activatable, +> GtkAction *action) +>{ +> GtkButtonPrivate *priv = GTK_BUTTON_GET_PRIVATE (activatable); +> +> if (!action) +> return; +> +> if (gtk_action_is_visible (action)) +> gtk_widget_show (GTK_WIDGET (activatable)); +> else +> gtk_widget_hide (GTK_WIDGET (activatable)); +> +> gtk_widget_set_sensitive (GTK_WIDGET (activatable), gtk_action_is_sensitive (action)); +> +> ... +> +> if (priv->use_action_appearance) +> { +> if (gtk_action_get_stock_id (action)) +> foo_bar_set_stock (button, gtk_action_get_stock_id (action)); +> else if (gtk_action_get_label (action)) +> foo_bar_set_label (button, gtk_action_get_label (action)); +> +> ... +> +> } +>} +> +>static void +>foo_bar_activatable_update (GtkActivatable *activatable, +> GtkAction *action, +> const gchar *property_name) +>{ +> FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (activatable); +> +> if (strcmp (property_name, "visible") == 0) +> { +> if (gtk_action_is_visible (action)) +> gtk_widget_show (GTK_WIDGET (activatable)); +> else +> gtk_widget_hide (GTK_WIDGET (activatable)); +> } +> else if (strcmp (property_name, "sensitive") == 0) +> gtk_widget_set_sensitive (GTK_WIDGET (activatable), gtk_action_is_sensitive (action)); +> +> ... +> +> if (!priv->use_action_appearance) +> return; +> +> if (strcmp (property_name, "stock-id") == 0) +> foo_bar_set_stock (button, gtk_action_get_stock_id (action)); +> else if (strcmp (property_name, "label") == 0) +> foo_bar_set_label (button, gtk_action_get_label (action)); +> +> ... +>} + +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.Activatable + ( + +-- * Exported types + Activatable(..) , + noActivatable , + IsActivatable , + toActivatable , + + + -- * Methods +-- ** doSetRelatedAction #method:doSetRelatedAction# + +#if ENABLE_OVERLOADING + ActivatableDoSetRelatedActionMethodInfo , +#endif + activatableDoSetRelatedAction , + + +-- ** getRelatedAction #method:getRelatedAction# + +#if ENABLE_OVERLOADING + ActivatableGetRelatedActionMethodInfo , +#endif + activatableGetRelatedAction , + + +-- ** getUseActionAppearance #method:getUseActionAppearance# + +#if ENABLE_OVERLOADING + ActivatableGetUseActionAppearanceMethodInfo, +#endif + activatableGetUseActionAppearance , + + +-- ** setRelatedAction #method:setRelatedAction# + +#if ENABLE_OVERLOADING + ActivatableSetRelatedActionMethodInfo , +#endif + activatableSetRelatedAction , + + +-- ** setUseActionAppearance #method:setUseActionAppearance# + +#if ENABLE_OVERLOADING + ActivatableSetUseActionAppearanceMethodInfo, +#endif + activatableSetUseActionAppearance , + + +-- ** syncActionProperties #method:syncActionProperties# + +#if ENABLE_OVERLOADING + ActivatableSyncActionPropertiesMethodInfo, +#endif + activatableSyncActionProperties , + + + + + -- * Properties +-- ** relatedAction #attr:relatedAction# +{- | The action that this activatable will activate and receive +updates from for various states and possibly appearance. + +> 'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle the this property and +> call 'GI.Gtk.Interfaces.Activatable.activatableDoSetRelatedAction' when it changes. + +/Since: 2.16/ +-} +#if ENABLE_OVERLOADING + ActivatableRelatedActionPropertyInfo , +#endif +#if ENABLE_OVERLOADING + activatableRelatedAction , +#endif + constructActivatableRelatedAction , + getActivatableRelatedAction , + setActivatableRelatedAction , + + +-- ** useActionAppearance #attr:useActionAppearance# +{- | Whether this activatable should reset its layout +and appearance when setting the related action or when +the action changes appearance. + +See the 'GI.Gtk.Objects.Action.Action' documentation directly to find which properties +should be ignored by the 'GI.Gtk.Interfaces.Activatable.Activatable' when this property is 'False'. + +> 'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle this property +> and call 'GI.Gtk.Interfaces.Activatable.activatableSyncActionProperties' on the activatable +> widget when it changes. + +/Since: 2.16/ +-} +#if ENABLE_OVERLOADING + ActivatableUseActionAppearancePropertyInfo, +#endif +#if ENABLE_OVERLOADING + activatableUseActionAppearance , +#endif + constructActivatableUseActionAppearance , + getActivatableUseActionAppearance , + setActivatableUseActionAppearance , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Objects.Action as Gtk.Action + +-- interface Activatable +-- | Memory-managed wrapper type. +newtype Activatable = Activatable (ManagedPtr Activatable) +-- | A convenience alias for `Nothing` :: `Maybe` `Activatable`. +noActivatable :: Maybe Activatable +noActivatable = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList Activatable = ActivatableSignalList +type ActivatableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_activatable_get_type" + c_gtk_activatable_get_type :: IO GType + +instance GObject Activatable where + gobjectType = c_gtk_activatable_get_type + + +-- | Type class for types which can be safely cast to `Activatable`, for instance with `toActivatable`. +class (GObject o, O.IsDescendantOf Activatable o) => IsActivatable o +instance (GObject o, O.IsDescendantOf Activatable o) => IsActivatable o + +instance O.HasParentTypes Activatable +type instance O.ParentTypes Activatable = '[GObject.Object.Object] + +-- | Cast to `Activatable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toActivatable :: (MonadIO m, IsActivatable o) => o -> m Activatable +toActivatable = liftIO . unsafeCastTo Activatable + +-- VVV Prop "related-action" + -- Type: TInterface (Name {namespace = "Gtk", name = "Action"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@related-action@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' activatable #relatedAction +@ +-} +getActivatableRelatedAction :: (MonadIO m, IsActivatable o) => o -> m Gtk.Action.Action +getActivatableRelatedAction obj = liftIO $ checkUnexpectedNothing "getActivatableRelatedAction" $ B.Properties.getObjectPropertyObject obj "related-action" Gtk.Action.Action + +{- | +Set the value of the “@related-action@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' activatable [ #relatedAction 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActivatableRelatedAction :: (MonadIO m, IsActivatable o, Gtk.Action.IsAction a) => o -> a -> m () +setActivatableRelatedAction obj val = liftIO $ B.Properties.setObjectPropertyObject obj "related-action" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@related-action@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActivatableRelatedAction :: (IsActivatable o, Gtk.Action.IsAction a) => a -> IO (GValueConstruct o) +constructActivatableRelatedAction val = B.Properties.constructObjectPropertyObject "related-action" (Just val) + +#if ENABLE_OVERLOADING +data ActivatableRelatedActionPropertyInfo +instance AttrInfo ActivatableRelatedActionPropertyInfo where + type AttrAllowedOps ActivatableRelatedActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActivatableRelatedActionPropertyInfo = Gtk.Action.IsAction + type AttrBaseTypeConstraint ActivatableRelatedActionPropertyInfo = IsActivatable + type AttrGetType ActivatableRelatedActionPropertyInfo = Gtk.Action.Action + type AttrLabel ActivatableRelatedActionPropertyInfo = "related-action" + type AttrOrigin ActivatableRelatedActionPropertyInfo = Activatable + attrGet _ = getActivatableRelatedAction + attrSet _ = setActivatableRelatedAction + attrConstruct _ = constructActivatableRelatedAction + attrClear _ = undefined +#endif + +-- VVV Prop "use-action-appearance" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@use-action-appearance@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' activatable #useActionAppearance +@ +-} +getActivatableUseActionAppearance :: (MonadIO m, IsActivatable o) => o -> m Bool +getActivatableUseActionAppearance obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-action-appearance" + +{- | +Set the value of the “@use-action-appearance@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' activatable [ #useActionAppearance 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActivatableUseActionAppearance :: (MonadIO m, IsActivatable o) => o -> Bool -> m () +setActivatableUseActionAppearance obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-action-appearance" val + +{- | +Construct a `GValueConstruct` with valid value for the “@use-action-appearance@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActivatableUseActionAppearance :: (IsActivatable o) => Bool -> IO (GValueConstruct o) +constructActivatableUseActionAppearance val = B.Properties.constructObjectPropertyBool "use-action-appearance" val + +#if ENABLE_OVERLOADING +data ActivatableUseActionAppearancePropertyInfo +instance AttrInfo ActivatableUseActionAppearancePropertyInfo where + type AttrAllowedOps ActivatableUseActionAppearancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActivatableUseActionAppearancePropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActivatableUseActionAppearancePropertyInfo = IsActivatable + type AttrGetType ActivatableUseActionAppearancePropertyInfo = Bool + type AttrLabel ActivatableUseActionAppearancePropertyInfo = "use-action-appearance" + type AttrOrigin ActivatableUseActionAppearancePropertyInfo = Activatable + attrGet _ = getActivatableUseActionAppearance + attrSet _ = setActivatableUseActionAppearance + attrConstruct _ = constructActivatableUseActionAppearance + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Activatable +type instance O.AttributeList Activatable = ActivatableAttributeList +type ActivatableAttributeList = ('[ '("relatedAction", ActivatableRelatedActionPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +activatableRelatedAction :: AttrLabelProxy "relatedAction" +activatableRelatedAction = AttrLabelProxy + +activatableUseActionAppearance :: AttrLabelProxy "useActionAppearance" +activatableUseActionAppearance = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveActivatableMethod (t :: Symbol) (o :: *) :: * where + ResolveActivatableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveActivatableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveActivatableMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveActivatableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveActivatableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveActivatableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveActivatableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveActivatableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveActivatableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveActivatableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveActivatableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveActivatableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveActivatableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveActivatableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveActivatableMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveActivatableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveActivatableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveActivatableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveActivatableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveActivatableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveActivatableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveActivatableMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveActivatableMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveActivatableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveActivatableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveActivatableMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveActivatableMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveActivatableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveActivatableMethod t Activatable, O.MethodInfo info Activatable p) => OL.IsLabel t (Activatable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method Activatable::do_set_related_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "activatable", argType = TInterface (Name {namespace = "Gtk", name = "Activatable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActivatable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkAction to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_activatable_do_set_related_action" gtk_activatable_do_set_related_action :: + Ptr Activatable -> -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"}) + Ptr Gtk.Action.Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED activatableDoSetRelatedAction ["(Since version 3.10)"] #-} +{- | +This is a utility function for 'GI.Gtk.Interfaces.Activatable.Activatable' implementors. + +When implementing 'GI.Gtk.Interfaces.Activatable.Activatable' you must call this when +handling changes of the 'GI.Gtk.Interfaces.Activatable.Activatable':@/related-action/@, and +you must also use this to break references in 'GI.GObject.Objects.Object.Object'->@/dispose()/@. + +This function adds a reference to the currently set related +action for you, it also makes sure the 'GI.Gtk.Interfaces.Activatable.Activatable'->@/update()/@ +method is called when the related 'GI.Gtk.Objects.Action.Action' properties change +and registers to the action’s proxy list. + +> Be careful to call this before setting the local +> copy of the 'GI.Gtk.Objects.Action.Action' property, since this function uses +> 'GI.Gtk.Interfaces.Activatable.activatableGetRelatedAction' to retrieve the +> previous action. + +/Since: 2.16/ +-} +activatableDoSetRelatedAction :: + (B.CallStack.HasCallStack, MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => + a + {- ^ /@activatable@/: a 'GI.Gtk.Interfaces.Activatable.Activatable' -} + -> b + {- ^ /@action@/: the 'GI.Gtk.Objects.Action.Action' to set -} + -> m () +activatableDoSetRelatedAction activatable action = liftIO $ do + activatable' <- unsafeManagedPtrCastPtr activatable + action' <- unsafeManagedPtrCastPtr action + gtk_activatable_do_set_related_action activatable' action' + touchManagedPtr activatable + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActivatableDoSetRelatedActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => O.MethodInfo ActivatableDoSetRelatedActionMethodInfo a signature where + overloadedMethod _ = activatableDoSetRelatedAction + +#endif + +-- method Activatable::get_related_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "activatable", argType = TInterface (Name {namespace = "Gtk", name = "Activatable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActivatable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Action"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_activatable_get_related_action" gtk_activatable_get_related_action :: + Ptr Activatable -> -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"}) + IO (Ptr Gtk.Action.Action) + +{-# DEPRECATED activatableGetRelatedAction ["(Since version 3.10)"] #-} +{- | +Gets the related 'GI.Gtk.Objects.Action.Action' for /@activatable@/. + +/Since: 2.16/ +-} +activatableGetRelatedAction :: + (B.CallStack.HasCallStack, MonadIO m, IsActivatable a) => + a + {- ^ /@activatable@/: a 'GI.Gtk.Interfaces.Activatable.Activatable' -} + -> m Gtk.Action.Action + {- ^ __Returns:__ the related 'GI.Gtk.Objects.Action.Action' if one is set. -} +activatableGetRelatedAction activatable = liftIO $ do + activatable' <- unsafeManagedPtrCastPtr activatable + result <- gtk_activatable_get_related_action activatable' + checkUnexpectedReturnNULL "activatableGetRelatedAction" result + result' <- (newObject Gtk.Action.Action) result + touchManagedPtr activatable + return result' + +#if ENABLE_OVERLOADING +data ActivatableGetRelatedActionMethodInfo +instance (signature ~ (m Gtk.Action.Action), MonadIO m, IsActivatable a) => O.MethodInfo ActivatableGetRelatedActionMethodInfo a signature where + overloadedMethod _ = activatableGetRelatedAction + +#endif + +-- method Activatable::get_use_action_appearance +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "activatable", argType = TInterface (Name {namespace = "Gtk", name = "Activatable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActivatable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_activatable_get_use_action_appearance" gtk_activatable_get_use_action_appearance :: + Ptr Activatable -> -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"}) + IO CInt + +{-# DEPRECATED activatableGetUseActionAppearance ["(Since version 3.10)"] #-} +{- | +Gets whether this activatable should reset its layout +and appearance when setting the related action or when +the action changes appearance. + +/Since: 2.16/ +-} +activatableGetUseActionAppearance :: + (B.CallStack.HasCallStack, MonadIO m, IsActivatable a) => + a + {- ^ /@activatable@/: a 'GI.Gtk.Interfaces.Activatable.Activatable' -} + -> m Bool + {- ^ __Returns:__ whether /@activatable@/ uses its actions appearance. -} +activatableGetUseActionAppearance activatable = liftIO $ do + activatable' <- unsafeManagedPtrCastPtr activatable + result <- gtk_activatable_get_use_action_appearance activatable' + let result' = (/= 0) result + touchManagedPtr activatable + return result' + +#if ENABLE_OVERLOADING +data ActivatableGetUseActionAppearanceMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsActivatable a) => O.MethodInfo ActivatableGetUseActionAppearanceMethodInfo a signature where + overloadedMethod _ = activatableGetUseActionAppearance + +#endif + +-- method Activatable::set_related_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "activatable", argType = TInterface (Name {namespace = "Gtk", name = "Activatable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActivatable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkAction to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_activatable_set_related_action" gtk_activatable_set_related_action :: + Ptr Activatable -> -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"}) + Ptr Gtk.Action.Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED activatableSetRelatedAction ["(Since version 3.10)"] #-} +{- | +Sets the related action on the /@activatable@/ object. + +> 'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle the 'GI.Gtk.Interfaces.Activatable.Activatable':@/related-action/@ +> property and call 'GI.Gtk.Interfaces.Activatable.activatableDoSetRelatedAction' when it changes. + +/Since: 2.16/ +-} +activatableSetRelatedAction :: + (B.CallStack.HasCallStack, MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => + a + {- ^ /@activatable@/: a 'GI.Gtk.Interfaces.Activatable.Activatable' -} + -> b + {- ^ /@action@/: the 'GI.Gtk.Objects.Action.Action' to set -} + -> m () +activatableSetRelatedAction activatable action = liftIO $ do + activatable' <- unsafeManagedPtrCastPtr activatable + action' <- unsafeManagedPtrCastPtr action + gtk_activatable_set_related_action activatable' action' + touchManagedPtr activatable + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActivatableSetRelatedActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => O.MethodInfo ActivatableSetRelatedActionMethodInfo a signature where + overloadedMethod _ = activatableSetRelatedAction + +#endif + +-- method Activatable::set_use_action_appearance +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "activatable", argType = TInterface (Name {namespace = "Gtk", name = "Activatable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActivatable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to use the actions appearance", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_activatable_set_use_action_appearance" gtk_activatable_set_use_action_appearance :: + Ptr Activatable -> -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"}) + CInt -> -- use_appearance : TBasicType TBoolean + IO () + +{-# DEPRECATED activatableSetUseActionAppearance ["(Since version 3.10)"] #-} +{- | +Sets whether this activatable should reset its layout and appearance +when setting the related action or when the action changes appearance + +> 'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle the +> 'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ property and call +> 'GI.Gtk.Interfaces.Activatable.activatableSyncActionProperties' to update /@activatable@/ +> if needed. + +/Since: 2.16/ +-} +activatableSetUseActionAppearance :: + (B.CallStack.HasCallStack, MonadIO m, IsActivatable a) => + a + {- ^ /@activatable@/: a 'GI.Gtk.Interfaces.Activatable.Activatable' -} + -> Bool + {- ^ /@useAppearance@/: whether to use the actions appearance -} + -> m () +activatableSetUseActionAppearance activatable useAppearance = liftIO $ do + activatable' <- unsafeManagedPtrCastPtr activatable + let useAppearance' = (fromIntegral . fromEnum) useAppearance + gtk_activatable_set_use_action_appearance activatable' useAppearance' + touchManagedPtr activatable + return () + +#if ENABLE_OVERLOADING +data ActivatableSetUseActionAppearanceMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsActivatable a) => O.MethodInfo ActivatableSetUseActionAppearanceMethodInfo a signature where + overloadedMethod _ = activatableSetUseActionAppearance + +#endif + +-- method Activatable::sync_action_properties +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "activatable", argType = TInterface (Name {namespace = "Gtk", name = "Activatable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActivatable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the related #GtkAction or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_activatable_sync_action_properties" gtk_activatable_sync_action_properties :: + Ptr Activatable -> -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"}) + Ptr Gtk.Action.Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED activatableSyncActionProperties ["(Since version 3.10)"] #-} +{- | +This is called to update the activatable completely, this is called +internally when the 'GI.Gtk.Interfaces.Activatable.Activatable':@/related-action/@ property is set +or unset and by the implementing class when +'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ changes. + +/Since: 2.16/ +-} +activatableSyncActionProperties :: + (B.CallStack.HasCallStack, MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => + a + {- ^ /@activatable@/: a 'GI.Gtk.Interfaces.Activatable.Activatable' -} + -> Maybe (b) + {- ^ /@action@/: the related 'GI.Gtk.Objects.Action.Action' or 'Nothing' -} + -> m () +activatableSyncActionProperties activatable action = liftIO $ do + activatable' <- unsafeManagedPtrCastPtr activatable + maybeAction <- case action of + Nothing -> return nullPtr + Just jAction -> do + jAction' <- unsafeManagedPtrCastPtr jAction + return jAction' + gtk_activatable_sync_action_properties activatable' maybeAction + touchManagedPtr activatable + whenJust action touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ActivatableSyncActionPropertiesMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => O.MethodInfo ActivatableSyncActionPropertiesMethodInfo a signature where + overloadedMethod _ = activatableSyncActionProperties + +#endif + + diff --git a/GI/Gtk/Interfaces/Activatable.hs-boot b/GI/Gtk/Interfaces/Activatable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Activatable.hs-boot @@ -0,0 +1,53 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.Activatable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Activatable = Activatable (ManagedPtr Activatable) +instance GObject Activatable where +class (GObject o, O.IsDescendantOf Activatable o) => IsActivatable o +instance (GObject o, O.IsDescendantOf Activatable o) => IsActivatable o +instance O.HasParentTypes Activatable +#if ENABLE_OVERLOADING +data ActivatableRelatedActionPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActivatableUseActionAppearancePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActivatableDoSetRelatedActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActivatableGetRelatedActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActivatableGetUseActionAppearanceMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActivatableSetRelatedActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActivatableSetUseActionAppearanceMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActivatableSyncActionPropertiesMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/AppChooser.hs b/GI/Gtk/Interfaces/AppChooser.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/AppChooser.hs @@ -0,0 +1,613 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.AppChooser.AppChooser' is an interface that can be implemented by widgets which +allow the user to choose an application (typically for the purpose of +opening a file). The main objects that implement this interface are +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget', 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' and 'GI.Gtk.Objects.AppChooserButton.AppChooserButton'. + +Applications are represented by GIO 'GI.Gio.Interfaces.AppInfo.AppInfo' objects here. +GIO has a concept of recommended and fallback applications for a +given content type. Recommended applications are those that claim +to handle the content type itself, while fallback also includes +applications that handle a more generic content type. GIO also +knows the default and last-used application for a given content +type. The 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' provides detailed control over +whether the shown list of applications should include default, +recommended or fallback applications. + +To obtain the application that has been selected in a 'GI.Gtk.Interfaces.AppChooser.AppChooser', +use 'GI.Gtk.Interfaces.AppChooser.appChooserGetAppInfo'. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.AppChooser + ( + +-- * Exported types + AppChooser(..) , + noAppChooser , + IsAppChooser , + toAppChooser , + + + -- * Methods +-- ** getAppInfo #method:getAppInfo# + +#if ENABLE_OVERLOADING + AppChooserGetAppInfoMethodInfo , +#endif + appChooserGetAppInfo , + + +-- ** getContentType #method:getContentType# + +#if ENABLE_OVERLOADING + AppChooserGetContentTypeMethodInfo , +#endif + appChooserGetContentType , + + +-- ** refresh #method:refresh# + +#if ENABLE_OVERLOADING + AppChooserRefreshMethodInfo , +#endif + appChooserRefresh , + + + + + -- * Properties +-- ** contentType #attr:contentType# +{- | The content type of the 'GI.Gtk.Interfaces.AppChooser.AppChooser' object. + +See [GContentType][gio-GContentType] +for more information about content types. +-} +#if ENABLE_OVERLOADING + AppChooserContentTypePropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserContentType , +#endif + constructAppChooserContentType , + getAppChooserContentType , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- interface AppChooser +-- | Memory-managed wrapper type. +newtype AppChooser = AppChooser (ManagedPtr AppChooser) +-- | A convenience alias for `Nothing` :: `Maybe` `AppChooser`. +noAppChooser :: Maybe AppChooser +noAppChooser = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList AppChooser = AppChooserSignalList +type AppChooserSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_app_chooser_get_type" + c_gtk_app_chooser_get_type :: IO GType + +instance GObject AppChooser where + gobjectType = c_gtk_app_chooser_get_type + + +-- | Type class for types which can be safely cast to `AppChooser`, for instance with `toAppChooser`. +class (GObject o, O.IsDescendantOf AppChooser o) => IsAppChooser o +instance (GObject o, O.IsDescendantOf AppChooser o) => IsAppChooser o + +instance O.HasParentTypes AppChooser +type instance O.ParentTypes AppChooser = '[GObject.Object.Object, Gtk.Widget.Widget] + +-- | Cast to `AppChooser`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAppChooser :: (MonadIO m, IsAppChooser o) => o -> m AppChooser +toAppChooser = liftIO . unsafeCastTo AppChooser + +-- VVV Prop "content-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@content-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooser #contentType +@ +-} +getAppChooserContentType :: (MonadIO m, IsAppChooser o) => o -> m (Maybe T.Text) +getAppChooserContentType obj = liftIO $ B.Properties.getObjectPropertyString obj "content-type" + +{- | +Construct a `GValueConstruct` with valid value for the “@content-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserContentType :: (IsAppChooser o) => T.Text -> IO (GValueConstruct o) +constructAppChooserContentType val = B.Properties.constructObjectPropertyString "content-type" (Just val) + +#if ENABLE_OVERLOADING +data AppChooserContentTypePropertyInfo +instance AttrInfo AppChooserContentTypePropertyInfo where + type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AppChooserContentTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AppChooserContentTypePropertyInfo = IsAppChooser + type AttrGetType AppChooserContentTypePropertyInfo = (Maybe T.Text) + type AttrLabel AppChooserContentTypePropertyInfo = "content-type" + type AttrOrigin AppChooserContentTypePropertyInfo = AppChooser + attrGet _ = getAppChooserContentType + attrSet _ = undefined + attrConstruct _ = constructAppChooserContentType + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AppChooser +type instance O.AttributeList AppChooser = AppChooserAttributeList +type AppChooserAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +appChooserContentType :: AttrLabelProxy "contentType" +appChooserContentType = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveAppChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAppChooserMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAppChooserMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAppChooserMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAppChooserMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAppChooserMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAppChooserMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAppChooserMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAppChooserMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAppChooserMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAppChooserMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo + ResolveAppChooserMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAppChooserMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAppChooserMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAppChooserMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAppChooserMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAppChooserMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAppChooserMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAppChooserMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAppChooserMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAppChooserMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAppChooserMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAppChooserMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAppChooserMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAppChooserMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAppChooserMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAppChooserMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAppChooserMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAppChooserMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAppChooserMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAppChooserMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAppChooserMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAppChooserMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAppChooserMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAppChooserMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAppChooserMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAppChooserMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAppChooserMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAppChooserMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAppChooserMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAppChooserMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAppChooserMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAppChooserMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAppChooserMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAppChooserMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAppChooserMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAppChooserMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAppChooserMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAppChooserMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAppChooserMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAppChooserMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAppChooserMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAppChooserMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAppChooserMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAppChooserMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAppChooserMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAppChooserMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAppChooserMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAppChooserMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAppChooserMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAppChooserMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAppChooserMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAppChooserMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAppChooserMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAppChooserMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAppChooserMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAppChooserMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveAppChooserMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAppChooserMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAppChooserMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAppChooserMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAppChooserMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAppChooserMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAppChooserMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAppChooserMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAppChooserMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAppChooserMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAppChooserMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAppChooserMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAppChooserMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAppChooserMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAppChooserMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAppChooserMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAppChooserMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAppChooserMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAppChooserMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAppChooserMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAppChooserMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAppChooserMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAppChooserMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAppChooserMethod "refresh" o = AppChooserRefreshMethodInfo + ResolveAppChooserMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAppChooserMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAppChooserMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAppChooserMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAppChooserMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAppChooserMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAppChooserMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAppChooserMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAppChooserMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAppChooserMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAppChooserMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAppChooserMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAppChooserMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAppChooserMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAppChooserMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAppChooserMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAppChooserMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAppChooserMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAppChooserMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAppChooserMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAppChooserMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAppChooserMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAppChooserMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAppChooserMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAppChooserMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAppChooserMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAppChooserMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAppChooserMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAppChooserMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAppChooserMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAppChooserMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAppChooserMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAppChooserMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAppChooserMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo + ResolveAppChooserMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAppChooserMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAppChooserMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAppChooserMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAppChooserMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAppChooserMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAppChooserMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAppChooserMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAppChooserMethod "getContentType" o = AppChooserGetContentTypeMethodInfo + ResolveAppChooserMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAppChooserMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAppChooserMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAppChooserMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAppChooserMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAppChooserMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAppChooserMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAppChooserMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAppChooserMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAppChooserMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAppChooserMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAppChooserMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAppChooserMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAppChooserMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAppChooserMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAppChooserMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAppChooserMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAppChooserMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAppChooserMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAppChooserMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAppChooserMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAppChooserMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAppChooserMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAppChooserMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAppChooserMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAppChooserMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAppChooserMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveAppChooserMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAppChooserMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAppChooserMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAppChooserMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAppChooserMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAppChooserMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAppChooserMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAppChooserMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAppChooserMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAppChooserMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAppChooserMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAppChooserMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAppChooserMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAppChooserMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAppChooserMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAppChooserMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveAppChooserMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAppChooserMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAppChooserMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAppChooserMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAppChooserMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAppChooserMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAppChooserMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAppChooserMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAppChooserMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAppChooserMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAppChooserMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAppChooserMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAppChooserMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAppChooserMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAppChooserMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAppChooserMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAppChooserMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAppChooserMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAppChooserMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAppChooserMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAppChooserMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAppChooserMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAppChooserMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAppChooserMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAppChooserMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAppChooserMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAppChooserMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAppChooserMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAppChooserMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAppChooserMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAppChooserMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAppChooserMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAppChooserMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAppChooserMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAppChooserMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAppChooserMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAppChooserMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAppChooserMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAppChooserMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAppChooserMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAppChooserMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAppChooserMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAppChooserMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAppChooserMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAppChooserMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAppChooserMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAppChooserMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveAppChooserMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAppChooserMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAppChooserMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAppChooserMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAppChooserMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAppChooserMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAppChooserMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAppChooserMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAppChooserMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAppChooserMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAppChooserMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAppChooserMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAppChooserMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAppChooserMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAppChooserMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAppChooserMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAppChooserMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAppChooserMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserMethod t AppChooser, O.MethodInfo info AppChooser p) => OL.IsLabel t (AppChooser -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method AppChooser::get_app_info +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_get_app_info" gtk_app_chooser_get_app_info :: + Ptr AppChooser -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooser"}) + IO (Ptr Gio.AppInfo.AppInfo) + +{- | +Returns the currently selected application. + +/Since: 3.0/ +-} +appChooserGetAppInfo :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooser a) => + a + {- ^ /@self@/: a 'GI.Gtk.Interfaces.AppChooser.AppChooser' -} + -> m (Maybe Gio.AppInfo.AppInfo) + {- ^ __Returns:__ a 'GI.Gio.Interfaces.AppInfo.AppInfo' for the currently selected + application, or 'Nothing' if none is selected. Free with 'GI.GObject.Objects.Object.objectUnref' -} +appChooserGetAppInfo self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_get_app_info self' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject Gio.AppInfo.AppInfo) result' + return result'' + touchManagedPtr self + return maybeResult + +#if ENABLE_OVERLOADING +data AppChooserGetAppInfoMethodInfo +instance (signature ~ (m (Maybe Gio.AppInfo.AppInfo)), MonadIO m, IsAppChooser a) => O.MethodInfo AppChooserGetAppInfoMethodInfo a signature where + overloadedMethod _ = appChooserGetAppInfo + +#endif + +-- method AppChooser::get_content_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_get_content_type" gtk_app_chooser_get_content_type :: + Ptr AppChooser -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooser"}) + IO CString + +{- | +Returns the current value of the 'GI.Gtk.Interfaces.AppChooser.AppChooser':@/content-type/@ property. + +/Since: 3.0/ +-} +appChooserGetContentType :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooser a) => + a + {- ^ /@self@/: a 'GI.Gtk.Interfaces.AppChooser.AppChooser' -} + -> m T.Text + {- ^ __Returns:__ the content type of /@self@/. Free with 'GI.GLib.Functions.free' -} +appChooserGetContentType self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_get_content_type self' + checkUnexpectedReturnNULL "appChooserGetContentType" result + result' <- cstringToText result + freeMem result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserGetContentTypeMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAppChooser a) => O.MethodInfo AppChooserGetContentTypeMethodInfo a signature where + overloadedMethod _ = appChooserGetContentType + +#endif + +-- method AppChooser::refresh +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_refresh" gtk_app_chooser_refresh :: + Ptr AppChooser -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooser"}) + IO () + +{- | +Reloads the list of applications. + +/Since: 3.0/ +-} +appChooserRefresh :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooser a) => + a + {- ^ /@self@/: a 'GI.Gtk.Interfaces.AppChooser.AppChooser' -} + -> m () +appChooserRefresh self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + gtk_app_chooser_refresh self' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserRefreshMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAppChooser a) => O.MethodInfo AppChooserRefreshMethodInfo a signature where + overloadedMethod _ = appChooserRefresh + +#endif + + diff --git a/GI/Gtk/Interfaces/AppChooser.hs-boot b/GI/Gtk/Interfaces/AppChooser.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/AppChooser.hs-boot @@ -0,0 +1,41 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.AppChooser where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AppChooser = AppChooser (ManagedPtr AppChooser) +instance GObject AppChooser where +class (GObject o, O.IsDescendantOf AppChooser o) => IsAppChooser o +instance (GObject o, O.IsDescendantOf AppChooser o) => IsAppChooser o +instance O.HasParentTypes AppChooser +#if ENABLE_OVERLOADING +data AppChooserContentTypePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserGetAppInfoMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserGetContentTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserRefreshMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/Buildable.hs b/GI/Gtk/Interfaces/Buildable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Buildable.hs @@ -0,0 +1,738 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +GtkBuildable allows objects to extend and customize their deserialization +from [GtkBuilder UI descriptions][BUILDER-UI]. +The interface includes methods for setting names and properties of objects, +parsing custom tags and constructing child objects. + +The GtkBuildable interface is implemented by all widgets and +many of the non-widget objects that are provided by GTK+. The +main user of this interface is 'GI.Gtk.Objects.Builder.Builder'. There should be +very little need for applications to call any of these functions directly. + +An object only needs to implement this interface if it needs to extend the +'GI.Gtk.Objects.Builder.Builder' format or run any extra routines at deserialization time. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.Buildable + ( + +-- * Exported types + Buildable(..) , + noBuildable , + IsBuildable , + toBuildable , + + + -- * Methods +-- ** addChild #method:addChild# + +#if ENABLE_OVERLOADING + BuildableAddChildMethodInfo , +#endif + buildableAddChild , + + +-- ** constructChild #method:constructChild# + +#if ENABLE_OVERLOADING + BuildableConstructChildMethodInfo , +#endif + buildableConstructChild , + + +-- ** customFinished #method:customFinished# + +#if ENABLE_OVERLOADING + BuildableCustomFinishedMethodInfo , +#endif + buildableCustomFinished , + + +-- ** customTagEnd #method:customTagEnd# + +#if ENABLE_OVERLOADING + BuildableCustomTagEndMethodInfo , +#endif + buildableCustomTagEnd , + + +-- ** customTagStart #method:customTagStart# + +#if ENABLE_OVERLOADING + BuildableCustomTagStartMethodInfo , +#endif + buildableCustomTagStart , + + +-- ** getInternalChild #method:getInternalChild# + +#if ENABLE_OVERLOADING + BuildableGetInternalChildMethodInfo , +#endif + buildableGetInternalChild , + + +-- ** getName #method:getName# + +#if ENABLE_OVERLOADING + BuildableGetNameMethodInfo , +#endif + buildableGetName , + + +-- ** parserFinished #method:parserFinished# + +#if ENABLE_OVERLOADING + BuildableParserFinishedMethodInfo , +#endif + buildableParserFinished , + + +-- ** setBuildableProperty #method:setBuildableProperty# + +#if ENABLE_OVERLOADING + BuildableSetBuildablePropertyMethodInfo , +#endif + buildableSetBuildableProperty , + + +-- ** setName #method:setName# + +#if ENABLE_OVERLOADING + BuildableSetNameMethodInfo , +#endif + buildableSetName , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Structs.MarkupParser as GLib.MarkupParser +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Objects.Builder as Gtk.Builder + +-- interface Buildable +-- | Memory-managed wrapper type. +newtype Buildable = Buildable (ManagedPtr Buildable) +-- | A convenience alias for `Nothing` :: `Maybe` `Buildable`. +noBuildable :: Maybe Buildable +noBuildable = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList Buildable = BuildableSignalList +type BuildableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_buildable_get_type" + c_gtk_buildable_get_type :: IO GType + +instance GObject Buildable where + gobjectType = c_gtk_buildable_get_type + + +-- | Type class for types which can be safely cast to `Buildable`, for instance with `toBuildable`. +class (GObject o, O.IsDescendantOf Buildable o) => IsBuildable o +instance (GObject o, O.IsDescendantOf Buildable o) => IsBuildable o + +instance O.HasParentTypes Buildable +type instance O.ParentTypes Buildable = '[GObject.Object.Object] + +-- | Cast to `Buildable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toBuildable :: (MonadIO m, IsBuildable o) => o -> m Buildable +toBuildable = liftIO . unsafeCastTo Buildable + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Buildable +type instance O.AttributeList Buildable = BuildableAttributeList +type BuildableAttributeList = ('[ ] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type family ResolveBuildableMethod (t :: Symbol) (o :: *) :: * where + ResolveBuildableMethod "addChild" o = BuildableAddChildMethodInfo + ResolveBuildableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveBuildableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveBuildableMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveBuildableMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveBuildableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveBuildableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveBuildableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveBuildableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveBuildableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveBuildableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveBuildableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveBuildableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveBuildableMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveBuildableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveBuildableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveBuildableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveBuildableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveBuildableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveBuildableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveBuildableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveBuildableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveBuildableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveBuildableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveBuildableMethod "getName" o = BuildableGetNameMethodInfo + ResolveBuildableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveBuildableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveBuildableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveBuildableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveBuildableMethod "setName" o = BuildableSetNameMethodInfo + ResolveBuildableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveBuildableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveBuildableMethod t Buildable, O.MethodInfo info Buildable p) => OL.IsLabel t (Buildable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method Buildable::add_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "child to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "kind of child or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_add_child" gtk_buildable_add_child :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + Ptr GObject.Object.Object -> -- child : TInterface (Name {namespace = "GObject", name = "Object"}) + CString -> -- type : TBasicType TUTF8 + IO () + +{- | +Adds a child to /@buildable@/. /@type@/ is an optional string +describing how the child should be added. + +/Since: 2.12/ +-} +buildableAddChild :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> c + {- ^ /@child@/: child to add -} + -> Maybe (T.Text) + {- ^ /@type@/: kind of child or 'Nothing' -} + -> m () +buildableAddChild buildable builder child type_ = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + child' <- unsafeManagedPtrCastPtr child + maybeType_ <- case type_ of + Nothing -> return nullPtr + Just jType_ -> do + jType_' <- textToCString jType_ + return jType_' + gtk_buildable_add_child buildable' builder' child' maybeType_ + touchManagedPtr buildable + touchManagedPtr builder + touchManagedPtr child + freeMem maybeType_ + return () + +#if ENABLE_OVERLOADING +data BuildableAddChildMethodInfo +instance (signature ~ (b -> c -> Maybe (T.Text) -> m ()), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => O.MethodInfo BuildableAddChildMethodInfo a signature where + overloadedMethod _ = buildableAddChild + +#endif + +-- method Buildable::construct_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GtkBuilder used to construct this object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of child to construct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_construct_child" gtk_buildable_construct_child :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + CString -> -- name : TBasicType TUTF8 + IO (Ptr GObject.Object.Object) + +{- | +Constructs a child of /@buildable@/ with the name /@name@/. + +'GI.Gtk.Objects.Builder.Builder' calls this function if a “constructor” has been +specified in the UI definition. + +/Since: 2.12/ +-} +buildableConstructChild :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => + a + {- ^ /@buildable@/: A 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: 'GI.Gtk.Objects.Builder.Builder' used to construct this object -} + -> T.Text + {- ^ /@name@/: name of child to construct -} + -> m GObject.Object.Object + {- ^ __Returns:__ the constructed child -} +buildableConstructChild buildable builder name = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + name' <- textToCString name + result <- gtk_buildable_construct_child buildable' builder' name' + checkUnexpectedReturnNULL "buildableConstructChild" result + result' <- (wrapObject GObject.Object.Object) result + touchManagedPtr buildable + touchManagedPtr builder + freeMem name' + return result' + +#if ENABLE_OVERLOADING +data BuildableConstructChildMethodInfo +instance (signature ~ (b -> T.Text -> m GObject.Object.Object), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => O.MethodInfo BuildableConstructChildMethodInfo a signature where + overloadedMethod _ = buildableConstructChild + +#endif + +-- method Buildable::custom_finished +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "child object or %NULL for non-child tags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the tag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data created in custom_tag_start", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_custom_finished" gtk_buildable_custom_finished :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + Ptr GObject.Object.Object -> -- child : TInterface (Name {namespace = "GObject", name = "Object"}) + CString -> -- tagname : TBasicType TUTF8 + Ptr () -> -- data : TBasicType TPtr + IO () + +{- | +This is similar to 'GI.Gtk.Interfaces.Buildable.buildableParserFinished' but is +called once for each custom tag handled by the /@buildable@/. + +/Since: 2.12/ +-} +buildableCustomFinished :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> Maybe (c) + {- ^ /@child@/: child object or 'Nothing' for non-child tags -} + -> T.Text + {- ^ /@tagname@/: the name of the tag -} + -> Ptr () + {- ^ /@data@/: user data created in custom_tag_start -} + -> m () +buildableCustomFinished buildable builder child tagname data_ = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + maybeChild <- case child of + Nothing -> return nullPtr + Just jChild -> do + jChild' <- unsafeManagedPtrCastPtr jChild + return jChild' + tagname' <- textToCString tagname + gtk_buildable_custom_finished buildable' builder' maybeChild tagname' data_ + touchManagedPtr buildable + touchManagedPtr builder + whenJust child touchManagedPtr + freeMem tagname' + return () + +#if ENABLE_OVERLOADING +data BuildableCustomFinishedMethodInfo +instance (signature ~ (b -> Maybe (c) -> T.Text -> Ptr () -> m ()), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => O.MethodInfo BuildableCustomFinishedMethodInfo a signature where + overloadedMethod _ = buildableCustomFinished + +#endif + +-- method Buildable::custom_tag_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GtkBuilder used to construct this object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "child object or %NULL for non-child tags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of tag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that will be passed in to parser functions", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_custom_tag_end" gtk_buildable_custom_tag_end :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + Ptr GObject.Object.Object -> -- child : TInterface (Name {namespace = "GObject", name = "Object"}) + CString -> -- tagname : TBasicType TUTF8 + Ptr () -> -- data : TBasicType TPtr + IO () + +{- | +This is called at the end of each custom element handled by +the buildable. + +/Since: 2.12/ +-} +buildableCustomTagEnd :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => + a + {- ^ /@buildable@/: A 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: 'GI.Gtk.Objects.Builder.Builder' used to construct this object -} + -> Maybe (c) + {- ^ /@child@/: child object or 'Nothing' for non-child tags -} + -> T.Text + {- ^ /@tagname@/: name of tag -} + -> Ptr () + {- ^ /@data@/: user data that will be passed in to parser functions -} + -> m () +buildableCustomTagEnd buildable builder child tagname data_ = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + maybeChild <- case child of + Nothing -> return nullPtr + Just jChild -> do + jChild' <- unsafeManagedPtrCastPtr jChild + return jChild' + tagname' <- textToCString tagname + gtk_buildable_custom_tag_end buildable' builder' maybeChild tagname' data_ + touchManagedPtr buildable + touchManagedPtr builder + whenJust child touchManagedPtr + freeMem tagname' + return () + +#if ENABLE_OVERLOADING +data BuildableCustomTagEndMethodInfo +instance (signature ~ (b -> Maybe (c) -> T.Text -> Ptr () -> m ()), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => O.MethodInfo BuildableCustomTagEndMethodInfo a signature where + overloadedMethod _ = buildableCustomTagEnd + +#endif + +-- method Buildable::custom_tag_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder used to construct this object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "child object or %NULL for non-child tags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of tag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface (Name {namespace = "GLib", name = "MarkupParser"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMarkupParser to fill in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "return location for user data that will be passed in\n to parser functions", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_custom_tag_start" gtk_buildable_custom_tag_start :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + Ptr GObject.Object.Object -> -- child : TInterface (Name {namespace = "GObject", name = "Object"}) + CString -> -- tagname : TBasicType TUTF8 + Ptr GLib.MarkupParser.MarkupParser -> -- parser : TInterface (Name {namespace = "GLib", name = "MarkupParser"}) + Ptr (Ptr ()) -> -- data : TBasicType TPtr + IO CInt + +{- | +This is called for each unknown element under \. + +/Since: 2.12/ +-} +buildableCustomTagStart :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' used to construct this object -} + -> Maybe (c) + {- ^ /@child@/: child object or 'Nothing' for non-child tags -} + -> T.Text + {- ^ /@tagname@/: name of tag -} + -> m ((Bool, GLib.MarkupParser.MarkupParser, Ptr ())) + {- ^ __Returns:__ 'True' if a object has a custom implementation, 'False' + if it doesn\'t. -} +buildableCustomTagStart buildable builder child tagname = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + maybeChild <- case child of + Nothing -> return nullPtr + Just jChild -> do + jChild' <- unsafeManagedPtrCastPtr jChild + return jChild' + tagname' <- textToCString tagname + parser <- callocBytes 40 :: IO (Ptr GLib.MarkupParser.MarkupParser) + data_ <- allocMem :: IO (Ptr (Ptr ())) + result <- gtk_buildable_custom_tag_start buildable' builder' maybeChild tagname' parser data_ + let result' = (/= 0) result + parser' <- (wrapPtr GLib.MarkupParser.MarkupParser) parser + data_' <- peek data_ + touchManagedPtr buildable + touchManagedPtr builder + whenJust child touchManagedPtr + freeMem tagname' + freeMem data_ + return (result', parser', data_') + +#if ENABLE_OVERLOADING +data BuildableCustomTagStartMethodInfo +instance (signature ~ (b -> Maybe (c) -> T.Text -> m ((Bool, GLib.MarkupParser.MarkupParser, Ptr ()))), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b, GObject.Object.IsObject c) => O.MethodInfo BuildableCustomTagStartMethodInfo a signature where + overloadedMethod _ = buildableCustomTagStart + +#endif + +-- method Buildable::get_internal_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_get_internal_child" gtk_buildable_get_internal_child :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + CString -> -- childname : TBasicType TUTF8 + IO (Ptr GObject.Object.Object) + +{- | +Get the internal child called /@childname@/ of the /@buildable@/ object. + +/Since: 2.12/ +-} +buildableGetInternalChild :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> T.Text + {- ^ /@childname@/: name of child -} + -> m GObject.Object.Object + {- ^ __Returns:__ the internal child of the buildable object -} +buildableGetInternalChild buildable builder childname = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + childname' <- textToCString childname + result <- gtk_buildable_get_internal_child buildable' builder' childname' + checkUnexpectedReturnNULL "buildableGetInternalChild" result + result' <- (newObject GObject.Object.Object) result + touchManagedPtr buildable + touchManagedPtr builder + freeMem childname' + return result' + +#if ENABLE_OVERLOADING +data BuildableGetInternalChildMethodInfo +instance (signature ~ (b -> T.Text -> m GObject.Object.Object), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => O.MethodInfo BuildableGetInternalChildMethodInfo a signature where + overloadedMethod _ = buildableGetInternalChild + +#endif + +-- method Buildable::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_get_name" gtk_buildable_get_name :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + IO CString + +{- | +Gets the name of the /@buildable@/ object. + +'GI.Gtk.Objects.Builder.Builder' sets the name based on the +[GtkBuilder UI definition][BUILDER-UI] +used to construct the /@buildable@/. + +/Since: 2.12/ +-} +buildableGetName :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> m T.Text + {- ^ __Returns:__ the name set with 'GI.Gtk.Interfaces.Buildable.buildableSetName' -} +buildableGetName buildable = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + result <- gtk_buildable_get_name buildable' + checkUnexpectedReturnNULL "buildableGetName" result + result' <- cstringToText result + touchManagedPtr buildable + return result' + +#if ENABLE_OVERLOADING +data BuildableGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsBuildable a) => O.MethodInfo BuildableGetNameMethodInfo a signature where + overloadedMethod _ = buildableGetName + +#endif + +-- method Buildable::parser_finished +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_parser_finished" gtk_buildable_parser_finished :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + IO () + +{- | +Called when the builder finishes the parsing of a +[GtkBuilder UI definition][BUILDER-UI]. +Note that this will be called once for each time +'GI.Gtk.Objects.Builder.builderAddFromFile' or 'GI.Gtk.Objects.Builder.builderAddFromString' +is called on a builder. + +/Since: 2.12/ +-} +buildableParserFinished :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> m () +buildableParserFinished buildable builder = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + gtk_buildable_parser_finished buildable' builder' + touchManagedPtr buildable + touchManagedPtr builder + return () + +#if ENABLE_OVERLOADING +data BuildableParserFinishedMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => O.MethodInfo BuildableParserFinishedMethodInfo a signature where + overloadedMethod _ = buildableParserFinished + +#endif + +-- method Buildable::set_buildable_property +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface (Name {namespace = "Gtk", name = "Builder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuilder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "value of property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_set_buildable_property" gtk_buildable_set_buildable_property :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + Ptr Gtk.Builder.Builder -> -- builder : TInterface (Name {namespace = "Gtk", name = "Builder"}) + CString -> -- name : TBasicType TUTF8 + Ptr GValue -> -- value : TInterface (Name {namespace = "GObject", name = "Value"}) + IO () + +{- | +Sets the property name /@name@/ to /@value@/ on the /@buildable@/ object. + +/Since: 2.12/ +-} +buildableSetBuildableProperty :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> b + {- ^ /@builder@/: a 'GI.Gtk.Objects.Builder.Builder' -} + -> T.Text + {- ^ /@name@/: name of property -} + -> GValue + {- ^ /@value@/: value of property -} + -> m () +buildableSetBuildableProperty buildable builder name value = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + builder' <- unsafeManagedPtrCastPtr builder + name' <- textToCString name + value' <- unsafeManagedPtrGetPtr value + gtk_buildable_set_buildable_property buildable' builder' name' value' + touchManagedPtr buildable + touchManagedPtr builder + touchManagedPtr value + freeMem name' + return () + +#if ENABLE_OVERLOADING +data BuildableSetBuildablePropertyMethodInfo +instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, IsBuildable a, Gtk.Builder.IsBuilder b) => O.MethodInfo BuildableSetBuildablePropertyMethodInfo a signature where + overloadedMethod _ = buildableSetBuildableProperty + +#endif + +-- method Buildable::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "buildable", argType = TInterface (Name {namespace = "Gtk", name = "Buildable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBuildable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_buildable_set_name" gtk_buildable_set_name :: + Ptr Buildable -> -- buildable : TInterface (Name {namespace = "Gtk", name = "Buildable"}) + CString -> -- name : TBasicType TUTF8 + IO () + +{- | +Sets the name of the /@buildable@/ object. + +/Since: 2.12/ +-} +buildableSetName :: + (B.CallStack.HasCallStack, MonadIO m, IsBuildable a) => + a + {- ^ /@buildable@/: a 'GI.Gtk.Interfaces.Buildable.Buildable' -} + -> T.Text + {- ^ /@name@/: name to set -} + -> m () +buildableSetName buildable name = liftIO $ do + buildable' <- unsafeManagedPtrCastPtr buildable + name' <- textToCString name + gtk_buildable_set_name buildable' name' + touchManagedPtr buildable + freeMem name' + return () + +#if ENABLE_OVERLOADING +data BuildableSetNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsBuildable a) => O.MethodInfo BuildableSetNameMethodInfo a signature where + overloadedMethod _ = buildableSetName + +#endif + + diff --git a/GI/Gtk/Interfaces/Buildable.hs-boot b/GI/Gtk/Interfaces/Buildable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Buildable.hs-boot @@ -0,0 +1,59 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.Buildable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Buildable = Buildable (ManagedPtr Buildable) +instance GObject Buildable where +class (GObject o, O.IsDescendantOf Buildable o) => IsBuildable o +instance (GObject o, O.IsDescendantOf Buildable o) => IsBuildable o +instance O.HasParentTypes Buildable +#if ENABLE_OVERLOADING +data BuildableAddChildMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableConstructChildMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableCustomFinishedMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableCustomTagEndMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableCustomTagStartMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableGetInternalChildMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableGetNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableParserFinishedMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableSetBuildablePropertyMethodInfo +#endif +#if ENABLE_OVERLOADING +data BuildableSetNameMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs b/GI/Gtk/Interfaces/CellAccessibleParent.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/CellAccessibleParent.hs @@ -0,0 +1,664 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +/No description available in the introspection data./ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.CellAccessibleParent + ( + +-- * Exported types + CellAccessibleParent(..) , + noCellAccessibleParent , + IsCellAccessibleParent , + + + -- * Methods +-- ** activate #method:activate# + +#if ENABLE_OVERLOADING + CellAccessibleParentActivateMethodInfo , +#endif + cellAccessibleParentActivate , + + +-- ** edit #method:edit# + +#if ENABLE_OVERLOADING + CellAccessibleParentEditMethodInfo , +#endif + cellAccessibleParentEdit , + + +-- ** expandCollapse #method:expandCollapse# + +#if ENABLE_OVERLOADING + CellAccessibleParentExpandCollapseMethodInfo, +#endif + cellAccessibleParentExpandCollapse , + + +-- ** getCellArea #method:getCellArea# + +#if ENABLE_OVERLOADING + CellAccessibleParentGetCellAreaMethodInfo, +#endif + cellAccessibleParentGetCellArea , + + +-- ** getCellExtents #method:getCellExtents# + +#if ENABLE_OVERLOADING + CellAccessibleParentGetCellExtentsMethodInfo, +#endif + cellAccessibleParentGetCellExtents , + + +-- ** getCellPosition #method:getCellPosition# + +#if ENABLE_OVERLOADING + CellAccessibleParentGetCellPositionMethodInfo, +#endif + cellAccessibleParentGetCellPosition , + + +-- ** getChildIndex #method:getChildIndex# + +#if ENABLE_OVERLOADING + CellAccessibleParentGetChildIndexMethodInfo, +#endif + cellAccessibleParentGetChildIndex , + + +-- ** getColumnHeaderCells #method:getColumnHeaderCells# + +#if ENABLE_OVERLOADING + CellAccessibleParentGetColumnHeaderCellsMethodInfo, +#endif + cellAccessibleParentGetColumnHeaderCells, + + +-- ** getRendererState #method:getRendererState# + +#if ENABLE_OVERLOADING + CellAccessibleParentGetRendererStateMethodInfo, +#endif + cellAccessibleParentGetRendererState , + + +-- ** getRowHeaderCells #method:getRowHeaderCells# + +#if ENABLE_OVERLOADING + CellAccessibleParentGetRowHeaderCellsMethodInfo, +#endif + cellAccessibleParentGetRowHeaderCells , + + +-- ** grabFocus #method:grabFocus# + +#if ENABLE_OVERLOADING + CellAccessibleParentGrabFocusMethodInfo , +#endif + cellAccessibleParentGrabFocus , + + +-- ** updateRelationset #method:updateRelationset# + +#if ENABLE_OVERLOADING + CellAccessibleParentUpdateRelationsetMethodInfo, +#endif + cellAccessibleParentUpdateRelationset , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Enums as Atk.Enums +import qualified GI.Atk.Objects.Object as Atk.Object +import qualified GI.Atk.Objects.RelationSet as Atk.RelationSet +import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle +import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags +import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAccessible as Gtk.CellAccessible + +-- interface CellAccessibleParent +-- | Memory-managed wrapper type. +newtype CellAccessibleParent = CellAccessibleParent (ManagedPtr CellAccessibleParent) +-- | A convenience alias for `Nothing` :: `Maybe` `CellAccessibleParent`. +noCellAccessibleParent :: Maybe CellAccessibleParent +noCellAccessibleParent = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList CellAccessibleParent = CellAccessibleParentSignalList +type CellAccessibleParentSignalList = ('[ ] :: [(Symbol, *)]) + +#endif + +-- | Type class for types which implement `CellAccessibleParent`. +class ManagedPtrNewtype a => IsCellAccessibleParent a +instance IsCellAccessibleParent CellAccessibleParent +-- XXX Wrapping a foreign struct/union with no known destructor or size, leak? +instance WrappedPtr CellAccessibleParent where + wrappedPtrCalloc = return nullPtr + wrappedPtrCopy = return + wrappedPtrFree = Nothing + + +#if ENABLE_OVERLOADING +type family ResolveCellAccessibleParentMethod (t :: Symbol) (o :: *) :: * where + ResolveCellAccessibleParentMethod "activate" o = CellAccessibleParentActivateMethodInfo + ResolveCellAccessibleParentMethod "edit" o = CellAccessibleParentEditMethodInfo + ResolveCellAccessibleParentMethod "expandCollapse" o = CellAccessibleParentExpandCollapseMethodInfo + ResolveCellAccessibleParentMethod "grabFocus" o = CellAccessibleParentGrabFocusMethodInfo + ResolveCellAccessibleParentMethod "updateRelationset" o = CellAccessibleParentUpdateRelationsetMethodInfo + ResolveCellAccessibleParentMethod "getCellArea" o = CellAccessibleParentGetCellAreaMethodInfo + ResolveCellAccessibleParentMethod "getCellExtents" o = CellAccessibleParentGetCellExtentsMethodInfo + ResolveCellAccessibleParentMethod "getCellPosition" o = CellAccessibleParentGetCellPositionMethodInfo + ResolveCellAccessibleParentMethod "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo + ResolveCellAccessibleParentMethod "getColumnHeaderCells" o = CellAccessibleParentGetColumnHeaderCellsMethodInfo + ResolveCellAccessibleParentMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo + ResolveCellAccessibleParentMethod "getRowHeaderCells" o = CellAccessibleParentGetRowHeaderCellsMethodInfo + ResolveCellAccessibleParentMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, O.MethodInfo info CellAccessibleParent p) => OL.IsLabel t (CellAccessibleParent -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method CellAccessibleParent::activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_activate" gtk_cell_accessible_parent_activate :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO () + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentActivate :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m () +cellAccessibleParentActivate parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + gtk_cell_accessible_parent_activate parent' cell' + touchManagedPtr parent + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellAccessibleParentActivateMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentActivateMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentActivate + +#endif + +-- method CellAccessibleParent::edit +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_edit" gtk_cell_accessible_parent_edit :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO () + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentEdit :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m () +cellAccessibleParentEdit parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + gtk_cell_accessible_parent_edit parent' cell' + touchManagedPtr parent + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellAccessibleParentEditMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentEditMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentEdit + +#endif + +-- method CellAccessibleParent::expand_collapse +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_expand_collapse" gtk_cell_accessible_parent_expand_collapse :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO () + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentExpandCollapse :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m () +cellAccessibleParentExpandCollapse parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + gtk_cell_accessible_parent_expand_collapse parent' cell' + touchManagedPtr parent + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellAccessibleParentExpandCollapseMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentExpandCollapseMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentExpandCollapse + +#endif + +-- method CellAccessibleParent::get_cell_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_rect", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_get_cell_area" gtk_cell_accessible_parent_get_cell_area :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + Ptr Gdk.Rectangle.Rectangle -> -- cell_rect : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) + IO () + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGetCellArea :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> Gdk.Rectangle.Rectangle + -> m () +cellAccessibleParentGetCellArea parent cell cellRect = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + cellRect' <- unsafeManagedPtrGetPtr cellRect + gtk_cell_accessible_parent_get_cell_area parent' cell' cellRect' + touchManagedPtr parent + touchManagedPtr cell + touchManagedPtr cellRect + return () + +#if ENABLE_OVERLOADING +data CellAccessibleParentGetCellAreaMethodInfo +instance (signature ~ (b -> Gdk.Rectangle.Rectangle -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetCellAreaMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetCellArea + +#endif + +-- method CellAccessibleParent::get_cell_extents +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface (Name {namespace = "Atk", name = "CoordType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + CUInt -> -- coord_type : TInterface (Name {namespace = "Atk", name = "CoordType"}) + IO () + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGetCellExtents :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> Int32 + -> Int32 + -> Int32 + -> Int32 + -> Atk.Enums.CoordType + -> m () +cellAccessibleParentGetCellExtents parent cell x y width height coordType = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + let coordType' = (fromIntegral . fromEnum) coordType + gtk_cell_accessible_parent_get_cell_extents parent' cell' x y width height coordType' + touchManagedPtr parent + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellAccessibleParentGetCellExtentsMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Atk.Enums.CoordType -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetCellExtentsMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetCellExtents + +#endif + +-- method CellAccessibleParent::get_cell_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_get_cell_position" gtk_cell_accessible_parent_get_cell_position :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + Int32 -> -- row : TBasicType TInt + Int32 -> -- column : TBasicType TInt + IO () + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGetCellPosition :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> Int32 + -> Int32 + -> m () +cellAccessibleParentGetCellPosition parent cell row column = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + gtk_cell_accessible_parent_get_cell_position parent' cell' row column + touchManagedPtr parent + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellAccessibleParentGetCellPositionMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetCellPositionMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetCellPosition + +#endif + +-- method CellAccessibleParent::get_child_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_get_child_index" gtk_cell_accessible_parent_get_child_index :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO Int32 + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGetChildIndex :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m Int32 +cellAccessibleParentGetChildIndex parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + result <- gtk_cell_accessible_parent_get_child_index parent' cell' + touchManagedPtr parent + touchManagedPtr cell + return result + +#if ENABLE_OVERLOADING +data CellAccessibleParentGetChildIndexMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetChildIndexMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetChildIndex + +#endif + +-- method CellAccessibleParent::get_column_header_cells +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TPtrArray (TInterface (Name {namespace = "Atk", name = "Object"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_get_column_header_cells" gtk_cell_accessible_parent_get_column_header_cells :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO (Ptr (GPtrArray (Ptr Atk.Object.Object))) + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGetColumnHeaderCells :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m [Atk.Object.Object] +cellAccessibleParentGetColumnHeaderCells parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + result <- gtk_cell_accessible_parent_get_column_header_cells parent' cell' + checkUnexpectedReturnNULL "cellAccessibleParentGetColumnHeaderCells" result + result' <- unpackGPtrArray result + result'' <- mapM (wrapObject Atk.Object.Object) result' + unrefPtrArray result + touchManagedPtr parent + touchManagedPtr cell + return result'' + +#if ENABLE_OVERLOADING +data CellAccessibleParentGetColumnHeaderCellsMethodInfo +instance (signature ~ (b -> m [Atk.Object.Object]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetColumnHeaderCellsMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetColumnHeaderCells + +#endif + +-- method CellAccessibleParent::get_renderer_state +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO CUInt + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGetRendererState :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m [Gtk.Flags.CellRendererState] +cellAccessibleParentGetRendererState parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + result <- gtk_cell_accessible_parent_get_renderer_state parent' cell' + let result' = wordToGFlags result + touchManagedPtr parent + touchManagedPtr cell + return result' + +#if ENABLE_OVERLOADING +data CellAccessibleParentGetRendererStateMethodInfo +instance (signature ~ (b -> m [Gtk.Flags.CellRendererState]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetRendererStateMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetRendererState + +#endif + +-- method CellAccessibleParent::get_row_header_cells +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TPtrArray (TInterface (Name {namespace = "Atk", name = "Object"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_get_row_header_cells" gtk_cell_accessible_parent_get_row_header_cells :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO (Ptr (GPtrArray (Ptr Atk.Object.Object))) + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGetRowHeaderCells :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m [Atk.Object.Object] +cellAccessibleParentGetRowHeaderCells parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + result <- gtk_cell_accessible_parent_get_row_header_cells parent' cell' + checkUnexpectedReturnNULL "cellAccessibleParentGetRowHeaderCells" result + result' <- unpackGPtrArray result + result'' <- mapM (wrapObject Atk.Object.Object) result' + unrefPtrArray result + touchManagedPtr parent + touchManagedPtr cell + return result'' + +#if ENABLE_OVERLOADING +data CellAccessibleParentGetRowHeaderCellsMethodInfo +instance (signature ~ (b -> m [Atk.Object.Object]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetRowHeaderCellsMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetRowHeaderCells + +#endif + +-- method CellAccessibleParent::grab_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_grab_focus" gtk_cell_accessible_parent_grab_focus :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + IO CInt + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentGrabFocus :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => + a + -> b + -> m Bool +cellAccessibleParentGrabFocus parent cell = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + result <- gtk_cell_accessible_parent_grab_focus parent' cell' + let result' = (/= 0) result + touchManagedPtr parent + touchManagedPtr cell + return result' + +#if ENABLE_OVERLOADING +data CellAccessibleParentGrabFocusMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGrabFocusMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGrabFocus + +#endif + +-- method CellAccessibleParent::update_relationset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationset", argType = TInterface (Name {namespace = "Atk", name = "RelationSet"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_accessible_parent_update_relationset" gtk_cell_accessible_parent_update_relationset :: + Ptr CellAccessibleParent -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) + Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) + Ptr Atk.RelationSet.RelationSet -> -- relationset : TInterface (Name {namespace = "Atk", name = "RelationSet"}) + IO () + +{- | +/No description available in the introspection data./ +-} +cellAccessibleParentUpdateRelationset :: + (B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b, Atk.RelationSet.IsRelationSet c) => + a + -> b + -> c + -> m () +cellAccessibleParentUpdateRelationset parent cell relationset = liftIO $ do + parent' <- unsafeManagedPtrCastPtr parent + cell' <- unsafeManagedPtrCastPtr cell + relationset' <- unsafeManagedPtrCastPtr relationset + gtk_cell_accessible_parent_update_relationset parent' cell' relationset' + touchManagedPtr parent + touchManagedPtr cell + touchManagedPtr relationset + return () + +#if ENABLE_OVERLOADING +data CellAccessibleParentUpdateRelationsetMethodInfo +instance (signature ~ (b -> c -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b, Atk.RelationSet.IsRelationSet c) => O.MethodInfo CellAccessibleParentUpdateRelationsetMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentUpdateRelationset + +#endif + + diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot b/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot @@ -0,0 +1,63 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.CellAccessibleParent where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype CellAccessibleParent = CellAccessibleParent (ManagedPtr CellAccessibleParent) +class ManagedPtrNewtype a => IsCellAccessibleParent a +instance WrappedPtr CellAccessibleParent where +#if ENABLE_OVERLOADING +data CellAccessibleParentActivateMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentEditMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentExpandCollapseMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGetCellAreaMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGetCellExtentsMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGetCellPositionMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGetChildIndexMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGetColumnHeaderCellsMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGetRendererStateMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGetRowHeaderCellsMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentGrabFocusMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellAccessibleParentUpdateRelationsetMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/CellEditable.hs b/GI/Gtk/Interfaces/CellEditable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/CellEditable.hs @@ -0,0 +1,814 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Interfaces.CellEditable.CellEditable' interface must be implemented for widgets to be usable +to edit the contents of a 'GI.Gtk.Objects.TreeView.TreeView' cell. It provides a way to specify how +temporary widgets should be configured for editing, get the new value, etc. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.CellEditable + ( + +-- * Exported types + CellEditable(..) , + noCellEditable , + IsCellEditable , + toCellEditable , + + + -- * Methods +-- ** editingDone #method:editingDone# + +#if ENABLE_OVERLOADING + CellEditableEditingDoneMethodInfo , +#endif + cellEditableEditingDone , + + +-- ** removeWidget #method:removeWidget# + +#if ENABLE_OVERLOADING + CellEditableRemoveWidgetMethodInfo , +#endif + cellEditableRemoveWidget , + + +-- ** startEditing #method:startEditing# + +#if ENABLE_OVERLOADING + CellEditableStartEditingMethodInfo , +#endif + cellEditableStartEditing , + + + + + -- * Properties +-- ** editingCanceled #attr:editingCanceled# +{- | Indicates whether editing on the cell has been canceled. + +/Since: 2.20/ +-} +#if ENABLE_OVERLOADING + CellEditableEditingCanceledPropertyInfo , +#endif +#if ENABLE_OVERLOADING + cellEditableEditingCanceled , +#endif + constructCellEditableEditingCanceled , + getCellEditableEditingCanceled , + setCellEditableEditingCanceled , + + + + + -- * Signals +-- ** editingDone #signal:editingDone# + + C_CellEditableEditingDoneCallback , + CellEditableEditingDoneCallback , +#if ENABLE_OVERLOADING + CellEditableEditingDoneSignalInfo , +#endif + afterCellEditableEditingDone , + genClosure_CellEditableEditingDone , + mk_CellEditableEditingDoneCallback , + noCellEditableEditingDoneCallback , + onCellEditableEditingDone , + wrap_CellEditableEditingDoneCallback , + + +-- ** removeWidget #signal:removeWidget# + + C_CellEditableRemoveWidgetCallback , + CellEditableRemoveWidgetCallback , +#if ENABLE_OVERLOADING + CellEditableRemoveWidgetSignalInfo , +#endif + afterCellEditableRemoveWidget , + genClosure_CellEditableRemoveWidget , + mk_CellEditableRemoveWidgetCallback , + noCellEditableRemoveWidgetCallback , + onCellEditableRemoveWidget , + wrap_CellEditableRemoveWidgetCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gdk.Unions.Event as Gdk.Event +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- interface CellEditable +-- | Memory-managed wrapper type. +newtype CellEditable = CellEditable (ManagedPtr CellEditable) +-- | A convenience alias for `Nothing` :: `Maybe` `CellEditable`. +noCellEditable :: Maybe CellEditable +noCellEditable = Nothing + +-- signal CellEditable::editing-done +{- | +This signal is a sign for the cell renderer to update its +value from the /@cellEditable@/. + +Implementations of 'GI.Gtk.Interfaces.CellEditable.CellEditable' are responsible for +emitting this signal when they are done editing, e.g. +'GI.Gtk.Objects.Entry.Entry' emits this signal when the user presses Enter. Typical things to +do in a handler for ::editing-done are to capture the edited value, +disconnect the /@cellEditable@/ from signals on the 'GI.Gtk.Objects.CellRenderer.CellRenderer', etc. + +'GI.Gtk.Interfaces.CellEditable.cellEditableEditingDone' is a convenience method +for emitting 'GI.Gtk.Interfaces.CellEditable.CellEditable'::@/editing-done/@. +-} +type CellEditableEditingDoneCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellEditableEditingDoneCallback`@. +noCellEditableEditingDoneCallback :: Maybe CellEditableEditingDoneCallback +noCellEditableEditingDoneCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_CellEditableEditingDoneCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_CellEditableEditingDoneCallback`. +foreign import ccall "wrapper" + mk_CellEditableEditingDoneCallback :: C_CellEditableEditingDoneCallback -> IO (FunPtr C_CellEditableEditingDoneCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_CellEditableEditingDone :: MonadIO m => CellEditableEditingDoneCallback -> m (GClosure C_CellEditableEditingDoneCallback) +genClosure_CellEditableEditingDone cb = liftIO $ do + let cb' = wrap_CellEditableEditingDoneCallback cb + mk_CellEditableEditingDoneCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `CellEditableEditingDoneCallback` into a `C_CellEditableEditingDoneCallback`. +wrap_CellEditableEditingDoneCallback :: + CellEditableEditingDoneCallback -> + C_CellEditableEditingDoneCallback +wrap_CellEditableEditingDoneCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@editing-done@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' cellEditable #editingDone callback +@ +-} +onCellEditableEditingDone :: (IsCellEditable a, MonadIO m) => a -> CellEditableEditingDoneCallback -> m SignalHandlerId +onCellEditableEditingDone obj cb = liftIO $ do + let cb' = wrap_CellEditableEditingDoneCallback cb + cb'' <- mk_CellEditableEditingDoneCallback cb' + connectSignalFunPtr obj "editing-done" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@editing-done@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' cellEditable #editingDone callback +@ +-} +afterCellEditableEditingDone :: (IsCellEditable a, MonadIO m) => a -> CellEditableEditingDoneCallback -> m SignalHandlerId +afterCellEditableEditingDone obj cb = liftIO $ do + let cb' = wrap_CellEditableEditingDoneCallback cb + cb'' <- mk_CellEditableEditingDoneCallback cb' + connectSignalFunPtr obj "editing-done" cb'' SignalConnectAfter + + +-- signal CellEditable::remove-widget +{- | +This signal is meant to indicate that the cell is finished +editing, and the /@cellEditable@/ widget is being removed and may +subsequently be destroyed. + +Implementations of 'GI.Gtk.Interfaces.CellEditable.CellEditable' are responsible for +emitting this signal when they are done editing. It must +be emitted after the 'GI.Gtk.Interfaces.CellEditable.CellEditable'::@/editing-done/@ signal, +to give the cell renderer a chance to update the cell\'s value +before the widget is removed. + +'GI.Gtk.Interfaces.CellEditable.cellEditableRemoveWidget' is a convenience method +for emitting 'GI.Gtk.Interfaces.CellEditable.CellEditable'::@/remove-widget/@. +-} +type CellEditableRemoveWidgetCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `CellEditableRemoveWidgetCallback`@. +noCellEditableRemoveWidgetCallback :: Maybe CellEditableRemoveWidgetCallback +noCellEditableRemoveWidgetCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_CellEditableRemoveWidgetCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_CellEditableRemoveWidgetCallback`. +foreign import ccall "wrapper" + mk_CellEditableRemoveWidgetCallback :: C_CellEditableRemoveWidgetCallback -> IO (FunPtr C_CellEditableRemoveWidgetCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_CellEditableRemoveWidget :: MonadIO m => CellEditableRemoveWidgetCallback -> m (GClosure C_CellEditableRemoveWidgetCallback) +genClosure_CellEditableRemoveWidget cb = liftIO $ do + let cb' = wrap_CellEditableRemoveWidgetCallback cb + mk_CellEditableRemoveWidgetCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `CellEditableRemoveWidgetCallback` into a `C_CellEditableRemoveWidgetCallback`. +wrap_CellEditableRemoveWidgetCallback :: + CellEditableRemoveWidgetCallback -> + C_CellEditableRemoveWidgetCallback +wrap_CellEditableRemoveWidgetCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@remove-widget@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' cellEditable #removeWidget callback +@ +-} +onCellEditableRemoveWidget :: (IsCellEditable a, MonadIO m) => a -> CellEditableRemoveWidgetCallback -> m SignalHandlerId +onCellEditableRemoveWidget obj cb = liftIO $ do + let cb' = wrap_CellEditableRemoveWidgetCallback cb + cb'' <- mk_CellEditableRemoveWidgetCallback cb' + connectSignalFunPtr obj "remove-widget" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@remove-widget@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' cellEditable #removeWidget callback +@ +-} +afterCellEditableRemoveWidget :: (IsCellEditable a, MonadIO m) => a -> CellEditableRemoveWidgetCallback -> m SignalHandlerId +afterCellEditableRemoveWidget obj cb = liftIO $ do + let cb' = wrap_CellEditableRemoveWidgetCallback cb + cb'' <- mk_CellEditableRemoveWidgetCallback cb' + connectSignalFunPtr obj "remove-widget" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data CellEditableEditingDoneSignalInfo +instance SignalInfo CellEditableEditingDoneSignalInfo where + type HaskellCallbackType CellEditableEditingDoneSignalInfo = CellEditableEditingDoneCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_CellEditableEditingDoneCallback cb + cb'' <- mk_CellEditableEditingDoneCallback cb' + connectSignalFunPtr obj "editing-done" cb'' connectMode + +data CellEditableRemoveWidgetSignalInfo +instance SignalInfo CellEditableRemoveWidgetSignalInfo where + type HaskellCallbackType CellEditableRemoveWidgetSignalInfo = CellEditableRemoveWidgetCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_CellEditableRemoveWidgetCallback cb + cb'' <- mk_CellEditableRemoveWidgetCallback cb' + connectSignalFunPtr obj "remove-widget" cb'' connectMode + +type instance O.SignalList CellEditable = CellEditableSignalList +type CellEditableSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_cell_editable_get_type" + c_gtk_cell_editable_get_type :: IO GType + +instance GObject CellEditable where + gobjectType = c_gtk_cell_editable_get_type + + +-- | Type class for types which can be safely cast to `CellEditable`, for instance with `toCellEditable`. +class (GObject o, O.IsDescendantOf CellEditable o) => IsCellEditable o +instance (GObject o, O.IsDescendantOf CellEditable o) => IsCellEditable o + +instance O.HasParentTypes CellEditable +type instance O.ParentTypes CellEditable = '[GObject.Object.Object, Gtk.Widget.Widget] + +-- | Cast to `CellEditable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toCellEditable :: (MonadIO m, IsCellEditable o) => o -> m CellEditable +toCellEditable = liftIO . unsafeCastTo CellEditable + +-- VVV Prop "editing-canceled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@editing-canceled@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' cellEditable #editingCanceled +@ +-} +getCellEditableEditingCanceled :: (MonadIO m, IsCellEditable o) => o -> m Bool +getCellEditableEditingCanceled obj = liftIO $ B.Properties.getObjectPropertyBool obj "editing-canceled" + +{- | +Set the value of the “@editing-canceled@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' cellEditable [ #editingCanceled 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setCellEditableEditingCanceled :: (MonadIO m, IsCellEditable o) => o -> Bool -> m () +setCellEditableEditingCanceled obj val = liftIO $ B.Properties.setObjectPropertyBool obj "editing-canceled" val + +{- | +Construct a `GValueConstruct` with valid value for the “@editing-canceled@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructCellEditableEditingCanceled :: (IsCellEditable o) => Bool -> IO (GValueConstruct o) +constructCellEditableEditingCanceled val = B.Properties.constructObjectPropertyBool "editing-canceled" val + +#if ENABLE_OVERLOADING +data CellEditableEditingCanceledPropertyInfo +instance AttrInfo CellEditableEditingCanceledPropertyInfo where + type AttrAllowedOps CellEditableEditingCanceledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellEditableEditingCanceledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint CellEditableEditingCanceledPropertyInfo = IsCellEditable + type AttrGetType CellEditableEditingCanceledPropertyInfo = Bool + type AttrLabel CellEditableEditingCanceledPropertyInfo = "editing-canceled" + type AttrOrigin CellEditableEditingCanceledPropertyInfo = CellEditable + attrGet _ = getCellEditableEditingCanceled + attrSet _ = setCellEditableEditingCanceled + attrConstruct _ = constructCellEditableEditingCanceled + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList CellEditable +type instance O.AttributeList CellEditable = CellEditableAttributeList +type CellEditableAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +cellEditableEditingCanceled :: AttrLabelProxy "editingCanceled" +cellEditableEditingCanceled = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveCellEditableMethod (t :: Symbol) (o :: *) :: * where + ResolveCellEditableMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveCellEditableMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveCellEditableMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveCellEditableMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveCellEditableMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveCellEditableMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveCellEditableMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveCellEditableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveCellEditableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveCellEditableMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveCellEditableMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveCellEditableMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo + ResolveCellEditableMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveCellEditableMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveCellEditableMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveCellEditableMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveCellEditableMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveCellEditableMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveCellEditableMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveCellEditableMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveCellEditableMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveCellEditableMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveCellEditableMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveCellEditableMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveCellEditableMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveCellEditableMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveCellEditableMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveCellEditableMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveCellEditableMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveCellEditableMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveCellEditableMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveCellEditableMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveCellEditableMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveCellEditableMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveCellEditableMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveCellEditableMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveCellEditableMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveCellEditableMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveCellEditableMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveCellEditableMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveCellEditableMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveCellEditableMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveCellEditableMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveCellEditableMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveCellEditableMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveCellEditableMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveCellEditableMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveCellEditableMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveCellEditableMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveCellEditableMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveCellEditableMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveCellEditableMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveCellEditableMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveCellEditableMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveCellEditableMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveCellEditableMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveCellEditableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveCellEditableMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveCellEditableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveCellEditableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveCellEditableMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveCellEditableMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveCellEditableMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveCellEditableMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveCellEditableMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveCellEditableMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveCellEditableMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveCellEditableMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveCellEditableMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveCellEditableMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveCellEditableMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveCellEditableMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveCellEditableMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveCellEditableMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveCellEditableMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveCellEditableMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveCellEditableMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveCellEditableMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveCellEditableMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveCellEditableMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveCellEditableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveCellEditableMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveCellEditableMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveCellEditableMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveCellEditableMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveCellEditableMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveCellEditableMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveCellEditableMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveCellEditableMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveCellEditableMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveCellEditableMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveCellEditableMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveCellEditableMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveCellEditableMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveCellEditableMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveCellEditableMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveCellEditableMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveCellEditableMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveCellEditableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveCellEditableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveCellEditableMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveCellEditableMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveCellEditableMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveCellEditableMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveCellEditableMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveCellEditableMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveCellEditableMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveCellEditableMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveCellEditableMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveCellEditableMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveCellEditableMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveCellEditableMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveCellEditableMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveCellEditableMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveCellEditableMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveCellEditableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveCellEditableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveCellEditableMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveCellEditableMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveCellEditableMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveCellEditableMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveCellEditableMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveCellEditableMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveCellEditableMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveCellEditableMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveCellEditableMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveCellEditableMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveCellEditableMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveCellEditableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveCellEditableMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveCellEditableMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveCellEditableMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveCellEditableMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveCellEditableMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveCellEditableMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveCellEditableMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveCellEditableMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveCellEditableMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveCellEditableMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveCellEditableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveCellEditableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveCellEditableMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveCellEditableMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveCellEditableMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveCellEditableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveCellEditableMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveCellEditableMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveCellEditableMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveCellEditableMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveCellEditableMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveCellEditableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveCellEditableMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveCellEditableMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveCellEditableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveCellEditableMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveCellEditableMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveCellEditableMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveCellEditableMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveCellEditableMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveCellEditableMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveCellEditableMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveCellEditableMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveCellEditableMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveCellEditableMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveCellEditableMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveCellEditableMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveCellEditableMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveCellEditableMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveCellEditableMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveCellEditableMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveCellEditableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveCellEditableMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveCellEditableMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveCellEditableMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveCellEditableMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveCellEditableMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveCellEditableMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveCellEditableMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveCellEditableMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveCellEditableMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveCellEditableMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveCellEditableMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveCellEditableMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveCellEditableMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveCellEditableMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveCellEditableMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveCellEditableMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveCellEditableMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveCellEditableMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveCellEditableMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveCellEditableMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveCellEditableMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveCellEditableMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveCellEditableMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveCellEditableMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveCellEditableMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveCellEditableMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveCellEditableMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveCellEditableMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveCellEditableMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveCellEditableMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveCellEditableMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveCellEditableMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveCellEditableMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveCellEditableMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveCellEditableMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveCellEditableMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveCellEditableMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveCellEditableMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveCellEditableMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveCellEditableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveCellEditableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveCellEditableMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveCellEditableMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveCellEditableMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveCellEditableMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveCellEditableMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveCellEditableMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveCellEditableMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveCellEditableMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveCellEditableMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveCellEditableMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveCellEditableMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveCellEditableMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveCellEditableMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveCellEditableMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveCellEditableMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveCellEditableMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveCellEditableMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveCellEditableMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveCellEditableMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveCellEditableMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveCellEditableMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveCellEditableMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveCellEditableMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveCellEditableMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveCellEditableMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveCellEditableMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveCellEditableMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveCellEditableMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveCellEditableMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveCellEditableMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveCellEditableMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveCellEditableMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveCellEditableMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveCellEditableMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveCellEditableMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveCellEditableMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveCellEditableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveCellEditableMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveCellEditableMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveCellEditableMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveCellEditableMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveCellEditableMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveCellEditableMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveCellEditableMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveCellEditableMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveCellEditableMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveCellEditableMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveCellEditableMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveCellEditableMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveCellEditableMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveCellEditableMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveCellEditableMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveCellEditableMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveCellEditableMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveCellEditableMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveCellEditableMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveCellEditableMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveCellEditableMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveCellEditableMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveCellEditableMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveCellEditableMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveCellEditableMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveCellEditableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveCellEditableMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveCellEditableMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveCellEditableMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveCellEditableMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveCellEditableMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveCellEditableMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveCellEditableMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveCellEditableMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveCellEditableMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveCellEditableMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveCellEditableMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveCellEditableMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveCellEditableMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveCellEditableMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveCellEditableMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveCellEditableMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveCellEditableMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveCellEditableMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveCellEditableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveCellEditableMethod t CellEditable, O.MethodInfo info CellEditable p) => OL.IsLabel t (CellEditable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method CellEditable::editing_done +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_editable", argType = TInterface (Name {namespace = "Gtk", name = "CellEditable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkCellEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_editable_editing_done" gtk_cell_editable_editing_done :: + Ptr CellEditable -> -- cell_editable : TInterface (Name {namespace = "Gtk", name = "CellEditable"}) + IO () + +{- | +Emits the 'GI.Gtk.Interfaces.CellEditable.CellEditable'::@/editing-done/@ signal. +-} +cellEditableEditingDone :: + (B.CallStack.HasCallStack, MonadIO m, IsCellEditable a) => + a + {- ^ /@cellEditable@/: A 'GI.Gtk.Interfaces.CellEditable.CellEditable' -} + -> m () +cellEditableEditingDone cellEditable = liftIO $ do + cellEditable' <- unsafeManagedPtrCastPtr cellEditable + gtk_cell_editable_editing_done cellEditable' + touchManagedPtr cellEditable + return () + +#if ENABLE_OVERLOADING +data CellEditableEditingDoneMethodInfo +instance (signature ~ (m ()), MonadIO m, IsCellEditable a) => O.MethodInfo CellEditableEditingDoneMethodInfo a signature where + overloadedMethod _ = cellEditableEditingDone + +#endif + +-- method CellEditable::remove_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_editable", argType = TInterface (Name {namespace = "Gtk", name = "CellEditable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkCellEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_editable_remove_widget" gtk_cell_editable_remove_widget :: + Ptr CellEditable -> -- cell_editable : TInterface (Name {namespace = "Gtk", name = "CellEditable"}) + IO () + +{- | +Emits the 'GI.Gtk.Interfaces.CellEditable.CellEditable'::@/remove-widget/@ signal. +-} +cellEditableRemoveWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsCellEditable a) => + a + {- ^ /@cellEditable@/: A 'GI.Gtk.Interfaces.CellEditable.CellEditable' -} + -> m () +cellEditableRemoveWidget cellEditable = liftIO $ do + cellEditable' <- unsafeManagedPtrCastPtr cellEditable + gtk_cell_editable_remove_widget cellEditable' + touchManagedPtr cellEditable + return () + +#if ENABLE_OVERLOADING +data CellEditableRemoveWidgetMethodInfo +instance (signature ~ (m ()), MonadIO m, IsCellEditable a) => O.MethodInfo CellEditableRemoveWidgetMethodInfo a signature where + overloadedMethod _ = cellEditableRemoveWidget + +#endif + +-- method CellEditable::start_editing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_editable", argType = TInterface (Name {namespace = "Gtk", name = "CellEditable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkCellEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "Event"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The #GdkEvent that began the editing process, or\n %NULL if editing was initiated programmatically", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_editable_start_editing" gtk_cell_editable_start_editing :: + Ptr CellEditable -> -- cell_editable : TInterface (Name {namespace = "Gtk", name = "CellEditable"}) + Ptr Gdk.Event.Event -> -- event : TInterface (Name {namespace = "Gdk", name = "Event"}) + IO () + +{- | +Begins editing on a /@cellEditable@/. + +The 'GI.Gtk.Objects.CellRenderer.CellRenderer' for the cell creates and returns a 'GI.Gtk.Interfaces.CellEditable.CellEditable' from +'GI.Gtk.Objects.CellRenderer.cellRendererStartEditing', configured for the 'GI.Gtk.Objects.CellRenderer.CellRenderer' type. + +'GI.Gtk.Interfaces.CellEditable.cellEditableStartEditing' can then set up /@cellEditable@/ suitably for +editing a cell, e.g. making the Esc key emit 'GI.Gtk.Interfaces.CellEditable.CellEditable'::@/editing-done/@. + +Note that the /@cellEditable@/ is created on-demand for the current edit; its +lifetime is temporary and does not persist across other edits and\/or cells. +-} +cellEditableStartEditing :: + (B.CallStack.HasCallStack, MonadIO m, IsCellEditable a) => + a + {- ^ /@cellEditable@/: A 'GI.Gtk.Interfaces.CellEditable.CellEditable' -} + -> Maybe (Gdk.Event.Event) + {- ^ /@event@/: The 'GI.Gdk.Unions.Event.Event' that began the editing process, or + 'Nothing' if editing was initiated programmatically -} + -> m () +cellEditableStartEditing cellEditable event = liftIO $ do + cellEditable' <- unsafeManagedPtrCastPtr cellEditable + maybeEvent <- case event of + Nothing -> return nullPtr + Just jEvent -> do + jEvent' <- unsafeManagedPtrGetPtr jEvent + return jEvent' + gtk_cell_editable_start_editing cellEditable' maybeEvent + touchManagedPtr cellEditable + whenJust event touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data CellEditableStartEditingMethodInfo +instance (signature ~ (Maybe (Gdk.Event.Event) -> m ()), MonadIO m, IsCellEditable a) => O.MethodInfo CellEditableStartEditingMethodInfo a signature where + overloadedMethod _ = cellEditableStartEditing + +#endif + + diff --git a/GI/Gtk/Interfaces/CellEditable.hs-boot b/GI/Gtk/Interfaces/CellEditable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/CellEditable.hs-boot @@ -0,0 +1,47 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.CellEditable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype CellEditable = CellEditable (ManagedPtr CellEditable) +#if ENABLE_OVERLOADING +data CellEditableEditingDoneSignalInfo +#endif +#if ENABLE_OVERLOADING +data CellEditableRemoveWidgetSignalInfo +#endif +instance GObject CellEditable where +class (GObject o, O.IsDescendantOf CellEditable o) => IsCellEditable o +instance (GObject o, O.IsDescendantOf CellEditable o) => IsCellEditable o +instance O.HasParentTypes CellEditable +#if ENABLE_OVERLOADING +data CellEditableEditingCanceledPropertyInfo +#endif +#if ENABLE_OVERLOADING +data CellEditableEditingDoneMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellEditableRemoveWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellEditableStartEditingMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/CellLayout.hs b/GI/Gtk/Interfaces/CellLayout.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/CellLayout.hs @@ -0,0 +1,730 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.CellLayout.CellLayout' is an interface to be implemented by all objects which +want to provide a 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn' like API for packing cells, +setting attributes and data funcs. + +One of the notable features provided by implementations of +GtkCellLayout are attributes. Attributes let you set the properties +in flexible ways. They can just be set to constant values like regular +properties. But they can also be mapped to a column of the underlying +tree model with @/gtk_cell_layout_set_attributes()/@, which means that the value +of the attribute can change from cell to cell as they are rendered by +the cell renderer. Finally, it is possible to specify a function with +'GI.Gtk.Interfaces.CellLayout.cellLayoutSetCellDataFunc' that is called to determine the +value of the attribute for each cell that is rendered. + += GtkCellLayouts as GtkBuildable + +Implementations of GtkCellLayout which also implement the GtkBuildable +interface ('GI.Gtk.Objects.CellView.CellView', 'GI.Gtk.Objects.IconView.IconView', 'GI.Gtk.Objects.ComboBox.ComboBox', +'GI.Gtk.Objects.EntryCompletion.EntryCompletion', 'GI.Gtk.Objects.TreeViewColumn.TreeViewColumn') accept GtkCellRenderer objects +as \ elements in UI definitions. They support a custom \ +element for their children, which can contain multiple \ +elements. Each \ element has a name attribute which specifies +a property of the cell renderer; the content of the element is the +attribute value. + +This is an example of a UI definition fragment specifying attributes: +> +> +> +> +> +> 0 +> +> " +> + + +Furthermore for implementations of GtkCellLayout that use a 'GI.Gtk.Objects.CellArea.CellArea' +to lay out cells (all GtkCellLayouts in GTK+ use a GtkCellArea) +[cell properties][cell-properties] can also be defined in the format by +specifying the custom \ attribute which can contain multiple +\ elements defined in the normal way. + +Here is a UI definition fragment specifying cell properties: + +> +> +> +> +> +> True +> False +> +> " +> + + += Subclassing GtkCellLayout implementations + +When subclassing a widget that implements 'GI.Gtk.Interfaces.CellLayout.CellLayout' like +'GI.Gtk.Objects.IconView.IconView' or 'GI.Gtk.Objects.ComboBox.ComboBox', there are some considerations related +to the fact that these widgets internally use a 'GI.Gtk.Objects.CellArea.CellArea'. +The cell area is exposed as a construct-only property by these +widgets. This means that it is possible to e.g. do + + +=== /C code/ +> +>combo = g_object_new (GTK_TYPE_COMBO_BOX, "cell-area", my_cell_area, NULL); + + +to use a custom cell area with a combo box. But construct properties +are only initialized after instance @/init()/@ +functions have run, which means that using functions which rely on +the existence of the cell area in your subclass’ @/init()/@ function will +cause the default cell area to be instantiated. In this case, a provided +construct property value will be ignored (with a warning, to alert +you to the problem). + + +=== /C code/ +> +>static void +>my_combo_box_init (MyComboBox *b) +>{ +> GtkCellRenderer *cell; +> +> cell = gtk_cell_renderer_pixbuf_new (); +> // The following call causes the default cell area for combo boxes, +> // a GtkCellAreaBox, to be instantiated +> gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (b), cell, FALSE); +> ... +>} +> +>GtkWidget * +>my_combo_box_new (GtkCellArea *area) +>{ +> // This call is going to cause a warning about area being ignored +> return g_object_new (MY_TYPE_COMBO_BOX, "cell-area", area, NULL); +>} + + +If supporting alternative cell areas with your derived widget is +not important, then this does not have to concern you. If you want +to support alternative cell areas, you can do so by moving the +problematic calls out of @/init()/@ and into a @/constructor()/@ +for your class. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.CellLayout + ( + +-- * Exported types + CellLayout(..) , + noCellLayout , + IsCellLayout , + toCellLayout , + + + -- * Methods +-- ** addAttribute #method:addAttribute# + +#if ENABLE_OVERLOADING + CellLayoutAddAttributeMethodInfo , +#endif + cellLayoutAddAttribute , + + +-- ** clear #method:clear# + +#if ENABLE_OVERLOADING + CellLayoutClearMethodInfo , +#endif + cellLayoutClear , + + +-- ** clearAttributes #method:clearAttributes# + +#if ENABLE_OVERLOADING + CellLayoutClearAttributesMethodInfo , +#endif + cellLayoutClearAttributes , + + +-- ** getArea #method:getArea# + +#if ENABLE_OVERLOADING + CellLayoutGetAreaMethodInfo , +#endif + cellLayoutGetArea , + + +-- ** getCells #method:getCells# + +#if ENABLE_OVERLOADING + CellLayoutGetCellsMethodInfo , +#endif + cellLayoutGetCells , + + +-- ** packEnd #method:packEnd# + +#if ENABLE_OVERLOADING + CellLayoutPackEndMethodInfo , +#endif + cellLayoutPackEnd , + + +-- ** packStart #method:packStart# + +#if ENABLE_OVERLOADING + CellLayoutPackStartMethodInfo , +#endif + cellLayoutPackStart , + + +-- ** reorder #method:reorder# + +#if ENABLE_OVERLOADING + CellLayoutReorderMethodInfo , +#endif + cellLayoutReorder , + + +-- ** setCellDataFunc #method:setCellDataFunc# + +#if ENABLE_OVERLOADING + CellLayoutSetCellDataFuncMethodInfo , +#endif + cellLayoutSetCellDataFunc , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Callbacks as GLib.Callbacks +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea +import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer + +-- interface CellLayout +-- | Memory-managed wrapper type. +newtype CellLayout = CellLayout (ManagedPtr CellLayout) +-- | A convenience alias for `Nothing` :: `Maybe` `CellLayout`. +noCellLayout :: Maybe CellLayout +noCellLayout = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList CellLayout = CellLayoutSignalList +type CellLayoutSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_cell_layout_get_type" + c_gtk_cell_layout_get_type :: IO GType + +instance GObject CellLayout where + gobjectType = c_gtk_cell_layout_get_type + + +-- | Type class for types which can be safely cast to `CellLayout`, for instance with `toCellLayout`. +class (GObject o, O.IsDescendantOf CellLayout o) => IsCellLayout o +instance (GObject o, O.IsDescendantOf CellLayout o) => IsCellLayout o + +instance O.HasParentTypes CellLayout +type instance O.ParentTypes CellLayout = '[GObject.Object.Object] + +-- | Cast to `CellLayout`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toCellLayout :: (MonadIO m, IsCellLayout o) => o -> m CellLayout +toCellLayout = liftIO . unsafeCastTo CellLayout + +#if ENABLE_OVERLOADING +instance O.HasAttributeList CellLayout +type instance O.AttributeList CellLayout = CellLayoutAttributeList +type CellLayoutAttributeList = ('[ ] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type family ResolveCellLayoutMethod (t :: Symbol) (o :: *) :: * where + ResolveCellLayoutMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveCellLayoutMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveCellLayoutMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveCellLayoutMethod "clear" o = CellLayoutClearMethodInfo + ResolveCellLayoutMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveCellLayoutMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveCellLayoutMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveCellLayoutMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveCellLayoutMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveCellLayoutMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveCellLayoutMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveCellLayoutMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveCellLayoutMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveCellLayoutMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveCellLayoutMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveCellLayoutMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveCellLayoutMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveCellLayoutMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveCellLayoutMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveCellLayoutMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveCellLayoutMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveCellLayoutMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveCellLayoutMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveCellLayoutMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveCellLayoutMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveCellLayoutMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveCellLayoutMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveCellLayoutMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveCellLayoutMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveCellLayoutMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveCellLayoutMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveCellLayoutMethod t CellLayout, O.MethodInfo info CellLayout p) => OL.IsLabel t (CellLayout -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method CellLayout::add_attribute +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellRenderer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute on the renderer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the column position on the model to get the attribute from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_add_attribute" gtk_cell_layout_add_attribute :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + Ptr Gtk.CellRenderer.CellRenderer -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellRenderer"}) + CString -> -- attribute : TBasicType TUTF8 + Int32 -> -- column : TBasicType TInt + IO () + +{- | +Adds an attribute mapping to the list in /@cellLayout@/. + +The /@column@/ is the column of the model to get a value from, and the +/@attribute@/ is the parameter on /@cell@/ to be set from the value. So for +example if column 2 of the model contains strings, you could have the +“text” attribute of a 'GI.Gtk.Objects.CellRendererText.CellRendererText' get its values from column 2. + +/Since: 2.4/ +-} +cellLayoutAddAttribute :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> b + {- ^ /@cell@/: a 'GI.Gtk.Objects.CellRenderer.CellRenderer' -} + -> T.Text + {- ^ /@attribute@/: an attribute on the renderer -} + -> Int32 + {- ^ /@column@/: the column position on the model to get the attribute from -} + -> m () +cellLayoutAddAttribute cellLayout cell attribute column = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + cell' <- unsafeManagedPtrCastPtr cell + attribute' <- textToCString attribute + gtk_cell_layout_add_attribute cellLayout' cell' attribute' column + touchManagedPtr cellLayout + touchManagedPtr cell + freeMem attribute' + return () + +#if ENABLE_OVERLOADING +data CellLayoutAddAttributeMethodInfo +instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellLayoutAddAttributeMethodInfo a signature where + overloadedMethod _ = cellLayoutAddAttribute + +#endif + +-- method CellLayout::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_clear" gtk_cell_layout_clear :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + IO () + +{- | +Unsets all the mappings on all renderers on /@cellLayout@/ and +removes all renderers from /@cellLayout@/. + +/Since: 2.4/ +-} +cellLayoutClear :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> m () +cellLayoutClear cellLayout = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + gtk_cell_layout_clear cellLayout' + touchManagedPtr cellLayout + return () + +#if ENABLE_OVERLOADING +data CellLayoutClearMethodInfo +instance (signature ~ (m ()), MonadIO m, IsCellLayout a) => O.MethodInfo CellLayoutClearMethodInfo a signature where + overloadedMethod _ = cellLayoutClear + +#endif + +-- method CellLayout::clear_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellRenderer to clear the attribute mapping on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_clear_attributes" gtk_cell_layout_clear_attributes :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + Ptr Gtk.CellRenderer.CellRenderer -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellRenderer"}) + IO () + +{- | +Clears all existing attributes previously set with +@/gtk_cell_layout_set_attributes()/@. + +/Since: 2.4/ +-} +cellLayoutClearAttributes :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> b + {- ^ /@cell@/: a 'GI.Gtk.Objects.CellRenderer.CellRenderer' to clear the attribute mapping on -} + -> m () +cellLayoutClearAttributes cellLayout cell = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + cell' <- unsafeManagedPtrCastPtr cell + gtk_cell_layout_clear_attributes cellLayout' cell' + touchManagedPtr cellLayout + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellLayoutClearAttributesMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellLayoutClearAttributesMethodInfo a signature where + overloadedMethod _ = cellLayoutClearAttributes + +#endif + +-- method CellLayout::get_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "CellArea"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_get_area" gtk_cell_layout_get_area :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + IO (Ptr Gtk.CellArea.CellArea) + +{- | +Returns the underlying 'GI.Gtk.Objects.CellArea.CellArea' which might be /@cellLayout@/ +if called on a 'GI.Gtk.Objects.CellArea.CellArea' or might be 'Nothing' if no 'GI.Gtk.Objects.CellArea.CellArea' +is used by /@cellLayout@/. + +/Since: 3.0/ +-} +cellLayoutGetArea :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> m (Maybe Gtk.CellArea.CellArea) + {- ^ __Returns:__ the cell area used by /@cellLayout@/, +or 'Nothing' in case no cell area is used. -} +cellLayoutGetArea cellLayout = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + result <- gtk_cell_layout_get_area cellLayout' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.CellArea.CellArea) result' + return result'' + touchManagedPtr cellLayout + return maybeResult + +#if ENABLE_OVERLOADING +data CellLayoutGetAreaMethodInfo +instance (signature ~ (m (Maybe Gtk.CellArea.CellArea)), MonadIO m, IsCellLayout a) => O.MethodInfo CellLayoutGetAreaMethodInfo a signature where + overloadedMethod _ = cellLayoutGetArea + +#endif + +-- method CellLayout::get_cells +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGList (TInterface (Name {namespace = "Gtk", name = "CellRenderer"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_get_cells" gtk_cell_layout_get_cells :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + IO (Ptr (GList (Ptr Gtk.CellRenderer.CellRenderer))) + +{- | +Returns the cell renderers which have been added to /@cellLayout@/. + +/Since: 2.12/ +-} +cellLayoutGetCells :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> m [Gtk.CellRenderer.CellRenderer] + {- ^ __Returns:__ + a list of cell renderers. The list, but not the renderers has + been newly allocated and should be freed with @/g_list_free()/@ + when no longer needed. -} +cellLayoutGetCells cellLayout = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + result <- gtk_cell_layout_get_cells cellLayout' + result' <- unpackGList result + result'' <- mapM (newObject Gtk.CellRenderer.CellRenderer) result' + g_list_free result + touchManagedPtr cellLayout + return result'' + +#if ENABLE_OVERLOADING +data CellLayoutGetCellsMethodInfo +instance (signature ~ (m [Gtk.CellRenderer.CellRenderer]), MonadIO m, IsCellLayout a) => O.MethodInfo CellLayoutGetCellsMethodInfo a signature where + overloadedMethod _ = cellLayoutGetCells + +#endif + +-- method CellLayout::pack_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellRenderer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if @cell is to be given extra space allocated to @cell_layout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_pack_end" gtk_cell_layout_pack_end :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + Ptr Gtk.CellRenderer.CellRenderer -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellRenderer"}) + CInt -> -- expand : TBasicType TBoolean + IO () + +{- | +Adds the /@cell@/ to the end of /@cellLayout@/. If /@expand@/ is 'False', then the +/@cell@/ is allocated no more space than it needs. Any unused space is +divided evenly between cells for which /@expand@/ is 'True'. + +Note that reusing the same cell renderer is not supported. + +/Since: 2.4/ +-} +cellLayoutPackEnd :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> b + {- ^ /@cell@/: a 'GI.Gtk.Objects.CellRenderer.CellRenderer' -} + -> Bool + {- ^ /@expand@/: 'True' if /@cell@/ is to be given extra space allocated to /@cellLayout@/ -} + -> m () +cellLayoutPackEnd cellLayout cell expand = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + cell' <- unsafeManagedPtrCastPtr cell + let expand' = (fromIntegral . fromEnum) expand + gtk_cell_layout_pack_end cellLayout' cell' expand' + touchManagedPtr cellLayout + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellLayoutPackEndMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellLayoutPackEndMethodInfo a signature where + overloadedMethod _ = cellLayoutPackEnd + +#endif + +-- method CellLayout::pack_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellRenderer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if @cell is to be given extra space allocated to @cell_layout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_pack_start" gtk_cell_layout_pack_start :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + Ptr Gtk.CellRenderer.CellRenderer -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellRenderer"}) + CInt -> -- expand : TBasicType TBoolean + IO () + +{- | +Packs the /@cell@/ into the beginning of /@cellLayout@/. If /@expand@/ is 'False', +then the /@cell@/ is allocated no more space than it needs. Any unused space +is divided evenly between cells for which /@expand@/ is 'True'. + +Note that reusing the same cell renderer is not supported. + +/Since: 2.4/ +-} +cellLayoutPackStart :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> b + {- ^ /@cell@/: a 'GI.Gtk.Objects.CellRenderer.CellRenderer' -} + -> Bool + {- ^ /@expand@/: 'True' if /@cell@/ is to be given extra space allocated to /@cellLayout@/ -} + -> m () +cellLayoutPackStart cellLayout cell expand = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + cell' <- unsafeManagedPtrCastPtr cell + let expand' = (fromIntegral . fromEnum) expand + gtk_cell_layout_pack_start cellLayout' cell' expand' + touchManagedPtr cellLayout + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellLayoutPackStartMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellLayoutPackStartMethodInfo a signature where + overloadedMethod _ = cellLayoutPackStart + +#endif + +-- method CellLayout::reorder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellRenderer to reorder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new position to insert @cell at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_reorder" gtk_cell_layout_reorder :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + Ptr Gtk.CellRenderer.CellRenderer -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellRenderer"}) + Int32 -> -- position : TBasicType TInt + IO () + +{- | +Re-inserts /@cell@/ at /@position@/. + +Note that /@cell@/ has already to be packed into /@cellLayout@/ +for this to function properly. + +/Since: 2.4/ +-} +cellLayoutReorder :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> b + {- ^ /@cell@/: a 'GI.Gtk.Objects.CellRenderer.CellRenderer' to reorder -} + -> Int32 + {- ^ /@position@/: new position to insert /@cell@/ at -} + -> m () +cellLayoutReorder cellLayout cell position = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + cell' <- unsafeManagedPtrCastPtr cell + gtk_cell_layout_reorder cellLayout' cell' position + touchManagedPtr cellLayout + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellLayoutReorderMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellLayoutReorderMethodInfo a signature where + overloadedMethod _ = cellLayoutReorder + +#endif + +-- method CellLayout::set_cell_data_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "cell_layout", argType = TInterface (Name {namespace = "Gtk", name = "CellLayout"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellLayout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellRenderer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkCellRenderer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "Gtk", name = "CellLayoutDataFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkCellLayoutDataFunc to use, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for @func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notify for @func_data", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_cell_layout_set_cell_data_func" gtk_cell_layout_set_cell_data_func :: + Ptr CellLayout -> -- cell_layout : TInterface (Name {namespace = "Gtk", name = "CellLayout"}) + Ptr Gtk.CellRenderer.CellRenderer -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellRenderer"}) + FunPtr Gtk.Callbacks.C_CellLayoutDataFunc -> -- func : TInterface (Name {namespace = "Gtk", name = "CellLayoutDataFunc"}) + Ptr () -> -- func_data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{- | +Sets the 'GI.Gtk.Callbacks.CellLayoutDataFunc' to use for /@cellLayout@/. + +This function is used instead of the standard attributes mapping +for setting the column value, and should set the value of /@cellLayout@/’s +cell renderer(s) as appropriate. + +/@func@/ may be 'Nothing' to remove a previously set function. + +/Since: 2.4/ +-} +cellLayoutSetCellDataFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => + a + {- ^ /@cellLayout@/: a 'GI.Gtk.Interfaces.CellLayout.CellLayout' -} + -> b + {- ^ /@cell@/: a 'GI.Gtk.Objects.CellRenderer.CellRenderer' -} + -> Maybe (Gtk.Callbacks.CellLayoutDataFunc) + {- ^ /@func@/: the 'GI.Gtk.Callbacks.CellLayoutDataFunc' to use, or 'Nothing' -} + -> m () +cellLayoutSetCellDataFunc cellLayout cell func = liftIO $ do + cellLayout' <- unsafeManagedPtrCastPtr cellLayout + cell' <- unsafeManagedPtrCastPtr cell + maybeFunc <- case func of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFunc -> do + jFunc' <- Gtk.Callbacks.mk_CellLayoutDataFunc (Gtk.Callbacks.wrap_CellLayoutDataFunc Nothing (Gtk.Callbacks.drop_closures_CellLayoutDataFunc jFunc)) + return jFunc' + let funcData = castFunPtrToPtr maybeFunc + let destroy = safeFreeFunPtrPtr + gtk_cell_layout_set_cell_data_func cellLayout' cell' maybeFunc funcData destroy + touchManagedPtr cellLayout + touchManagedPtr cell + return () + +#if ENABLE_OVERLOADING +data CellLayoutSetCellDataFuncMethodInfo +instance (signature ~ (b -> Maybe (Gtk.Callbacks.CellLayoutDataFunc) -> m ()), MonadIO m, IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellLayoutSetCellDataFuncMethodInfo a signature where + overloadedMethod _ = cellLayoutSetCellDataFunc + +#endif + + diff --git a/GI/Gtk/Interfaces/CellLayout.hs-boot b/GI/Gtk/Interfaces/CellLayout.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/CellLayout.hs-boot @@ -0,0 +1,56 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.CellLayout where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype CellLayout = CellLayout (ManagedPtr CellLayout) +instance GObject CellLayout where +class (GObject o, O.IsDescendantOf CellLayout o) => IsCellLayout o +instance (GObject o, O.IsDescendantOf CellLayout o) => IsCellLayout o +instance O.HasParentTypes CellLayout +#if ENABLE_OVERLOADING +data CellLayoutAddAttributeMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutClearMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutClearAttributesMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutGetAreaMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutGetCellsMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutPackEndMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutPackStartMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutReorderMethodInfo +#endif +#if ENABLE_OVERLOADING +data CellLayoutSetCellDataFuncMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/ColorChooser.hs b/GI/Gtk/Interfaces/ColorChooser.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/ColorChooser.hs @@ -0,0 +1,653 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.ColorChooser.ColorChooser' is an interface that is implemented by widgets +for choosing colors. Depending on the situation, colors may be +allowed to have alpha (translucency). + +In GTK+, the main widgets that implement this interface are +'GI.Gtk.Objects.ColorChooserWidget.ColorChooserWidget', 'GI.Gtk.Objects.ColorChooserDialog.ColorChooserDialog' and 'GI.Gtk.Objects.ColorButton.ColorButton'. + +/Since: 3.4/ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.ColorChooser + ( + +-- * Exported types + ColorChooser(..) , + noColorChooser , + IsColorChooser , + toColorChooser , + + + -- * Methods +-- ** addPalette #method:addPalette# + +#if ENABLE_OVERLOADING + ColorChooserAddPaletteMethodInfo , +#endif + colorChooserAddPalette , + + +-- ** getRgba #method:getRgba# + +#if ENABLE_OVERLOADING + ColorChooserGetRgbaMethodInfo , +#endif + colorChooserGetRgba , + + +-- ** getUseAlpha #method:getUseAlpha# + +#if ENABLE_OVERLOADING + ColorChooserGetUseAlphaMethodInfo , +#endif + colorChooserGetUseAlpha , + + +-- ** setRgba #method:setRgba# + +#if ENABLE_OVERLOADING + ColorChooserSetRgbaMethodInfo , +#endif + colorChooserSetRgba , + + +-- ** setUseAlpha #method:setUseAlpha# + +#if ENABLE_OVERLOADING + ColorChooserSetUseAlphaMethodInfo , +#endif + colorChooserSetUseAlpha , + + + + + -- * Properties +-- ** rgba #attr:rgba# +{- | The ::rgba property contains the currently selected color, +as a 'GI.Gdk.Structs.RGBA.RGBA' struct. The property can be set to change +the current selection programmatically. + +/Since: 3.4/ +-} +#if ENABLE_OVERLOADING + ColorChooserRgbaPropertyInfo , +#endif +#if ENABLE_OVERLOADING + colorChooserRgba , +#endif + constructColorChooserRgba , + getColorChooserRgba , + setColorChooserRgba , + + +-- ** useAlpha #attr:useAlpha# +{- | When ::use-alpha is 'True', colors may have alpha (translucency) +information. When it is 'False', the 'GI.Gdk.Structs.RGBA.RGBA' struct obtained +via the 'GI.Gtk.Interfaces.ColorChooser.ColorChooser':@/rgba/@ property will be forced to have +alpha == 1. + +Implementations are expected to show alpha by rendering the color +over a non-uniform background (like a checkerboard pattern). + +/Since: 3.4/ +-} +#if ENABLE_OVERLOADING + ColorChooserUseAlphaPropertyInfo , +#endif +#if ENABLE_OVERLOADING + colorChooserUseAlpha , +#endif + constructColorChooserUseAlpha , + getColorChooserUseAlpha , + setColorChooserUseAlpha , + + + + + -- * Signals +-- ** colorActivated #signal:colorActivated# + + C_ColorChooserColorActivatedCallback , + ColorChooserColorActivatedCallback , +#if ENABLE_OVERLOADING + ColorChooserColorActivatedSignalInfo , +#endif + afterColorChooserColorActivated , + genClosure_ColorChooserColorActivated , + mk_ColorChooserColorActivatedCallback , + noColorChooserColorActivatedCallback , + onColorChooserColorActivated , + wrap_ColorChooserColorActivatedCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums + +-- interface ColorChooser +-- | Memory-managed wrapper type. +newtype ColorChooser = ColorChooser (ManagedPtr ColorChooser) +-- | A convenience alias for `Nothing` :: `Maybe` `ColorChooser`. +noColorChooser :: Maybe ColorChooser +noColorChooser = Nothing + +-- signal ColorChooser::color-activated +{- | +Emitted when a color is activated from the color chooser. +This usually happens when the user clicks a color swatch, +or a color is selected and the user presses one of the keys +Space, Shift+Space, Return or Enter. + +/Since: 3.4/ +-} +type ColorChooserColorActivatedCallback = + Gdk.RGBA.RGBA + {- ^ /@color@/: the color -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ColorChooserColorActivatedCallback`@. +noColorChooserColorActivatedCallback :: Maybe ColorChooserColorActivatedCallback +noColorChooserColorActivatedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ColorChooserColorActivatedCallback = + Ptr () -> -- object + Ptr Gdk.RGBA.RGBA -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ColorChooserColorActivatedCallback`. +foreign import ccall "wrapper" + mk_ColorChooserColorActivatedCallback :: C_ColorChooserColorActivatedCallback -> IO (FunPtr C_ColorChooserColorActivatedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ColorChooserColorActivated :: MonadIO m => ColorChooserColorActivatedCallback -> m (GClosure C_ColorChooserColorActivatedCallback) +genClosure_ColorChooserColorActivated cb = liftIO $ do + let cb' = wrap_ColorChooserColorActivatedCallback cb + mk_ColorChooserColorActivatedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ColorChooserColorActivatedCallback` into a `C_ColorChooserColorActivatedCallback`. +wrap_ColorChooserColorActivatedCallback :: + ColorChooserColorActivatedCallback -> + C_ColorChooserColorActivatedCallback +wrap_ColorChooserColorActivatedCallback _cb _ color _ = do + B.ManagedPtr.withTransient Gdk.RGBA.RGBA color $ \color' -> do + _cb color' + + +{- | +Connect a signal handler for the “@color-activated@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' colorChooser #colorActivated callback +@ +-} +onColorChooserColorActivated :: (IsColorChooser a, MonadIO m) => a -> ColorChooserColorActivatedCallback -> m SignalHandlerId +onColorChooserColorActivated obj cb = liftIO $ do + let cb' = wrap_ColorChooserColorActivatedCallback cb + cb'' <- mk_ColorChooserColorActivatedCallback cb' + connectSignalFunPtr obj "color-activated" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@color-activated@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' colorChooser #colorActivated callback +@ +-} +afterColorChooserColorActivated :: (IsColorChooser a, MonadIO m) => a -> ColorChooserColorActivatedCallback -> m SignalHandlerId +afterColorChooserColorActivated obj cb = liftIO $ do + let cb' = wrap_ColorChooserColorActivatedCallback cb + cb'' <- mk_ColorChooserColorActivatedCallback cb' + connectSignalFunPtr obj "color-activated" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data ColorChooserColorActivatedSignalInfo +instance SignalInfo ColorChooserColorActivatedSignalInfo where + type HaskellCallbackType ColorChooserColorActivatedSignalInfo = ColorChooserColorActivatedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ColorChooserColorActivatedCallback cb + cb'' <- mk_ColorChooserColorActivatedCallback cb' + connectSignalFunPtr obj "color-activated" cb'' connectMode + +type instance O.SignalList ColorChooser = ColorChooserSignalList +type ColorChooserSignalList = ('[ '("colorActivated", ColorChooserColorActivatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_color_chooser_get_type" + c_gtk_color_chooser_get_type :: IO GType + +instance GObject ColorChooser where + gobjectType = c_gtk_color_chooser_get_type + + +-- | Type class for types which can be safely cast to `ColorChooser`, for instance with `toColorChooser`. +class (GObject o, O.IsDescendantOf ColorChooser o) => IsColorChooser o +instance (GObject o, O.IsDescendantOf ColorChooser o) => IsColorChooser o + +instance O.HasParentTypes ColorChooser +type instance O.ParentTypes ColorChooser = '[GObject.Object.Object] + +-- | Cast to `ColorChooser`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toColorChooser :: (MonadIO m, IsColorChooser o) => o -> m ColorChooser +toColorChooser = liftIO . unsafeCastTo ColorChooser + +-- VVV Prop "rgba" + -- Type: TInterface (Name {namespace = "Gdk", name = "RGBA"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) + +{- | +Get the value of the “@rgba@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' colorChooser #rgba +@ +-} +getColorChooserRgba :: (MonadIO m, IsColorChooser o) => o -> m (Maybe Gdk.RGBA.RGBA) +getColorChooserRgba obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "rgba" Gdk.RGBA.RGBA + +{- | +Set the value of the “@rgba@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' colorChooser [ #rgba 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setColorChooserRgba :: (MonadIO m, IsColorChooser o) => o -> Gdk.RGBA.RGBA -> m () +setColorChooserRgba obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "rgba" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@rgba@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructColorChooserRgba :: (IsColorChooser o) => Gdk.RGBA.RGBA -> IO (GValueConstruct o) +constructColorChooserRgba val = B.Properties.constructObjectPropertyBoxed "rgba" (Just val) + +#if ENABLE_OVERLOADING +data ColorChooserRgbaPropertyInfo +instance AttrInfo ColorChooserRgbaPropertyInfo where + type AttrAllowedOps ColorChooserRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ColorChooserRgbaPropertyInfo = (~) Gdk.RGBA.RGBA + type AttrBaseTypeConstraint ColorChooserRgbaPropertyInfo = IsColorChooser + type AttrGetType ColorChooserRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA) + type AttrLabel ColorChooserRgbaPropertyInfo = "rgba" + type AttrOrigin ColorChooserRgbaPropertyInfo = ColorChooser + attrGet _ = getColorChooserRgba + attrSet _ = setColorChooserRgba + attrConstruct _ = constructColorChooserRgba + attrClear _ = undefined +#endif + +-- VVV Prop "use-alpha" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@use-alpha@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' colorChooser #useAlpha +@ +-} +getColorChooserUseAlpha :: (MonadIO m, IsColorChooser o) => o -> m Bool +getColorChooserUseAlpha obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-alpha" + +{- | +Set the value of the “@use-alpha@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' colorChooser [ #useAlpha 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setColorChooserUseAlpha :: (MonadIO m, IsColorChooser o) => o -> Bool -> m () +setColorChooserUseAlpha obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-alpha" val + +{- | +Construct a `GValueConstruct` with valid value for the “@use-alpha@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructColorChooserUseAlpha :: (IsColorChooser o) => Bool -> IO (GValueConstruct o) +constructColorChooserUseAlpha val = B.Properties.constructObjectPropertyBool "use-alpha" val + +#if ENABLE_OVERLOADING +data ColorChooserUseAlphaPropertyInfo +instance AttrInfo ColorChooserUseAlphaPropertyInfo where + type AttrAllowedOps ColorChooserUseAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ColorChooserUseAlphaPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ColorChooserUseAlphaPropertyInfo = IsColorChooser + type AttrGetType ColorChooserUseAlphaPropertyInfo = Bool + type AttrLabel ColorChooserUseAlphaPropertyInfo = "use-alpha" + type AttrOrigin ColorChooserUseAlphaPropertyInfo = ColorChooser + attrGet _ = getColorChooserUseAlpha + attrSet _ = setColorChooserUseAlpha + attrConstruct _ = constructColorChooserUseAlpha + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList ColorChooser +type instance O.AttributeList ColorChooser = ColorChooserAttributeList +type ColorChooserAttributeList = ('[ '("rgba", ColorChooserRgbaPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +colorChooserRgba :: AttrLabelProxy "rgba" +colorChooserRgba = AttrLabelProxy + +colorChooserUseAlpha :: AttrLabelProxy "useAlpha" +colorChooserUseAlpha = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveColorChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveColorChooserMethod "addPalette" o = ColorChooserAddPaletteMethodInfo + ResolveColorChooserMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveColorChooserMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveColorChooserMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveColorChooserMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveColorChooserMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveColorChooserMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveColorChooserMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveColorChooserMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveColorChooserMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveColorChooserMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveColorChooserMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveColorChooserMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveColorChooserMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveColorChooserMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveColorChooserMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveColorChooserMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveColorChooserMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveColorChooserMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveColorChooserMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveColorChooserMethod "getRgba" o = ColorChooserGetRgbaMethodInfo + ResolveColorChooserMethod "getUseAlpha" o = ColorChooserGetUseAlphaMethodInfo + ResolveColorChooserMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveColorChooserMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveColorChooserMethod "setRgba" o = ColorChooserSetRgbaMethodInfo + ResolveColorChooserMethod "setUseAlpha" o = ColorChooserSetUseAlphaMethodInfo + ResolveColorChooserMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveColorChooserMethod t ColorChooser, O.MethodInfo info ColorChooser p) => OL.IsLabel t (ColorChooser -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method ColorChooser::add_palette +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "ColorChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkColorChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface (Name {namespace = "Gtk", name = "Orientation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%GTK_ORIENTATION_HORIZONTAL if the palette should\n be displayed in rows, %GTK_ORIENTATION_VERTICAL for columns", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors_per_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of colors to show in each row/column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the total number of elements in @colors", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 3 (TInterface (Name {namespace = "Gdk", name = "RGBA"})), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the colors of the palette, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the total number of elements in @colors", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_color_chooser_add_palette" gtk_color_chooser_add_palette :: + Ptr ColorChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "ColorChooser"}) + CUInt -> -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"}) + Int32 -> -- colors_per_line : TBasicType TInt + Int32 -> -- n_colors : TBasicType TInt + Ptr Gdk.RGBA.RGBA -> -- colors : TCArray False (-1) 3 (TInterface (Name {namespace = "Gdk", name = "RGBA"})) + IO () + +{- | +Adds a palette to the color chooser. If /@orientation@/ is horizontal, +the colors are grouped in rows, with /@colorsPerLine@/ colors +in each row. If /@horizontal@/ is 'False', the colors are grouped +in columns instead. + +The default color palette of 'GI.Gtk.Objects.ColorChooserWidget.ColorChooserWidget' has +27 colors, organized in columns of 3 colors. The default gray +palette has 9 grays in a single row. + +The layout of the color chooser widget works best when the +palettes have 9-10 columns. + +Calling this function for the first time has the +side effect of removing the default color and gray palettes +from the color chooser. + +If /@colors@/ is 'Nothing', removes all previously added palettes. + +/Since: 3.4/ +-} +colorChooserAddPalette :: + (B.CallStack.HasCallStack, MonadIO m, IsColorChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.ColorChooser.ColorChooser' -} + -> Gtk.Enums.Orientation + {- ^ /@orientation@/: 'GI.Gtk.Enums.OrientationHorizontal' if the palette should + be displayed in rows, 'GI.Gtk.Enums.OrientationVertical' for columns -} + -> Int32 + {- ^ /@colorsPerLine@/: the number of colors to show in each row\/column -} + -> Maybe ([Gdk.RGBA.RGBA]) + {- ^ /@colors@/: the colors of the palette, or 'Nothing' -} + -> m () +colorChooserAddPalette chooser orientation colorsPerLine colors = liftIO $ do + let nColors = case colors of + Nothing -> 0 + Just jColors -> fromIntegral $ length jColors + chooser' <- unsafeManagedPtrCastPtr chooser + let orientation' = (fromIntegral . fromEnum) orientation + maybeColors <- case colors of + Nothing -> return nullPtr + Just jColors -> do + jColors' <- mapM unsafeManagedPtrGetPtr jColors + jColors'' <- packBlockArray 32 jColors' + return jColors'' + gtk_color_chooser_add_palette chooser' orientation' colorsPerLine nColors maybeColors + touchManagedPtr chooser + whenJust colors (mapM_ touchManagedPtr) + freeMem maybeColors + return () + +#if ENABLE_OVERLOADING +data ColorChooserAddPaletteMethodInfo +instance (signature ~ (Gtk.Enums.Orientation -> Int32 -> Maybe ([Gdk.RGBA.RGBA]) -> m ()), MonadIO m, IsColorChooser a) => O.MethodInfo ColorChooserAddPaletteMethodInfo a signature where + overloadedMethod _ = colorChooserAddPalette + +#endif + +-- method ColorChooser::get_rgba +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "ColorChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkColorChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface (Name {namespace = "Gdk", name = "RGBA"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkRGBA to fill in with the current color", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_color_chooser_get_rgba" gtk_color_chooser_get_rgba :: + Ptr ColorChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "ColorChooser"}) + Ptr Gdk.RGBA.RGBA -> -- color : TInterface (Name {namespace = "Gdk", name = "RGBA"}) + IO () + +{- | +Gets the currently-selected color. + +/Since: 3.4/ +-} +colorChooserGetRgba :: + (B.CallStack.HasCallStack, MonadIO m, IsColorChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.ColorChooser.ColorChooser' -} + -> m (Gdk.RGBA.RGBA) +colorChooserGetRgba chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA) + gtk_color_chooser_get_rgba chooser' color + color' <- (wrapBoxed Gdk.RGBA.RGBA) color + touchManagedPtr chooser + return color' + +#if ENABLE_OVERLOADING +data ColorChooserGetRgbaMethodInfo +instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsColorChooser a) => O.MethodInfo ColorChooserGetRgbaMethodInfo a signature where + overloadedMethod _ = colorChooserGetRgba + +#endif + +-- method ColorChooser::get_use_alpha +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "ColorChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkColorChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_color_chooser_get_use_alpha" gtk_color_chooser_get_use_alpha :: + Ptr ColorChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "ColorChooser"}) + IO CInt + +{- | +Returns whether the color chooser shows the alpha channel. + +/Since: 3.4/ +-} +colorChooserGetUseAlpha :: + (B.CallStack.HasCallStack, MonadIO m, IsColorChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.ColorChooser.ColorChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the color chooser uses the alpha channel, + 'False' if not -} +colorChooserGetUseAlpha chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_color_chooser_get_use_alpha chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data ColorChooserGetUseAlphaMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsColorChooser a) => O.MethodInfo ColorChooserGetUseAlphaMethodInfo a signature where + overloadedMethod _ = colorChooserGetUseAlpha + +#endif + +-- method ColorChooser::set_rgba +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "ColorChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkColorChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface (Name {namespace = "Gdk", name = "RGBA"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new color", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_color_chooser_set_rgba" gtk_color_chooser_set_rgba :: + Ptr ColorChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "ColorChooser"}) + Ptr Gdk.RGBA.RGBA -> -- color : TInterface (Name {namespace = "Gdk", name = "RGBA"}) + IO () + +{- | +Sets the color. + +/Since: 3.4/ +-} +colorChooserSetRgba :: + (B.CallStack.HasCallStack, MonadIO m, IsColorChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.ColorChooser.ColorChooser' -} + -> Gdk.RGBA.RGBA + {- ^ /@color@/: the new color -} + -> m () +colorChooserSetRgba chooser color = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + color' <- unsafeManagedPtrGetPtr color + gtk_color_chooser_set_rgba chooser' color' + touchManagedPtr chooser + touchManagedPtr color + return () + +#if ENABLE_OVERLOADING +data ColorChooserSetRgbaMethodInfo +instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsColorChooser a) => O.MethodInfo ColorChooserSetRgbaMethodInfo a signature where + overloadedMethod _ = colorChooserSetRgba + +#endif + +-- method ColorChooser::set_use_alpha +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "ColorChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkColorChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if color chooser should use alpha channel, %FALSE if not", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_color_chooser_set_use_alpha" gtk_color_chooser_set_use_alpha :: + Ptr ColorChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "ColorChooser"}) + CInt -> -- use_alpha : TBasicType TBoolean + IO () + +{- | +Sets whether or not the color chooser should use the alpha channel. + +/Since: 3.4/ +-} +colorChooserSetUseAlpha :: + (B.CallStack.HasCallStack, MonadIO m, IsColorChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.ColorChooser.ColorChooser' -} + -> Bool + {- ^ /@useAlpha@/: 'True' if color chooser should use alpha channel, 'False' if not -} + -> m () +colorChooserSetUseAlpha chooser useAlpha = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let useAlpha' = (fromIntegral . fromEnum) useAlpha + gtk_color_chooser_set_use_alpha chooser' useAlpha' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data ColorChooserSetUseAlphaMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsColorChooser a) => O.MethodInfo ColorChooserSetUseAlphaMethodInfo a signature where + overloadedMethod _ = colorChooserSetUseAlpha + +#endif + + diff --git a/GI/Gtk/Interfaces/ColorChooser.hs-boot b/GI/Gtk/Interfaces/ColorChooser.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/ColorChooser.hs-boot @@ -0,0 +1,53 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.ColorChooser where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype ColorChooser = ColorChooser (ManagedPtr ColorChooser) +#if ENABLE_OVERLOADING +data ColorChooserColorActivatedSignalInfo +#endif +instance GObject ColorChooser where +class (GObject o, O.IsDescendantOf ColorChooser o) => IsColorChooser o +instance (GObject o, O.IsDescendantOf ColorChooser o) => IsColorChooser o +instance O.HasParentTypes ColorChooser +#if ENABLE_OVERLOADING +data ColorChooserRgbaPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ColorChooserUseAlphaPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ColorChooserAddPaletteMethodInfo +#endif +#if ENABLE_OVERLOADING +data ColorChooserGetRgbaMethodInfo +#endif +#if ENABLE_OVERLOADING +data ColorChooserGetUseAlphaMethodInfo +#endif +#if ENABLE_OVERLOADING +data ColorChooserSetRgbaMethodInfo +#endif +#if ENABLE_OVERLOADING +data ColorChooserSetUseAlphaMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/Editable.hs b/GI/Gtk/Interfaces/Editable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Editable.hs @@ -0,0 +1,1116 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Interfaces.Editable.Editable' interface is an interface which should be implemented by +text editing widgets, such as 'GI.Gtk.Objects.Entry.Entry' and 'GI.Gtk.Objects.SpinButton.SpinButton'. It contains functions +for generically manipulating an editable widget, a large number of action +signals used for key bindings, and several signals that an application can +connect to to modify the behavior of a widget. + +As an example of the latter usage, by connecting +the following handler to 'GI.Gtk.Interfaces.Editable.Editable'::@/insert-text/@, an application +can convert all entry into a widget into uppercase. + +== Forcing entry to uppercase. + + +=== /C code/ +> +>#include ; +> +>void +>insert_text_handler (GtkEditable *editable, +> const gchar *text, +> gint length, +> gint *position, +> gpointer data) +>{ +> gchar *result = g_utf8_strup (text, length); +> +> g_signal_handlers_block_by_func (editable, +> (gpointer) insert_text_handler, data); +> gtk_editable_insert_text (editable, result, length, position); +> g_signal_handlers_unblock_by_func (editable, +> (gpointer) insert_text_handler, data); +> +> g_signal_stop_emission_by_name (editable, "insert_text"); +> +> g_free (result); +>} + +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.Editable + ( + +-- * Exported types + Editable(..) , + noEditable , + IsEditable , + toEditable , + + + -- * Methods +-- ** copyClipboard #method:copyClipboard# + +#if ENABLE_OVERLOADING + EditableCopyClipboardMethodInfo , +#endif + editableCopyClipboard , + + +-- ** cutClipboard #method:cutClipboard# + +#if ENABLE_OVERLOADING + EditableCutClipboardMethodInfo , +#endif + editableCutClipboard , + + +-- ** deleteSelection #method:deleteSelection# + +#if ENABLE_OVERLOADING + EditableDeleteSelectionMethodInfo , +#endif + editableDeleteSelection , + + +-- ** deleteText #method:deleteText# + +#if ENABLE_OVERLOADING + EditableDeleteTextMethodInfo , +#endif + editableDeleteText , + + +-- ** getChars #method:getChars# + +#if ENABLE_OVERLOADING + EditableGetCharsMethodInfo , +#endif + editableGetChars , + + +-- ** getEditable #method:getEditable# + +#if ENABLE_OVERLOADING + EditableGetEditableMethodInfo , +#endif + editableGetEditable , + + +-- ** getPosition #method:getPosition# + +#if ENABLE_OVERLOADING + EditableGetPositionMethodInfo , +#endif + editableGetPosition , + + +-- ** getSelectionBounds #method:getSelectionBounds# + +#if ENABLE_OVERLOADING + EditableGetSelectionBoundsMethodInfo , +#endif + editableGetSelectionBounds , + + +-- ** insertText #method:insertText# + +#if ENABLE_OVERLOADING + EditableInsertTextMethodInfo , +#endif + editableInsertText , + + +-- ** pasteClipboard #method:pasteClipboard# + +#if ENABLE_OVERLOADING + EditablePasteClipboardMethodInfo , +#endif + editablePasteClipboard , + + +-- ** selectRegion #method:selectRegion# + +#if ENABLE_OVERLOADING + EditableSelectRegionMethodInfo , +#endif + editableSelectRegion , + + +-- ** setEditable #method:setEditable# + +#if ENABLE_OVERLOADING + EditableSetEditableMethodInfo , +#endif + editableSetEditable , + + +-- ** setPosition #method:setPosition# + +#if ENABLE_OVERLOADING + EditableSetPositionMethodInfo , +#endif + editableSetPosition , + + + + + -- * Signals +-- ** changed #signal:changed# + + C_EditableChangedCallback , + EditableChangedCallback , +#if ENABLE_OVERLOADING + EditableChangedSignalInfo , +#endif + afterEditableChanged , + genClosure_EditableChanged , + mk_EditableChangedCallback , + noEditableChangedCallback , + onEditableChanged , + wrap_EditableChangedCallback , + + +-- ** deleteText #signal:deleteText# + + C_EditableDeleteTextCallback , + EditableDeleteTextCallback , +#if ENABLE_OVERLOADING + EditableDeleteTextSignalInfo , +#endif + afterEditableDeleteText , + genClosure_EditableDeleteText , + mk_EditableDeleteTextCallback , + noEditableDeleteTextCallback , + onEditableDeleteText , + wrap_EditableDeleteTextCallback , + + +-- ** insertText #signal:insertText# + + C_EditableInsertTextCallback , + EditableInsertTextCallback , +#if ENABLE_OVERLOADING + EditableInsertTextSignalInfo , +#endif + afterEditableInsertText , + genClosure_EditableInsertText , + mk_EditableInsertTextCallback , + noEditableInsertTextCallback , + onEditableInsertText , + wrap_EditableInsertTextCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object + +-- interface Editable +-- | Memory-managed wrapper type. +newtype Editable = Editable (ManagedPtr Editable) +-- | A convenience alias for `Nothing` :: `Maybe` `Editable`. +noEditable :: Maybe Editable +noEditable = Nothing + +-- signal Editable::changed +{- | +The ::changed signal is emitted at the end of a single +user-visible operation on the contents of the 'GI.Gtk.Interfaces.Editable.Editable'. + +E.g., a paste operation that replaces the contents of the +selection will cause only one signal emission (even though it +is implemented by first deleting the selection, then inserting +the new content, and may cause multiple ::notify::text signals +to be emitted). +-} +type EditableChangedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `EditableChangedCallback`@. +noEditableChangedCallback :: Maybe EditableChangedCallback +noEditableChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_EditableChangedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_EditableChangedCallback`. +foreign import ccall "wrapper" + mk_EditableChangedCallback :: C_EditableChangedCallback -> IO (FunPtr C_EditableChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_EditableChanged :: MonadIO m => EditableChangedCallback -> m (GClosure C_EditableChangedCallback) +genClosure_EditableChanged cb = liftIO $ do + let cb' = wrap_EditableChangedCallback cb + mk_EditableChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `EditableChangedCallback` into a `C_EditableChangedCallback`. +wrap_EditableChangedCallback :: + EditableChangedCallback -> + C_EditableChangedCallback +wrap_EditableChangedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' editable #changed callback +@ +-} +onEditableChanged :: (IsEditable a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId +onEditableChanged obj cb = liftIO $ do + let cb' = wrap_EditableChangedCallback cb + cb'' <- mk_EditableChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' editable #changed callback +@ +-} +afterEditableChanged :: (IsEditable a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId +afterEditableChanged obj cb = liftIO $ do + let cb' = wrap_EditableChangedCallback cb + cb'' <- mk_EditableChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' SignalConnectAfter + + +-- signal Editable::delete-text +{- | +This signal is emitted when text is deleted from +the widget by the user. The default handler for +this signal will normally be responsible for deleting +the text, so by connecting to this signal and then +stopping the signal with 'GI.GObject.Functions.signalStopEmission', it +is possible to modify the range of deleted text, or +prevent it from being deleted entirely. The /@startPos@/ +and /@endPos@/ parameters are interpreted as for +'GI.Gtk.Interfaces.Editable.editableDeleteText'. +-} +type EditableDeleteTextCallback = + Int32 + {- ^ /@startPos@/: the starting position -} + -> Int32 + {- ^ /@endPos@/: the end position -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `EditableDeleteTextCallback`@. +noEditableDeleteTextCallback :: Maybe EditableDeleteTextCallback +noEditableDeleteTextCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_EditableDeleteTextCallback = + Ptr () -> -- object + Int32 -> + Int32 -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_EditableDeleteTextCallback`. +foreign import ccall "wrapper" + mk_EditableDeleteTextCallback :: C_EditableDeleteTextCallback -> IO (FunPtr C_EditableDeleteTextCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_EditableDeleteText :: MonadIO m => EditableDeleteTextCallback -> m (GClosure C_EditableDeleteTextCallback) +genClosure_EditableDeleteText cb = liftIO $ do + let cb' = wrap_EditableDeleteTextCallback cb + mk_EditableDeleteTextCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `EditableDeleteTextCallback` into a `C_EditableDeleteTextCallback`. +wrap_EditableDeleteTextCallback :: + EditableDeleteTextCallback -> + C_EditableDeleteTextCallback +wrap_EditableDeleteTextCallback _cb _ startPos endPos _ = do + _cb startPos endPos + + +{- | +Connect a signal handler for the “@delete-text@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' editable #deleteText callback +@ +-} +onEditableDeleteText :: (IsEditable a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId +onEditableDeleteText obj cb = liftIO $ do + let cb' = wrap_EditableDeleteTextCallback cb + cb'' <- mk_EditableDeleteTextCallback cb' + connectSignalFunPtr obj "delete-text" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@delete-text@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' editable #deleteText callback +@ +-} +afterEditableDeleteText :: (IsEditable a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId +afterEditableDeleteText obj cb = liftIO $ do + let cb' = wrap_EditableDeleteTextCallback cb + cb'' <- mk_EditableDeleteTextCallback cb' + connectSignalFunPtr obj "delete-text" cb'' SignalConnectAfter + + +-- signal Editable::insert-text +{- | +This signal is emitted when text is inserted into +the widget by the user. The default handler for +this signal will normally be responsible for inserting +the text, so by connecting to this signal and then +stopping the signal with 'GI.GObject.Functions.signalStopEmission', it +is possible to modify the inserted text, or prevent +it from being inserted entirely. +-} +type EditableInsertTextCallback = + T.Text + {- ^ /@newText@/: the new text to insert -} + -> Int32 + {- ^ /@newTextLength@/: the length of the new text, in bytes, + or -1 if new_text is nul-terminated -} + -> Int32 + {- ^ /@position@/: the position, in characters, + at which to insert the new text. this is an in-out + parameter. After the signal emission is finished, it + should point after the newly inserted text. -} + -> IO (Int32) + +-- | A convenience synonym for @`Nothing` :: `Maybe` `EditableInsertTextCallback`@. +noEditableInsertTextCallback :: Maybe EditableInsertTextCallback +noEditableInsertTextCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_EditableInsertTextCallback = + Ptr () -> -- object + CString -> + Int32 -> + Ptr Int32 -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_EditableInsertTextCallback`. +foreign import ccall "wrapper" + mk_EditableInsertTextCallback :: C_EditableInsertTextCallback -> IO (FunPtr C_EditableInsertTextCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_EditableInsertText :: MonadIO m => EditableInsertTextCallback -> m (GClosure C_EditableInsertTextCallback) +genClosure_EditableInsertText cb = liftIO $ do + let cb' = wrap_EditableInsertTextCallback cb + mk_EditableInsertTextCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `EditableInsertTextCallback` into a `C_EditableInsertTextCallback`. +wrap_EditableInsertTextCallback :: + EditableInsertTextCallback -> + C_EditableInsertTextCallback +wrap_EditableInsertTextCallback _cb _ newText newTextLength position _ = do + newText' <- cstringToText newText + position' <- peek position + outposition <- _cb newText' newTextLength position' + poke position outposition + + +{- | +Connect a signal handler for the “@insert-text@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' editable #insertText callback +@ +-} +onEditableInsertText :: (IsEditable a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId +onEditableInsertText obj cb = liftIO $ do + let cb' = wrap_EditableInsertTextCallback cb + cb'' <- mk_EditableInsertTextCallback cb' + connectSignalFunPtr obj "insert-text" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@insert-text@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' editable #insertText callback +@ +-} +afterEditableInsertText :: (IsEditable a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId +afterEditableInsertText obj cb = liftIO $ do + let cb' = wrap_EditableInsertTextCallback cb + cb'' <- mk_EditableInsertTextCallback cb' + connectSignalFunPtr obj "insert-text" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data EditableChangedSignalInfo +instance SignalInfo EditableChangedSignalInfo where + type HaskellCallbackType EditableChangedSignalInfo = EditableChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_EditableChangedCallback cb + cb'' <- mk_EditableChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' connectMode + +data EditableDeleteTextSignalInfo +instance SignalInfo EditableDeleteTextSignalInfo where + type HaskellCallbackType EditableDeleteTextSignalInfo = EditableDeleteTextCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_EditableDeleteTextCallback cb + cb'' <- mk_EditableDeleteTextCallback cb' + connectSignalFunPtr obj "delete-text" cb'' connectMode + +data EditableInsertTextSignalInfo +instance SignalInfo EditableInsertTextSignalInfo where + type HaskellCallbackType EditableInsertTextSignalInfo = EditableInsertTextCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_EditableInsertTextCallback cb + cb'' <- mk_EditableInsertTextCallback cb' + connectSignalFunPtr obj "insert-text" cb'' connectMode + +type instance O.SignalList Editable = EditableSignalList +type EditableSignalList = ('[ '("changed", EditableChangedSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_editable_get_type" + c_gtk_editable_get_type :: IO GType + +instance GObject Editable where + gobjectType = c_gtk_editable_get_type + + +-- | Type class for types which can be safely cast to `Editable`, for instance with `toEditable`. +class (GObject o, O.IsDescendantOf Editable o) => IsEditable o +instance (GObject o, O.IsDescendantOf Editable o) => IsEditable o + +instance O.HasParentTypes Editable +type instance O.ParentTypes Editable = '[GObject.Object.Object] + +-- | Cast to `Editable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toEditable :: (MonadIO m, IsEditable o) => o -> m Editable +toEditable = liftIO . unsafeCastTo Editable + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Editable +type instance O.AttributeList Editable = EditableAttributeList +type EditableAttributeList = ('[ ] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type family ResolveEditableMethod (t :: Symbol) (o :: *) :: * where + ResolveEditableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveEditableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveEditableMethod "copyClipboard" o = EditableCopyClipboardMethodInfo + ResolveEditableMethod "cutClipboard" o = EditableCutClipboardMethodInfo + ResolveEditableMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo + ResolveEditableMethod "deleteText" o = EditableDeleteTextMethodInfo + ResolveEditableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveEditableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveEditableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveEditableMethod "insertText" o = EditableInsertTextMethodInfo + ResolveEditableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveEditableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveEditableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveEditableMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo + ResolveEditableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveEditableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveEditableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveEditableMethod "selectRegion" o = EditableSelectRegionMethodInfo + ResolveEditableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveEditableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveEditableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveEditableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveEditableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveEditableMethod "getChars" o = EditableGetCharsMethodInfo + ResolveEditableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveEditableMethod "getEditable" o = EditableGetEditableMethodInfo + ResolveEditableMethod "getPosition" o = EditableGetPositionMethodInfo + ResolveEditableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveEditableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveEditableMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo + ResolveEditableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveEditableMethod "setEditable" o = EditableSetEditableMethodInfo + ResolveEditableMethod "setPosition" o = EditableSetPositionMethodInfo + ResolveEditableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveEditableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveEditableMethod t Editable, O.MethodInfo info Editable p) => OL.IsLabel t (Editable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method Editable::copy_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_copy_clipboard" gtk_editable_copy_clipboard :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + IO () + +{- | +Copies the contents of the currently selected content in the editable and +puts it on the clipboard. +-} +editableCopyClipboard :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> m () +editableCopyClipboard editable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + gtk_editable_copy_clipboard editable' + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditableCopyClipboardMethodInfo +instance (signature ~ (m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableCopyClipboardMethodInfo a signature where + overloadedMethod _ = editableCopyClipboard + +#endif + +-- method Editable::cut_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_cut_clipboard" gtk_editable_cut_clipboard :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + IO () + +{- | +Removes the contents of the currently selected content in the editable and +puts it on the clipboard. +-} +editableCutClipboard :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> m () +editableCutClipboard editable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + gtk_editable_cut_clipboard editable' + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditableCutClipboardMethodInfo +instance (signature ~ (m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableCutClipboardMethodInfo a signature where + overloadedMethod _ = editableCutClipboard + +#endif + +-- method Editable::delete_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_delete_selection" gtk_editable_delete_selection :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + IO () + +{- | +Deletes the currently selected text of the editable. +This call doesn’t do anything if there is no selected text. +-} +editableDeleteSelection :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> m () +editableDeleteSelection editable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + gtk_editable_delete_selection editable' + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditableDeleteSelectionMethodInfo +instance (signature ~ (m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableDeleteSelectionMethodInfo a signature where + overloadedMethod _ = editableDeleteSelection + +#endif + +-- method Editable::delete_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "start position", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "end position", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_delete_text" gtk_editable_delete_text :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + Int32 -> -- start_pos : TBasicType TInt + Int32 -> -- end_pos : TBasicType TInt + IO () + +{- | +Deletes a sequence of characters. The characters that are deleted are +those characters at positions from /@startPos@/ up to, but not including +/@endPos@/. If /@endPos@/ is negative, then the characters deleted +are those from /@startPos@/ to the end of the text. + +Note that the positions are specified in characters, not bytes. +-} +editableDeleteText :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> Int32 + {- ^ /@startPos@/: start position -} + -> Int32 + {- ^ /@endPos@/: end position -} + -> m () +editableDeleteText editable startPos endPos = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + gtk_editable_delete_text editable' startPos endPos + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditableDeleteTextMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableDeleteTextMethodInfo a signature where + overloadedMethod _ = editableDeleteText + +#endif + +-- method Editable::get_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "start of text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "end of text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_get_chars" gtk_editable_get_chars :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + Int32 -> -- start_pos : TBasicType TInt + Int32 -> -- end_pos : TBasicType TInt + IO CString + +{- | +Retrieves a sequence of characters. The characters that are retrieved +are those characters at positions from /@startPos@/ up to, but not +including /@endPos@/. If /@endPos@/ is negative, then the characters +retrieved are those characters from /@startPos@/ to the end of the text. + +Note that positions are specified in characters, not bytes. +-} +editableGetChars :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> Int32 + {- ^ /@startPos@/: start of text -} + -> Int32 + {- ^ /@endPos@/: end of text -} + -> m T.Text + {- ^ __Returns:__ a pointer to the contents of the widget as a + string. This string is allocated by the 'GI.Gtk.Interfaces.Editable.Editable' + implementation and should be freed by the caller. -} +editableGetChars editable startPos endPos = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + result <- gtk_editable_get_chars editable' startPos endPos + checkUnexpectedReturnNULL "editableGetChars" result + result' <- cstringToText result + freeMem result + touchManagedPtr editable + return result' + +#if ENABLE_OVERLOADING +data EditableGetCharsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m T.Text), MonadIO m, IsEditable a) => O.MethodInfo EditableGetCharsMethodInfo a signature where + overloadedMethod _ = editableGetChars + +#endif + +-- method Editable::get_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_get_editable" gtk_editable_get_editable :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + IO CInt + +{- | +Retrieves whether /@editable@/ is editable. See +'GI.Gtk.Interfaces.Editable.editableSetEditable'. +-} +editableGetEditable :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> m Bool + {- ^ __Returns:__ 'True' if /@editable@/ is editable. -} +editableGetEditable editable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + result <- gtk_editable_get_editable editable' + let result' = (/= 0) result + touchManagedPtr editable + return result' + +#if ENABLE_OVERLOADING +data EditableGetEditableMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsEditable a) => O.MethodInfo EditableGetEditableMethodInfo a signature where + overloadedMethod _ = editableGetEditable + +#endif + +-- method Editable::get_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_get_position" gtk_editable_get_position :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + IO Int32 + +{- | +Retrieves the current position of the cursor relative to the start +of the content of the editable. + +Note that this position is in characters, not in bytes. +-} +editableGetPosition :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> m Int32 + {- ^ __Returns:__ the cursor position -} +editableGetPosition editable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + result <- gtk_editable_get_position editable' + touchManagedPtr editable + return result + +#if ENABLE_OVERLOADING +data EditableGetPositionMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsEditable a) => O.MethodInfo EditableGetPositionMethodInfo a signature where + overloadedMethod _ = editableGetPosition + +#endif + +-- method Editable::get_selection_bounds +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the starting position, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the end position, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_get_selection_bounds" gtk_editable_get_selection_bounds :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + Ptr Int32 -> -- start_pos : TBasicType TInt + Ptr Int32 -> -- end_pos : TBasicType TInt + IO CInt + +{- | +Retrieves the selection bound of the editable. start_pos will be filled +with the start of the selection and /@endPos@/ with end. If no text was +selected both will be identical and 'False' will be returned. + +Note that positions are specified in characters, not bytes. +-} +editableGetSelectionBounds :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> m ((Bool, Int32, Int32)) + {- ^ __Returns:__ 'True' if an area is selected, 'False' otherwise -} +editableGetSelectionBounds editable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + startPos <- allocMem :: IO (Ptr Int32) + endPos <- allocMem :: IO (Ptr Int32) + result <- gtk_editable_get_selection_bounds editable' startPos endPos + let result' = (/= 0) result + startPos' <- peek startPos + endPos' <- peek endPos + touchManagedPtr editable + freeMem startPos + freeMem endPos + return (result', startPos', endPos') + +#if ENABLE_OVERLOADING +data EditableGetSelectionBoundsMethodInfo +instance (signature ~ (m ((Bool, Int32, Int32))), MonadIO m, IsEditable a) => O.MethodInfo EditableGetSelectionBoundsMethodInfo a signature where + overloadedMethod _ = editableGetSelectionBounds + +#endif + +-- method Editable::insert_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the text to append", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the text in bytes, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location of the position text will be inserted at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_insert_text" gtk_editable_insert_text :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + CString -> -- new_text : TBasicType TUTF8 + Int32 -> -- new_text_length : TBasicType TInt + Ptr Int32 -> -- position : TBasicType TInt + IO () + +{- | +Inserts /@newTextLength@/ bytes of /@newText@/ into the contents of the +widget, at position /@position@/. + +Note that the position is in characters, not in bytes. +The function updates /@position@/ to point after the newly inserted text. +-} +editableInsertText :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> T.Text + {- ^ /@newText@/: the text to append -} + -> Int32 + {- ^ /@newTextLength@/: the length of the text in bytes, or -1 -} + -> Int32 + {- ^ /@position@/: location of the position text will be inserted at -} + -> m (Int32) +editableInsertText editable newText newTextLength position = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + newText' <- textToCString newText + position' <- allocMem :: IO (Ptr Int32) + poke position' position + gtk_editable_insert_text editable' newText' newTextLength position' + position'' <- peek position' + touchManagedPtr editable + freeMem newText' + freeMem position' + return position'' + +#if ENABLE_OVERLOADING +data EditableInsertTextMethodInfo +instance (signature ~ (T.Text -> Int32 -> Int32 -> m (Int32)), MonadIO m, IsEditable a) => O.MethodInfo EditableInsertTextMethodInfo a signature where + overloadedMethod _ = editableInsertText + +#endif + +-- method Editable::paste_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_paste_clipboard" gtk_editable_paste_clipboard :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + IO () + +{- | +Pastes the content of the clipboard to the current position of the +cursor in the editable. +-} +editablePasteClipboard :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> m () +editablePasteClipboard editable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + gtk_editable_paste_clipboard editable' + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditablePasteClipboardMethodInfo +instance (signature ~ (m ()), MonadIO m, IsEditable a) => O.MethodInfo EditablePasteClipboardMethodInfo a signature where + overloadedMethod _ = editablePasteClipboard + +#endif + +-- method Editable::select_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "start of region", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "end of region", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_select_region" gtk_editable_select_region :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + Int32 -> -- start_pos : TBasicType TInt + Int32 -> -- end_pos : TBasicType TInt + IO () + +{- | +Selects a region of text. The characters that are selected are +those characters at positions from /@startPos@/ up to, but not +including /@endPos@/. If /@endPos@/ is negative, then the +characters selected are those characters from /@startPos@/ to +the end of the text. + +Note that positions are specified in characters, not bytes. +-} +editableSelectRegion :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> Int32 + {- ^ /@startPos@/: start of region -} + -> Int32 + {- ^ /@endPos@/: end of region -} + -> m () +editableSelectRegion editable startPos endPos = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + gtk_editable_select_region editable' startPos endPos + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditableSelectRegionMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSelectRegionMethodInfo a signature where + overloadedMethod _ = editableSelectRegion + +#endif + +-- method Editable::set_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the user is allowed to edit the text\n in the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_set_editable" gtk_editable_set_editable :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + CInt -> -- is_editable : TBasicType TBoolean + IO () + +{- | +Determines if the user can edit the text in the editable +widget or not. +-} +editableSetEditable :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> Bool + {- ^ /@isEditable@/: 'True' if the user is allowed to edit the text + in the widget -} + -> m () +editableSetEditable editable isEditable = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + let isEditable' = (fromIntegral . fromEnum) isEditable + gtk_editable_set_editable editable' isEditable' + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditableSetEditableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetEditableMethodInfo a signature where + overloadedMethod _ = editableSetEditable + +#endif + +-- method Editable::set_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "editable", argType = TInterface (Name {namespace = "Gtk", name = "Editable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkEditable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position of the cursor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_editable_set_position" gtk_editable_set_position :: + Ptr Editable -> -- editable : TInterface (Name {namespace = "Gtk", name = "Editable"}) + Int32 -> -- position : TBasicType TInt + IO () + +{- | +Sets the cursor position in the editable to the given value. + +The cursor is displayed before the character with the given (base 0) +index in the contents of the editable. The value must be less than or +equal to the number of characters in the editable. A value of -1 +indicates that the position should be set after the last character +of the editable. Note that /@position@/ is in characters, not in bytes. +-} +editableSetPosition :: + (B.CallStack.HasCallStack, MonadIO m, IsEditable a) => + a + {- ^ /@editable@/: a 'GI.Gtk.Interfaces.Editable.Editable' -} + -> Int32 + {- ^ /@position@/: the position of the cursor -} + -> m () +editableSetPosition editable position = liftIO $ do + editable' <- unsafeManagedPtrCastPtr editable + gtk_editable_set_position editable' position + touchManagedPtr editable + return () + +#if ENABLE_OVERLOADING +data EditableSetPositionMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetPositionMethodInfo a signature where + overloadedMethod _ = editableSetPosition + +#endif + + diff --git a/GI/Gtk/Interfaces/Editable.hs-boot b/GI/Gtk/Interfaces/Editable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Editable.hs-boot @@ -0,0 +1,77 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.Editable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Editable = Editable (ManagedPtr Editable) +#if ENABLE_OVERLOADING +data EditableChangedSignalInfo +#endif +#if ENABLE_OVERLOADING +data EditableDeleteTextSignalInfo +#endif +#if ENABLE_OVERLOADING +data EditableInsertTextSignalInfo +#endif +instance GObject Editable where +class (GObject o, O.IsDescendantOf Editable o) => IsEditable o +instance (GObject o, O.IsDescendantOf Editable o) => IsEditable o +instance O.HasParentTypes Editable +#if ENABLE_OVERLOADING +data EditableCopyClipboardMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableCutClipboardMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableDeleteSelectionMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableDeleteTextMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableGetCharsMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableGetEditableMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableGetPositionMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableGetSelectionBoundsMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableInsertTextMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditablePasteClipboardMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableSelectRegionMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableSetEditableMethodInfo +#endif +#if ENABLE_OVERLOADING +data EditableSetPositionMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/FileChooser.hs b/GI/Gtk/Interfaces/FileChooser.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/FileChooser.hs @@ -0,0 +1,4977 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.FileChooser.FileChooser' is an interface that can be implemented by file +selection widgets. In GTK+, the main objects that implement this +interface are 'GI.Gtk.Objects.FileChooserWidget.FileChooserWidget', 'GI.Gtk.Objects.FileChooserDialog.FileChooserDialog', and +'GI.Gtk.Objects.FileChooserButton.FileChooserButton'. You do not need to write an object that +implements the 'GI.Gtk.Interfaces.FileChooser.FileChooser' interface unless you are trying to +adapt an existing file selector to expose a standard programming +interface. + +'GI.Gtk.Interfaces.FileChooser.FileChooser' allows for shortcuts to various places in the filesystem. +In the default implementation these are displayed in the left pane. It +may be a bit confusing at first that these shortcuts come from various +sources and in various flavours, so lets explain the terminology here: + +* Bookmarks: are created by the user, by dragging folders from the +right pane to the left pane, or by using the “Add”. Bookmarks +can be renamed and deleted by the user. +* Shortcuts: can be provided by the application. For example, a Paint +program may want to add a shortcut for a Clipart folder. Shortcuts +cannot be modified by the user. +* Volumes: are provided by the underlying filesystem abstraction. They are +the “roots” of the filesystem. + + += File Names and Encodings + +When the user is finished selecting files in a +'GI.Gtk.Interfaces.FileChooser.FileChooser', your program can get the selected names +either as filenames or as URIs. For URIs, the normal escaping +rules are applied if the URI contains non-ASCII characters. +However, filenames are always returned in +the character set specified by the +@G_FILENAME_ENCODING@ environment variable. +Please see the GLib documentation for more details about this +variable. + +This means that while you can pass the result of +'GI.Gtk.Interfaces.FileChooser.fileChooserGetFilename' to @/open()/@ or @/fopen()/@, +you may not be able to directly set it as the text of a +'GI.Gtk.Objects.Label.Label' widget unless you convert it first to UTF-8, +which all GTK+ widgets expect. You should use 'GI.GLib.Functions.filenameToUtf8' +to convert filenames into strings that can be passed to GTK+ +widgets. + += Adding a Preview Widget + +You can add a custom preview widget to a file chooser and then +get notification about when the preview needs to be updated. +To install a preview widget, use +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget'. Then, connect to the +'GI.Gtk.Interfaces.FileChooser.FileChooser'::@/update-preview/@ signal to get notified when +you need to update the contents of the preview. + +Your callback should use +'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewFilename' to see what needs +previewing. Once you have generated the preview for the +corresponding file, you must call +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidgetActive' with a boolean +flag that indicates whether your callback could successfully +generate a preview. + +## Example: Using a Preview Widget ## {@/gtkfilechooser/@-preview} + +=== /C code/ +> +>{ +> GtkImage *preview; +> +> ... +> +> preview = gtk_image_new (); +> +> gtk_file_chooser_set_preview_widget (my_file_chooser, preview); +> g_signal_connect (my_file_chooser, "update-preview", +> G_CALLBACK (update_preview_cb), preview); +>} +> +>static void +>update_preview_cb (GtkFileChooser *file_chooser, gpointer data) +>{ +> GtkWidget *preview; +> char *filename; +> GdkPixbuf *pixbuf; +> gboolean have_preview; +> +> preview = GTK_WIDGET (data); +> filename = gtk_file_chooser_get_preview_filename (file_chooser); +> +> pixbuf = gdk_pixbuf_new_from_file_at_size (filename, 128, 128, NULL); +> have_preview = (pixbuf != NULL); +> g_free (filename); +> +> gtk_image_set_from_pixbuf (GTK_IMAGE (preview), pixbuf); +> if (pixbuf) +> g_object_unref (pixbuf); +> +> gtk_file_chooser_set_preview_widget_active (file_chooser, have_preview); +>} + + += Adding Extra Widgets + +You can add extra widgets to a file chooser to provide options +that are not present in the default design. For example, you +can add a toggle button to give the user the option to open a +file in read-only mode. You can use +'GI.Gtk.Interfaces.FileChooser.fileChooserSetExtraWidget' to insert additional +widgets in a file chooser. + +An example for adding extra widgets: + +=== /C code/ +> +> +> GtkWidget *toggle; +> +> ... +> +> toggle = gtk_check_button_new_with_label ("Open file read-only"); +> gtk_widget_show (toggle); +> gtk_file_chooser_set_extra_widget (my_file_chooser, toggle); +>} + + +If you want to set more than one extra widget in the file +chooser, you can a container such as a 'GI.Gtk.Objects.Box.Box' or a 'GI.Gtk.Objects.Grid.Grid' +and include your widgets in it. Then, set the container as +the whole extra widget. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.FileChooser + ( + +-- * Exported types + FileChooser(..) , + noFileChooser , + IsFileChooser , + toFileChooser , + + + -- * Methods +-- ** addChoice #method:addChoice# + +#if ENABLE_OVERLOADING + FileChooserAddChoiceMethodInfo , +#endif + fileChooserAddChoice , + + +-- ** addFilter #method:addFilter# + +#if ENABLE_OVERLOADING + FileChooserAddFilterMethodInfo , +#endif + fileChooserAddFilter , + + +-- ** addShortcutFolder #method:addShortcutFolder# + +#if ENABLE_OVERLOADING + FileChooserAddShortcutFolderMethodInfo , +#endif + fileChooserAddShortcutFolder , + + +-- ** addShortcutFolderUri #method:addShortcutFolderUri# + +#if ENABLE_OVERLOADING + FileChooserAddShortcutFolderUriMethodInfo, +#endif + fileChooserAddShortcutFolderUri , + + +-- ** getAction #method:getAction# + +#if ENABLE_OVERLOADING + FileChooserGetActionMethodInfo , +#endif + fileChooserGetAction , + + +-- ** getChoice #method:getChoice# + +#if ENABLE_OVERLOADING + FileChooserGetChoiceMethodInfo , +#endif + fileChooserGetChoice , + + +-- ** getCreateFolders #method:getCreateFolders# + +#if ENABLE_OVERLOADING + FileChooserGetCreateFoldersMethodInfo , +#endif + fileChooserGetCreateFolders , + + +-- ** getCurrentFolder #method:getCurrentFolder# + +#if ENABLE_OVERLOADING + FileChooserGetCurrentFolderMethodInfo , +#endif + fileChooserGetCurrentFolder , + + +-- ** getCurrentFolderFile #method:getCurrentFolderFile# + +#if ENABLE_OVERLOADING + FileChooserGetCurrentFolderFileMethodInfo, +#endif + fileChooserGetCurrentFolderFile , + + +-- ** getCurrentFolderUri #method:getCurrentFolderUri# + +#if ENABLE_OVERLOADING + FileChooserGetCurrentFolderUriMethodInfo, +#endif + fileChooserGetCurrentFolderUri , + + +-- ** getCurrentName #method:getCurrentName# + +#if ENABLE_OVERLOADING + FileChooserGetCurrentNameMethodInfo , +#endif + fileChooserGetCurrentName , + + +-- ** getDoOverwriteConfirmation #method:getDoOverwriteConfirmation# + +#if ENABLE_OVERLOADING + FileChooserGetDoOverwriteConfirmationMethodInfo, +#endif + fileChooserGetDoOverwriteConfirmation , + + +-- ** getExtraWidget #method:getExtraWidget# + +#if ENABLE_OVERLOADING + FileChooserGetExtraWidgetMethodInfo , +#endif + fileChooserGetExtraWidget , + + +-- ** getFile #method:getFile# + +#if ENABLE_OVERLOADING + FileChooserGetFileMethodInfo , +#endif + fileChooserGetFile , + + +-- ** getFilename #method:getFilename# + +#if ENABLE_OVERLOADING + FileChooserGetFilenameMethodInfo , +#endif + fileChooserGetFilename , + + +-- ** getFilenames #method:getFilenames# + +#if ENABLE_OVERLOADING + FileChooserGetFilenamesMethodInfo , +#endif + fileChooserGetFilenames , + + +-- ** getFiles #method:getFiles# + +#if ENABLE_OVERLOADING + FileChooserGetFilesMethodInfo , +#endif + fileChooserGetFiles , + + +-- ** getFilter #method:getFilter# + +#if ENABLE_OVERLOADING + FileChooserGetFilterMethodInfo , +#endif + fileChooserGetFilter , + + +-- ** getLocalOnly #method:getLocalOnly# + +#if ENABLE_OVERLOADING + FileChooserGetLocalOnlyMethodInfo , +#endif + fileChooserGetLocalOnly , + + +-- ** getPreviewFile #method:getPreviewFile# + +#if ENABLE_OVERLOADING + FileChooserGetPreviewFileMethodInfo , +#endif + fileChooserGetPreviewFile , + + +-- ** getPreviewFilename #method:getPreviewFilename# + +#if ENABLE_OVERLOADING + FileChooserGetPreviewFilenameMethodInfo , +#endif + fileChooserGetPreviewFilename , + + +-- ** getPreviewUri #method:getPreviewUri# + +#if ENABLE_OVERLOADING + FileChooserGetPreviewUriMethodInfo , +#endif + fileChooserGetPreviewUri , + + +-- ** getPreviewWidget #method:getPreviewWidget# + +#if ENABLE_OVERLOADING + FileChooserGetPreviewWidgetMethodInfo , +#endif + fileChooserGetPreviewWidget , + + +-- ** getPreviewWidgetActive #method:getPreviewWidgetActive# + +#if ENABLE_OVERLOADING + FileChooserGetPreviewWidgetActiveMethodInfo, +#endif + fileChooserGetPreviewWidgetActive , + + +-- ** getSelectMultiple #method:getSelectMultiple# + +#if ENABLE_OVERLOADING + FileChooserGetSelectMultipleMethodInfo , +#endif + fileChooserGetSelectMultiple , + + +-- ** getShowHidden #method:getShowHidden# + +#if ENABLE_OVERLOADING + FileChooserGetShowHiddenMethodInfo , +#endif + fileChooserGetShowHidden , + + +-- ** getUri #method:getUri# + +#if ENABLE_OVERLOADING + FileChooserGetUriMethodInfo , +#endif + fileChooserGetUri , + + +-- ** getUris #method:getUris# + +#if ENABLE_OVERLOADING + FileChooserGetUrisMethodInfo , +#endif + fileChooserGetUris , + + +-- ** getUsePreviewLabel #method:getUsePreviewLabel# + +#if ENABLE_OVERLOADING + FileChooserGetUsePreviewLabelMethodInfo , +#endif + fileChooserGetUsePreviewLabel , + + +-- ** listFilters #method:listFilters# + +#if ENABLE_OVERLOADING + FileChooserListFiltersMethodInfo , +#endif + fileChooserListFilters , + + +-- ** listShortcutFolderUris #method:listShortcutFolderUris# + +#if ENABLE_OVERLOADING + FileChooserListShortcutFolderUrisMethodInfo, +#endif + fileChooserListShortcutFolderUris , + + +-- ** listShortcutFolders #method:listShortcutFolders# + +#if ENABLE_OVERLOADING + FileChooserListShortcutFoldersMethodInfo, +#endif + fileChooserListShortcutFolders , + + +-- ** removeChoice #method:removeChoice# + +#if ENABLE_OVERLOADING + FileChooserRemoveChoiceMethodInfo , +#endif + fileChooserRemoveChoice , + + +-- ** removeFilter #method:removeFilter# + +#if ENABLE_OVERLOADING + FileChooserRemoveFilterMethodInfo , +#endif + fileChooserRemoveFilter , + + +-- ** removeShortcutFolder #method:removeShortcutFolder# + +#if ENABLE_OVERLOADING + FileChooserRemoveShortcutFolderMethodInfo, +#endif + fileChooserRemoveShortcutFolder , + + +-- ** removeShortcutFolderUri #method:removeShortcutFolderUri# + +#if ENABLE_OVERLOADING + FileChooserRemoveShortcutFolderUriMethodInfo, +#endif + fileChooserRemoveShortcutFolderUri , + + +-- ** selectAll #method:selectAll# + +#if ENABLE_OVERLOADING + FileChooserSelectAllMethodInfo , +#endif + fileChooserSelectAll , + + +-- ** selectFile #method:selectFile# + +#if ENABLE_OVERLOADING + FileChooserSelectFileMethodInfo , +#endif + fileChooserSelectFile , + + +-- ** selectFilename #method:selectFilename# + +#if ENABLE_OVERLOADING + FileChooserSelectFilenameMethodInfo , +#endif + fileChooserSelectFilename , + + +-- ** selectUri #method:selectUri# + +#if ENABLE_OVERLOADING + FileChooserSelectUriMethodInfo , +#endif + fileChooserSelectUri , + + +-- ** setAction #method:setAction# + +#if ENABLE_OVERLOADING + FileChooserSetActionMethodInfo , +#endif + fileChooserSetAction , + + +-- ** setChoice #method:setChoice# + +#if ENABLE_OVERLOADING + FileChooserSetChoiceMethodInfo , +#endif + fileChooserSetChoice , + + +-- ** setCreateFolders #method:setCreateFolders# + +#if ENABLE_OVERLOADING + FileChooserSetCreateFoldersMethodInfo , +#endif + fileChooserSetCreateFolders , + + +-- ** setCurrentFolder #method:setCurrentFolder# + +#if ENABLE_OVERLOADING + FileChooserSetCurrentFolderMethodInfo , +#endif + fileChooserSetCurrentFolder , + + +-- ** setCurrentFolderFile #method:setCurrentFolderFile# + +#if ENABLE_OVERLOADING + FileChooserSetCurrentFolderFileMethodInfo, +#endif + fileChooserSetCurrentFolderFile , + + +-- ** setCurrentFolderUri #method:setCurrentFolderUri# + +#if ENABLE_OVERLOADING + FileChooserSetCurrentFolderUriMethodInfo, +#endif + fileChooserSetCurrentFolderUri , + + +-- ** setCurrentName #method:setCurrentName# + +#if ENABLE_OVERLOADING + FileChooserSetCurrentNameMethodInfo , +#endif + fileChooserSetCurrentName , + + +-- ** setDoOverwriteConfirmation #method:setDoOverwriteConfirmation# + +#if ENABLE_OVERLOADING + FileChooserSetDoOverwriteConfirmationMethodInfo, +#endif + fileChooserSetDoOverwriteConfirmation , + + +-- ** setExtraWidget #method:setExtraWidget# + +#if ENABLE_OVERLOADING + FileChooserSetExtraWidgetMethodInfo , +#endif + fileChooserSetExtraWidget , + + +-- ** setFile #method:setFile# + +#if ENABLE_OVERLOADING + FileChooserSetFileMethodInfo , +#endif + fileChooserSetFile , + + +-- ** setFilename #method:setFilename# + +#if ENABLE_OVERLOADING + FileChooserSetFilenameMethodInfo , +#endif + fileChooserSetFilename , + + +-- ** setFilter #method:setFilter# + +#if ENABLE_OVERLOADING + FileChooserSetFilterMethodInfo , +#endif + fileChooserSetFilter , + + +-- ** setLocalOnly #method:setLocalOnly# + +#if ENABLE_OVERLOADING + FileChooserSetLocalOnlyMethodInfo , +#endif + fileChooserSetLocalOnly , + + +-- ** setPreviewWidget #method:setPreviewWidget# + +#if ENABLE_OVERLOADING + FileChooserSetPreviewWidgetMethodInfo , +#endif + fileChooserSetPreviewWidget , + + +-- ** setPreviewWidgetActive #method:setPreviewWidgetActive# + +#if ENABLE_OVERLOADING + FileChooserSetPreviewWidgetActiveMethodInfo, +#endif + fileChooserSetPreviewWidgetActive , + + +-- ** setSelectMultiple #method:setSelectMultiple# + +#if ENABLE_OVERLOADING + FileChooserSetSelectMultipleMethodInfo , +#endif + fileChooserSetSelectMultiple , + + +-- ** setShowHidden #method:setShowHidden# + +#if ENABLE_OVERLOADING + FileChooserSetShowHiddenMethodInfo , +#endif + fileChooserSetShowHidden , + + +-- ** setUri #method:setUri# + +#if ENABLE_OVERLOADING + FileChooserSetUriMethodInfo , +#endif + fileChooserSetUri , + + +-- ** setUsePreviewLabel #method:setUsePreviewLabel# + +#if ENABLE_OVERLOADING + FileChooserSetUsePreviewLabelMethodInfo , +#endif + fileChooserSetUsePreviewLabel , + + +-- ** unselectAll #method:unselectAll# + +#if ENABLE_OVERLOADING + FileChooserUnselectAllMethodInfo , +#endif + fileChooserUnselectAll , + + +-- ** unselectFile #method:unselectFile# + +#if ENABLE_OVERLOADING + FileChooserUnselectFileMethodInfo , +#endif + fileChooserUnselectFile , + + +-- ** unselectFilename #method:unselectFilename# + +#if ENABLE_OVERLOADING + FileChooserUnselectFilenameMethodInfo , +#endif + fileChooserUnselectFilename , + + +-- ** unselectUri #method:unselectUri# + +#if ENABLE_OVERLOADING + FileChooserUnselectUriMethodInfo , +#endif + fileChooserUnselectUri , + + + + + -- * Properties +-- ** action #attr:action# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserActionPropertyInfo , +#endif + constructFileChooserAction , +#if ENABLE_OVERLOADING + fileChooserAction , +#endif + getFileChooserAction , + setFileChooserAction , + + +-- ** createFolders #attr:createFolders# +{- | Whether a file chooser not in 'GI.Gtk.Enums.FileChooserActionOpen' mode +will offer the user to create new folders. + +/Since: 2.18/ +-} +#if ENABLE_OVERLOADING + FileChooserCreateFoldersPropertyInfo , +#endif + constructFileChooserCreateFolders , +#if ENABLE_OVERLOADING + fileChooserCreateFolders , +#endif + getFileChooserCreateFolders , + setFileChooserCreateFolders , + + +-- ** doOverwriteConfirmation #attr:doOverwriteConfirmation# +{- | Whether a file chooser in 'GI.Gtk.Enums.FileChooserActionSave' mode +will present an overwrite confirmation dialog if the user +selects a file name that already exists. + +/Since: 2.8/ +-} +#if ENABLE_OVERLOADING + FileChooserDoOverwriteConfirmationPropertyInfo, +#endif + constructFileChooserDoOverwriteConfirmation, +#if ENABLE_OVERLOADING + fileChooserDoOverwriteConfirmation , +#endif + getFileChooserDoOverwriteConfirmation , + setFileChooserDoOverwriteConfirmation , + + +-- ** extraWidget #attr:extraWidget# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserExtraWidgetPropertyInfo , +#endif + constructFileChooserExtraWidget , +#if ENABLE_OVERLOADING + fileChooserExtraWidget , +#endif + getFileChooserExtraWidget , + setFileChooserExtraWidget , + + +-- ** filter #attr:filter# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserFilterPropertyInfo , +#endif + constructFileChooserFilter , +#if ENABLE_OVERLOADING + fileChooserFilter , +#endif + getFileChooserFilter , + setFileChooserFilter , + + +-- ** localOnly #attr:localOnly# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserLocalOnlyPropertyInfo , +#endif + constructFileChooserLocalOnly , +#if ENABLE_OVERLOADING + fileChooserLocalOnly , +#endif + getFileChooserLocalOnly , + setFileChooserLocalOnly , + + +-- ** previewWidget #attr:previewWidget# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserPreviewWidgetPropertyInfo , +#endif + constructFileChooserPreviewWidget , +#if ENABLE_OVERLOADING + fileChooserPreviewWidget , +#endif + getFileChooserPreviewWidget , + setFileChooserPreviewWidget , + + +-- ** previewWidgetActive #attr:previewWidgetActive# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserPreviewWidgetActivePropertyInfo, +#endif + constructFileChooserPreviewWidgetActive , +#if ENABLE_OVERLOADING + fileChooserPreviewWidgetActive , +#endif + getFileChooserPreviewWidgetActive , + setFileChooserPreviewWidgetActive , + + +-- ** selectMultiple #attr:selectMultiple# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserSelectMultiplePropertyInfo , +#endif + constructFileChooserSelectMultiple , +#if ENABLE_OVERLOADING + fileChooserSelectMultiple , +#endif + getFileChooserSelectMultiple , + setFileChooserSelectMultiple , + + +-- ** showHidden #attr:showHidden# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserShowHiddenPropertyInfo , +#endif + constructFileChooserShowHidden , +#if ENABLE_OVERLOADING + fileChooserShowHidden , +#endif + getFileChooserShowHidden , + setFileChooserShowHidden , + + +-- ** usePreviewLabel #attr:usePreviewLabel# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + FileChooserUsePreviewLabelPropertyInfo , +#endif + constructFileChooserUsePreviewLabel , +#if ENABLE_OVERLOADING + fileChooserUsePreviewLabel , +#endif + getFileChooserUsePreviewLabel , + setFileChooserUsePreviewLabel , + + + + + -- * Signals +-- ** confirmOverwrite #signal:confirmOverwrite# + + C_FileChooserConfirmOverwriteCallback , + FileChooserConfirmOverwriteCallback , +#if ENABLE_OVERLOADING + FileChooserConfirmOverwriteSignalInfo , +#endif + afterFileChooserConfirmOverwrite , + genClosure_FileChooserConfirmOverwrite , + mk_FileChooserConfirmOverwriteCallback , + noFileChooserConfirmOverwriteCallback , + onFileChooserConfirmOverwrite , + wrap_FileChooserConfirmOverwriteCallback, + + +-- ** currentFolderChanged #signal:currentFolderChanged# + + C_FileChooserCurrentFolderChangedCallback, + FileChooserCurrentFolderChangedCallback , +#if ENABLE_OVERLOADING + FileChooserCurrentFolderChangedSignalInfo, +#endif + afterFileChooserCurrentFolderChanged , + genClosure_FileChooserCurrentFolderChanged, + mk_FileChooserCurrentFolderChangedCallback, + noFileChooserCurrentFolderChangedCallback, + onFileChooserCurrentFolderChanged , + wrap_FileChooserCurrentFolderChangedCallback, + + +-- ** fileActivated #signal:fileActivated# + + C_FileChooserFileActivatedCallback , + FileChooserFileActivatedCallback , +#if ENABLE_OVERLOADING + FileChooserFileActivatedSignalInfo , +#endif + afterFileChooserFileActivated , + genClosure_FileChooserFileActivated , + mk_FileChooserFileActivatedCallback , + noFileChooserFileActivatedCallback , + onFileChooserFileActivated , + wrap_FileChooserFileActivatedCallback , + + +-- ** selectionChanged #signal:selectionChanged# + + C_FileChooserSelectionChangedCallback , + FileChooserSelectionChangedCallback , +#if ENABLE_OVERLOADING + FileChooserSelectionChangedSignalInfo , +#endif + afterFileChooserSelectionChanged , + genClosure_FileChooserSelectionChanged , + mk_FileChooserSelectionChangedCallback , + noFileChooserSelectionChangedCallback , + onFileChooserSelectionChanged , + wrap_FileChooserSelectionChangedCallback, + + +-- ** updatePreview #signal:updatePreview# + + C_FileChooserUpdatePreviewCallback , + FileChooserUpdatePreviewCallback , +#if ENABLE_OVERLOADING + FileChooserUpdatePreviewSignalInfo , +#endif + afterFileChooserUpdatePreview , + genClosure_FileChooserUpdatePreview , + mk_FileChooserUpdatePreviewCallback , + noFileChooserUpdatePreviewCallback , + onFileChooserUpdatePreview , + wrap_FileChooserUpdatePreviewCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Interfaces.File as Gio.File +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Objects.FileFilter as Gtk.FileFilter +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- interface FileChooser +-- | Memory-managed wrapper type. +newtype FileChooser = FileChooser (ManagedPtr FileChooser) +-- | A convenience alias for `Nothing` :: `Maybe` `FileChooser`. +noFileChooser :: Maybe FileChooser +noFileChooser = Nothing + +-- signal FileChooser::confirm-overwrite +{- | +This signal gets emitted whenever it is appropriate to present a +confirmation dialog when the user has selected a file name that +already exists. The signal only gets emitted when the file +chooser is in 'GI.Gtk.Enums.FileChooserActionSave' mode. + +Most applications just need to turn on the +'GI.Gtk.Interfaces.FileChooser.FileChooser':@/do-overwrite-confirmation/@ property (or call the +'GI.Gtk.Interfaces.FileChooser.fileChooserSetDoOverwriteConfirmation' function), and +they will automatically get a stock confirmation dialog. +Applications which need to customize this behavior should do +that, and also connect to the 'GI.Gtk.Interfaces.FileChooser.FileChooser'::@/confirm-overwrite/@ +signal. + +A signal handler for this signal must return a +'GI.Gtk.Enums.FileChooserConfirmation' value, which indicates the action to +take. If the handler determines that the user wants to select a +different filename, it should return +'GI.Gtk.Enums.FileChooserConfirmationSelectAgain'. If it determines +that the user is satisfied with his choice of file name, it +should return 'GI.Gtk.Enums.FileChooserConfirmationAcceptFilename'. +On the other hand, if it determines that the stock confirmation +dialog should be used, it should return +'GI.Gtk.Enums.FileChooserConfirmationConfirm'. The following example +illustrates this. + +## Custom confirmation ## {@/gtkfilechooser/@-confirmation} + + +=== /C code/ +> +>static GtkFileChooserConfirmation +>confirm_overwrite_callback (GtkFileChooser *chooser, gpointer data) +>{ +> char *uri; +> +> uri = gtk_file_chooser_get_uri (chooser); +> +> if (is_uri_read_only (uri)) +> { +> if (user_wants_to_replace_read_only_file (uri)) +> return GTK_FILE_CHOOSER_CONFIRMATION_ACCEPT_FILENAME; +> else +> return GTK_FILE_CHOOSER_CONFIRMATION_SELECT_AGAIN; +> } else +> return GTK_FILE_CHOOSER_CONFIRMATION_CONFIRM; // fall back to the default dialog +>} +> +>... +> +>chooser = gtk_file_chooser_dialog_new (...); +> +>gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE); +>g_signal_connect (chooser, "confirm-overwrite", +> G_CALLBACK (confirm_overwrite_callback), NULL); +> +>if (gtk_dialog_run (chooser) == GTK_RESPONSE_ACCEPT) +> save_to_file (gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (chooser)); +> +>gtk_widget_destroy (chooser); + + +/Since: 2.8/ +-} +type FileChooserConfirmOverwriteCallback = + IO Gtk.Enums.FileChooserConfirmation + {- ^ __Returns:__ a 'GI.Gtk.Enums.FileChooserConfirmation' value that indicates which + action to take after emitting the signal. -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FileChooserConfirmOverwriteCallback`@. +noFileChooserConfirmOverwriteCallback :: Maybe FileChooserConfirmOverwriteCallback +noFileChooserConfirmOverwriteCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_FileChooserConfirmOverwriteCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO CUInt + +-- | Generate a function pointer callable from C code, from a `C_FileChooserConfirmOverwriteCallback`. +foreign import ccall "wrapper" + mk_FileChooserConfirmOverwriteCallback :: C_FileChooserConfirmOverwriteCallback -> IO (FunPtr C_FileChooserConfirmOverwriteCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_FileChooserConfirmOverwrite :: MonadIO m => FileChooserConfirmOverwriteCallback -> m (GClosure C_FileChooserConfirmOverwriteCallback) +genClosure_FileChooserConfirmOverwrite cb = liftIO $ do + let cb' = wrap_FileChooserConfirmOverwriteCallback cb + mk_FileChooserConfirmOverwriteCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `FileChooserConfirmOverwriteCallback` into a `C_FileChooserConfirmOverwriteCallback`. +wrap_FileChooserConfirmOverwriteCallback :: + FileChooserConfirmOverwriteCallback -> + C_FileChooserConfirmOverwriteCallback +wrap_FileChooserConfirmOverwriteCallback _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + + +{- | +Connect a signal handler for the “@confirm-overwrite@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' fileChooser #confirmOverwrite callback +@ +-} +onFileChooserConfirmOverwrite :: (IsFileChooser a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId +onFileChooserConfirmOverwrite obj cb = liftIO $ do + let cb' = wrap_FileChooserConfirmOverwriteCallback cb + cb'' <- mk_FileChooserConfirmOverwriteCallback cb' + connectSignalFunPtr obj "confirm-overwrite" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@confirm-overwrite@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' fileChooser #confirmOverwrite callback +@ +-} +afterFileChooserConfirmOverwrite :: (IsFileChooser a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId +afterFileChooserConfirmOverwrite obj cb = liftIO $ do + let cb' = wrap_FileChooserConfirmOverwriteCallback cb + cb'' <- mk_FileChooserConfirmOverwriteCallback cb' + connectSignalFunPtr obj "confirm-overwrite" cb'' SignalConnectAfter + + +-- signal FileChooser::current-folder-changed +{- | +This signal is emitted when the current folder in a 'GI.Gtk.Interfaces.FileChooser.FileChooser' +changes. This can happen due to the user performing some action that +changes folders, such as selecting a bookmark or visiting a folder on the +file list. It can also happen as a result of calling a function to +explicitly change the current folder in a file chooser. + +Normally you do not need to connect to this signal, unless you need to keep +track of which folder a file chooser is showing. + +See also: 'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolder', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetCurrentFolder', +'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolderUri', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetCurrentFolderUri'. +-} +type FileChooserCurrentFolderChangedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FileChooserCurrentFolderChangedCallback`@. +noFileChooserCurrentFolderChangedCallback :: Maybe FileChooserCurrentFolderChangedCallback +noFileChooserCurrentFolderChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_FileChooserCurrentFolderChangedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_FileChooserCurrentFolderChangedCallback`. +foreign import ccall "wrapper" + mk_FileChooserCurrentFolderChangedCallback :: C_FileChooserCurrentFolderChangedCallback -> IO (FunPtr C_FileChooserCurrentFolderChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_FileChooserCurrentFolderChanged :: MonadIO m => FileChooserCurrentFolderChangedCallback -> m (GClosure C_FileChooserCurrentFolderChangedCallback) +genClosure_FileChooserCurrentFolderChanged cb = liftIO $ do + let cb' = wrap_FileChooserCurrentFolderChangedCallback cb + mk_FileChooserCurrentFolderChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `FileChooserCurrentFolderChangedCallback` into a `C_FileChooserCurrentFolderChangedCallback`. +wrap_FileChooserCurrentFolderChangedCallback :: + FileChooserCurrentFolderChangedCallback -> + C_FileChooserCurrentFolderChangedCallback +wrap_FileChooserCurrentFolderChangedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@current-folder-changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' fileChooser #currentFolderChanged callback +@ +-} +onFileChooserCurrentFolderChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId +onFileChooserCurrentFolderChanged obj cb = liftIO $ do + let cb' = wrap_FileChooserCurrentFolderChangedCallback cb + cb'' <- mk_FileChooserCurrentFolderChangedCallback cb' + connectSignalFunPtr obj "current-folder-changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@current-folder-changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' fileChooser #currentFolderChanged callback +@ +-} +afterFileChooserCurrentFolderChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId +afterFileChooserCurrentFolderChanged obj cb = liftIO $ do + let cb' = wrap_FileChooserCurrentFolderChangedCallback cb + cb'' <- mk_FileChooserCurrentFolderChangedCallback cb' + connectSignalFunPtr obj "current-folder-changed" cb'' SignalConnectAfter + + +-- signal FileChooser::file-activated +{- | +This signal is emitted when the user \"activates\" a file in the file +chooser. This can happen by double-clicking on a file in the file list, or +by pressing @Enter@. + +Normally you do not need to connect to this signal. It is used internally +by 'GI.Gtk.Objects.FileChooserDialog.FileChooserDialog' to know when to activate the default button in the +dialog. + +See also: 'GI.Gtk.Interfaces.FileChooser.fileChooserGetFilename', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetFilenames', 'GI.Gtk.Interfaces.FileChooser.fileChooserGetUri', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetUris'. +-} +type FileChooserFileActivatedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FileChooserFileActivatedCallback`@. +noFileChooserFileActivatedCallback :: Maybe FileChooserFileActivatedCallback +noFileChooserFileActivatedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_FileChooserFileActivatedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_FileChooserFileActivatedCallback`. +foreign import ccall "wrapper" + mk_FileChooserFileActivatedCallback :: C_FileChooserFileActivatedCallback -> IO (FunPtr C_FileChooserFileActivatedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_FileChooserFileActivated :: MonadIO m => FileChooserFileActivatedCallback -> m (GClosure C_FileChooserFileActivatedCallback) +genClosure_FileChooserFileActivated cb = liftIO $ do + let cb' = wrap_FileChooserFileActivatedCallback cb + mk_FileChooserFileActivatedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `FileChooserFileActivatedCallback` into a `C_FileChooserFileActivatedCallback`. +wrap_FileChooserFileActivatedCallback :: + FileChooserFileActivatedCallback -> + C_FileChooserFileActivatedCallback +wrap_FileChooserFileActivatedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@file-activated@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' fileChooser #fileActivated callback +@ +-} +onFileChooserFileActivated :: (IsFileChooser a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId +onFileChooserFileActivated obj cb = liftIO $ do + let cb' = wrap_FileChooserFileActivatedCallback cb + cb'' <- mk_FileChooserFileActivatedCallback cb' + connectSignalFunPtr obj "file-activated" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@file-activated@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' fileChooser #fileActivated callback +@ +-} +afterFileChooserFileActivated :: (IsFileChooser a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId +afterFileChooserFileActivated obj cb = liftIO $ do + let cb' = wrap_FileChooserFileActivatedCallback cb + cb'' <- mk_FileChooserFileActivatedCallback cb' + connectSignalFunPtr obj "file-activated" cb'' SignalConnectAfter + + +-- signal FileChooser::selection-changed +{- | +This signal is emitted when there is a change in the set of selected files +in a 'GI.Gtk.Interfaces.FileChooser.FileChooser'. This can happen when the user modifies the selection +with the mouse or the keyboard, or when explicitly calling functions to +change the selection. + +Normally you do not need to connect to this signal, as it is easier to wait +for the file chooser to finish running, and then to get the list of +selected files using the functions mentioned below. + +See also: 'GI.Gtk.Interfaces.FileChooser.fileChooserSelectFilename', +'GI.Gtk.Interfaces.FileChooser.fileChooserUnselectFilename', 'GI.Gtk.Interfaces.FileChooser.fileChooserGetFilename', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetFilenames', 'GI.Gtk.Interfaces.FileChooser.fileChooserSelectUri', +'GI.Gtk.Interfaces.FileChooser.fileChooserUnselectUri', 'GI.Gtk.Interfaces.FileChooser.fileChooserGetUri', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetUris'. +-} +type FileChooserSelectionChangedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FileChooserSelectionChangedCallback`@. +noFileChooserSelectionChangedCallback :: Maybe FileChooserSelectionChangedCallback +noFileChooserSelectionChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_FileChooserSelectionChangedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_FileChooserSelectionChangedCallback`. +foreign import ccall "wrapper" + mk_FileChooserSelectionChangedCallback :: C_FileChooserSelectionChangedCallback -> IO (FunPtr C_FileChooserSelectionChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_FileChooserSelectionChanged :: MonadIO m => FileChooserSelectionChangedCallback -> m (GClosure C_FileChooserSelectionChangedCallback) +genClosure_FileChooserSelectionChanged cb = liftIO $ do + let cb' = wrap_FileChooserSelectionChangedCallback cb + mk_FileChooserSelectionChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `FileChooserSelectionChangedCallback` into a `C_FileChooserSelectionChangedCallback`. +wrap_FileChooserSelectionChangedCallback :: + FileChooserSelectionChangedCallback -> + C_FileChooserSelectionChangedCallback +wrap_FileChooserSelectionChangedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@selection-changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' fileChooser #selectionChanged callback +@ +-} +onFileChooserSelectionChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId +onFileChooserSelectionChanged obj cb = liftIO $ do + let cb' = wrap_FileChooserSelectionChangedCallback cb + cb'' <- mk_FileChooserSelectionChangedCallback cb' + connectSignalFunPtr obj "selection-changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@selection-changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' fileChooser #selectionChanged callback +@ +-} +afterFileChooserSelectionChanged :: (IsFileChooser a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId +afterFileChooserSelectionChanged obj cb = liftIO $ do + let cb' = wrap_FileChooserSelectionChangedCallback cb + cb'' <- mk_FileChooserSelectionChangedCallback cb' + connectSignalFunPtr obj "selection-changed" cb'' SignalConnectAfter + + +-- signal FileChooser::update-preview +{- | +This signal is emitted when the preview in a file chooser should be +regenerated. For example, this can happen when the currently selected file +changes. You should use this signal if you want your file chooser to have +a preview widget. + +Once you have installed a preview widget with +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget', you should update it when this +signal is emitted. You can use the functions +'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewFilename' or +'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewUri' to get the name of the file to preview. +Your widget may not be able to preview all kinds of files; your callback +must call 'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidgetActive' to inform the file +chooser about whether the preview was generated successfully or not. + +Please see the example code in +[Using a Preview Widget][gtkfilechooser-preview]. + +See also: 'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget', +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidgetActive', +'GI.Gtk.Interfaces.FileChooser.fileChooserSetUsePreviewLabel', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewFilename', +'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewUri'. +-} +type FileChooserUpdatePreviewCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FileChooserUpdatePreviewCallback`@. +noFileChooserUpdatePreviewCallback :: Maybe FileChooserUpdatePreviewCallback +noFileChooserUpdatePreviewCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_FileChooserUpdatePreviewCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_FileChooserUpdatePreviewCallback`. +foreign import ccall "wrapper" + mk_FileChooserUpdatePreviewCallback :: C_FileChooserUpdatePreviewCallback -> IO (FunPtr C_FileChooserUpdatePreviewCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_FileChooserUpdatePreview :: MonadIO m => FileChooserUpdatePreviewCallback -> m (GClosure C_FileChooserUpdatePreviewCallback) +genClosure_FileChooserUpdatePreview cb = liftIO $ do + let cb' = wrap_FileChooserUpdatePreviewCallback cb + mk_FileChooserUpdatePreviewCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `FileChooserUpdatePreviewCallback` into a `C_FileChooserUpdatePreviewCallback`. +wrap_FileChooserUpdatePreviewCallback :: + FileChooserUpdatePreviewCallback -> + C_FileChooserUpdatePreviewCallback +wrap_FileChooserUpdatePreviewCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@update-preview@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' fileChooser #updatePreview callback +@ +-} +onFileChooserUpdatePreview :: (IsFileChooser a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId +onFileChooserUpdatePreview obj cb = liftIO $ do + let cb' = wrap_FileChooserUpdatePreviewCallback cb + cb'' <- mk_FileChooserUpdatePreviewCallback cb' + connectSignalFunPtr obj "update-preview" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@update-preview@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' fileChooser #updatePreview callback +@ +-} +afterFileChooserUpdatePreview :: (IsFileChooser a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId +afterFileChooserUpdatePreview obj cb = liftIO $ do + let cb' = wrap_FileChooserUpdatePreviewCallback cb + cb'' <- mk_FileChooserUpdatePreviewCallback cb' + connectSignalFunPtr obj "update-preview" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data FileChooserConfirmOverwriteSignalInfo +instance SignalInfo FileChooserConfirmOverwriteSignalInfo where + type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_FileChooserConfirmOverwriteCallback cb + cb'' <- mk_FileChooserConfirmOverwriteCallback cb' + connectSignalFunPtr obj "confirm-overwrite" cb'' connectMode + +data FileChooserCurrentFolderChangedSignalInfo +instance SignalInfo FileChooserCurrentFolderChangedSignalInfo where + type HaskellCallbackType FileChooserCurrentFolderChangedSignalInfo = FileChooserCurrentFolderChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_FileChooserCurrentFolderChangedCallback cb + cb'' <- mk_FileChooserCurrentFolderChangedCallback cb' + connectSignalFunPtr obj "current-folder-changed" cb'' connectMode + +data FileChooserFileActivatedSignalInfo +instance SignalInfo FileChooserFileActivatedSignalInfo where + type HaskellCallbackType FileChooserFileActivatedSignalInfo = FileChooserFileActivatedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_FileChooserFileActivatedCallback cb + cb'' <- mk_FileChooserFileActivatedCallback cb' + connectSignalFunPtr obj "file-activated" cb'' connectMode + +data FileChooserSelectionChangedSignalInfo +instance SignalInfo FileChooserSelectionChangedSignalInfo where + type HaskellCallbackType FileChooserSelectionChangedSignalInfo = FileChooserSelectionChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_FileChooserSelectionChangedCallback cb + cb'' <- mk_FileChooserSelectionChangedCallback cb' + connectSignalFunPtr obj "selection-changed" cb'' connectMode + +data FileChooserUpdatePreviewSignalInfo +instance SignalInfo FileChooserUpdatePreviewSignalInfo where + type HaskellCallbackType FileChooserUpdatePreviewSignalInfo = FileChooserUpdatePreviewCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_FileChooserUpdatePreviewCallback cb + cb'' <- mk_FileChooserUpdatePreviewCallback cb' + connectSignalFunPtr obj "update-preview" cb'' connectMode + +type instance O.SignalList FileChooser = FileChooserSignalList +type FileChooserSignalList = ('[ '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_file_chooser_get_type" + c_gtk_file_chooser_get_type :: IO GType + +instance GObject FileChooser where + gobjectType = c_gtk_file_chooser_get_type + + +-- | Type class for types which can be safely cast to `FileChooser`, for instance with `toFileChooser`. +class (GObject o, O.IsDescendantOf FileChooser o) => IsFileChooser o +instance (GObject o, O.IsDescendantOf FileChooser o) => IsFileChooser o + +instance O.HasParentTypes FileChooser +type instance O.ParentTypes FileChooser = '[GObject.Object.Object] + +-- | Cast to `FileChooser`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toFileChooser :: (MonadIO m, IsFileChooser o) => o -> m FileChooser +toFileChooser = liftIO . unsafeCastTo FileChooser + +-- VVV Prop "action" + -- Type: TInterface (Name {namespace = "Gtk", name = "FileChooserAction"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@action@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #action +@ +-} +getFileChooserAction :: (MonadIO m, IsFileChooser o) => o -> m Gtk.Enums.FileChooserAction +getFileChooserAction obj = liftIO $ B.Properties.getObjectPropertyEnum obj "action" + +{- | +Set the value of the “@action@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #action 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserAction :: (MonadIO m, IsFileChooser o) => o -> Gtk.Enums.FileChooserAction -> m () +setFileChooserAction obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "action" val + +{- | +Construct a `GValueConstruct` with valid value for the “@action@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserAction :: (IsFileChooser o) => Gtk.Enums.FileChooserAction -> IO (GValueConstruct o) +constructFileChooserAction val = B.Properties.constructObjectPropertyEnum "action" val + +#if ENABLE_OVERLOADING +data FileChooserActionPropertyInfo +instance AttrInfo FileChooserActionPropertyInfo where + type AttrAllowedOps FileChooserActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserActionPropertyInfo = (~) Gtk.Enums.FileChooserAction + type AttrBaseTypeConstraint FileChooserActionPropertyInfo = IsFileChooser + type AttrGetType FileChooserActionPropertyInfo = Gtk.Enums.FileChooserAction + type AttrLabel FileChooserActionPropertyInfo = "action" + type AttrOrigin FileChooserActionPropertyInfo = FileChooser + attrGet _ = getFileChooserAction + attrSet _ = setFileChooserAction + attrConstruct _ = constructFileChooserAction + attrClear _ = undefined +#endif + +-- VVV Prop "create-folders" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@create-folders@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #createFolders +@ +-} +getFileChooserCreateFolders :: (MonadIO m, IsFileChooser o) => o -> m Bool +getFileChooserCreateFolders obj = liftIO $ B.Properties.getObjectPropertyBool obj "create-folders" + +{- | +Set the value of the “@create-folders@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #createFolders 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserCreateFolders :: (MonadIO m, IsFileChooser o) => o -> Bool -> m () +setFileChooserCreateFolders obj val = liftIO $ B.Properties.setObjectPropertyBool obj "create-folders" val + +{- | +Construct a `GValueConstruct` with valid value for the “@create-folders@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserCreateFolders :: (IsFileChooser o) => Bool -> IO (GValueConstruct o) +constructFileChooserCreateFolders val = B.Properties.constructObjectPropertyBool "create-folders" val + +#if ENABLE_OVERLOADING +data FileChooserCreateFoldersPropertyInfo +instance AttrInfo FileChooserCreateFoldersPropertyInfo where + type AttrAllowedOps FileChooserCreateFoldersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserCreateFoldersPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserCreateFoldersPropertyInfo = IsFileChooser + type AttrGetType FileChooserCreateFoldersPropertyInfo = Bool + type AttrLabel FileChooserCreateFoldersPropertyInfo = "create-folders" + type AttrOrigin FileChooserCreateFoldersPropertyInfo = FileChooser + attrGet _ = getFileChooserCreateFolders + attrSet _ = setFileChooserCreateFolders + attrConstruct _ = constructFileChooserCreateFolders + attrClear _ = undefined +#endif + +-- VVV Prop "do-overwrite-confirmation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@do-overwrite-confirmation@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #doOverwriteConfirmation +@ +-} +getFileChooserDoOverwriteConfirmation :: (MonadIO m, IsFileChooser o) => o -> m Bool +getFileChooserDoOverwriteConfirmation obj = liftIO $ B.Properties.getObjectPropertyBool obj "do-overwrite-confirmation" + +{- | +Set the value of the “@do-overwrite-confirmation@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #doOverwriteConfirmation 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserDoOverwriteConfirmation :: (MonadIO m, IsFileChooser o) => o -> Bool -> m () +setFileChooserDoOverwriteConfirmation obj val = liftIO $ B.Properties.setObjectPropertyBool obj "do-overwrite-confirmation" val + +{- | +Construct a `GValueConstruct` with valid value for the “@do-overwrite-confirmation@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserDoOverwriteConfirmation :: (IsFileChooser o) => Bool -> IO (GValueConstruct o) +constructFileChooserDoOverwriteConfirmation val = B.Properties.constructObjectPropertyBool "do-overwrite-confirmation" val + +#if ENABLE_OVERLOADING +data FileChooserDoOverwriteConfirmationPropertyInfo +instance AttrInfo FileChooserDoOverwriteConfirmationPropertyInfo where + type AttrAllowedOps FileChooserDoOverwriteConfirmationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = IsFileChooser + type AttrGetType FileChooserDoOverwriteConfirmationPropertyInfo = Bool + type AttrLabel FileChooserDoOverwriteConfirmationPropertyInfo = "do-overwrite-confirmation" + type AttrOrigin FileChooserDoOverwriteConfirmationPropertyInfo = FileChooser + attrGet _ = getFileChooserDoOverwriteConfirmation + attrSet _ = setFileChooserDoOverwriteConfirmation + attrConstruct _ = constructFileChooserDoOverwriteConfirmation + attrClear _ = undefined +#endif + +-- VVV Prop "extra-widget" + -- Type: TInterface (Name {namespace = "Gtk", name = "Widget"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just False) + +{- | +Get the value of the “@extra-widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #extraWidget +@ +-} +getFileChooserExtraWidget :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.Widget.Widget) +getFileChooserExtraWidget obj = liftIO $ B.Properties.getObjectPropertyObject obj "extra-widget" Gtk.Widget.Widget + +{- | +Set the value of the “@extra-widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #extraWidget 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserExtraWidget :: (MonadIO m, IsFileChooser o, Gtk.Widget.IsWidget a) => o -> a -> m () +setFileChooserExtraWidget obj val = liftIO $ B.Properties.setObjectPropertyObject obj "extra-widget" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@extra-widget@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserExtraWidget :: (IsFileChooser o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o) +constructFileChooserExtraWidget val = B.Properties.constructObjectPropertyObject "extra-widget" (Just val) + +#if ENABLE_OVERLOADING +data FileChooserExtraWidgetPropertyInfo +instance AttrInfo FileChooserExtraWidgetPropertyInfo where + type AttrAllowedOps FileChooserExtraWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserExtraWidgetPropertyInfo = Gtk.Widget.IsWidget + type AttrBaseTypeConstraint FileChooserExtraWidgetPropertyInfo = IsFileChooser + type AttrGetType FileChooserExtraWidgetPropertyInfo = (Maybe Gtk.Widget.Widget) + type AttrLabel FileChooserExtraWidgetPropertyInfo = "extra-widget" + type AttrOrigin FileChooserExtraWidgetPropertyInfo = FileChooser + attrGet _ = getFileChooserExtraWidget + attrSet _ = setFileChooserExtraWidget + attrConstruct _ = constructFileChooserExtraWidget + attrClear _ = undefined +#endif + +-- VVV Prop "filter" + -- Type: TInterface (Name {namespace = "Gtk", name = "FileFilter"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just False) + +{- | +Get the value of the “@filter@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #filter +@ +-} +getFileChooserFilter :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.FileFilter.FileFilter) +getFileChooserFilter obj = liftIO $ B.Properties.getObjectPropertyObject obj "filter" Gtk.FileFilter.FileFilter + +{- | +Set the value of the “@filter@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #filter 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserFilter :: (MonadIO m, IsFileChooser o, Gtk.FileFilter.IsFileFilter a) => o -> a -> m () +setFileChooserFilter obj val = liftIO $ B.Properties.setObjectPropertyObject obj "filter" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@filter@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserFilter :: (IsFileChooser o, Gtk.FileFilter.IsFileFilter a) => a -> IO (GValueConstruct o) +constructFileChooserFilter val = B.Properties.constructObjectPropertyObject "filter" (Just val) + +#if ENABLE_OVERLOADING +data FileChooserFilterPropertyInfo +instance AttrInfo FileChooserFilterPropertyInfo where + type AttrAllowedOps FileChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserFilterPropertyInfo = Gtk.FileFilter.IsFileFilter + type AttrBaseTypeConstraint FileChooserFilterPropertyInfo = IsFileChooser + type AttrGetType FileChooserFilterPropertyInfo = (Maybe Gtk.FileFilter.FileFilter) + type AttrLabel FileChooserFilterPropertyInfo = "filter" + type AttrOrigin FileChooserFilterPropertyInfo = FileChooser + attrGet _ = getFileChooserFilter + attrSet _ = setFileChooserFilter + attrConstruct _ = constructFileChooserFilter + attrClear _ = undefined +#endif + +-- VVV Prop "local-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@local-only@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #localOnly +@ +-} +getFileChooserLocalOnly :: (MonadIO m, IsFileChooser o) => o -> m Bool +getFileChooserLocalOnly obj = liftIO $ B.Properties.getObjectPropertyBool obj "local-only" + +{- | +Set the value of the “@local-only@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #localOnly 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserLocalOnly :: (MonadIO m, IsFileChooser o) => o -> Bool -> m () +setFileChooserLocalOnly obj val = liftIO $ B.Properties.setObjectPropertyBool obj "local-only" val + +{- | +Construct a `GValueConstruct` with valid value for the “@local-only@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserLocalOnly :: (IsFileChooser o) => Bool -> IO (GValueConstruct o) +constructFileChooserLocalOnly val = B.Properties.constructObjectPropertyBool "local-only" val + +#if ENABLE_OVERLOADING +data FileChooserLocalOnlyPropertyInfo +instance AttrInfo FileChooserLocalOnlyPropertyInfo where + type AttrAllowedOps FileChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserLocalOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserLocalOnlyPropertyInfo = IsFileChooser + type AttrGetType FileChooserLocalOnlyPropertyInfo = Bool + type AttrLabel FileChooserLocalOnlyPropertyInfo = "local-only" + type AttrOrigin FileChooserLocalOnlyPropertyInfo = FileChooser + attrGet _ = getFileChooserLocalOnly + attrSet _ = setFileChooserLocalOnly + attrConstruct _ = constructFileChooserLocalOnly + attrClear _ = undefined +#endif + +-- VVV Prop "preview-widget" + -- Type: TInterface (Name {namespace = "Gtk", name = "Widget"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just False) + +{- | +Get the value of the “@preview-widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #previewWidget +@ +-} +getFileChooserPreviewWidget :: (MonadIO m, IsFileChooser o) => o -> m (Maybe Gtk.Widget.Widget) +getFileChooserPreviewWidget obj = liftIO $ B.Properties.getObjectPropertyObject obj "preview-widget" Gtk.Widget.Widget + +{- | +Set the value of the “@preview-widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #previewWidget 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserPreviewWidget :: (MonadIO m, IsFileChooser o, Gtk.Widget.IsWidget a) => o -> a -> m () +setFileChooserPreviewWidget obj val = liftIO $ B.Properties.setObjectPropertyObject obj "preview-widget" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@preview-widget@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserPreviewWidget :: (IsFileChooser o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o) +constructFileChooserPreviewWidget val = B.Properties.constructObjectPropertyObject "preview-widget" (Just val) + +#if ENABLE_OVERLOADING +data FileChooserPreviewWidgetPropertyInfo +instance AttrInfo FileChooserPreviewWidgetPropertyInfo where + type AttrAllowedOps FileChooserPreviewWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserPreviewWidgetPropertyInfo = Gtk.Widget.IsWidget + type AttrBaseTypeConstraint FileChooserPreviewWidgetPropertyInfo = IsFileChooser + type AttrGetType FileChooserPreviewWidgetPropertyInfo = (Maybe Gtk.Widget.Widget) + type AttrLabel FileChooserPreviewWidgetPropertyInfo = "preview-widget" + type AttrOrigin FileChooserPreviewWidgetPropertyInfo = FileChooser + attrGet _ = getFileChooserPreviewWidget + attrSet _ = setFileChooserPreviewWidget + attrConstruct _ = constructFileChooserPreviewWidget + attrClear _ = undefined +#endif + +-- VVV Prop "preview-widget-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@preview-widget-active@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #previewWidgetActive +@ +-} +getFileChooserPreviewWidgetActive :: (MonadIO m, IsFileChooser o) => o -> m Bool +getFileChooserPreviewWidgetActive obj = liftIO $ B.Properties.getObjectPropertyBool obj "preview-widget-active" + +{- | +Set the value of the “@preview-widget-active@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #previewWidgetActive 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserPreviewWidgetActive :: (MonadIO m, IsFileChooser o) => o -> Bool -> m () +setFileChooserPreviewWidgetActive obj val = liftIO $ B.Properties.setObjectPropertyBool obj "preview-widget-active" val + +{- | +Construct a `GValueConstruct` with valid value for the “@preview-widget-active@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserPreviewWidgetActive :: (IsFileChooser o) => Bool -> IO (GValueConstruct o) +constructFileChooserPreviewWidgetActive val = B.Properties.constructObjectPropertyBool "preview-widget-active" val + +#if ENABLE_OVERLOADING +data FileChooserPreviewWidgetActivePropertyInfo +instance AttrInfo FileChooserPreviewWidgetActivePropertyInfo where + type AttrAllowedOps FileChooserPreviewWidgetActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = IsFileChooser + type AttrGetType FileChooserPreviewWidgetActivePropertyInfo = Bool + type AttrLabel FileChooserPreviewWidgetActivePropertyInfo = "preview-widget-active" + type AttrOrigin FileChooserPreviewWidgetActivePropertyInfo = FileChooser + attrGet _ = getFileChooserPreviewWidgetActive + attrSet _ = setFileChooserPreviewWidgetActive + attrConstruct _ = constructFileChooserPreviewWidgetActive + attrClear _ = undefined +#endif + +-- VVV Prop "select-multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@select-multiple@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #selectMultiple +@ +-} +getFileChooserSelectMultiple :: (MonadIO m, IsFileChooser o) => o -> m Bool +getFileChooserSelectMultiple obj = liftIO $ B.Properties.getObjectPropertyBool obj "select-multiple" + +{- | +Set the value of the “@select-multiple@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #selectMultiple 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserSelectMultiple :: (MonadIO m, IsFileChooser o) => o -> Bool -> m () +setFileChooserSelectMultiple obj val = liftIO $ B.Properties.setObjectPropertyBool obj "select-multiple" val + +{- | +Construct a `GValueConstruct` with valid value for the “@select-multiple@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserSelectMultiple :: (IsFileChooser o) => Bool -> IO (GValueConstruct o) +constructFileChooserSelectMultiple val = B.Properties.constructObjectPropertyBool "select-multiple" val + +#if ENABLE_OVERLOADING +data FileChooserSelectMultiplePropertyInfo +instance AttrInfo FileChooserSelectMultiplePropertyInfo where + type AttrAllowedOps FileChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserSelectMultiplePropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserSelectMultiplePropertyInfo = IsFileChooser + type AttrGetType FileChooserSelectMultiplePropertyInfo = Bool + type AttrLabel FileChooserSelectMultiplePropertyInfo = "select-multiple" + type AttrOrigin FileChooserSelectMultiplePropertyInfo = FileChooser + attrGet _ = getFileChooserSelectMultiple + attrSet _ = setFileChooserSelectMultiple + attrConstruct _ = constructFileChooserSelectMultiple + attrClear _ = undefined +#endif + +-- VVV Prop "show-hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-hidden@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #showHidden +@ +-} +getFileChooserShowHidden :: (MonadIO m, IsFileChooser o) => o -> m Bool +getFileChooserShowHidden obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-hidden" + +{- | +Set the value of the “@show-hidden@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #showHidden 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserShowHidden :: (MonadIO m, IsFileChooser o) => o -> Bool -> m () +setFileChooserShowHidden obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-hidden" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-hidden@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserShowHidden :: (IsFileChooser o) => Bool -> IO (GValueConstruct o) +constructFileChooserShowHidden val = B.Properties.constructObjectPropertyBool "show-hidden" val + +#if ENABLE_OVERLOADING +data FileChooserShowHiddenPropertyInfo +instance AttrInfo FileChooserShowHiddenPropertyInfo where + type AttrAllowedOps FileChooserShowHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserShowHiddenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserShowHiddenPropertyInfo = IsFileChooser + type AttrGetType FileChooserShowHiddenPropertyInfo = Bool + type AttrLabel FileChooserShowHiddenPropertyInfo = "show-hidden" + type AttrOrigin FileChooserShowHiddenPropertyInfo = FileChooser + attrGet _ = getFileChooserShowHidden + attrSet _ = setFileChooserShowHidden + attrConstruct _ = constructFileChooserShowHidden + attrClear _ = undefined +#endif + +-- VVV Prop "use-preview-label" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@use-preview-label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fileChooser #usePreviewLabel +@ +-} +getFileChooserUsePreviewLabel :: (MonadIO m, IsFileChooser o) => o -> m Bool +getFileChooserUsePreviewLabel obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-preview-label" + +{- | +Set the value of the “@use-preview-label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fileChooser [ #usePreviewLabel 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFileChooserUsePreviewLabel :: (MonadIO m, IsFileChooser o) => o -> Bool -> m () +setFileChooserUsePreviewLabel obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-preview-label" val + +{- | +Construct a `GValueConstruct` with valid value for the “@use-preview-label@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFileChooserUsePreviewLabel :: (IsFileChooser o) => Bool -> IO (GValueConstruct o) +constructFileChooserUsePreviewLabel val = B.Properties.constructObjectPropertyBool "use-preview-label" val + +#if ENABLE_OVERLOADING +data FileChooserUsePreviewLabelPropertyInfo +instance AttrInfo FileChooserUsePreviewLabelPropertyInfo where + type AttrAllowedOps FileChooserUsePreviewLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserUsePreviewLabelPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserUsePreviewLabelPropertyInfo = IsFileChooser + type AttrGetType FileChooserUsePreviewLabelPropertyInfo = Bool + type AttrLabel FileChooserUsePreviewLabelPropertyInfo = "use-preview-label" + type AttrOrigin FileChooserUsePreviewLabelPropertyInfo = FileChooser + attrGet _ = getFileChooserUsePreviewLabel + attrSet _ = setFileChooserUsePreviewLabel + attrConstruct _ = constructFileChooserUsePreviewLabel + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList FileChooser +type instance O.AttributeList FileChooser = FileChooserAttributeList +type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +fileChooserAction :: AttrLabelProxy "action" +fileChooserAction = AttrLabelProxy + +fileChooserCreateFolders :: AttrLabelProxy "createFolders" +fileChooserCreateFolders = AttrLabelProxy + +fileChooserDoOverwriteConfirmation :: AttrLabelProxy "doOverwriteConfirmation" +fileChooserDoOverwriteConfirmation = AttrLabelProxy + +fileChooserExtraWidget :: AttrLabelProxy "extraWidget" +fileChooserExtraWidget = AttrLabelProxy + +fileChooserFilter :: AttrLabelProxy "filter" +fileChooserFilter = AttrLabelProxy + +fileChooserLocalOnly :: AttrLabelProxy "localOnly" +fileChooserLocalOnly = AttrLabelProxy + +fileChooserPreviewWidget :: AttrLabelProxy "previewWidget" +fileChooserPreviewWidget = AttrLabelProxy + +fileChooserPreviewWidgetActive :: AttrLabelProxy "previewWidgetActive" +fileChooserPreviewWidgetActive = AttrLabelProxy + +fileChooserSelectMultiple :: AttrLabelProxy "selectMultiple" +fileChooserSelectMultiple = AttrLabelProxy + +fileChooserShowHidden :: AttrLabelProxy "showHidden" +fileChooserShowHidden = AttrLabelProxy + +fileChooserUsePreviewLabel :: AttrLabelProxy "usePreviewLabel" +fileChooserUsePreviewLabel = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveFileChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveFileChooserMethod "addChoice" o = FileChooserAddChoiceMethodInfo + ResolveFileChooserMethod "addFilter" o = FileChooserAddFilterMethodInfo + ResolveFileChooserMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo + ResolveFileChooserMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo + ResolveFileChooserMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveFileChooserMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveFileChooserMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveFileChooserMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveFileChooserMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveFileChooserMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveFileChooserMethod "listFilters" o = FileChooserListFiltersMethodInfo + ResolveFileChooserMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo + ResolveFileChooserMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo + ResolveFileChooserMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveFileChooserMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveFileChooserMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveFileChooserMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveFileChooserMethod "removeChoice" o = FileChooserRemoveChoiceMethodInfo + ResolveFileChooserMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo + ResolveFileChooserMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo + ResolveFileChooserMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo + ResolveFileChooserMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveFileChooserMethod "selectAll" o = FileChooserSelectAllMethodInfo + ResolveFileChooserMethod "selectFile" o = FileChooserSelectFileMethodInfo + ResolveFileChooserMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo + ResolveFileChooserMethod "selectUri" o = FileChooserSelectUriMethodInfo + ResolveFileChooserMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveFileChooserMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveFileChooserMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveFileChooserMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveFileChooserMethod "unselectAll" o = FileChooserUnselectAllMethodInfo + ResolveFileChooserMethod "unselectFile" o = FileChooserUnselectFileMethodInfo + ResolveFileChooserMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo + ResolveFileChooserMethod "unselectUri" o = FileChooserUnselectUriMethodInfo + ResolveFileChooserMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveFileChooserMethod "getAction" o = FileChooserGetActionMethodInfo + ResolveFileChooserMethod "getChoice" o = FileChooserGetChoiceMethodInfo + ResolveFileChooserMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo + ResolveFileChooserMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo + ResolveFileChooserMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo + ResolveFileChooserMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo + ResolveFileChooserMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo + ResolveFileChooserMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveFileChooserMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo + ResolveFileChooserMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo + ResolveFileChooserMethod "getFile" o = FileChooserGetFileMethodInfo + ResolveFileChooserMethod "getFilename" o = FileChooserGetFilenameMethodInfo + ResolveFileChooserMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo + ResolveFileChooserMethod "getFiles" o = FileChooserGetFilesMethodInfo + ResolveFileChooserMethod "getFilter" o = FileChooserGetFilterMethodInfo + ResolveFileChooserMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo + ResolveFileChooserMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo + ResolveFileChooserMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo + ResolveFileChooserMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo + ResolveFileChooserMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo + ResolveFileChooserMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo + ResolveFileChooserMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveFileChooserMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveFileChooserMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo + ResolveFileChooserMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo + ResolveFileChooserMethod "getUri" o = FileChooserGetUriMethodInfo + ResolveFileChooserMethod "getUris" o = FileChooserGetUrisMethodInfo + ResolveFileChooserMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo + ResolveFileChooserMethod "setAction" o = FileChooserSetActionMethodInfo + ResolveFileChooserMethod "setChoice" o = FileChooserSetChoiceMethodInfo + ResolveFileChooserMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo + ResolveFileChooserMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo + ResolveFileChooserMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo + ResolveFileChooserMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo + ResolveFileChooserMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo + ResolveFileChooserMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveFileChooserMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo + ResolveFileChooserMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo + ResolveFileChooserMethod "setFile" o = FileChooserSetFileMethodInfo + ResolveFileChooserMethod "setFilename" o = FileChooserSetFilenameMethodInfo + ResolveFileChooserMethod "setFilter" o = FileChooserSetFilterMethodInfo + ResolveFileChooserMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo + ResolveFileChooserMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo + ResolveFileChooserMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo + ResolveFileChooserMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveFileChooserMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo + ResolveFileChooserMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo + ResolveFileChooserMethod "setUri" o = FileChooserSetUriMethodInfo + ResolveFileChooserMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo + ResolveFileChooserMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveFileChooserMethod t FileChooser, O.MethodInfo info FileChooser p) => OL.IsLabel t (FileChooser -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method FileChooser::add_choice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "id for the added choice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "user-visible label for the added choice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "ids for the options of the choice, or %NULL for a boolean choice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_labels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user-visible labels for the options, must be the same length as @options", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_add_choice" gtk_file_chooser_add_choice :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- id : TBasicType TUTF8 + CString -> -- label : TBasicType TUTF8 + Ptr CString -> -- options : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr CString -> -- option_labels : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + +{- | +Adds a \'choice\' to the file chooser. This is typically implemented +as a combobox or, for boolean choices, as a checkbutton. You can select +a value using 'GI.Gtk.Interfaces.FileChooser.fileChooserSetChoice' before the dialog is shown, +and you can obtain the user-selected value in the ::response signal handler +using 'GI.Gtk.Interfaces.FileChooser.fileChooserGetChoice'. + +Compare 'GI.Gtk.Interfaces.FileChooser.fileChooserSetExtraWidget'. + +/Since: 3.22/ +-} +fileChooserAddChoice :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@id@/: id for the added choice -} + -> T.Text + {- ^ /@label@/: user-visible label for the added choice -} + -> Maybe ([T.Text]) + {- ^ /@options@/: ids for the options of the choice, or 'Nothing' for a boolean choice -} + -> Maybe ([T.Text]) + {- ^ /@optionLabels@/: user-visible labels for the options, must be the same length as /@options@/ -} + -> m () +fileChooserAddChoice chooser id label options optionLabels = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + id' <- textToCString id + label' <- textToCString label + maybeOptions <- case options of + Nothing -> return nullPtr + Just jOptions -> do + jOptions' <- packZeroTerminatedUTF8CArray jOptions + return jOptions' + maybeOptionLabels <- case optionLabels of + Nothing -> return nullPtr + Just jOptionLabels -> do + jOptionLabels' <- packZeroTerminatedUTF8CArray jOptionLabels + return jOptionLabels' + gtk_file_chooser_add_choice chooser' id' label' maybeOptions maybeOptionLabels + touchManagedPtr chooser + freeMem id' + freeMem label' + mapZeroTerminatedCArray freeMem maybeOptions + freeMem maybeOptions + mapZeroTerminatedCArray freeMem maybeOptionLabels + freeMem maybeOptionLabels + return () + +#if ENABLE_OVERLOADING +data FileChooserAddChoiceMethodInfo +instance (signature ~ (T.Text -> T.Text -> Maybe ([T.Text]) -> Maybe ([T.Text]) -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserAddChoiceMethodInfo a signature where + overloadedMethod _ = fileChooserAddChoice + +#endif + +-- method FileChooser::add_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Gtk", name = "FileFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_add_filter" gtk_file_chooser_add_filter :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gtk.FileFilter.FileFilter -> -- filter : TInterface (Name {namespace = "Gtk", name = "FileFilter"}) + IO () + +{- | +Adds /@filter@/ to the list of filters that the user can select between. +When a filter is selected, only files that are passed by that +filter are displayed. + +Note that the /@chooser@/ takes ownership of the filter, so you have to +ref and sink it if you want to keep a reference. + +/Since: 2.4/ +-} +fileChooserAddFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@filter@/: a 'GI.Gtk.Objects.FileFilter.FileFilter' -} + -> m () +fileChooserAddFilter chooser filter = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filter' <- B.ManagedPtr.disownObject filter + gtk_file_chooser_add_filter chooser' filter' + touchManagedPtr chooser + touchManagedPtr filter + return () + +#if ENABLE_OVERLOADING +data FileChooserAddFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.MethodInfo FileChooserAddFilterMethodInfo a signature where + overloadedMethod _ = fileChooserAddFilter + +#endif + +-- method FileChooser::add_shortcut_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "filename of the folder to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_add_shortcut_folder" gtk_file_chooser_add_shortcut_folder :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- folder : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Adds a folder to be displayed with the shortcut folders in a file chooser. +Note that shortcut folders do not get saved, as they are provided by the +application. For example, you can use this to add a +“\/usr\/share\/mydrawprogram\/Clipart” folder to the volume list. + +/Since: 2.4/ +-} +fileChooserAddShortcutFolder :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> [Char] + {- ^ /@folder@/: filename of the folder to add -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +fileChooserAddShortcutFolder chooser folder = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + folder' <- stringToCString folder + onException (do + _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder chooser' folder' + touchManagedPtr chooser + freeMem folder' + return () + ) (do + freeMem folder' + ) + +#if ENABLE_OVERLOADING +data FileChooserAddShortcutFolderMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserAddShortcutFolderMethodInfo a signature where + overloadedMethod _ = fileChooserAddShortcutFolder + +#endif + +-- method FileChooser::add_shortcut_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "URI of the folder to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_add_shortcut_folder_uri" gtk_file_chooser_add_shortcut_folder_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Adds a folder URI to be displayed with the shortcut folders in a file +chooser. Note that shortcut folders do not get saved, as they are provided +by the application. For example, you can use this to add a +“file:\/\/\/usr\/share\/mydrawprogram\/Clipart” folder to the volume list. + +/Since: 2.4/ +-} +fileChooserAddShortcutFolderUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@uri@/: URI of the folder to add -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +fileChooserAddShortcutFolderUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder_uri chooser' uri' + touchManagedPtr chooser + freeMem uri' + return () + ) (do + freeMem uri' + ) + +#if ENABLE_OVERLOADING +data FileChooserAddShortcutFolderUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserAddShortcutFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserAddShortcutFolderUri + +#endif + +-- method FileChooser::get_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "FileChooserAction"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_action" gtk_file_chooser_get_action :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CUInt + +{- | +Gets the type of operation that the file chooser is performing; see +'GI.Gtk.Interfaces.FileChooser.fileChooserSetAction'. + +/Since: 2.4/ +-} +fileChooserGetAction :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Gtk.Enums.FileChooserAction + {- ^ __Returns:__ the action that the file selector is performing -} +fileChooserGetAction chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_action chooser' + let result' = (toEnum . fromIntegral) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetActionMethodInfo +instance (signature ~ (m Gtk.Enums.FileChooserAction), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetActionMethodInfo a signature where + overloadedMethod _ = fileChooserGetAction + +#endif + +-- method FileChooser::get_choice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ID of the choice to get", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_choice" gtk_file_chooser_get_choice :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- id : TBasicType TUTF8 + IO CString + +{- | +Gets the currently selected option in the \'choice\' with the given ID. + +/Since: 3.22/ +-} +fileChooserGetChoice :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@id@/: the ID of the choice to get -} + -> m T.Text + {- ^ __Returns:__ the ID of the currenly selected option -} +fileChooserGetChoice chooser id = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + id' <- textToCString id + result <- gtk_file_chooser_get_choice chooser' id' + checkUnexpectedReturnNULL "fileChooserGetChoice" result + result' <- cstringToText result + touchManagedPtr chooser + freeMem id' + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetChoiceMethodInfo +instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetChoiceMethodInfo a signature where + overloadedMethod _ = fileChooserGetChoice + +#endif + +-- method FileChooser::get_create_folders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_create_folders" gtk_file_chooser_get_create_folders :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CInt + +{- | +Gets whether file choser will offer to create new folders. +See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetCreateFolders'. + +/Since: 2.18/ +-} +fileChooserGetCreateFolders :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the Create Folder button should be displayed. -} +fileChooserGetCreateFolders chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_create_folders chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetCreateFoldersMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCreateFoldersMethodInfo a signature where + overloadedMethod _ = fileChooserGetCreateFolders + +#endif + +-- method FileChooser::get_current_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_current_folder" gtk_file_chooser_get_current_folder :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CString + +{- | +Gets the current folder of /@chooser@/ as a local filename. +See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolder'. + +Note that this is the folder that the file chooser is currently displaying +(e.g. \"\/home\/username\/Documents\"), which is not the same +as the currently-selected folder if the chooser is in +'GI.Gtk.Enums.FileChooserActionSelectFolder' mode +(e.g. \"\/home\/username\/Documents\/selected-folder\/\". To get the +currently-selected folder in that mode, use 'GI.Gtk.Interfaces.FileChooser.fileChooserGetUri' as the +usual way to get the selection. + +/Since: 2.4/ +-} +fileChooserGetCurrentFolder :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe [Char]) + {- ^ __Returns:__ the full path of the current +folder, or 'Nothing' if the current path cannot be represented as a local +filename. Free with 'GI.GLib.Functions.free'. This function will also return +'Nothing' if the file chooser was unable to load the last folder that +was requested from it; for example, as would be for calling +'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolder' on a nonexistent folder. -} +fileChooserGetCurrentFolder chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_current_folder chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToString result' + freeMem result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetCurrentFolderMethodInfo +instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentFolderMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentFolder + +#endif + +-- method FileChooser::get_current_folder_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "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 -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr Gio.File.File) + +{- | +Gets the current folder of /@chooser@/ as 'GI.Gio.Interfaces.File.File'. +See 'GI.Gtk.Interfaces.FileChooser.fileChooserGetCurrentFolderUri'. + +/Since: 2.14/ +-} +fileChooserGetCurrentFolderFile :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Gio.File.File + {- ^ __Returns:__ the 'GI.Gio.Interfaces.File.File' for the current folder. -} +fileChooserGetCurrentFolderFile chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_current_folder_file chooser' + checkUnexpectedReturnNULL "fileChooserGetCurrentFolderFile" result + result' <- (wrapObject Gio.File.File) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetCurrentFolderFileMethodInfo +instance (signature ~ (m Gio.File.File), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentFolderFileMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentFolderFile + +#endif + +-- method FileChooser::get_current_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_current_folder_uri" gtk_file_chooser_get_current_folder_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CString + +{- | +Gets the current folder of /@chooser@/ as an URI. +See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolderUri'. + +Note that this is the folder that the file chooser is currently displaying +(e.g. \"file:\/\/\/home\/username\/Documents\"), which is not the same +as the currently-selected folder if the chooser is in +'GI.Gtk.Enums.FileChooserActionSelectFolder' mode +(e.g. \"file:\/\/\/home\/username\/Documents\/selected-folder\/\". To get the +currently-selected folder in that mode, use 'GI.Gtk.Interfaces.FileChooser.fileChooserGetUri' as the +usual way to get the selection. + +/Since: 2.4/ +-} +fileChooserGetCurrentFolderUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe T.Text) + {- ^ __Returns:__ the URI for the current folder. +Free with 'GI.GLib.Functions.free'. This function will also return 'Nothing' if the file chooser +was unable to load the last folder that was requested from it; for example, +as would be for calling 'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolderUri' on a +nonexistent folder. -} +fileChooserGetCurrentFolderUri chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_current_folder_uri chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetCurrentFolderUriMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentFolderUri + +#endif + +-- method FileChooser::get_current_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_current_name" gtk_file_chooser_get_current_name :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CString + +{- | +Gets the current name in the file selector, as entered by the user in the +text entry for “Name”. + +This is meant to be used in save dialogs, to get the currently typed filename +when the file itself does not exist yet. For example, an application that +adds a custom extra widget to the file chooser for “file format” may want to +change the extension of the typed filename based on the chosen format, say, +from “.jpg” to “.png”. + +/Since: 3.10/ +-} +fileChooserGetCurrentName :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m T.Text + {- ^ __Returns:__ The raw text from the file chooser’s “Name” entry. Free this with +'GI.GLib.Functions.free'. Note that this string is not a full pathname or URI; it is +whatever the contents of the entry are. Note also that this string is in +UTF-8 encoding, which is not necessarily the system’s encoding for filenames. -} +fileChooserGetCurrentName chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_current_name chooser' + checkUnexpectedReturnNULL "fileChooserGetCurrentName" result + result' <- cstringToText result + freeMem result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetCurrentNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetCurrentNameMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentName + +#endif + +-- method FileChooser::get_do_overwrite_confirmation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_do_overwrite_confirmation" gtk_file_chooser_get_do_overwrite_confirmation :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CInt + +{- | +Queries whether a file chooser is set to confirm for overwriting when the user +types a file name that already exists. + +/Since: 2.8/ +-} +fileChooserGetDoOverwriteConfirmation :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the file chooser will present a confirmation dialog; +'False' otherwise. -} +fileChooserGetDoOverwriteConfirmation chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_do_overwrite_confirmation chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetDoOverwriteConfirmationMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetDoOverwriteConfirmationMethodInfo a signature where + overloadedMethod _ = fileChooserGetDoOverwriteConfirmation + +#endif + +-- method FileChooser::get_extra_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_extra_widget" gtk_file_chooser_get_extra_widget :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Gets the current extra widget; see +'GI.Gtk.Interfaces.FileChooser.fileChooserSetExtraWidget'. + +/Since: 2.4/ +-} +fileChooserGetExtraWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the current extra widget, or 'Nothing' -} +fileChooserGetExtraWidget chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_extra_widget chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetExtraWidgetMethodInfo +instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetExtraWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserGetExtraWidget + +#endif + +-- method FileChooser::get_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_file" gtk_file_chooser_get_file :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr Gio.File.File) + +{- | +Gets the 'GI.Gio.Interfaces.File.File' for the currently selected file in +the file selector. If multiple files are selected, +one of the files will be returned at random. + +If the file chooser is in folder mode, this function returns the selected +folder. + +/Since: 2.14/ +-} +fileChooserGetFile :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Gio.File.File + {- ^ __Returns:__ a selected 'GI.Gio.Interfaces.File.File'. You own the returned file; + use 'GI.GObject.Objects.Object.objectUnref' to release it. -} +fileChooserGetFile chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_file chooser' + checkUnexpectedReturnNULL "fileChooserGetFile" result + result' <- (wrapObject Gio.File.File) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetFileMethodInfo +instance (signature ~ (m Gio.File.File), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFileMethodInfo a signature where + overloadedMethod _ = fileChooserGetFile + +#endif + +-- method FileChooser::get_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_filename" gtk_file_chooser_get_filename :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CString + +{- | +Gets the filename for the currently selected file in +the file selector. The filename is returned as an absolute path. If +multiple files are selected, one of the filenames will be returned at +random. + +If the file chooser is in folder mode, this function returns the selected +folder. + +/Since: 2.4/ +-} +fileChooserGetFilename :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe [Char]) + {- ^ __Returns:__ The currently selected filename, + or 'Nothing' if no file is selected, or the selected file can\'t + be represented with a local filename. Free with 'GI.GLib.Functions.free'. -} +fileChooserGetFilename chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_filename chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToString result' + freeMem result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetFilenameMethodInfo +instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserGetFilename + +#endif + +-- method FileChooser::get_filenames +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TBasicType TFileName)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_filenames" gtk_file_chooser_get_filenames :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr (GSList CString)) + +{- | +Lists all the selected files and subfolders in the current folder of +/@chooser@/. The returned names are full absolute paths. If files in the current +folder cannot be represented as local filenames they will be ignored. (See +'GI.Gtk.Interfaces.FileChooser.fileChooserGetUris') + +/Since: 2.4/ +-} +fileChooserGetFilenames :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m [[Char]] + {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList' + containing the filenames of all selected files and subfolders in + the current folder. Free the returned list with @/g_slist_free()/@, + and the filenames with 'GI.GLib.Functions.free'. -} +fileChooserGetFilenames chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_filenames chooser' + result' <- unpackGSList result + result'' <- mapM cstringToString result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data FileChooserGetFilenamesMethodInfo +instance (signature ~ (m [[Char]]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilenamesMethodInfo a signature where + overloadedMethod _ = fileChooserGetFilenames + +#endif + +-- method FileChooser::get_files +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TInterface (Name {namespace = "Gio", name = "File"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_files" gtk_file_chooser_get_files :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr (GSList (Ptr Gio.File.File))) + +{- | +Lists all the selected files and subfolders in the current folder of /@chooser@/ +as 'GI.Gio.Interfaces.File.File'. An internal function, see 'GI.Gtk.Interfaces.FileChooser.fileChooserGetUris'. + +/Since: 2.14/ +-} +fileChooserGetFiles :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m [Gio.File.File] + {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList' + containing a 'GI.Gio.Interfaces.File.File' for each selected file and subfolder in the + current folder. Free the returned list with @/g_slist_free()/@, and + the files with 'GI.GObject.Objects.Object.objectUnref'. -} +fileChooserGetFiles chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_files chooser' + result' <- unpackGSList result + result'' <- mapM (wrapObject Gio.File.File) result' + g_slist_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data FileChooserGetFilesMethodInfo +instance (signature ~ (m [Gio.File.File]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilesMethodInfo a signature where + overloadedMethod _ = fileChooserGetFiles + +#endif + +-- method FileChooser::get_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "FileFilter"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_filter" gtk_file_chooser_get_filter :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr Gtk.FileFilter.FileFilter) + +{- | +Gets the current filter; see 'GI.Gtk.Interfaces.FileChooser.fileChooserSetFilter'. + +/Since: 2.4/ +-} +fileChooserGetFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe Gtk.FileFilter.FileFilter) + {- ^ __Returns:__ the current filter, or 'Nothing' -} +fileChooserGetFilter chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_filter chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.FileFilter.FileFilter) result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetFilterMethodInfo +instance (signature ~ (m (Maybe Gtk.FileFilter.FileFilter)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetFilterMethodInfo a signature where + overloadedMethod _ = fileChooserGetFilter + +#endif + +-- method FileChooser::get_local_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_local_only" gtk_file_chooser_get_local_only :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CInt + +{- | +Gets whether only local files can be selected in the +file selector. See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetLocalOnly' + +/Since: 2.4/ +-} +fileChooserGetLocalOnly :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if only local files can be selected. -} +fileChooserGetLocalOnly chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_local_only chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetLocalOnlyMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetLocalOnlyMethodInfo a signature where + overloadedMethod _ = fileChooserGetLocalOnly + +#endif + +-- method FileChooser::get_preview_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_file" gtk_file_chooser_get_preview_file :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr Gio.File.File) + +{- | +Gets the 'GI.Gio.Interfaces.File.File' that should be previewed in a custom preview +Internal function, see 'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewUri'. + +/Since: 2.14/ +-} +fileChooserGetPreviewFile :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe Gio.File.File) + {- ^ __Returns:__ the 'GI.Gio.Interfaces.File.File' for the file to preview, + or 'Nothing' if no file is selected. Free with 'GI.GObject.Objects.Object.objectUnref'. -} +fileChooserGetPreviewFile chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_preview_file chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject Gio.File.File) result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetPreviewFileMethodInfo +instance (signature ~ (m (Maybe Gio.File.File)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewFileMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewFile + +#endif + +-- method FileChooser::get_preview_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_filename" gtk_file_chooser_get_preview_filename :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CString + +{- | +Gets the filename that should be previewed in a custom preview +widget. See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget'. + +/Since: 2.4/ +-} +fileChooserGetPreviewFilename :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe [Char]) + {- ^ __Returns:__ the filename to preview, or 'Nothing' if + no file is selected, or if the selected file cannot be represented + as a local filename. Free with 'GI.GLib.Functions.free' -} +fileChooserGetPreviewFilename chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_preview_filename chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToString result' + freeMem result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetPreviewFilenameMethodInfo +instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewFilename + +#endif + +-- method FileChooser::get_preview_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_uri" gtk_file_chooser_get_preview_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CString + +{- | +Gets the URI that should be previewed in a custom preview +widget. See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget'. + +/Since: 2.4/ +-} +fileChooserGetPreviewUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe T.Text) + {- ^ __Returns:__ the URI for the file to preview, + or 'Nothing' if no file is selected. Free with 'GI.GLib.Functions.free'. -} +fileChooserGetPreviewUri chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_preview_uri chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetPreviewUriMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewUriMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewUri + +#endif + +-- method FileChooser::get_preview_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_widget" gtk_file_chooser_get_preview_widget :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Gets the current preview widget; see +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget'. + +/Since: 2.4/ +-} +fileChooserGetPreviewWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the current preview widget, or 'Nothing' -} +fileChooserGetPreviewWidget chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_preview_widget chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetPreviewWidgetMethodInfo +instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewWidget + +#endif + +-- method FileChooser::get_preview_widget_active +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_widget_active" gtk_file_chooser_get_preview_widget_active :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CInt + +{- | +Gets whether the preview widget set by 'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget' +should be shown for the current filename. See +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidgetActive'. + +/Since: 2.4/ +-} +fileChooserGetPreviewWidgetActive :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the preview widget is active for the current filename. -} +fileChooserGetPreviewWidgetActive chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_preview_widget_active chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetPreviewWidgetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetPreviewWidgetActiveMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewWidgetActive + +#endif + +-- method FileChooser::get_select_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_select_multiple" gtk_file_chooser_get_select_multiple :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CInt + +{- | +Gets whether multiple files can be selected in the file +selector. See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetSelectMultiple'. + +/Since: 2.4/ +-} +fileChooserGetSelectMultiple :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if multiple files can be selected. -} +fileChooserGetSelectMultiple chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_select_multiple chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetSelectMultipleMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetSelectMultipleMethodInfo a signature where + overloadedMethod _ = fileChooserGetSelectMultiple + +#endif + +-- method FileChooser::get_show_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_show_hidden" gtk_file_chooser_get_show_hidden :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CInt + +{- | +Gets whether hidden files and folders are displayed in the file selector. +See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetShowHidden'. + +/Since: 2.6/ +-} +fileChooserGetShowHidden :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if hidden files and folders are displayed. -} +fileChooserGetShowHidden chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_show_hidden chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetShowHiddenMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetShowHiddenMethodInfo a signature where + overloadedMethod _ = fileChooserGetShowHidden + +#endif + +-- method FileChooser::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_uri" gtk_file_chooser_get_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CString + +{- | +Gets the URI for the currently selected file in +the file selector. If multiple files are selected, +one of the filenames will be returned at random. + +If the file chooser is in folder mode, this function returns the selected +folder. + +/Since: 2.4/ +-} +fileChooserGetUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m (Maybe T.Text) + {- ^ __Returns:__ The currently selected URI, or 'Nothing' + if no file is selected. If 'GI.Gtk.Interfaces.FileChooser.fileChooserSetLocalOnly' is set to + 'True' (the default) a local URI will be returned for any FUSE locations. + Free with 'GI.GLib.Functions.free' -} +fileChooserGetUri chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_uri chooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' + touchManagedPtr chooser + return maybeResult + +#if ENABLE_OVERLOADING +data FileChooserGetUriMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetUriMethodInfo a signature where + overloadedMethod _ = fileChooserGetUri + +#endif + +-- method FileChooser::get_uris +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_uris" gtk_file_chooser_get_uris :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr (GSList CString)) + +{- | +Lists all the selected files and subfolders in the current folder of +/@chooser@/. The returned names are full absolute URIs. + +/Since: 2.4/ +-} +fileChooserGetUris :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m [T.Text] + {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList' containing the URIs of all selected + files and subfolders in the current folder. Free the returned list + with @/g_slist_free()/@, and the filenames with 'GI.GLib.Functions.free'. -} +fileChooserGetUris chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_uris chooser' + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data FileChooserGetUrisMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetUrisMethodInfo a signature where + overloadedMethod _ = fileChooserGetUris + +#endif + +-- method FileChooser::get_use_preview_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_use_preview_label" gtk_file_chooser_get_use_preview_label :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO CInt + +{- | +Gets whether a stock label should be drawn with the name of the previewed +file. See 'GI.Gtk.Interfaces.FileChooser.fileChooserSetUsePreviewLabel'. +-} +fileChooserGetUsePreviewLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the file chooser is set to display a label with the +name of the previewed file, 'False' otherwise. -} +fileChooserGetUsePreviewLabel chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_get_use_preview_label chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data FileChooserGetUsePreviewLabelMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserGetUsePreviewLabelMethodInfo a signature where + overloadedMethod _ = fileChooserGetUsePreviewLabel + +#endif + +-- method FileChooser::list_filters +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TInterface (Name {namespace = "Gtk", name = "FileFilter"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_list_filters" gtk_file_chooser_list_filters :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr (GSList (Ptr Gtk.FileFilter.FileFilter))) + +{- | +Lists the current set of user-selectable filters; see +'GI.Gtk.Interfaces.FileChooser.fileChooserAddFilter', 'GI.Gtk.Interfaces.FileChooser.fileChooserRemoveFilter'. + +/Since: 2.4/ +-} +fileChooserListFilters :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m [Gtk.FileFilter.FileFilter] + {- ^ __Returns:__ a + 'GI.GLib.Structs.SList.SList' containing the current set of user selectable filters. The + contents of the list are owned by GTK+, but you must free the list + itself with @/g_slist_free()/@ when you are done with it. -} +fileChooserListFilters chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_list_filters chooser' + result' <- unpackGSList result + result'' <- mapM (newObject Gtk.FileFilter.FileFilter) result' + g_slist_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data FileChooserListFiltersMethodInfo +instance (signature ~ (m [Gtk.FileFilter.FileFilter]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserListFiltersMethodInfo a signature where + overloadedMethod _ = fileChooserListFilters + +#endif + +-- method FileChooser::list_shortcut_folder_uris +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_list_shortcut_folder_uris" gtk_file_chooser_list_shortcut_folder_uris :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr (GSList CString)) + +{- | +Queries the list of shortcut folders in the file chooser, as set by +'GI.Gtk.Interfaces.FileChooser.fileChooserAddShortcutFolderUri'. + +/Since: 2.4/ +-} +fileChooserListShortcutFolderUris :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m [T.Text] + {- ^ __Returns:__ A list of +folder URIs, or 'Nothing' if there are no shortcut folders. Free the +returned list with @/g_slist_free()/@, and the URIs with 'GI.GLib.Functions.free'. -} +fileChooserListShortcutFolderUris chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_list_shortcut_folder_uris chooser' + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data FileChooserListShortcutFolderUrisMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserListShortcutFolderUrisMethodInfo a signature where + overloadedMethod _ = fileChooserListShortcutFolderUris + +#endif + +-- method FileChooser::list_shortcut_folders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TBasicType TFileName)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_list_shortcut_folders" gtk_file_chooser_list_shortcut_folders :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO (Ptr (GSList CString)) + +{- | +Queries the list of shortcut folders in the file chooser, as set by +'GI.Gtk.Interfaces.FileChooser.fileChooserAddShortcutFolder'. + +/Since: 2.4/ +-} +fileChooserListShortcutFolders :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m [[Char]] + {- ^ __Returns:__ A list +of folder filenames, or 'Nothing' if there are no shortcut folders. +Free the returned list with @/g_slist_free()/@, and the filenames with +'GI.GLib.Functions.free'. -} +fileChooserListShortcutFolders chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_file_chooser_list_shortcut_folders chooser' + result' <- unpackGSList result + result'' <- mapM cstringToString result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data FileChooserListShortcutFoldersMethodInfo +instance (signature ~ (m [[Char]]), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserListShortcutFoldersMethodInfo a signature where + overloadedMethod _ = fileChooserListShortcutFolders + +#endif + +-- method FileChooser::remove_choice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ID of the choice to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_remove_choice" gtk_file_chooser_remove_choice :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- id : TBasicType TUTF8 + IO () + +{- | +Removes a \'choice\' that has been added with 'GI.Gtk.Interfaces.FileChooser.fileChooserAddChoice'. + +/Since: 3.22/ +-} +fileChooserRemoveChoice :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@id@/: the ID of the choice to remove -} + -> m () +fileChooserRemoveChoice chooser id = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + id' <- textToCString id + gtk_file_chooser_remove_choice chooser' id' + touchManagedPtr chooser + freeMem id' + return () + +#if ENABLE_OVERLOADING +data FileChooserRemoveChoiceMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserRemoveChoiceMethodInfo a signature where + overloadedMethod _ = fileChooserRemoveChoice + +#endif + +-- method FileChooser::remove_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Gtk", name = "FileFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_remove_filter" gtk_file_chooser_remove_filter :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gtk.FileFilter.FileFilter -> -- filter : TInterface (Name {namespace = "Gtk", name = "FileFilter"}) + IO () + +{- | +Removes /@filter@/ from the list of filters that the user can select between. + +/Since: 2.4/ +-} +fileChooserRemoveFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@filter@/: a 'GI.Gtk.Objects.FileFilter.FileFilter' -} + -> m () +fileChooserRemoveFilter chooser filter = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filter' <- unsafeManagedPtrCastPtr filter + gtk_file_chooser_remove_filter chooser' filter' + touchManagedPtr chooser + touchManagedPtr filter + return () + +#if ENABLE_OVERLOADING +data FileChooserRemoveFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.MethodInfo FileChooserRemoveFilterMethodInfo a signature where + overloadedMethod _ = fileChooserRemoveFilter + +#endif + +-- method FileChooser::remove_shortcut_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "filename of the folder to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_remove_shortcut_folder" gtk_file_chooser_remove_shortcut_folder :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- folder : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Removes a folder from a file chooser’s list of shortcut folders. + +/Since: 2.4/ +-} +fileChooserRemoveShortcutFolder :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> [Char] + {- ^ /@folder@/: filename of the folder to remove -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +fileChooserRemoveShortcutFolder chooser folder = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + folder' <- stringToCString folder + onException (do + _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder chooser' folder' + touchManagedPtr chooser + freeMem folder' + return () + ) (do + freeMem folder' + ) + +#if ENABLE_OVERLOADING +data FileChooserRemoveShortcutFolderMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserRemoveShortcutFolderMethodInfo a signature where + overloadedMethod _ = fileChooserRemoveShortcutFolder + +#endif + +-- method FileChooser::remove_shortcut_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "URI of the folder to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_remove_shortcut_folder_uri" gtk_file_chooser_remove_shortcut_folder_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Removes a folder URI from a file chooser’s list of shortcut folders. + +/Since: 2.4/ +-} +fileChooserRemoveShortcutFolderUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@uri@/: URI of the folder to remove -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +fileChooserRemoveShortcutFolderUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder_uri chooser' uri' + touchManagedPtr chooser + freeMem uri' + return () + ) (do + freeMem uri' + ) + +#if ENABLE_OVERLOADING +data FileChooserRemoveShortcutFolderUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserRemoveShortcutFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserRemoveShortcutFolderUri + +#endif + +-- method FileChooser::select_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_all" gtk_file_chooser_select_all :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO () + +{- | +Selects all the files in the current folder of a file chooser. + +/Since: 2.4/ +-} +fileChooserSelectAll :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m () +fileChooserSelectAll chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + gtk_file_chooser_select_all chooser' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSelectAllMethodInfo a signature where + overloadedMethod _ = fileChooserSelectAll + +#endif + +-- method FileChooser::select_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the file to select", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_file" gtk_file_chooser_select_file :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gio.File.File -> -- file : TInterface (Name {namespace = "Gio", name = "File"}) + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Selects the file referred to by /@file@/. An internal function. See +@/_gtk_file_chooser_select_uri()/@. + +/Since: 2.14/ +-} +fileChooserSelectFile :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@file@/: the file to select -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +fileChooserSelectFile chooser file = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + file' <- unsafeManagedPtrCastPtr file + onException (do + _ <- propagateGError $ gtk_file_chooser_select_file chooser' file' + touchManagedPtr chooser + touchManagedPtr file + return () + ) (do + return () + ) + +#if ENABLE_OVERLOADING +data FileChooserSelectFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserSelectFileMethodInfo a signature where + overloadedMethod _ = fileChooserSelectFile + +#endif + +-- method FileChooser::select_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename to select", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_filename" gtk_file_chooser_select_filename :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- filename : TBasicType TFileName + IO CInt + +{- | +Selects a filename. If the file name isn’t in the current +folder of /@chooser@/, then the current folder of /@chooser@/ will +be changed to the folder containing /@filename@/. + +/Since: 2.4/ +-} +fileChooserSelectFilename :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> [Char] + {- ^ /@filename@/: the filename to select -} + -> m Bool + {- ^ __Returns:__ Not useful. + +See also: 'GI.Gtk.Interfaces.FileChooser.fileChooserSetFilename' -} +fileChooserSelectFilename chooser filename = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filename' <- stringToCString filename + result <- gtk_file_chooser_select_filename chooser' filename' + let result' = (/= 0) result + touchManagedPtr chooser + freeMem filename' + return result' + +#if ENABLE_OVERLOADING +data FileChooserSelectFilenameMethodInfo +instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSelectFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserSelectFilename + +#endif + +-- method FileChooser::select_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to select", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_uri" gtk_file_chooser_select_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- uri : TBasicType TUTF8 + IO CInt + +{- | +Selects the file to by /@uri@/. If the URI doesn’t refer to a +file in the current folder of /@chooser@/, then the current folder of +/@chooser@/ will be changed to the folder containing /@filename@/. + +/Since: 2.4/ +-} +fileChooserSelectUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@uri@/: the URI to select -} + -> m Bool + {- ^ __Returns:__ Not useful. -} +fileChooserSelectUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + result <- gtk_file_chooser_select_uri chooser' uri' + let result' = (/= 0) result + touchManagedPtr chooser + freeMem uri' + return result' + +#if ENABLE_OVERLOADING +data FileChooserSelectUriMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSelectUriMethodInfo a signature where + overloadedMethod _ = fileChooserSelectUri + +#endif + +-- method FileChooser::set_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "FileChooserAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action that the file selector is performing", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_action" gtk_file_chooser_set_action :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CUInt -> -- action : TInterface (Name {namespace = "Gtk", name = "FileChooserAction"}) + IO () + +{- | +Sets the type of operation that the chooser is performing; the +user interface is adapted to suit the selected action. For example, +an option to create a new folder might be shown if the action is +'GI.Gtk.Enums.FileChooserActionSave' but not if the action is +'GI.Gtk.Enums.FileChooserActionOpen'. + +/Since: 2.4/ +-} +fileChooserSetAction :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Gtk.Enums.FileChooserAction + {- ^ /@action@/: the action that the file selector is performing -} + -> m () +fileChooserSetAction chooser action = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let action' = (fromIntegral . fromEnum) action + gtk_file_chooser_set_action chooser' action' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetActionMethodInfo +instance (signature ~ (Gtk.Enums.FileChooserAction -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetActionMethodInfo a signature where + overloadedMethod _ = fileChooserSetAction + +#endif + +-- method FileChooser::set_choice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ID of the choice to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ID of the option to select", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_choice" gtk_file_chooser_set_choice :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- id : TBasicType TUTF8 + CString -> -- option : TBasicType TUTF8 + IO () + +{- | +Selects an option in a \'choice\' that has been added with +'GI.Gtk.Interfaces.FileChooser.fileChooserAddChoice'. For a boolean choice, the +possible options are \"true\" and \"false\". + +/Since: 3.22/ +-} +fileChooserSetChoice :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@id@/: the ID of the choice to set -} + -> T.Text + {- ^ /@option@/: the ID of the option to select -} + -> m () +fileChooserSetChoice chooser id option = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + id' <- textToCString id + option' <- textToCString option + gtk_file_chooser_set_choice chooser' id' option' + touchManagedPtr chooser + freeMem id' + freeMem option' + return () + +#if ENABLE_OVERLOADING +data FileChooserSetChoiceMethodInfo +instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetChoiceMethodInfo a signature where + overloadedMethod _ = fileChooserSetChoice + +#endif + +-- method FileChooser::set_create_folders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the Create Folder button should be displayed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_create_folders" gtk_file_chooser_set_create_folders :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CInt -> -- create_folders : TBasicType TBoolean + IO () + +{- | +Sets whether file choser will offer to create new folders. +This is only relevant if the action is not set to be +'GI.Gtk.Enums.FileChooserActionOpen'. + +/Since: 2.18/ +-} +fileChooserSetCreateFolders :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Bool + {- ^ /@createFolders@/: 'True' if the Create Folder button should be displayed -} + -> m () +fileChooserSetCreateFolders chooser createFolders = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let createFolders' = (fromIntegral . fromEnum) createFolders + gtk_file_chooser_set_create_folders chooser' createFolders' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetCreateFoldersMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCreateFoldersMethodInfo a signature where + overloadedMethod _ = fileChooserSetCreateFolders + +#endif + +-- method FileChooser::set_current_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the full path of the new current folder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_folder" gtk_file_chooser_set_current_folder :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- filename : TBasicType TFileName + IO CInt + +{- | +Sets the current folder for /@chooser@/ from a local filename. +The user will be shown the full contents of the current folder, +plus user interface elements for navigating to other folders. + +In general, you should not use this function. See the +[section on setting up a file chooser dialog][gtkfilechooserdialog-setting-up] +for the rationale behind this. + +/Since: 2.4/ +-} +fileChooserSetCurrentFolder :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> [Char] + {- ^ /@filename@/: the full path of the new current folder -} + -> m Bool + {- ^ __Returns:__ Not useful. -} +fileChooserSetCurrentFolder chooser filename = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filename' <- stringToCString filename + result <- gtk_file_chooser_set_current_folder chooser' filename' + let result' = (/= 0) result + touchManagedPtr chooser + freeMem filename' + return result' + +#if ENABLE_OVERLOADING +data FileChooserSetCurrentFolderMethodInfo +instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCurrentFolderMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentFolder + +#endif + +-- method FileChooser::set_current_folder_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GFile for the new folder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_folder_file" gtk_file_chooser_set_current_folder_file :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gio.File.File -> -- file : TInterface (Name {namespace = "Gio", name = "File"}) + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Sets the current folder for /@chooser@/ from a 'GI.Gio.Interfaces.File.File'. +Internal function, see 'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentFolderUri'. + +/Since: 2.14/ +-} +fileChooserSetCurrentFolderFile :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@file@/: the 'GI.Gio.Interfaces.File.File' for the new folder -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +fileChooserSetCurrentFolderFile chooser file = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + file' <- unsafeManagedPtrCastPtr file + onException (do + _ <- propagateGError $ gtk_file_chooser_set_current_folder_file chooser' file' + touchManagedPtr chooser + touchManagedPtr file + return () + ) (do + return () + ) + +#if ENABLE_OVERLOADING +data FileChooserSetCurrentFolderFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserSetCurrentFolderFileMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentFolderFile + +#endif + +-- method FileChooser::set_current_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI for the new current folder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_folder_uri" gtk_file_chooser_set_current_folder_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- uri : TBasicType TUTF8 + IO CInt + +{- | +Sets the current folder for /@chooser@/ from an URI. +The user will be shown the full contents of the current folder, +plus user interface elements for navigating to other folders. + +In general, you should not use this function. See the +[section on setting up a file chooser dialog][gtkfilechooserdialog-setting-up] +for the rationale behind this. + +/Since: 2.4/ +-} +fileChooserSetCurrentFolderUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@uri@/: the URI for the new current folder -} + -> m Bool + {- ^ __Returns:__ 'True' if the folder could be changed successfully, 'False' +otherwise. -} +fileChooserSetCurrentFolderUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + result <- gtk_file_chooser_set_current_folder_uri chooser' uri' + let result' = (/= 0) result + touchManagedPtr chooser + freeMem uri' + return result' + +#if ENABLE_OVERLOADING +data FileChooserSetCurrentFolderUriMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCurrentFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentFolderUri + +#endif + +-- method FileChooser::set_current_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename to use, as a UTF-8 string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_name" gtk_file_chooser_set_current_name :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- name : TBasicType TFileName + IO () + +{- | +Sets the current name in the file selector, as if entered +by the user. Note that the name passed in here is a UTF-8 +string rather than a filename. This function is meant for +such uses as a suggested name in a “Save As...” dialog. You can +pass “Untitled.doc” or a similarly suitable suggestion for the /@name@/. + +If you want to preselect a particular existing file, you should use +'GI.Gtk.Interfaces.FileChooser.fileChooserSetFilename' or 'GI.Gtk.Interfaces.FileChooser.fileChooserSetUri' instead. +Please see the documentation for those functions for an example of using +'GI.Gtk.Interfaces.FileChooser.fileChooserSetCurrentName' as well. + +/Since: 2.4/ +-} +fileChooserSetCurrentName :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> [Char] + {- ^ /@name@/: the filename to use, as a UTF-8 string -} + -> m () +fileChooserSetCurrentName chooser name = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + name' <- stringToCString name + gtk_file_chooser_set_current_name chooser' name' + touchManagedPtr chooser + freeMem name' + return () + +#if ENABLE_OVERLOADING +data FileChooserSetCurrentNameMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetCurrentNameMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentName + +#endif + +-- method FileChooser::set_do_overwrite_confirmation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to confirm overwriting in save mode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_do_overwrite_confirmation" gtk_file_chooser_set_do_overwrite_confirmation :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CInt -> -- do_overwrite_confirmation : TBasicType TBoolean + IO () + +{- | +Sets whether a file chooser in 'GI.Gtk.Enums.FileChooserActionSave' mode will present +a confirmation dialog if the user types a file name that already exists. This +is 'False' by default. + +If set to 'True', the /@chooser@/ will emit the +'GI.Gtk.Interfaces.FileChooser.FileChooser'::@/confirm-overwrite/@ signal when appropriate. + +If all you need is the stock confirmation dialog, set this property to 'True'. +You can override the way confirmation is done by actually handling the +'GI.Gtk.Interfaces.FileChooser.FileChooser'::@/confirm-overwrite/@ signal; please refer to its documentation +for the details. + +/Since: 2.8/ +-} +fileChooserSetDoOverwriteConfirmation :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Bool + {- ^ /@doOverwriteConfirmation@/: whether to confirm overwriting in save mode -} + -> m () +fileChooserSetDoOverwriteConfirmation chooser doOverwriteConfirmation = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let doOverwriteConfirmation' = (fromIntegral . fromEnum) doOverwriteConfirmation + gtk_file_chooser_set_do_overwrite_confirmation chooser' doOverwriteConfirmation' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetDoOverwriteConfirmationMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetDoOverwriteConfirmationMethodInfo a signature where + overloadedMethod _ = fileChooserSetDoOverwriteConfirmation + +#endif + +-- method FileChooser::set_extra_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extra_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "widget for extra options", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_extra_widget" gtk_file_chooser_set_extra_widget :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gtk.Widget.Widget -> -- extra_widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Sets an application-supplied widget to provide extra options to the user. + +/Since: 2.4/ +-} +fileChooserSetExtraWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@extraWidget@/: widget for extra options -} + -> m () +fileChooserSetExtraWidget chooser extraWidget = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + extraWidget' <- unsafeManagedPtrCastPtr extraWidget + gtk_file_chooser_set_extra_widget chooser' extraWidget' + touchManagedPtr chooser + touchManagedPtr extraWidget + return () + +#if ENABLE_OVERLOADING +data FileChooserSetExtraWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => O.MethodInfo FileChooserSetExtraWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserSetExtraWidget + +#endif + +-- method FileChooser::set_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GFile to set as current", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_file" gtk_file_chooser_set_file :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gio.File.File -> -- file : TInterface (Name {namespace = "Gio", name = "File"}) + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Sets /@file@/ as the current filename for the file chooser, by changing +to the file’s parent folder and actually selecting the file in list. If +the /@chooser@/ is in 'GI.Gtk.Enums.FileChooserActionSave' mode, the file’s base name +will also appear in the dialog’s file name entry. + +If the file name isn’t in the current folder of /@chooser@/, then the current +folder of /@chooser@/ will be changed to the folder containing /@filename@/. This +is equivalent to a sequence of 'GI.Gtk.Interfaces.FileChooser.fileChooserUnselectAll' followed by +'GI.Gtk.Interfaces.FileChooser.fileChooserSelectFilename'. + +Note that the file must exist, or nothing will be done except +for the directory change. + +If you are implementing a save dialog, +you should use this function if you already have a file name to which the +user may save; for example, when the user opens an existing file and then +does Save As... If you don’t have +a file name already — for example, if the user just created a new +file and is saving it for the first time, do not call this function. +Instead, use something similar to this: + +=== /C code/ +> +>if (document_is_new) +> { +> // the user just created a new document +> gtk_file_chooser_set_current_folder_file (chooser, default_file_for_saving); +> gtk_file_chooser_set_current_name (chooser, "Untitled document"); +> } +>else +> { +> // the user edited an existing document +> gtk_file_chooser_set_file (chooser, existing_file); +> } + + +/Since: 2.14/ +-} +fileChooserSetFile :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@file@/: the 'GI.Gio.Interfaces.File.File' to set as current -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +fileChooserSetFile chooser file = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + file' <- unsafeManagedPtrCastPtr file + onException (do + _ <- propagateGError $ gtk_file_chooser_set_file chooser' file' + touchManagedPtr chooser + touchManagedPtr file + return () + ) (do + return () + ) + +#if ENABLE_OVERLOADING +data FileChooserSetFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserSetFileMethodInfo a signature where + overloadedMethod _ = fileChooserSetFile + +#endif + +-- method FileChooser::set_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename to set as current", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_filename" gtk_file_chooser_set_filename :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- filename : TBasicType TFileName + IO CInt + +{- | +Sets /@filename@/ as the current filename for the file chooser, by changing to +the file’s parent folder and actually selecting the file in list; all other +files will be unselected. If the /@chooser@/ is in +'GI.Gtk.Enums.FileChooserActionSave' mode, the file’s base name will also appear in +the dialog’s file name entry. + +Note that the file must exist, or nothing will be done except +for the directory change. + +You should use this function only when implementing a save +dialog for which you already have a file name to which +the user may save. For example, when the user opens an existing file and +then does Save As... to save a copy or +a modified version. If you don’t have a file name already — for +example, if the user just created a new file and is saving it for the first +time, do not call this function. Instead, use something similar to this: + +=== /C code/ +> +>if (document_is_new) +> { +> // the user just created a new document +> gtk_file_chooser_set_current_name (chooser, "Untitled document"); +> } +>else +> { +> // the user edited an existing document +> gtk_file_chooser_set_filename (chooser, existing_filename); +> } + + +In the first case, the file chooser will present the user with useful suggestions +as to where to save his new file. In the second case, the file’s existing location +is already known, so the file chooser will use it. + +/Since: 2.4/ +-} +fileChooserSetFilename :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> [Char] + {- ^ /@filename@/: the filename to set as current -} + -> m Bool + {- ^ __Returns:__ Not useful. -} +fileChooserSetFilename chooser filename = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filename' <- stringToCString filename + result <- gtk_file_chooser_set_filename chooser' filename' + let result' = (/= 0) result + touchManagedPtr chooser + freeMem filename' + return result' + +#if ENABLE_OVERLOADING +data FileChooserSetFilenameMethodInfo +instance (signature ~ ([Char] -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserSetFilename + +#endif + +-- method FileChooser::set_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Gtk", name = "FileFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_filter" gtk_file_chooser_set_filter :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gtk.FileFilter.FileFilter -> -- filter : TInterface (Name {namespace = "Gtk", name = "FileFilter"}) + IO () + +{- | +Sets the current filter; only the files that pass the +filter will be displayed. If the user-selectable list of filters +is non-empty, then the filter should be one of the filters +in that list. Setting the current filter when the list of +filters is empty is useful if you want to restrict the displayed +set of files without letting the user change it. + +/Since: 2.4/ +-} +fileChooserSetFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@filter@/: a 'GI.Gtk.Objects.FileFilter.FileFilter' -} + -> m () +fileChooserSetFilter chooser filter = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filter' <- unsafeManagedPtrCastPtr filter + gtk_file_chooser_set_filter chooser' filter' + touchManagedPtr chooser + touchManagedPtr filter + return () + +#if ENABLE_OVERLOADING +data FileChooserSetFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.FileFilter.IsFileFilter b) => O.MethodInfo FileChooserSetFilterMethodInfo a signature where + overloadedMethod _ = fileChooserSetFilter + +#endif + +-- method FileChooser::set_local_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if only local files can be selected", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_local_only" gtk_file_chooser_set_local_only :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CInt -> -- local_only : TBasicType TBoolean + IO () + +{- | +Sets whether only local files can be selected in the +file selector. If /@localOnly@/ is 'True' (the default), +then the selected file or files are guaranteed to be +accessible through the operating systems native file +system and therefore the application only +needs to worry about the filename functions in +'GI.Gtk.Interfaces.FileChooser.FileChooser', like 'GI.Gtk.Interfaces.FileChooser.fileChooserGetFilename', +rather than the URI functions like +'GI.Gtk.Interfaces.FileChooser.fileChooserGetUri', + +On some systems non-native files may still be +available using the native filesystem via a userspace +filesystem (FUSE). + +/Since: 2.4/ +-} +fileChooserSetLocalOnly :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Bool + {- ^ /@localOnly@/: 'True' if only local files can be selected -} + -> m () +fileChooserSetLocalOnly chooser localOnly = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let localOnly' = (fromIntegral . fromEnum) localOnly + gtk_file_chooser_set_local_only chooser' localOnly' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetLocalOnlyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetLocalOnlyMethodInfo a signature where + overloadedMethod _ = fileChooserSetLocalOnly + +#endif + +-- method FileChooser::set_preview_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preview_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "widget for displaying preview.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_preview_widget" gtk_file_chooser_set_preview_widget :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gtk.Widget.Widget -> -- preview_widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Sets an application-supplied widget to use to display a custom preview +of the currently selected file. To implement a preview, after setting the +preview widget, you connect to the 'GI.Gtk.Interfaces.FileChooser.FileChooser'::@/update-preview/@ +signal, and call 'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewFilename' or +'GI.Gtk.Interfaces.FileChooser.fileChooserGetPreviewUri' on each change. If you can +display a preview of the new file, update your widget and +set the preview active using 'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidgetActive'. +Otherwise, set the preview inactive. + +When there is no application-supplied preview widget, or the +application-supplied preview widget is not active, the file chooser +will display no preview at all. + +/Since: 2.4/ +-} +fileChooserSetPreviewWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@previewWidget@/: widget for displaying preview. -} + -> m () +fileChooserSetPreviewWidget chooser previewWidget = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + previewWidget' <- unsafeManagedPtrCastPtr previewWidget + gtk_file_chooser_set_preview_widget chooser' previewWidget' + touchManagedPtr chooser + touchManagedPtr previewWidget + return () + +#if ENABLE_OVERLOADING +data FileChooserSetPreviewWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gtk.Widget.IsWidget b) => O.MethodInfo FileChooserSetPreviewWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserSetPreviewWidget + +#endif + +-- method FileChooser::set_preview_widget_active +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to display the user-specified preview widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_preview_widget_active" gtk_file_chooser_set_preview_widget_active :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CInt -> -- active : TBasicType TBoolean + IO () + +{- | +Sets whether the preview widget set by +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget' should be shown for the +current filename. When /@active@/ is set to false, the file chooser +may display an internally generated preview of the current file +or it may display no preview at all. See +'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget' for more details. + +/Since: 2.4/ +-} +fileChooserSetPreviewWidgetActive :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Bool + {- ^ /@active@/: whether to display the user-specified preview widget -} + -> m () +fileChooserSetPreviewWidgetActive chooser active = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let active' = (fromIntegral . fromEnum) active + gtk_file_chooser_set_preview_widget_active chooser' active' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetPreviewWidgetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetPreviewWidgetActiveMethodInfo a signature where + overloadedMethod _ = fileChooserSetPreviewWidgetActive + +#endif + +-- method FileChooser::set_select_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if multiple files can be selected.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_select_multiple" gtk_file_chooser_set_select_multiple :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CInt -> -- select_multiple : TBasicType TBoolean + IO () + +{- | +Sets whether multiple files can be selected in the file selector. This is +only relevant if the action is set to be 'GI.Gtk.Enums.FileChooserActionOpen' or +'GI.Gtk.Enums.FileChooserActionSelectFolder'. + +/Since: 2.4/ +-} +fileChooserSetSelectMultiple :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Bool + {- ^ /@selectMultiple@/: 'True' if multiple files can be selected. -} + -> m () +fileChooserSetSelectMultiple chooser selectMultiple = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let selectMultiple' = (fromIntegral . fromEnum) selectMultiple + gtk_file_chooser_set_select_multiple chooser' selectMultiple' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetSelectMultipleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetSelectMultipleMethodInfo a signature where + overloadedMethod _ = fileChooserSetSelectMultiple + +#endif + +-- method FileChooser::set_show_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if hidden files and folders should be displayed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_show_hidden" gtk_file_chooser_set_show_hidden :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CInt -> -- show_hidden : TBasicType TBoolean + IO () + +{- | +Sets whether hidden files and folders are displayed in the file selector. + +/Since: 2.6/ +-} +fileChooserSetShowHidden :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Bool + {- ^ /@showHidden@/: 'True' if hidden files and folders should be displayed. -} + -> m () +fileChooserSetShowHidden chooser showHidden = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let showHidden' = (fromIntegral . fromEnum) showHidden + gtk_file_chooser_set_show_hidden chooser' showHidden' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetShowHiddenMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetShowHiddenMethodInfo a signature where + overloadedMethod _ = fileChooserSetShowHidden + +#endif + +-- method FileChooser::set_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to set as current", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_uri" gtk_file_chooser_set_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- uri : TBasicType TUTF8 + IO CInt + +{- | +Sets the file referred to by /@uri@/ as the current file for the file chooser, +by changing to the URI’s parent folder and actually selecting the URI in the +list. If the /@chooser@/ is 'GI.Gtk.Enums.FileChooserActionSave' mode, the URI’s base +name will also appear in the dialog’s file name entry. + +Note that the URI must exist, or nothing will be done except for the +directory change. + +You should use this function only when implementing a save +dialog for which you already have a file name to which +the user may save. For example, when the user opens an existing file and then +does Save As... to save a copy or a +modified version. If you don’t have a file name already — for example, +if the user just created a new file and is saving it for the first time, do +not call this function. Instead, use something similar to this: + +=== /C code/ +> +>if (document_is_new) +> { +> // the user just created a new document +> gtk_file_chooser_set_current_name (chooser, "Untitled document"); +> } +>else +> { +> // the user edited an existing document +> gtk_file_chooser_set_uri (chooser, existing_uri); +> } + + + +In the first case, the file chooser will present the user with useful suggestions +as to where to save his new file. In the second case, the file’s existing location +is already known, so the file chooser will use it. + +/Since: 2.4/ +-} +fileChooserSetUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@uri@/: the URI to set as current -} + -> m Bool + {- ^ __Returns:__ Not useful. -} +fileChooserSetUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + result <- gtk_file_chooser_set_uri chooser' uri' + let result' = (/= 0) result + touchManagedPtr chooser + freeMem uri' + return result' + +#if ENABLE_OVERLOADING +data FileChooserSetUriMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetUriMethodInfo a signature where + overloadedMethod _ = fileChooserSetUri + +#endif + +-- method FileChooser::set_use_preview_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to display a stock label with the name of the previewed file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_use_preview_label" gtk_file_chooser_set_use_preview_label :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CInt -> -- use_label : TBasicType TBoolean + IO () + +{- | +Sets whether the file chooser should display a stock label with the name of +the file that is being previewed; the default is 'True'. Applications that +want to draw the whole preview area themselves should set this to 'False' and +display the name themselves in their preview widget. + +See also: 'GI.Gtk.Interfaces.FileChooser.fileChooserSetPreviewWidget' + +/Since: 2.4/ +-} +fileChooserSetUsePreviewLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> Bool + {- ^ /@useLabel@/: whether to display a stock label with the name of the previewed file -} + -> m () +fileChooserSetUsePreviewLabel chooser useLabel = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let useLabel' = (fromIntegral . fromEnum) useLabel + gtk_file_chooser_set_use_preview_label chooser' useLabel' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserSetUsePreviewLabelMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserSetUsePreviewLabelMethodInfo a signature where + overloadedMethod _ = fileChooserSetUsePreviewLabel + +#endif + +-- method FileChooser::unselect_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_all" gtk_file_chooser_unselect_all :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + IO () + +{- | +Unselects all the files in the current folder of a file chooser. + +/Since: 2.4/ +-} +fileChooserUnselectAll :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> m () +fileChooserUnselectAll chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + gtk_file_chooser_unselect_all chooser' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data FileChooserUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserUnselectAllMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectAll + +#endif + +-- method FileChooser::unselect_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_file" gtk_file_chooser_unselect_file :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + Ptr Gio.File.File -> -- file : TInterface (Name {namespace = "Gio", name = "File"}) + IO () + +{- | +Unselects the file referred to by /@file@/. If the file is not in the current +directory, does not exist, or is otherwise not currently selected, does nothing. + +/Since: 2.14/ +-} +fileChooserUnselectFile :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a, Gio.File.IsFile b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> b + {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -} + -> m () +fileChooserUnselectFile chooser file = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + file' <- unsafeManagedPtrCastPtr file + gtk_file_chooser_unselect_file chooser' file' + touchManagedPtr chooser + touchManagedPtr file + return () + +#if ENABLE_OVERLOADING +data FileChooserUnselectFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsFileChooser a, Gio.File.IsFile b) => O.MethodInfo FileChooserUnselectFileMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectFile + +#endif + +-- method FileChooser::unselect_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename to unselect", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_filename" gtk_file_chooser_unselect_filename :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- filename : TBasicType TFileName + IO () + +{- | +Unselects a currently selected filename. If the filename +is not in the current directory, does not exist, or +is otherwise not currently selected, does nothing. + +/Since: 2.4/ +-} +fileChooserUnselectFilename :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> [Char] + {- ^ /@filename@/: the filename to unselect -} + -> m () +fileChooserUnselectFilename chooser filename = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filename' <- stringToCString filename + gtk_file_chooser_unselect_filename chooser' filename' + touchManagedPtr chooser + freeMem filename' + return () + +#if ENABLE_OVERLOADING +data FileChooserUnselectFilenameMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserUnselectFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectFilename + +#endif + +-- method FileChooser::unselect_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "FileChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFileChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to unselect", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_uri" gtk_file_chooser_unselect_uri :: + Ptr FileChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "FileChooser"}) + CString -> -- uri : TBasicType TUTF8 + IO () + +{- | +Unselects the file referred to by /@uri@/. If the file +is not in the current directory, does not exist, or +is otherwise not currently selected, does nothing. + +/Since: 2.4/ +-} +fileChooserUnselectUri :: + (B.CallStack.HasCallStack, MonadIO m, IsFileChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.FileChooser.FileChooser' -} + -> T.Text + {- ^ /@uri@/: the URI to unselect -} + -> m () +fileChooserUnselectUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + gtk_file_chooser_unselect_uri chooser' uri' + touchManagedPtr chooser + freeMem uri' + return () + +#if ENABLE_OVERLOADING +data FileChooserUnselectUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileChooser a) => O.MethodInfo FileChooserUnselectUriMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectUri + +#endif + + diff --git a/GI/Gtk/Interfaces/FileChooser.hs-boot b/GI/Gtk/Interfaces/FileChooser.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/FileChooser.hs-boot @@ -0,0 +1,266 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.FileChooser where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype FileChooser = FileChooser (ManagedPtr FileChooser) +#if ENABLE_OVERLOADING +data FileChooserConfirmOverwriteSignalInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserCurrentFolderChangedSignalInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserFileActivatedSignalInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSelectionChangedSignalInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserUpdatePreviewSignalInfo +#endif +instance GObject FileChooser where +class (GObject o, O.IsDescendantOf FileChooser o) => IsFileChooser o +instance (GObject o, O.IsDescendantOf FileChooser o) => IsFileChooser o +instance O.HasParentTypes FileChooser +#if ENABLE_OVERLOADING +data FileChooserActionPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserCreateFoldersPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserDoOverwriteConfirmationPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserExtraWidgetPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserFilterPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserLocalOnlyPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserPreviewWidgetPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserPreviewWidgetActivePropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSelectMultiplePropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserShowHiddenPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserUsePreviewLabelPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserAddChoiceMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserAddFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserAddShortcutFolderMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserAddShortcutFolderUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetChoiceMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetCreateFoldersMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetCurrentFolderMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetCurrentFolderFileMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetCurrentFolderUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetCurrentNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetDoOverwriteConfirmationMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetExtraWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetFileMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetFilenameMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetFilenamesMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetFilesMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetLocalOnlyMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetPreviewFileMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetPreviewFilenameMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetPreviewUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetPreviewWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetPreviewWidgetActiveMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetSelectMultipleMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetShowHiddenMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetUrisMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserGetUsePreviewLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserListFiltersMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserListShortcutFolderUrisMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserListShortcutFoldersMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserRemoveChoiceMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserRemoveFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserRemoveShortcutFolderMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserRemoveShortcutFolderUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSelectAllMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSelectFileMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSelectFilenameMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSelectUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetChoiceMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetCreateFoldersMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetCurrentFolderMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetCurrentFolderFileMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetCurrentFolderUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetCurrentNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetDoOverwriteConfirmationMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetExtraWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetFileMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetFilenameMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetLocalOnlyMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetPreviewWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetPreviewWidgetActiveMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetSelectMultipleMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetShowHiddenMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserSetUsePreviewLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserUnselectAllMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserUnselectFileMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserUnselectFilenameMethodInfo +#endif +#if ENABLE_OVERLOADING +data FileChooserUnselectUriMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/FontChooser.hs b/GI/Gtk/Interfaces/FontChooser.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/FontChooser.hs @@ -0,0 +1,1667 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.FontChooser.FontChooser' is an interface that can be implemented by widgets +displaying the list of fonts. In GTK+, the main objects +that implement this interface are 'GI.Gtk.Objects.FontChooserWidget.FontChooserWidget', +'GI.Gtk.Objects.FontChooserDialog.FontChooserDialog' and 'GI.Gtk.Objects.FontButton.FontButton'. The GtkFontChooser interface +has been introducted in GTK+ 3.2. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.FontChooser + ( + +-- * Exported types + FontChooser(..) , + noFontChooser , + IsFontChooser , + toFontChooser , + + + -- * Methods +-- ** getFont #method:getFont# + +#if ENABLE_OVERLOADING + FontChooserGetFontMethodInfo , +#endif + fontChooserGetFont , + + +-- ** getFontDesc #method:getFontDesc# + +#if ENABLE_OVERLOADING + FontChooserGetFontDescMethodInfo , +#endif + fontChooserGetFontDesc , + + +-- ** getFontFace #method:getFontFace# + +#if ENABLE_OVERLOADING + FontChooserGetFontFaceMethodInfo , +#endif + fontChooserGetFontFace , + + +-- ** getFontFamily #method:getFontFamily# + +#if ENABLE_OVERLOADING + FontChooserGetFontFamilyMethodInfo , +#endif + fontChooserGetFontFamily , + + +-- ** getFontFeatures #method:getFontFeatures# + +#if ENABLE_OVERLOADING + FontChooserGetFontFeaturesMethodInfo , +#endif + fontChooserGetFontFeatures , + + +-- ** getFontMap #method:getFontMap# + +#if ENABLE_OVERLOADING + FontChooserGetFontMapMethodInfo , +#endif + fontChooserGetFontMap , + + +-- ** getFontSize #method:getFontSize# + +#if ENABLE_OVERLOADING + FontChooserGetFontSizeMethodInfo , +#endif + fontChooserGetFontSize , + + +-- ** getLanguage #method:getLanguage# + +#if ENABLE_OVERLOADING + FontChooserGetLanguageMethodInfo , +#endif + fontChooserGetLanguage , + + +-- ** getLevel #method:getLevel# + +#if ENABLE_OVERLOADING + FontChooserGetLevelMethodInfo , +#endif + fontChooserGetLevel , + + +-- ** getPreviewText #method:getPreviewText# + +#if ENABLE_OVERLOADING + FontChooserGetPreviewTextMethodInfo , +#endif + fontChooserGetPreviewText , + + +-- ** getShowPreviewEntry #method:getShowPreviewEntry# + +#if ENABLE_OVERLOADING + FontChooserGetShowPreviewEntryMethodInfo, +#endif + fontChooserGetShowPreviewEntry , + + +-- ** setFilterFunc #method:setFilterFunc# + +#if ENABLE_OVERLOADING + FontChooserSetFilterFuncMethodInfo , +#endif + fontChooserSetFilterFunc , + + +-- ** setFont #method:setFont# + +#if ENABLE_OVERLOADING + FontChooserSetFontMethodInfo , +#endif + fontChooserSetFont , + + +-- ** setFontDesc #method:setFontDesc# + +#if ENABLE_OVERLOADING + FontChooserSetFontDescMethodInfo , +#endif + fontChooserSetFontDesc , + + +-- ** setFontMap #method:setFontMap# + +#if ENABLE_OVERLOADING + FontChooserSetFontMapMethodInfo , +#endif + fontChooserSetFontMap , + + +-- ** setLanguage #method:setLanguage# + +#if ENABLE_OVERLOADING + FontChooserSetLanguageMethodInfo , +#endif + fontChooserSetLanguage , + + +-- ** setLevel #method:setLevel# + +#if ENABLE_OVERLOADING + FontChooserSetLevelMethodInfo , +#endif + fontChooserSetLevel , + + +-- ** setPreviewText #method:setPreviewText# + +#if ENABLE_OVERLOADING + FontChooserSetPreviewTextMethodInfo , +#endif + fontChooserSetPreviewText , + + +-- ** setShowPreviewEntry #method:setShowPreviewEntry# + +#if ENABLE_OVERLOADING + FontChooserSetShowPreviewEntryMethodInfo, +#endif + fontChooserSetShowPreviewEntry , + + + + + -- * Properties +-- ** font #attr:font# +{- | The font description as a string, e.g. \"Sans Italic 12\". +-} +#if ENABLE_OVERLOADING + FontChooserFontPropertyInfo , +#endif + constructFontChooserFont , +#if ENABLE_OVERLOADING + fontChooserFont , +#endif + getFontChooserFont , + setFontChooserFont , + + +-- ** fontDesc #attr:fontDesc# +{- | The font description as a 'GI.Pango.Structs.FontDescription.FontDescription'. +-} +#if ENABLE_OVERLOADING + FontChooserFontDescPropertyInfo , +#endif + constructFontChooserFontDesc , +#if ENABLE_OVERLOADING + fontChooserFontDesc , +#endif + getFontChooserFontDesc , + setFontChooserFontDesc , + + +-- ** fontFeatures #attr:fontFeatures# +{- | The selected font features, in a format that is compatible with +CSS and with Pango attributes. + +/Since: 3.22.30/ +-} +#if ENABLE_OVERLOADING + FontChooserFontFeaturesPropertyInfo , +#endif +#if ENABLE_OVERLOADING + fontChooserFontFeatures , +#endif + getFontChooserFontFeatures , + + +-- ** language #attr:language# +{- | The language for which the 'GI.Gtk.Interfaces.FontChooser.FontChooser':@/font-features/@ were +selected, in a format that is compatible with CSS and with Pango +attributes. + +/Since: 3.22.30/ +-} +#if ENABLE_OVERLOADING + FontChooserLanguagePropertyInfo , +#endif + constructFontChooserLanguage , +#if ENABLE_OVERLOADING + fontChooserLanguage , +#endif + getFontChooserLanguage , + setFontChooserLanguage , + + +-- ** level #attr:level# +{- | The level of granularity to offer for selecting fonts. + +/Since: 3.22.30/ +-} +#if ENABLE_OVERLOADING + FontChooserLevelPropertyInfo , +#endif + constructFontChooserLevel , +#if ENABLE_OVERLOADING + fontChooserLevel , +#endif + getFontChooserLevel , + setFontChooserLevel , + + +-- ** previewText #attr:previewText# +{- | The string with which to preview the font. +-} +#if ENABLE_OVERLOADING + FontChooserPreviewTextPropertyInfo , +#endif + constructFontChooserPreviewText , +#if ENABLE_OVERLOADING + fontChooserPreviewText , +#endif + getFontChooserPreviewText , + setFontChooserPreviewText , + + +-- ** showPreviewEntry #attr:showPreviewEntry# +{- | Whether to show an entry to change the preview text. +-} +#if ENABLE_OVERLOADING + FontChooserShowPreviewEntryPropertyInfo , +#endif + constructFontChooserShowPreviewEntry , +#if ENABLE_OVERLOADING + fontChooserShowPreviewEntry , +#endif + getFontChooserShowPreviewEntry , + setFontChooserShowPreviewEntry , + + + + + -- * Signals +-- ** fontActivated #signal:fontActivated# + + C_FontChooserFontActivatedCallback , + FontChooserFontActivatedCallback , +#if ENABLE_OVERLOADING + FontChooserFontActivatedSignalInfo , +#endif + afterFontChooserFontActivated , + genClosure_FontChooserFontActivated , + mk_FontChooserFontActivatedCallback , + noFontChooserFontActivatedCallback , + onFontChooserFontActivated , + wrap_FontChooserFontActivatedCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Callbacks as GLib.Callbacks +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags +import qualified GI.Pango.Objects.FontFace as Pango.FontFace +import qualified GI.Pango.Objects.FontFamily as Pango.FontFamily +import qualified GI.Pango.Objects.FontMap as Pango.FontMap +import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription + +-- interface FontChooser +-- | Memory-managed wrapper type. +newtype FontChooser = FontChooser (ManagedPtr FontChooser) +-- | A convenience alias for `Nothing` :: `Maybe` `FontChooser`. +noFontChooser :: Maybe FontChooser +noFontChooser = Nothing + +-- signal FontChooser::font-activated +{- | +Emitted when a font is activated. +This usually happens when the user double clicks an item, +or an item is selected and the user presses one of the keys +Space, Shift+Space, Return or Enter. +-} +type FontChooserFontActivatedCallback = + T.Text + {- ^ /@fontname@/: the font name -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `FontChooserFontActivatedCallback`@. +noFontChooserFontActivatedCallback :: Maybe FontChooserFontActivatedCallback +noFontChooserFontActivatedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_FontChooserFontActivatedCallback = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_FontChooserFontActivatedCallback`. +foreign import ccall "wrapper" + mk_FontChooserFontActivatedCallback :: C_FontChooserFontActivatedCallback -> IO (FunPtr C_FontChooserFontActivatedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_FontChooserFontActivated :: MonadIO m => FontChooserFontActivatedCallback -> m (GClosure C_FontChooserFontActivatedCallback) +genClosure_FontChooserFontActivated cb = liftIO $ do + let cb' = wrap_FontChooserFontActivatedCallback cb + mk_FontChooserFontActivatedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `FontChooserFontActivatedCallback` into a `C_FontChooserFontActivatedCallback`. +wrap_FontChooserFontActivatedCallback :: + FontChooserFontActivatedCallback -> + C_FontChooserFontActivatedCallback +wrap_FontChooserFontActivatedCallback _cb _ fontname _ = do + fontname' <- cstringToText fontname + _cb fontname' + + +{- | +Connect a signal handler for the “@font-activated@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' fontChooser #fontActivated callback +@ +-} +onFontChooserFontActivated :: (IsFontChooser a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId +onFontChooserFontActivated obj cb = liftIO $ do + let cb' = wrap_FontChooserFontActivatedCallback cb + cb'' <- mk_FontChooserFontActivatedCallback cb' + connectSignalFunPtr obj "font-activated" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@font-activated@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' fontChooser #fontActivated callback +@ +-} +afterFontChooserFontActivated :: (IsFontChooser a, MonadIO m) => a -> FontChooserFontActivatedCallback -> m SignalHandlerId +afterFontChooserFontActivated obj cb = liftIO $ do + let cb' = wrap_FontChooserFontActivatedCallback cb + cb'' <- mk_FontChooserFontActivatedCallback cb' + connectSignalFunPtr obj "font-activated" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data FontChooserFontActivatedSignalInfo +instance SignalInfo FontChooserFontActivatedSignalInfo where + type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_FontChooserFontActivatedCallback cb + cb'' <- mk_FontChooserFontActivatedCallback cb' + connectSignalFunPtr obj "font-activated" cb'' connectMode + +type instance O.SignalList FontChooser = FontChooserSignalList +type FontChooserSignalList = ('[ '("fontActivated", FontChooserFontActivatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_font_chooser_get_type" + c_gtk_font_chooser_get_type :: IO GType + +instance GObject FontChooser where + gobjectType = c_gtk_font_chooser_get_type + + +-- | Type class for types which can be safely cast to `FontChooser`, for instance with `toFontChooser`. +class (GObject o, O.IsDescendantOf FontChooser o) => IsFontChooser o +instance (GObject o, O.IsDescendantOf FontChooser o) => IsFontChooser o + +instance O.HasParentTypes FontChooser +type instance O.ParentTypes FontChooser = '[GObject.Object.Object] + +-- | Cast to `FontChooser`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toFontChooser :: (MonadIO m, IsFontChooser o) => o -> m FontChooser +toFontChooser = liftIO . unsafeCastTo FontChooser + +-- VVV Prop "font" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) + +{- | +Get the value of the “@font@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fontChooser #font +@ +-} +getFontChooserFont :: (MonadIO m, IsFontChooser o) => o -> m (Maybe T.Text) +getFontChooserFont obj = liftIO $ B.Properties.getObjectPropertyString obj "font" + +{- | +Set the value of the “@font@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fontChooser [ #font 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFontChooserFont :: (MonadIO m, IsFontChooser o) => o -> T.Text -> m () +setFontChooserFont obj val = liftIO $ B.Properties.setObjectPropertyString obj "font" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@font@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFontChooserFont :: (IsFontChooser o) => T.Text -> IO (GValueConstruct o) +constructFontChooserFont val = B.Properties.constructObjectPropertyString "font" (Just val) + +#if ENABLE_OVERLOADING +data FontChooserFontPropertyInfo +instance AttrInfo FontChooserFontPropertyInfo where + type AttrAllowedOps FontChooserFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontChooserFontPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FontChooserFontPropertyInfo = IsFontChooser + type AttrGetType FontChooserFontPropertyInfo = (Maybe T.Text) + type AttrLabel FontChooserFontPropertyInfo = "font" + type AttrOrigin FontChooserFontPropertyInfo = FontChooser + attrGet _ = getFontChooserFont + attrSet _ = setFontChooserFont + attrConstruct _ = constructFontChooserFont + attrClear _ = undefined +#endif + +-- VVV Prop "font-desc" + -- Type: TInterface (Name {namespace = "Pango", name = "FontDescription"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) + +{- | +Get the value of the “@font-desc@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fontChooser #fontDesc +@ +-} +getFontChooserFontDesc :: (MonadIO m, IsFontChooser o) => o -> m (Maybe Pango.FontDescription.FontDescription) +getFontChooserFontDesc obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "font-desc" Pango.FontDescription.FontDescription + +{- | +Set the value of the “@font-desc@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fontChooser [ #fontDesc 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFontChooserFontDesc :: (MonadIO m, IsFontChooser o) => o -> Pango.FontDescription.FontDescription -> m () +setFontChooserFontDesc obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "font-desc" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@font-desc@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFontChooserFontDesc :: (IsFontChooser o) => Pango.FontDescription.FontDescription -> IO (GValueConstruct o) +constructFontChooserFontDesc val = B.Properties.constructObjectPropertyBoxed "font-desc" (Just val) + +#if ENABLE_OVERLOADING +data FontChooserFontDescPropertyInfo +instance AttrInfo FontChooserFontDescPropertyInfo where + type AttrAllowedOps FontChooserFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontChooserFontDescPropertyInfo = (~) Pango.FontDescription.FontDescription + type AttrBaseTypeConstraint FontChooserFontDescPropertyInfo = IsFontChooser + type AttrGetType FontChooserFontDescPropertyInfo = (Maybe Pango.FontDescription.FontDescription) + type AttrLabel FontChooserFontDescPropertyInfo = "font-desc" + type AttrOrigin FontChooserFontDescPropertyInfo = FontChooser + attrGet _ = getFontChooserFontDesc + attrSet _ = setFontChooserFontDesc + attrConstruct _ = constructFontChooserFontDesc + attrClear _ = undefined +#endif + +-- VVV Prop "font-features" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@font-features@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fontChooser #fontFeatures +@ +-} +getFontChooserFontFeatures :: (MonadIO m, IsFontChooser o) => o -> m (Maybe T.Text) +getFontChooserFontFeatures obj = liftIO $ B.Properties.getObjectPropertyString obj "font-features" + +#if ENABLE_OVERLOADING +data FontChooserFontFeaturesPropertyInfo +instance AttrInfo FontChooserFontFeaturesPropertyInfo where + type AttrAllowedOps FontChooserFontFeaturesPropertyInfo = '[ 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint FontChooserFontFeaturesPropertyInfo = (~) () + type AttrBaseTypeConstraint FontChooserFontFeaturesPropertyInfo = IsFontChooser + type AttrGetType FontChooserFontFeaturesPropertyInfo = (Maybe T.Text) + type AttrLabel FontChooserFontFeaturesPropertyInfo = "font-features" + type AttrOrigin FontChooserFontFeaturesPropertyInfo = FontChooser + attrGet _ = getFontChooserFontFeatures + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined +#endif + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) + +{- | +Get the value of the “@language@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fontChooser #language +@ +-} +getFontChooserLanguage :: (MonadIO m, IsFontChooser o) => o -> m (Maybe T.Text) +getFontChooserLanguage obj = liftIO $ B.Properties.getObjectPropertyString obj "language" + +{- | +Set the value of the “@language@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fontChooser [ #language 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFontChooserLanguage :: (MonadIO m, IsFontChooser o) => o -> T.Text -> m () +setFontChooserLanguage obj val = liftIO $ B.Properties.setObjectPropertyString obj "language" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@language@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFontChooserLanguage :: (IsFontChooser o) => T.Text -> IO (GValueConstruct o) +constructFontChooserLanguage val = B.Properties.constructObjectPropertyString "language" (Just val) + +#if ENABLE_OVERLOADING +data FontChooserLanguagePropertyInfo +instance AttrInfo FontChooserLanguagePropertyInfo where + type AttrAllowedOps FontChooserLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontChooserLanguagePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FontChooserLanguagePropertyInfo = IsFontChooser + type AttrGetType FontChooserLanguagePropertyInfo = (Maybe T.Text) + type AttrLabel FontChooserLanguagePropertyInfo = "language" + type AttrOrigin FontChooserLanguagePropertyInfo = FontChooser + attrGet _ = getFontChooserLanguage + attrSet _ = setFontChooserLanguage + attrConstruct _ = constructFontChooserLanguage + attrClear _ = undefined +#endif + +-- VVV Prop "level" + -- Type: TInterface (Name {namespace = "Gtk", name = "FontChooserLevel"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@level@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fontChooser #level +@ +-} +getFontChooserLevel :: (MonadIO m, IsFontChooser o) => o -> m [Gtk.Flags.FontChooserLevel] +getFontChooserLevel obj = liftIO $ B.Properties.getObjectPropertyFlags obj "level" + +{- | +Set the value of the “@level@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fontChooser [ #level 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFontChooserLevel :: (MonadIO m, IsFontChooser o) => o -> [Gtk.Flags.FontChooserLevel] -> m () +setFontChooserLevel obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "level" val + +{- | +Construct a `GValueConstruct` with valid value for the “@level@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFontChooserLevel :: (IsFontChooser o) => [Gtk.Flags.FontChooserLevel] -> IO (GValueConstruct o) +constructFontChooserLevel val = B.Properties.constructObjectPropertyFlags "level" val + +#if ENABLE_OVERLOADING +data FontChooserLevelPropertyInfo +instance AttrInfo FontChooserLevelPropertyInfo where + type AttrAllowedOps FontChooserLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontChooserLevelPropertyInfo = (~) [Gtk.Flags.FontChooserLevel] + type AttrBaseTypeConstraint FontChooserLevelPropertyInfo = IsFontChooser + type AttrGetType FontChooserLevelPropertyInfo = [Gtk.Flags.FontChooserLevel] + type AttrLabel FontChooserLevelPropertyInfo = "level" + type AttrOrigin FontChooserLevelPropertyInfo = FontChooser + attrGet _ = getFontChooserLevel + attrSet _ = setFontChooserLevel + attrConstruct _ = constructFontChooserLevel + attrClear _ = undefined +#endif + +-- VVV Prop "preview-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) + +{- | +Get the value of the “@preview-text@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fontChooser #previewText +@ +-} +getFontChooserPreviewText :: (MonadIO m, IsFontChooser o) => o -> m (Maybe T.Text) +getFontChooserPreviewText obj = liftIO $ B.Properties.getObjectPropertyString obj "preview-text" + +{- | +Set the value of the “@preview-text@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fontChooser [ #previewText 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFontChooserPreviewText :: (MonadIO m, IsFontChooser o) => o -> T.Text -> m () +setFontChooserPreviewText obj val = liftIO $ B.Properties.setObjectPropertyString obj "preview-text" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@preview-text@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFontChooserPreviewText :: (IsFontChooser o) => T.Text -> IO (GValueConstruct o) +constructFontChooserPreviewText val = B.Properties.constructObjectPropertyString "preview-text" (Just val) + +#if ENABLE_OVERLOADING +data FontChooserPreviewTextPropertyInfo +instance AttrInfo FontChooserPreviewTextPropertyInfo where + type AttrAllowedOps FontChooserPreviewTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontChooserPreviewTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FontChooserPreviewTextPropertyInfo = IsFontChooser + type AttrGetType FontChooserPreviewTextPropertyInfo = (Maybe T.Text) + type AttrLabel FontChooserPreviewTextPropertyInfo = "preview-text" + type AttrOrigin FontChooserPreviewTextPropertyInfo = FontChooser + attrGet _ = getFontChooserPreviewText + attrSet _ = setFontChooserPreviewText + attrConstruct _ = constructFontChooserPreviewText + attrClear _ = undefined +#endif + +-- VVV Prop "show-preview-entry" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-preview-entry@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' fontChooser #showPreviewEntry +@ +-} +getFontChooserShowPreviewEntry :: (MonadIO m, IsFontChooser o) => o -> m Bool +getFontChooserShowPreviewEntry obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-preview-entry" + +{- | +Set the value of the “@show-preview-entry@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' fontChooser [ #showPreviewEntry 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setFontChooserShowPreviewEntry :: (MonadIO m, IsFontChooser o) => o -> Bool -> m () +setFontChooserShowPreviewEntry obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-preview-entry" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-preview-entry@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructFontChooserShowPreviewEntry :: (IsFontChooser o) => Bool -> IO (GValueConstruct o) +constructFontChooserShowPreviewEntry val = B.Properties.constructObjectPropertyBool "show-preview-entry" val + +#if ENABLE_OVERLOADING +data FontChooserShowPreviewEntryPropertyInfo +instance AttrInfo FontChooserShowPreviewEntryPropertyInfo where + type AttrAllowedOps FontChooserShowPreviewEntryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontChooserShowPreviewEntryPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FontChooserShowPreviewEntryPropertyInfo = IsFontChooser + type AttrGetType FontChooserShowPreviewEntryPropertyInfo = Bool + type AttrLabel FontChooserShowPreviewEntryPropertyInfo = "show-preview-entry" + type AttrOrigin FontChooserShowPreviewEntryPropertyInfo = FontChooser + attrGet _ = getFontChooserShowPreviewEntry + attrSet _ = setFontChooserShowPreviewEntry + attrConstruct _ = constructFontChooserShowPreviewEntry + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList FontChooser +type instance O.AttributeList FontChooser = FontChooserAttributeList +type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("fontFeatures", FontChooserFontFeaturesPropertyInfo), '("language", FontChooserLanguagePropertyInfo), '("level", FontChooserLevelPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +fontChooserFont :: AttrLabelProxy "font" +fontChooserFont = AttrLabelProxy + +fontChooserFontDesc :: AttrLabelProxy "fontDesc" +fontChooserFontDesc = AttrLabelProxy + +fontChooserFontFeatures :: AttrLabelProxy "fontFeatures" +fontChooserFontFeatures = AttrLabelProxy + +fontChooserLanguage :: AttrLabelProxy "language" +fontChooserLanguage = AttrLabelProxy + +fontChooserLevel :: AttrLabelProxy "level" +fontChooserLevel = AttrLabelProxy + +fontChooserPreviewText :: AttrLabelProxy "previewText" +fontChooserPreviewText = AttrLabelProxy + +fontChooserShowPreviewEntry :: AttrLabelProxy "showPreviewEntry" +fontChooserShowPreviewEntry = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveFontChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveFontChooserMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveFontChooserMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveFontChooserMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveFontChooserMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveFontChooserMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveFontChooserMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveFontChooserMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveFontChooserMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveFontChooserMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveFontChooserMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveFontChooserMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveFontChooserMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveFontChooserMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveFontChooserMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveFontChooserMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveFontChooserMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveFontChooserMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveFontChooserMethod "getFont" o = FontChooserGetFontMethodInfo + ResolveFontChooserMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo + ResolveFontChooserMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo + ResolveFontChooserMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo + ResolveFontChooserMethod "getFontFeatures" o = FontChooserGetFontFeaturesMethodInfo + ResolveFontChooserMethod "getFontMap" o = FontChooserGetFontMapMethodInfo + ResolveFontChooserMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo + ResolveFontChooserMethod "getLanguage" o = FontChooserGetLanguageMethodInfo + ResolveFontChooserMethod "getLevel" o = FontChooserGetLevelMethodInfo + ResolveFontChooserMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo + ResolveFontChooserMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveFontChooserMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveFontChooserMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo + ResolveFontChooserMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveFontChooserMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo + ResolveFontChooserMethod "setFont" o = FontChooserSetFontMethodInfo + ResolveFontChooserMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo + ResolveFontChooserMethod "setFontMap" o = FontChooserSetFontMapMethodInfo + ResolveFontChooserMethod "setLanguage" o = FontChooserSetLanguageMethodInfo + ResolveFontChooserMethod "setLevel" o = FontChooserSetLevelMethodInfo + ResolveFontChooserMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo + ResolveFontChooserMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveFontChooserMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo + ResolveFontChooserMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveFontChooserMethod t FontChooser, O.MethodInfo info FontChooser p) => OL.IsLabel t (FontChooser -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method FontChooser::get_font +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_font" gtk_font_chooser_get_font :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO CString + +{- | +Gets the currently-selected font name. + +Note that this can be a different string than what you set with +'GI.Gtk.Interfaces.FontChooser.fontChooserSetFont', as the font chooser widget may +normalize font names and thus return a string with a different +structure. For example, “Helvetica Italic Bold 12” could be +normalized to “Helvetica Bold Italic 12”. + +Use 'GI.Pango.Structs.FontDescription.fontDescriptionEqual' if you want to compare two +font descriptions. + +/Since: 3.2/ +-} +fontChooserGetFont :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m (Maybe T.Text) + {- ^ __Returns:__ A string with the name + of the current font, or 'Nothing' if no font is selected. You must + free this string with 'GI.GLib.Functions.free'. -} +fontChooserGetFont fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_font fontchooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' + touchManagedPtr fontchooser + return maybeResult + +#if ENABLE_OVERLOADING +data FontChooserGetFontMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetFontMethodInfo a signature where + overloadedMethod _ = fontChooserGetFont + +#endif + +-- method FontChooser::get_font_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Pango", name = "FontDescription"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_font_desc" gtk_font_chooser_get_font_desc :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO (Ptr Pango.FontDescription.FontDescription) + +{- | +Gets the currently-selected font. + +Note that this can be a different string than what you set with +'GI.Gtk.Interfaces.FontChooser.fontChooserSetFont', as the font chooser widget may +normalize font names and thus return a string with a different +structure. For example, “Helvetica Italic Bold 12” could be +normalized to “Helvetica Bold Italic 12”. + +Use 'GI.Pango.Structs.FontDescription.fontDescriptionEqual' if you want to compare two +font descriptions. + +/Since: 3.2/ +-} +fontChooserGetFontDesc :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m (Maybe Pango.FontDescription.FontDescription) + {- ^ __Returns:__ A 'GI.Pango.Structs.FontDescription.FontDescription' for the + current font, or 'Nothing' if no font is selected. -} +fontChooserGetFontDesc fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_font_desc fontchooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed Pango.FontDescription.FontDescription) result' + return result'' + touchManagedPtr fontchooser + return maybeResult + +#if ENABLE_OVERLOADING +data FontChooserGetFontDescMethodInfo +instance (signature ~ (m (Maybe Pango.FontDescription.FontDescription)), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetFontDescMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontDesc + +#endif + +-- method FontChooser::get_font_face +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Pango", name = "FontFace"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_font_face" gtk_font_chooser_get_font_face :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO (Ptr Pango.FontFace.FontFace) + +{- | +Gets the 'GI.Pango.Objects.FontFace.FontFace' representing the selected font group +details (i.e. family, slant, weight, width, etc). + +If the selected font is not installed, returns 'Nothing'. + +/Since: 3.2/ +-} +fontChooserGetFontFace :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m (Maybe Pango.FontFace.FontFace) + {- ^ __Returns:__ A 'GI.Pango.Objects.FontFace.FontFace' representing the + selected font group details, or 'Nothing'. The returned object is owned by + /@fontchooser@/ and must not be modified or freed. -} +fontChooserGetFontFace fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_font_face fontchooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Pango.FontFace.FontFace) result' + return result'' + touchManagedPtr fontchooser + return maybeResult + +#if ENABLE_OVERLOADING +data FontChooserGetFontFaceMethodInfo +instance (signature ~ (m (Maybe Pango.FontFace.FontFace)), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetFontFaceMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontFace + +#endif + +-- method FontChooser::get_font_family +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Pango", name = "FontFamily"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_font_family" gtk_font_chooser_get_font_family :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO (Ptr Pango.FontFamily.FontFamily) + +{- | +Gets the 'GI.Pango.Objects.FontFamily.FontFamily' representing the selected font family. +Font families are a collection of font faces. + +If the selected font is not installed, returns 'Nothing'. + +/Since: 3.2/ +-} +fontChooserGetFontFamily :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m (Maybe Pango.FontFamily.FontFamily) + {- ^ __Returns:__ A 'GI.Pango.Objects.FontFamily.FontFamily' representing the + selected font family, or 'Nothing'. The returned object is owned by /@fontchooser@/ + and must not be modified or freed. -} +fontChooserGetFontFamily fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_font_family fontchooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Pango.FontFamily.FontFamily) result' + return result'' + touchManagedPtr fontchooser + return maybeResult + +#if ENABLE_OVERLOADING +data FontChooserGetFontFamilyMethodInfo +instance (signature ~ (m (Maybe Pango.FontFamily.FontFamily)), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetFontFamilyMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontFamily + +#endif + +-- method FontChooser::get_font_features +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_font_features" gtk_font_chooser_get_font_features :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO CString + +{- | +Gets the currently-selected font features. + +/Since: 3.24/ +-} +fontChooserGetFontFeatures :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m T.Text + {- ^ __Returns:__ the currently selected font features -} +fontChooserGetFontFeatures fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_font_features fontchooser' + checkUnexpectedReturnNULL "fontChooserGetFontFeatures" result + result' <- cstringToText result + freeMem result + touchManagedPtr fontchooser + return result' + +#if ENABLE_OVERLOADING +data FontChooserGetFontFeaturesMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetFontFeaturesMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontFeatures + +#endif + +-- method FontChooser::get_font_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Pango", name = "FontMap"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_font_map" gtk_font_chooser_get_font_map :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO (Ptr Pango.FontMap.FontMap) + +{- | +Gets the custom font map of this font chooser widget, +or 'Nothing' if it does not have one. + +/Since: 3.18/ +-} +fontChooserGetFontMap :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m (Maybe Pango.FontMap.FontMap) + {- ^ __Returns:__ a 'GI.Pango.Objects.FontMap.FontMap', or 'Nothing' -} +fontChooserGetFontMap fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_font_map fontchooser' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject Pango.FontMap.FontMap) result' + return result'' + touchManagedPtr fontchooser + return maybeResult + +#if ENABLE_OVERLOADING +data FontChooserGetFontMapMethodInfo +instance (signature ~ (m (Maybe Pango.FontMap.FontMap)), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetFontMapMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontMap + +#endif + +-- method FontChooser::get_font_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_font_size" gtk_font_chooser_get_font_size :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO Int32 + +{- | +The selected font size. + +/Since: 3.2/ +-} +fontChooserGetFontSize :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m Int32 + {- ^ __Returns:__ A n integer representing the selected font size, + or -1 if no font size is selected. -} +fontChooserGetFontSize fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_font_size fontchooser' + touchManagedPtr fontchooser + return result + +#if ENABLE_OVERLOADING +data FontChooserGetFontSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetFontSizeMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontSize + +#endif + +-- method FontChooser::get_language +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_language" gtk_font_chooser_get_language :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO CString + +{- | +Gets the language that is used for font features. + +/Since: 3.24/ +-} +fontChooserGetLanguage :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m T.Text + {- ^ __Returns:__ the currently selected language -} +fontChooserGetLanguage fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_language fontchooser' + checkUnexpectedReturnNULL "fontChooserGetLanguage" result + result' <- cstringToText result + freeMem result + touchManagedPtr fontchooser + return result' + +#if ENABLE_OVERLOADING +data FontChooserGetLanguageMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetLanguageMethodInfo a signature where + overloadedMethod _ = fontChooserGetLanguage + +#endif + +-- method FontChooser::get_level +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "FontChooserLevel"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_level" gtk_font_chooser_get_level :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO CUInt + +{- | +Returns the current level of granularity for selecting fonts. + +/Since: 3.24/ +-} +fontChooserGetLevel :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m [Gtk.Flags.FontChooserLevel] + {- ^ __Returns:__ the current granularity level -} +fontChooserGetLevel fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_level fontchooser' + let result' = wordToGFlags result + touchManagedPtr fontchooser + return result' + +#if ENABLE_OVERLOADING +data FontChooserGetLevelMethodInfo +instance (signature ~ (m [Gtk.Flags.FontChooserLevel]), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetLevelMethodInfo a signature where + overloadedMethod _ = fontChooserGetLevel + +#endif + +-- method FontChooser::get_preview_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_preview_text" gtk_font_chooser_get_preview_text :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO CString + +{- | +Gets the text displayed in the preview area. + +/Since: 3.2/ +-} +fontChooserGetPreviewText :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m T.Text + {- ^ __Returns:__ the text displayed in the + preview area -} +fontChooserGetPreviewText fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_preview_text fontchooser' + checkUnexpectedReturnNULL "fontChooserGetPreviewText" result + result' <- cstringToText result + freeMem result + touchManagedPtr fontchooser + return result' + +#if ENABLE_OVERLOADING +data FontChooserGetPreviewTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontChooserGetPreviewText + +#endif + +-- method FontChooser::get_show_preview_entry +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_get_show_preview_entry" gtk_font_chooser_get_show_preview_entry :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + IO CInt + +{- | +Returns whether the preview entry is shown or not. + +/Since: 3.2/ +-} +fontChooserGetShowPreviewEntry :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the preview entry is shown + or 'False' if it is hidden. -} +fontChooserGetShowPreviewEntry fontchooser = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + result <- gtk_font_chooser_get_show_preview_entry fontchooser' + let result' = (/= 0) result + touchManagedPtr fontchooser + return result' + +#if ENABLE_OVERLOADING +data FontChooserGetShowPreviewEntryMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserGetShowPreviewEntryMethodInfo a signature where + overloadedMethod _ = fontChooserGetShowPreviewEntry + +#endif + +-- method FontChooser::set_filter_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Gtk", name = "FontFilterFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkFontFilterFunc, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @filter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "function to call to free @data when it is no longer needed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_filter_func" gtk_font_chooser_set_filter_func :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + FunPtr Gtk.Callbacks.C_FontFilterFunc -> -- filter : TInterface (Name {namespace = "Gtk", name = "FontFilterFunc"}) + Ptr () -> -- user_data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{- | +Adds a filter function that decides which fonts to display +in the font chooser. + +/Since: 3.2/ +-} +fontChooserSetFilterFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> Maybe (Gtk.Callbacks.FontFilterFunc) + {- ^ /@filter@/: a 'GI.Gtk.Callbacks.FontFilterFunc', or 'Nothing' -} + -> m () +fontChooserSetFilterFunc fontchooser filter = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + maybeFilter <- case filter of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFilter -> do + jFilter' <- Gtk.Callbacks.mk_FontFilterFunc (Gtk.Callbacks.wrap_FontFilterFunc Nothing (Gtk.Callbacks.drop_closures_FontFilterFunc jFilter)) + return jFilter' + let userData = castFunPtrToPtr maybeFilter + let destroy = safeFreeFunPtrPtr + gtk_font_chooser_set_filter_func fontchooser' maybeFilter userData destroy + touchManagedPtr fontchooser + return () + +#if ENABLE_OVERLOADING +data FontChooserSetFilterFuncMethodInfo +instance (signature ~ (Maybe (Gtk.Callbacks.FontFilterFunc) -> m ()), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserSetFilterFuncMethodInfo a signature where + overloadedMethod _ = fontChooserSetFilterFunc + +#endif + +-- method FontChooser::set_font +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a font name like \8220Helvetica 12\8221 or \8220Times Bold 18\8221", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_font" gtk_font_chooser_set_font :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + CString -> -- fontname : TBasicType TUTF8 + IO () + +{- | +Sets the currently-selected font. + +/Since: 3.2/ +-} +fontChooserSetFont :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> T.Text + {- ^ /@fontname@/: a font name like “Helvetica 12” or “Times Bold 18” -} + -> m () +fontChooserSetFont fontchooser fontname = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + fontname' <- textToCString fontname + gtk_font_chooser_set_font fontchooser' fontname' + touchManagedPtr fontchooser + freeMem fontname' + return () + +#if ENABLE_OVERLOADING +data FontChooserSetFontMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserSetFontMethodInfo a signature where + overloadedMethod _ = fontChooserSetFont + +#endif + +-- method FontChooser::set_font_desc +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface (Name {namespace = "Pango", name = "FontDescription"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #PangoFontDescription", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_font_desc" gtk_font_chooser_set_font_desc :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + Ptr Pango.FontDescription.FontDescription -> -- font_desc : TInterface (Name {namespace = "Pango", name = "FontDescription"}) + IO () + +{- | +Sets the currently-selected font from /@fontDesc@/. + +/Since: 3.2/ +-} +fontChooserSetFontDesc :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> Pango.FontDescription.FontDescription + {- ^ /@fontDesc@/: a 'GI.Pango.Structs.FontDescription.FontDescription' -} + -> m () +fontChooserSetFontDesc fontchooser fontDesc = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + fontDesc' <- unsafeManagedPtrGetPtr fontDesc + gtk_font_chooser_set_font_desc fontchooser' fontDesc' + touchManagedPtr fontchooser + touchManagedPtr fontDesc + return () + +#if ENABLE_OVERLOADING +data FontChooserSetFontDescMethodInfo +instance (signature ~ (Pango.FontDescription.FontDescription -> m ()), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserSetFontDescMethodInfo a signature where + overloadedMethod _ = fontChooserSetFontDesc + +#endif + +-- method FontChooser::set_font_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontmap", argType = TInterface (Name {namespace = "Pango", name = "FontMap"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #PangoFontMap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_font_map" gtk_font_chooser_set_font_map :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + Ptr Pango.FontMap.FontMap -> -- fontmap : TInterface (Name {namespace = "Pango", name = "FontMap"}) + IO () + +{- | +Sets a custom font map to use for this font chooser widget. +A custom font map can be used to present application-specific +fonts instead of or in addition to the normal system fonts. + + +=== /C code/ +> +>FcConfig *config; +>PangoFontMap *fontmap; +> +>config = FcInitLoadConfigAndFonts (); +>FcConfigAppFontAddFile (config, my_app_font_file); +> +>fontmap = pango_cairo_font_map_new_for_font_type (CAIRO_FONT_TYPE_FT); +>pango_fc_font_map_set_config (PANGO_FC_FONT_MAP (fontmap), config); +> +>gtk_font_chooser_set_font_map (font_chooser, fontmap); + + +Note that other GTK+ widgets will only be able to use the application-specific +font if it is present in the font map they use: + +> +>context = gtk_widget_get_pango_context (label); +>pango_context_set_font_map (context, fontmap); + + +/Since: 3.18/ +-} +fontChooserSetFontMap :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a, Pango.FontMap.IsFontMap b) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> Maybe (b) + {- ^ /@fontmap@/: a 'GI.Pango.Objects.FontMap.FontMap' -} + -> m () +fontChooserSetFontMap fontchooser fontmap = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + maybeFontmap <- case fontmap of + Nothing -> return nullPtr + Just jFontmap -> do + jFontmap' <- unsafeManagedPtrCastPtr jFontmap + return jFontmap' + gtk_font_chooser_set_font_map fontchooser' maybeFontmap + touchManagedPtr fontchooser + whenJust fontmap touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data FontChooserSetFontMapMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFontChooser a, Pango.FontMap.IsFontMap b) => O.MethodInfo FontChooserSetFontMapMethodInfo a signature where + overloadedMethod _ = fontChooserSetFontMap + +#endif + +-- method FontChooser::set_language +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a language", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_language" gtk_font_chooser_set_language :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + CString -> -- language : TBasicType TUTF8 + IO () + +{- | +Sets the language to use for font features. + +/Since: 3.24/ +-} +fontChooserSetLanguage :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> T.Text + {- ^ /@language@/: a language -} + -> m () +fontChooserSetLanguage fontchooser language = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + language' <- textToCString language + gtk_font_chooser_set_language fontchooser' language' + touchManagedPtr fontchooser + freeMem language' + return () + +#if ENABLE_OVERLOADING +data FontChooserSetLanguageMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserSetLanguageMethodInfo a signature where + overloadedMethod _ = fontChooserSetLanguage + +#endif + +-- method FontChooser::set_level +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface (Name {namespace = "Gtk", name = "FontChooserLevel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the desired level of granularity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_level" gtk_font_chooser_set_level :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + CUInt -> -- level : TInterface (Name {namespace = "Gtk", name = "FontChooserLevel"}) + IO () + +{- | +Sets the desired level of granularity for selecting fonts. + +/Since: 3.24/ +-} +fontChooserSetLevel :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> [Gtk.Flags.FontChooserLevel] + {- ^ /@level@/: the desired level of granularity -} + -> m () +fontChooserSetLevel fontchooser level = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + let level' = gflagsToWord level + gtk_font_chooser_set_level fontchooser' level' + touchManagedPtr fontchooser + return () + +#if ENABLE_OVERLOADING +data FontChooserSetLevelMethodInfo +instance (signature ~ ([Gtk.Flags.FontChooserLevel] -> m ()), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserSetLevelMethodInfo a signature where + overloadedMethod _ = fontChooserSetLevel + +#endif + +-- method FontChooser::set_preview_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the text to display in the preview area", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_preview_text" gtk_font_chooser_set_preview_text :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + CString -> -- text : TBasicType TUTF8 + IO () + +{- | +Sets the text displayed in the preview area. +The /@text@/ is used to show how the selected font looks. + +/Since: 3.2/ +-} +fontChooserSetPreviewText :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> T.Text + {- ^ /@text@/: the text to display in the preview area -} + -> m () +fontChooserSetPreviewText fontchooser text = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + text' <- textToCString text + gtk_font_chooser_set_preview_text fontchooser' text' + touchManagedPtr fontchooser + freeMem text' + return () + +#if ENABLE_OVERLOADING +data FontChooserSetPreviewTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserSetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontChooserSetPreviewText + +#endif + +-- method FontChooser::set_show_preview_entry +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "fontchooser", argType = TInterface (Name {namespace = "Gtk", name = "FontChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkFontChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to show the editable preview entry or not", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_font_chooser_set_show_preview_entry" gtk_font_chooser_set_show_preview_entry :: + Ptr FontChooser -> -- fontchooser : TInterface (Name {namespace = "Gtk", name = "FontChooser"}) + CInt -> -- show_preview_entry : TBasicType TBoolean + IO () + +{- | +Shows or hides the editable preview entry. + +/Since: 3.2/ +-} +fontChooserSetShowPreviewEntry :: + (B.CallStack.HasCallStack, MonadIO m, IsFontChooser a) => + a + {- ^ /@fontchooser@/: a 'GI.Gtk.Interfaces.FontChooser.FontChooser' -} + -> Bool + {- ^ /@showPreviewEntry@/: whether to show the editable preview entry or not -} + -> m () +fontChooserSetShowPreviewEntry fontchooser showPreviewEntry = liftIO $ do + fontchooser' <- unsafeManagedPtrCastPtr fontchooser + let showPreviewEntry' = (fromIntegral . fromEnum) showPreviewEntry + gtk_font_chooser_set_show_preview_entry fontchooser' showPreviewEntry' + touchManagedPtr fontchooser + return () + +#if ENABLE_OVERLOADING +data FontChooserSetShowPreviewEntryMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsFontChooser a) => O.MethodInfo FontChooserSetShowPreviewEntryMethodInfo a signature where + overloadedMethod _ = fontChooserSetShowPreviewEntry + +#endif + + diff --git a/GI/Gtk/Interfaces/FontChooser.hs-boot b/GI/Gtk/Interfaces/FontChooser.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/FontChooser.hs-boot @@ -0,0 +1,110 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.FontChooser where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype FontChooser = FontChooser (ManagedPtr FontChooser) +#if ENABLE_OVERLOADING +data FontChooserFontActivatedSignalInfo +#endif +instance GObject FontChooser where +class (GObject o, O.IsDescendantOf FontChooser o) => IsFontChooser o +instance (GObject o, O.IsDescendantOf FontChooser o) => IsFontChooser o +instance O.HasParentTypes FontChooser +#if ENABLE_OVERLOADING +data FontChooserFontPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserFontDescPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserFontFeaturesPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserLanguagePropertyInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserLevelPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserPreviewTextPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserShowPreviewEntryPropertyInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetFontMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetFontDescMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetFontFaceMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetFontFamilyMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetFontFeaturesMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetFontMapMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetFontSizeMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetLanguageMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetLevelMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetPreviewTextMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserGetShowPreviewEntryMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetFilterFuncMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetFontMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetFontDescMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetFontMapMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetLanguageMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetLevelMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetPreviewTextMethodInfo +#endif +#if ENABLE_OVERLOADING +data FontChooserSetShowPreviewEntryMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/Orientable.hs b/GI/Gtk/Interfaces/Orientable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Orientable.hs @@ -0,0 +1,297 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Interfaces.Orientable.Orientable' interface is implemented by all widgets that can be +oriented horizontally or vertically. Historically, such widgets have been +realized as subclasses of a common base class (e.g 'GI.Gtk.Objects.Box.Box'\/'GI.Gtk.Objects.HBox.HBox'\/'GI.Gtk.Objects.VBox.VBox' +or 'GI.Gtk.Objects.Scale.Scale'\/'GI.Gtk.Objects.HScale.HScale'\/'GI.Gtk.Objects.VScale.VScale'). 'GI.Gtk.Interfaces.Orientable.Orientable' is more flexible in that +it allows the orientation to be changed at runtime, allowing the widgets +to “flip”. + +'GI.Gtk.Interfaces.Orientable.Orientable' was introduced in GTK+ 2.16. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.Orientable + ( + +-- * Exported types + Orientable(..) , + noOrientable , + IsOrientable , + toOrientable , + + + -- * Methods +-- ** getOrientation #method:getOrientation# + +#if ENABLE_OVERLOADING + OrientableGetOrientationMethodInfo , +#endif + orientableGetOrientation , + + +-- ** setOrientation #method:setOrientation# + +#if ENABLE_OVERLOADING + OrientableSetOrientationMethodInfo , +#endif + orientableSetOrientation , + + + + + -- * Properties +-- ** orientation #attr:orientation# +{- | The orientation of the orientable. + +/Since: 2.16/ +-} +#if ENABLE_OVERLOADING + OrientableOrientationPropertyInfo , +#endif + constructOrientableOrientation , + getOrientableOrientation , +#if ENABLE_OVERLOADING + orientableOrientation , +#endif + setOrientableOrientation , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums + +-- interface Orientable +-- | Memory-managed wrapper type. +newtype Orientable = Orientable (ManagedPtr Orientable) +-- | A convenience alias for `Nothing` :: `Maybe` `Orientable`. +noOrientable :: Maybe Orientable +noOrientable = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList Orientable = OrientableSignalList +type OrientableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_orientable_get_type" + c_gtk_orientable_get_type :: IO GType + +instance GObject Orientable where + gobjectType = c_gtk_orientable_get_type + + +-- | Type class for types which can be safely cast to `Orientable`, for instance with `toOrientable`. +class (GObject o, O.IsDescendantOf Orientable o) => IsOrientable o +instance (GObject o, O.IsDescendantOf Orientable o) => IsOrientable o + +instance O.HasParentTypes Orientable +type instance O.ParentTypes Orientable = '[GObject.Object.Object] + +-- | Cast to `Orientable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toOrientable :: (MonadIO m, IsOrientable o) => o -> m Orientable +toOrientable = liftIO . unsafeCastTo Orientable + +-- VVV Prop "orientation" + -- Type: TInterface (Name {namespace = "Gtk", name = "Orientation"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@orientation@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' orientable #orientation +@ +-} +getOrientableOrientation :: (MonadIO m, IsOrientable o) => o -> m Gtk.Enums.Orientation +getOrientableOrientation obj = liftIO $ B.Properties.getObjectPropertyEnum obj "orientation" + +{- | +Set the value of the “@orientation@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' orientable [ #orientation 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setOrientableOrientation :: (MonadIO m, IsOrientable o) => o -> Gtk.Enums.Orientation -> m () +setOrientableOrientation obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "orientation" val + +{- | +Construct a `GValueConstruct` with valid value for the “@orientation@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructOrientableOrientation :: (IsOrientable o) => Gtk.Enums.Orientation -> IO (GValueConstruct o) +constructOrientableOrientation val = B.Properties.constructObjectPropertyEnum "orientation" val + +#if ENABLE_OVERLOADING +data OrientableOrientationPropertyInfo +instance AttrInfo OrientableOrientationPropertyInfo where + type AttrAllowedOps OrientableOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint OrientableOrientationPropertyInfo = (~) Gtk.Enums.Orientation + type AttrBaseTypeConstraint OrientableOrientationPropertyInfo = IsOrientable + type AttrGetType OrientableOrientationPropertyInfo = Gtk.Enums.Orientation + type AttrLabel OrientableOrientationPropertyInfo = "orientation" + type AttrOrigin OrientableOrientationPropertyInfo = Orientable + attrGet _ = getOrientableOrientation + attrSet _ = setOrientableOrientation + attrConstruct _ = constructOrientableOrientation + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Orientable +type instance O.AttributeList Orientable = OrientableAttributeList +type OrientableAttributeList = ('[ '("orientation", OrientableOrientationPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +orientableOrientation :: AttrLabelProxy "orientation" +orientableOrientation = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveOrientableMethod (t :: Symbol) (o :: *) :: * where + ResolveOrientableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveOrientableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveOrientableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveOrientableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveOrientableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveOrientableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveOrientableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveOrientableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveOrientableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveOrientableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveOrientableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveOrientableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveOrientableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveOrientableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveOrientableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveOrientableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveOrientableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveOrientableMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveOrientableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveOrientableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveOrientableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveOrientableMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveOrientableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveOrientableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveOrientableMethod t Orientable, O.MethodInfo info Orientable p) => OL.IsLabel t (Orientable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method Orientable::get_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "orientable", argType = TInterface (Name {namespace = "Gtk", name = "Orientable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkOrientable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Orientation"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_orientable_get_orientation" gtk_orientable_get_orientation :: + Ptr Orientable -> -- orientable : TInterface (Name {namespace = "Gtk", name = "Orientable"}) + IO CUInt + +{- | +Retrieves the orientation of the /@orientable@/. + +/Since: 2.16/ +-} +orientableGetOrientation :: + (B.CallStack.HasCallStack, MonadIO m, IsOrientable a) => + a + {- ^ /@orientable@/: a 'GI.Gtk.Interfaces.Orientable.Orientable' -} + -> m Gtk.Enums.Orientation + {- ^ __Returns:__ the orientation of the /@orientable@/. -} +orientableGetOrientation orientable = liftIO $ do + orientable' <- unsafeManagedPtrCastPtr orientable + result <- gtk_orientable_get_orientation orientable' + let result' = (toEnum . fromIntegral) result + touchManagedPtr orientable + return result' + +#if ENABLE_OVERLOADING +data OrientableGetOrientationMethodInfo +instance (signature ~ (m Gtk.Enums.Orientation), MonadIO m, IsOrientable a) => O.MethodInfo OrientableGetOrientationMethodInfo a signature where + overloadedMethod _ = orientableGetOrientation + +#endif + +-- method Orientable::set_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "orientable", argType = TInterface (Name {namespace = "Gtk", name = "Orientable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkOrientable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface (Name {namespace = "Gtk", name = "Orientation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the orientable\8217s new orientation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_orientable_set_orientation" gtk_orientable_set_orientation :: + Ptr Orientable -> -- orientable : TInterface (Name {namespace = "Gtk", name = "Orientable"}) + CUInt -> -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"}) + IO () + +{- | +Sets the orientation of the /@orientable@/. + +/Since: 2.16/ +-} +orientableSetOrientation :: + (B.CallStack.HasCallStack, MonadIO m, IsOrientable a) => + a + {- ^ /@orientable@/: a 'GI.Gtk.Interfaces.Orientable.Orientable' -} + -> Gtk.Enums.Orientation + {- ^ /@orientation@/: the orientable’s new orientation. -} + -> m () +orientableSetOrientation orientable orientation = liftIO $ do + orientable' <- unsafeManagedPtrCastPtr orientable + let orientation' = (fromIntegral . fromEnum) orientation + gtk_orientable_set_orientation orientable' orientation' + touchManagedPtr orientable + return () + +#if ENABLE_OVERLOADING +data OrientableSetOrientationMethodInfo +instance (signature ~ (Gtk.Enums.Orientation -> m ()), MonadIO m, IsOrientable a) => O.MethodInfo OrientableSetOrientationMethodInfo a signature where + overloadedMethod _ = orientableSetOrientation + +#endif + + diff --git a/GI/Gtk/Interfaces/Orientable.hs-boot b/GI/Gtk/Interfaces/Orientable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Orientable.hs-boot @@ -0,0 +1,38 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.Orientable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Orientable = Orientable (ManagedPtr Orientable) +instance GObject Orientable where +class (GObject o, O.IsDescendantOf Orientable o) => IsOrientable o +instance (GObject o, O.IsDescendantOf Orientable o) => IsOrientable o +instance O.HasParentTypes Orientable +#if ENABLE_OVERLOADING +data OrientableOrientationPropertyInfo +#endif +#if ENABLE_OVERLOADING +data OrientableGetOrientationMethodInfo +#endif +#if ENABLE_OVERLOADING +data OrientableSetOrientationMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs b/GI/Gtk/Interfaces/PrintOperationPreview.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/PrintOperationPreview.hs @@ -0,0 +1,477 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +/No description available in the introspection data./ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.PrintOperationPreview + ( + +-- * Exported types + PrintOperationPreview(..) , + noPrintOperationPreview , + IsPrintOperationPreview , + toPrintOperationPreview , + + + -- * Methods +-- ** endPreview #method:endPreview# + +#if ENABLE_OVERLOADING + PrintOperationPreviewEndPreviewMethodInfo, +#endif + printOperationPreviewEndPreview , + + +-- ** isSelected #method:isSelected# + +#if ENABLE_OVERLOADING + PrintOperationPreviewIsSelectedMethodInfo, +#endif + printOperationPreviewIsSelected , + + +-- ** renderPage #method:renderPage# + +#if ENABLE_OVERLOADING + PrintOperationPreviewRenderPageMethodInfo, +#endif + printOperationPreviewRenderPage , + + + + + -- * Signals +-- ** gotPageSize #signal:gotPageSize# + + C_PrintOperationPreviewGotPageSizeCallback, + PrintOperationPreviewGotPageSizeCallback, +#if ENABLE_OVERLOADING + PrintOperationPreviewGotPageSizeSignalInfo, +#endif + afterPrintOperationPreviewGotPageSize , + genClosure_PrintOperationPreviewGotPageSize, + mk_PrintOperationPreviewGotPageSizeCallback, + noPrintOperationPreviewGotPageSizeCallback, + onPrintOperationPreviewGotPageSize , + wrap_PrintOperationPreviewGotPageSizeCallback, + + +-- ** ready #signal:ready# + + C_PrintOperationPreviewReadyCallback , + PrintOperationPreviewReadyCallback , +#if ENABLE_OVERLOADING + PrintOperationPreviewReadySignalInfo , +#endif + afterPrintOperationPreviewReady , + genClosure_PrintOperationPreviewReady , + mk_PrintOperationPreviewReadyCallback , + noPrintOperationPreviewReadyCallback , + onPrintOperationPreviewReady , + wrap_PrintOperationPreviewReadyCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup +import {-# SOURCE #-} qualified GI.Gtk.Objects.PrintContext as Gtk.PrintContext + +-- interface PrintOperationPreview +-- | Memory-managed wrapper type. +newtype PrintOperationPreview = PrintOperationPreview (ManagedPtr PrintOperationPreview) +-- | A convenience alias for `Nothing` :: `Maybe` `PrintOperationPreview`. +noPrintOperationPreview :: Maybe PrintOperationPreview +noPrintOperationPreview = Nothing + +-- signal PrintOperationPreview::got-page-size +{- | +The ::got-page-size signal is emitted once for each page +that gets rendered to the preview. + +A handler for this signal should update the /@context@/ +according to /@pageSetup@/ and set up a suitable cairo +context, using 'GI.Gtk.Objects.PrintContext.printContextSetCairoContext'. +-} +type PrintOperationPreviewGotPageSizeCallback = + Gtk.PrintContext.PrintContext + {- ^ /@context@/: the current 'GI.Gtk.Objects.PrintContext.PrintContext' -} + -> Gtk.PageSetup.PageSetup + {- ^ /@pageSetup@/: the 'GI.Gtk.Objects.PageSetup.PageSetup' for the current page -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintOperationPreviewGotPageSizeCallback`@. +noPrintOperationPreviewGotPageSizeCallback :: Maybe PrintOperationPreviewGotPageSizeCallback +noPrintOperationPreviewGotPageSizeCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_PrintOperationPreviewGotPageSizeCallback = + Ptr () -> -- object + Ptr Gtk.PrintContext.PrintContext -> + Ptr Gtk.PageSetup.PageSetup -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_PrintOperationPreviewGotPageSizeCallback`. +foreign import ccall "wrapper" + mk_PrintOperationPreviewGotPageSizeCallback :: C_PrintOperationPreviewGotPageSizeCallback -> IO (FunPtr C_PrintOperationPreviewGotPageSizeCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_PrintOperationPreviewGotPageSize :: MonadIO m => PrintOperationPreviewGotPageSizeCallback -> m (GClosure C_PrintOperationPreviewGotPageSizeCallback) +genClosure_PrintOperationPreviewGotPageSize cb = liftIO $ do + let cb' = wrap_PrintOperationPreviewGotPageSizeCallback cb + mk_PrintOperationPreviewGotPageSizeCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `PrintOperationPreviewGotPageSizeCallback` into a `C_PrintOperationPreviewGotPageSizeCallback`. +wrap_PrintOperationPreviewGotPageSizeCallback :: + PrintOperationPreviewGotPageSizeCallback -> + C_PrintOperationPreviewGotPageSizeCallback +wrap_PrintOperationPreviewGotPageSizeCallback _cb _ context pageSetup _ = do + context' <- (newObject Gtk.PrintContext.PrintContext) context + pageSetup' <- (newObject Gtk.PageSetup.PageSetup) pageSetup + _cb context' pageSetup' + + +{- | +Connect a signal handler for the “@got-page-size@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' printOperationPreview #gotPageSize callback +@ +-} +onPrintOperationPreviewGotPageSize :: (IsPrintOperationPreview a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId +onPrintOperationPreviewGotPageSize obj cb = liftIO $ do + let cb' = wrap_PrintOperationPreviewGotPageSizeCallback cb + cb'' <- mk_PrintOperationPreviewGotPageSizeCallback cb' + connectSignalFunPtr obj "got-page-size" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@got-page-size@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' printOperationPreview #gotPageSize callback +@ +-} +afterPrintOperationPreviewGotPageSize :: (IsPrintOperationPreview a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId +afterPrintOperationPreviewGotPageSize obj cb = liftIO $ do + let cb' = wrap_PrintOperationPreviewGotPageSizeCallback cb + cb'' <- mk_PrintOperationPreviewGotPageSizeCallback cb' + connectSignalFunPtr obj "got-page-size" cb'' SignalConnectAfter + + +-- signal PrintOperationPreview::ready +{- | +The ::ready signal gets emitted once per preview operation, +before the first page is rendered. + +A handler for this signal can be used for setup tasks. +-} +type PrintOperationPreviewReadyCallback = + Gtk.PrintContext.PrintContext + {- ^ /@context@/: the current 'GI.Gtk.Objects.PrintContext.PrintContext' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `PrintOperationPreviewReadyCallback`@. +noPrintOperationPreviewReadyCallback :: Maybe PrintOperationPreviewReadyCallback +noPrintOperationPreviewReadyCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_PrintOperationPreviewReadyCallback = + Ptr () -> -- object + Ptr Gtk.PrintContext.PrintContext -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_PrintOperationPreviewReadyCallback`. +foreign import ccall "wrapper" + mk_PrintOperationPreviewReadyCallback :: C_PrintOperationPreviewReadyCallback -> IO (FunPtr C_PrintOperationPreviewReadyCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_PrintOperationPreviewReady :: MonadIO m => PrintOperationPreviewReadyCallback -> m (GClosure C_PrintOperationPreviewReadyCallback) +genClosure_PrintOperationPreviewReady cb = liftIO $ do + let cb' = wrap_PrintOperationPreviewReadyCallback cb + mk_PrintOperationPreviewReadyCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `PrintOperationPreviewReadyCallback` into a `C_PrintOperationPreviewReadyCallback`. +wrap_PrintOperationPreviewReadyCallback :: + PrintOperationPreviewReadyCallback -> + C_PrintOperationPreviewReadyCallback +wrap_PrintOperationPreviewReadyCallback _cb _ context _ = do + context' <- (newObject Gtk.PrintContext.PrintContext) context + _cb context' + + +{- | +Connect a signal handler for the “@ready@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' printOperationPreview #ready callback +@ +-} +onPrintOperationPreviewReady :: (IsPrintOperationPreview a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId +onPrintOperationPreviewReady obj cb = liftIO $ do + let cb' = wrap_PrintOperationPreviewReadyCallback cb + cb'' <- mk_PrintOperationPreviewReadyCallback cb' + connectSignalFunPtr obj "ready" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@ready@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' printOperationPreview #ready callback +@ +-} +afterPrintOperationPreviewReady :: (IsPrintOperationPreview a, MonadIO m) => a -> PrintOperationPreviewReadyCallback -> m SignalHandlerId +afterPrintOperationPreviewReady obj cb = liftIO $ do + let cb' = wrap_PrintOperationPreviewReadyCallback cb + cb'' <- mk_PrintOperationPreviewReadyCallback cb' + connectSignalFunPtr obj "ready" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data PrintOperationPreviewGotPageSizeSignalInfo +instance SignalInfo PrintOperationPreviewGotPageSizeSignalInfo where + type HaskellCallbackType PrintOperationPreviewGotPageSizeSignalInfo = PrintOperationPreviewGotPageSizeCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_PrintOperationPreviewGotPageSizeCallback cb + cb'' <- mk_PrintOperationPreviewGotPageSizeCallback cb' + connectSignalFunPtr obj "got-page-size" cb'' connectMode + +data PrintOperationPreviewReadySignalInfo +instance SignalInfo PrintOperationPreviewReadySignalInfo where + type HaskellCallbackType PrintOperationPreviewReadySignalInfo = PrintOperationPreviewReadyCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_PrintOperationPreviewReadyCallback cb + cb'' <- mk_PrintOperationPreviewReadyCallback cb' + connectSignalFunPtr obj "ready" cb'' connectMode + +type instance O.SignalList PrintOperationPreview = PrintOperationPreviewSignalList +type PrintOperationPreviewSignalList = ('[ '("gotPageSize", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_print_operation_preview_get_type" + c_gtk_print_operation_preview_get_type :: IO GType + +instance GObject PrintOperationPreview where + gobjectType = c_gtk_print_operation_preview_get_type + + +-- | Type class for types which can be safely cast to `PrintOperationPreview`, for instance with `toPrintOperationPreview`. +class (GObject o, O.IsDescendantOf PrintOperationPreview o) => IsPrintOperationPreview o +instance (GObject o, O.IsDescendantOf PrintOperationPreview o) => IsPrintOperationPreview o + +instance O.HasParentTypes PrintOperationPreview +type instance O.ParentTypes PrintOperationPreview = '[GObject.Object.Object] + +-- | Cast to `PrintOperationPreview`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toPrintOperationPreview :: (MonadIO m, IsPrintOperationPreview o) => o -> m PrintOperationPreview +toPrintOperationPreview = liftIO . unsafeCastTo PrintOperationPreview + +#if ENABLE_OVERLOADING +instance O.HasAttributeList PrintOperationPreview +type instance O.AttributeList PrintOperationPreview = PrintOperationPreviewAttributeList +type PrintOperationPreviewAttributeList = ('[ ] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type family ResolvePrintOperationPreviewMethod (t :: Symbol) (o :: *) :: * where + ResolvePrintOperationPreviewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolvePrintOperationPreviewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolvePrintOperationPreviewMethod "endPreview" o = PrintOperationPreviewEndPreviewMethodInfo + ResolvePrintOperationPreviewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolvePrintOperationPreviewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolvePrintOperationPreviewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolvePrintOperationPreviewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolvePrintOperationPreviewMethod "isSelected" o = PrintOperationPreviewIsSelectedMethodInfo + ResolvePrintOperationPreviewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolvePrintOperationPreviewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolvePrintOperationPreviewMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolvePrintOperationPreviewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolvePrintOperationPreviewMethod "renderPage" o = PrintOperationPreviewRenderPageMethodInfo + ResolvePrintOperationPreviewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolvePrintOperationPreviewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolvePrintOperationPreviewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolvePrintOperationPreviewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolvePrintOperationPreviewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolvePrintOperationPreviewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolvePrintOperationPreviewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolvePrintOperationPreviewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolvePrintOperationPreviewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolvePrintOperationPreviewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolvePrintOperationPreviewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolvePrintOperationPreviewMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolvePrintOperationPreviewMethod t PrintOperationPreview, O.MethodInfo info PrintOperationPreview p) => OL.IsLabel t (PrintOperationPreview -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method PrintOperationPreview::end_preview +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "preview", argType = TInterface (Name {namespace = "Gtk", name = "PrintOperationPreview"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPrintOperationPreview", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_operation_preview_end_preview" gtk_print_operation_preview_end_preview :: + Ptr PrintOperationPreview -> -- preview : TInterface (Name {namespace = "Gtk", name = "PrintOperationPreview"}) + IO () + +{- | +Ends a preview. + +This function must be called to finish a custom print preview. + +/Since: 2.10/ +-} +printOperationPreviewEndPreview :: + (B.CallStack.HasCallStack, MonadIO m, IsPrintOperationPreview a) => + a + {- ^ /@preview@/: a 'GI.Gtk.Interfaces.PrintOperationPreview.PrintOperationPreview' -} + -> m () +printOperationPreviewEndPreview preview = liftIO $ do + preview' <- unsafeManagedPtrCastPtr preview + gtk_print_operation_preview_end_preview preview' + touchManagedPtr preview + return () + +#if ENABLE_OVERLOADING +data PrintOperationPreviewEndPreviewMethodInfo +instance (signature ~ (m ()), MonadIO m, IsPrintOperationPreview a) => O.MethodInfo PrintOperationPreviewEndPreviewMethodInfo a signature where + overloadedMethod _ = printOperationPreviewEndPreview + +#endif + +-- method PrintOperationPreview::is_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "preview", argType = TInterface (Name {namespace = "Gtk", name = "PrintOperationPreview"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPrintOperationPreview", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_operation_preview_is_selected" gtk_print_operation_preview_is_selected :: + Ptr PrintOperationPreview -> -- preview : TInterface (Name {namespace = "Gtk", name = "PrintOperationPreview"}) + Int32 -> -- page_nr : TBasicType TInt + IO CInt + +{- | +Returns whether the given page is included in the set of pages that +have been selected for printing. + +/Since: 2.10/ +-} +printOperationPreviewIsSelected :: + (B.CallStack.HasCallStack, MonadIO m, IsPrintOperationPreview a) => + a + {- ^ /@preview@/: a 'GI.Gtk.Interfaces.PrintOperationPreview.PrintOperationPreview' -} + -> Int32 + {- ^ /@pageNr@/: a page number -} + -> m Bool + {- ^ __Returns:__ 'True' if the page has been selected for printing -} +printOperationPreviewIsSelected preview pageNr = liftIO $ do + preview' <- unsafeManagedPtrCastPtr preview + result <- gtk_print_operation_preview_is_selected preview' pageNr + let result' = (/= 0) result + touchManagedPtr preview + return result' + +#if ENABLE_OVERLOADING +data PrintOperationPreviewIsSelectedMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m, IsPrintOperationPreview a) => O.MethodInfo PrintOperationPreviewIsSelectedMethodInfo a signature where + overloadedMethod _ = printOperationPreviewIsSelected + +#endif + +-- method PrintOperationPreview::render_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "preview", argType = TInterface (Name {namespace = "Gtk", name = "PrintOperationPreview"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPrintOperationPreview", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the page to render", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page :: + Ptr PrintOperationPreview -> -- preview : TInterface (Name {namespace = "Gtk", name = "PrintOperationPreview"}) + Int32 -> -- page_nr : TBasicType TInt + IO () + +{- | +Renders a page to the preview, using the print context that +was passed to the 'GI.Gtk.Objects.PrintOperation.PrintOperation'::@/preview/@ handler together +with /@preview@/. + +A custom iprint preview should use this function in its ::expose +handler to render the currently selected page. + +Note that this function requires a suitable cairo context to +be associated with the print context. + +/Since: 2.10/ +-} +printOperationPreviewRenderPage :: + (B.CallStack.HasCallStack, MonadIO m, IsPrintOperationPreview a) => + a + {- ^ /@preview@/: a 'GI.Gtk.Interfaces.PrintOperationPreview.PrintOperationPreview' -} + -> Int32 + {- ^ /@pageNr@/: the page to render -} + -> m () +printOperationPreviewRenderPage preview pageNr = liftIO $ do + preview' <- unsafeManagedPtrCastPtr preview + gtk_print_operation_preview_render_page preview' pageNr + touchManagedPtr preview + return () + +#if ENABLE_OVERLOADING +data PrintOperationPreviewRenderPageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IsPrintOperationPreview a) => O.MethodInfo PrintOperationPreviewRenderPageMethodInfo a signature where + overloadedMethod _ = printOperationPreviewRenderPage + +#endif + + diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot b/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot @@ -0,0 +1,44 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.PrintOperationPreview where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype PrintOperationPreview = PrintOperationPreview (ManagedPtr PrintOperationPreview) +#if ENABLE_OVERLOADING +data PrintOperationPreviewGotPageSizeSignalInfo +#endif +#if ENABLE_OVERLOADING +data PrintOperationPreviewReadySignalInfo +#endif +instance GObject PrintOperationPreview where +class (GObject o, O.IsDescendantOf PrintOperationPreview o) => IsPrintOperationPreview o +instance (GObject o, O.IsDescendantOf PrintOperationPreview o) => IsPrintOperationPreview o +instance O.HasParentTypes PrintOperationPreview +#if ENABLE_OVERLOADING +data PrintOperationPreviewEndPreviewMethodInfo +#endif +#if ENABLE_OVERLOADING +data PrintOperationPreviewIsSelectedMethodInfo +#endif +#if ENABLE_OVERLOADING +data PrintOperationPreviewRenderPageMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/RecentChooser.hs b/GI/Gtk/Interfaces/RecentChooser.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/RecentChooser.hs @@ -0,0 +1,2529 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.RecentChooser.RecentChooser' is an interface that can be implemented by widgets +displaying the list of recently used files. In GTK+, the main objects +that implement this interface are 'GI.Gtk.Objects.RecentChooserWidget.RecentChooserWidget', +'GI.Gtk.Objects.RecentChooserDialog.RecentChooserDialog' and 'GI.Gtk.Objects.RecentChooserMenu.RecentChooserMenu'. + +Recently used files are supported since GTK+ 2.10. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.RecentChooser + ( + +-- * Exported types + RecentChooser(..) , + noRecentChooser , + IsRecentChooser , + toRecentChooser , + + + -- * Methods +-- ** addFilter #method:addFilter# + +#if ENABLE_OVERLOADING + RecentChooserAddFilterMethodInfo , +#endif + recentChooserAddFilter , + + +-- ** getCurrentItem #method:getCurrentItem# + +#if ENABLE_OVERLOADING + RecentChooserGetCurrentItemMethodInfo , +#endif + recentChooserGetCurrentItem , + + +-- ** getCurrentUri #method:getCurrentUri# + +#if ENABLE_OVERLOADING + RecentChooserGetCurrentUriMethodInfo , +#endif + recentChooserGetCurrentUri , + + +-- ** getFilter #method:getFilter# + +#if ENABLE_OVERLOADING + RecentChooserGetFilterMethodInfo , +#endif + recentChooserGetFilter , + + +-- ** getItems #method:getItems# + +#if ENABLE_OVERLOADING + RecentChooserGetItemsMethodInfo , +#endif + recentChooserGetItems , + + +-- ** getLimit #method:getLimit# + +#if ENABLE_OVERLOADING + RecentChooserGetLimitMethodInfo , +#endif + recentChooserGetLimit , + + +-- ** getLocalOnly #method:getLocalOnly# + +#if ENABLE_OVERLOADING + RecentChooserGetLocalOnlyMethodInfo , +#endif + recentChooserGetLocalOnly , + + +-- ** getSelectMultiple #method:getSelectMultiple# + +#if ENABLE_OVERLOADING + RecentChooserGetSelectMultipleMethodInfo, +#endif + recentChooserGetSelectMultiple , + + +-- ** getShowIcons #method:getShowIcons# + +#if ENABLE_OVERLOADING + RecentChooserGetShowIconsMethodInfo , +#endif + recentChooserGetShowIcons , + + +-- ** getShowNotFound #method:getShowNotFound# + +#if ENABLE_OVERLOADING + RecentChooserGetShowNotFoundMethodInfo , +#endif + recentChooserGetShowNotFound , + + +-- ** getShowPrivate #method:getShowPrivate# + +#if ENABLE_OVERLOADING + RecentChooserGetShowPrivateMethodInfo , +#endif + recentChooserGetShowPrivate , + + +-- ** getShowTips #method:getShowTips# + +#if ENABLE_OVERLOADING + RecentChooserGetShowTipsMethodInfo , +#endif + recentChooserGetShowTips , + + +-- ** getSortType #method:getSortType# + +#if ENABLE_OVERLOADING + RecentChooserGetSortTypeMethodInfo , +#endif + recentChooserGetSortType , + + +-- ** getUris #method:getUris# + +#if ENABLE_OVERLOADING + RecentChooserGetUrisMethodInfo , +#endif + recentChooserGetUris , + + +-- ** listFilters #method:listFilters# + +#if ENABLE_OVERLOADING + RecentChooserListFiltersMethodInfo , +#endif + recentChooserListFilters , + + +-- ** removeFilter #method:removeFilter# + +#if ENABLE_OVERLOADING + RecentChooserRemoveFilterMethodInfo , +#endif + recentChooserRemoveFilter , + + +-- ** selectAll #method:selectAll# + +#if ENABLE_OVERLOADING + RecentChooserSelectAllMethodInfo , +#endif + recentChooserSelectAll , + + +-- ** selectUri #method:selectUri# + +#if ENABLE_OVERLOADING + RecentChooserSelectUriMethodInfo , +#endif + recentChooserSelectUri , + + +-- ** setCurrentUri #method:setCurrentUri# + +#if ENABLE_OVERLOADING + RecentChooserSetCurrentUriMethodInfo , +#endif + recentChooserSetCurrentUri , + + +-- ** setFilter #method:setFilter# + +#if ENABLE_OVERLOADING + RecentChooserSetFilterMethodInfo , +#endif + recentChooserSetFilter , + + +-- ** setLimit #method:setLimit# + +#if ENABLE_OVERLOADING + RecentChooserSetLimitMethodInfo , +#endif + recentChooserSetLimit , + + +-- ** setLocalOnly #method:setLocalOnly# + +#if ENABLE_OVERLOADING + RecentChooserSetLocalOnlyMethodInfo , +#endif + recentChooserSetLocalOnly , + + +-- ** setSelectMultiple #method:setSelectMultiple# + +#if ENABLE_OVERLOADING + RecentChooserSetSelectMultipleMethodInfo, +#endif + recentChooserSetSelectMultiple , + + +-- ** setShowIcons #method:setShowIcons# + +#if ENABLE_OVERLOADING + RecentChooserSetShowIconsMethodInfo , +#endif + recentChooserSetShowIcons , + + +-- ** setShowNotFound #method:setShowNotFound# + +#if ENABLE_OVERLOADING + RecentChooserSetShowNotFoundMethodInfo , +#endif + recentChooserSetShowNotFound , + + +-- ** setShowPrivate #method:setShowPrivate# + +#if ENABLE_OVERLOADING + RecentChooserSetShowPrivateMethodInfo , +#endif + recentChooserSetShowPrivate , + + +-- ** setShowTips #method:setShowTips# + +#if ENABLE_OVERLOADING + RecentChooserSetShowTipsMethodInfo , +#endif + recentChooserSetShowTips , + + +-- ** setSortFunc #method:setSortFunc# + +#if ENABLE_OVERLOADING + RecentChooserSetSortFuncMethodInfo , +#endif + recentChooserSetSortFunc , + + +-- ** setSortType #method:setSortType# + +#if ENABLE_OVERLOADING + RecentChooserSetSortTypeMethodInfo , +#endif + recentChooserSetSortType , + + +-- ** unselectAll #method:unselectAll# + +#if ENABLE_OVERLOADING + RecentChooserUnselectAllMethodInfo , +#endif + recentChooserUnselectAll , + + +-- ** unselectUri #method:unselectUri# + +#if ENABLE_OVERLOADING + RecentChooserUnselectUriMethodInfo , +#endif + recentChooserUnselectUri , + + + + + -- * Properties +-- ** filter #attr:filter# +{- | The 'GI.Gtk.Objects.RecentFilter.RecentFilter' object to be used when displaying +the recently used resources. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserFilterPropertyInfo , +#endif + clearRecentChooserFilter , + constructRecentChooserFilter , + getRecentChooserFilter , +#if ENABLE_OVERLOADING + recentChooserFilter , +#endif + setRecentChooserFilter , + + +-- ** limit #attr:limit# +{- | The maximum number of recently used resources to be displayed, +or -1 to display all items. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserLimitPropertyInfo , +#endif + constructRecentChooserLimit , + getRecentChooserLimit , +#if ENABLE_OVERLOADING + recentChooserLimit , +#endif + setRecentChooserLimit , + + +-- ** localOnly #attr:localOnly# +{- | Whether this 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' should display only local (file:) +resources. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserLocalOnlyPropertyInfo , +#endif + constructRecentChooserLocalOnly , + getRecentChooserLocalOnly , +#if ENABLE_OVERLOADING + recentChooserLocalOnly , +#endif + setRecentChooserLocalOnly , + + +-- ** recentManager #attr:recentManager# +{- | The 'GI.Gtk.Objects.RecentManager.RecentManager' instance used by the 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' to +display the list of recently used resources. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserRecentManagerPropertyInfo , +#endif + constructRecentChooserRecentManager , +#if ENABLE_OVERLOADING + recentChooserRecentManager , +#endif + + +-- ** selectMultiple #attr:selectMultiple# +{- | Allow the user to select multiple resources. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserSelectMultiplePropertyInfo , +#endif + constructRecentChooserSelectMultiple , + getRecentChooserSelectMultiple , +#if ENABLE_OVERLOADING + recentChooserSelectMultiple , +#endif + setRecentChooserSelectMultiple , + + +-- ** showIcons #attr:showIcons# +{- | Whether this 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' should display an icon near the item. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserShowIconsPropertyInfo , +#endif + constructRecentChooserShowIcons , + getRecentChooserShowIcons , +#if ENABLE_OVERLOADING + recentChooserShowIcons , +#endif + setRecentChooserShowIcons , + + +-- ** showNotFound #attr:showNotFound# +{- | Whether this 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' should display the recently used resources +even if not present anymore. Setting this to 'False' will perform a +potentially expensive check on every local resource (every remote +resource will always be displayed). + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserShowNotFoundPropertyInfo , +#endif + constructRecentChooserShowNotFound , + getRecentChooserShowNotFound , +#if ENABLE_OVERLOADING + recentChooserShowNotFound , +#endif + setRecentChooserShowNotFound , + + +-- ** showPrivate #attr:showPrivate# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + RecentChooserShowPrivatePropertyInfo , +#endif + constructRecentChooserShowPrivate , + getRecentChooserShowPrivate , +#if ENABLE_OVERLOADING + recentChooserShowPrivate , +#endif + setRecentChooserShowPrivate , + + +-- ** showTips #attr:showTips# +{- | Whether this 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' should display a tooltip containing the +full path of the recently used resources. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserShowTipsPropertyInfo , +#endif + constructRecentChooserShowTips , + getRecentChooserShowTips , +#if ENABLE_OVERLOADING + recentChooserShowTips , +#endif + setRecentChooserShowTips , + + +-- ** sortType #attr:sortType# +{- | Sorting order to be used when displaying the recently used resources. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + RecentChooserSortTypePropertyInfo , +#endif + constructRecentChooserSortType , + getRecentChooserSortType , +#if ENABLE_OVERLOADING + recentChooserSortType , +#endif + setRecentChooserSortType , + + + + + -- * Signals +-- ** itemActivated #signal:itemActivated# + + C_RecentChooserItemActivatedCallback , + RecentChooserItemActivatedCallback , +#if ENABLE_OVERLOADING + RecentChooserItemActivatedSignalInfo , +#endif + afterRecentChooserItemActivated , + genClosure_RecentChooserItemActivated , + mk_RecentChooserItemActivatedCallback , + noRecentChooserItemActivatedCallback , + onRecentChooserItemActivated , + wrap_RecentChooserItemActivatedCallback , + + +-- ** selectionChanged #signal:selectionChanged# + + C_RecentChooserSelectionChangedCallback , + RecentChooserSelectionChangedCallback , +#if ENABLE_OVERLOADING + RecentChooserSelectionChangedSignalInfo , +#endif + afterRecentChooserSelectionChanged , + genClosure_RecentChooserSelectionChanged, + mk_RecentChooserSelectionChangedCallback, + noRecentChooserSelectionChangedCallback , + onRecentChooserSelectionChanged , + wrap_RecentChooserSelectionChangedCallback, + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Callbacks as GLib.Callbacks +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Objects.RecentFilter as Gtk.RecentFilter +import {-# SOURCE #-} qualified GI.Gtk.Objects.RecentManager as Gtk.RecentManager +import {-# SOURCE #-} qualified GI.Gtk.Structs.RecentInfo as Gtk.RecentInfo + +-- interface RecentChooser +-- | Memory-managed wrapper type. +newtype RecentChooser = RecentChooser (ManagedPtr RecentChooser) +-- | A convenience alias for `Nothing` :: `Maybe` `RecentChooser`. +noRecentChooser :: Maybe RecentChooser +noRecentChooser = Nothing + +-- signal RecentChooser::item-activated +{- | +This signal is emitted when the user \"activates\" a recent item +in the recent chooser. This can happen by double-clicking on an item +in the recently used resources list, or by pressing +@Enter@. + +/Since: 2.10/ +-} +type RecentChooserItemActivatedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `RecentChooserItemActivatedCallback`@. +noRecentChooserItemActivatedCallback :: Maybe RecentChooserItemActivatedCallback +noRecentChooserItemActivatedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_RecentChooserItemActivatedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_RecentChooserItemActivatedCallback`. +foreign import ccall "wrapper" + mk_RecentChooserItemActivatedCallback :: C_RecentChooserItemActivatedCallback -> IO (FunPtr C_RecentChooserItemActivatedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_RecentChooserItemActivated :: MonadIO m => RecentChooserItemActivatedCallback -> m (GClosure C_RecentChooserItemActivatedCallback) +genClosure_RecentChooserItemActivated cb = liftIO $ do + let cb' = wrap_RecentChooserItemActivatedCallback cb + mk_RecentChooserItemActivatedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `RecentChooserItemActivatedCallback` into a `C_RecentChooserItemActivatedCallback`. +wrap_RecentChooserItemActivatedCallback :: + RecentChooserItemActivatedCallback -> + C_RecentChooserItemActivatedCallback +wrap_RecentChooserItemActivatedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@item-activated@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' recentChooser #itemActivated callback +@ +-} +onRecentChooserItemActivated :: (IsRecentChooser a, MonadIO m) => a -> RecentChooserItemActivatedCallback -> m SignalHandlerId +onRecentChooserItemActivated obj cb = liftIO $ do + let cb' = wrap_RecentChooserItemActivatedCallback cb + cb'' <- mk_RecentChooserItemActivatedCallback cb' + connectSignalFunPtr obj "item-activated" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@item-activated@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' recentChooser #itemActivated callback +@ +-} +afterRecentChooserItemActivated :: (IsRecentChooser a, MonadIO m) => a -> RecentChooserItemActivatedCallback -> m SignalHandlerId +afterRecentChooserItemActivated obj cb = liftIO $ do + let cb' = wrap_RecentChooserItemActivatedCallback cb + cb'' <- mk_RecentChooserItemActivatedCallback cb' + connectSignalFunPtr obj "item-activated" cb'' SignalConnectAfter + + +-- signal RecentChooser::selection-changed +{- | +This signal is emitted when there is a change in the set of +selected recently used resources. This can happen when a user +modifies the selection with the mouse or the keyboard, or when +explicitly calling functions to change the selection. + +/Since: 2.10/ +-} +type RecentChooserSelectionChangedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `RecentChooserSelectionChangedCallback`@. +noRecentChooserSelectionChangedCallback :: Maybe RecentChooserSelectionChangedCallback +noRecentChooserSelectionChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_RecentChooserSelectionChangedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_RecentChooserSelectionChangedCallback`. +foreign import ccall "wrapper" + mk_RecentChooserSelectionChangedCallback :: C_RecentChooserSelectionChangedCallback -> IO (FunPtr C_RecentChooserSelectionChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_RecentChooserSelectionChanged :: MonadIO m => RecentChooserSelectionChangedCallback -> m (GClosure C_RecentChooserSelectionChangedCallback) +genClosure_RecentChooserSelectionChanged cb = liftIO $ do + let cb' = wrap_RecentChooserSelectionChangedCallback cb + mk_RecentChooserSelectionChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `RecentChooserSelectionChangedCallback` into a `C_RecentChooserSelectionChangedCallback`. +wrap_RecentChooserSelectionChangedCallback :: + RecentChooserSelectionChangedCallback -> + C_RecentChooserSelectionChangedCallback +wrap_RecentChooserSelectionChangedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@selection-changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' recentChooser #selectionChanged callback +@ +-} +onRecentChooserSelectionChanged :: (IsRecentChooser a, MonadIO m) => a -> RecentChooserSelectionChangedCallback -> m SignalHandlerId +onRecentChooserSelectionChanged obj cb = liftIO $ do + let cb' = wrap_RecentChooserSelectionChangedCallback cb + cb'' <- mk_RecentChooserSelectionChangedCallback cb' + connectSignalFunPtr obj "selection-changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@selection-changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' recentChooser #selectionChanged callback +@ +-} +afterRecentChooserSelectionChanged :: (IsRecentChooser a, MonadIO m) => a -> RecentChooserSelectionChangedCallback -> m SignalHandlerId +afterRecentChooserSelectionChanged obj cb = liftIO $ do + let cb' = wrap_RecentChooserSelectionChangedCallback cb + cb'' <- mk_RecentChooserSelectionChangedCallback cb' + connectSignalFunPtr obj "selection-changed" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data RecentChooserItemActivatedSignalInfo +instance SignalInfo RecentChooserItemActivatedSignalInfo where + type HaskellCallbackType RecentChooserItemActivatedSignalInfo = RecentChooserItemActivatedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_RecentChooserItemActivatedCallback cb + cb'' <- mk_RecentChooserItemActivatedCallback cb' + connectSignalFunPtr obj "item-activated" cb'' connectMode + +data RecentChooserSelectionChangedSignalInfo +instance SignalInfo RecentChooserSelectionChangedSignalInfo where + type HaskellCallbackType RecentChooserSelectionChangedSignalInfo = RecentChooserSelectionChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_RecentChooserSelectionChangedCallback cb + cb'' <- mk_RecentChooserSelectionChangedCallback cb' + connectSignalFunPtr obj "selection-changed" cb'' connectMode + +type instance O.SignalList RecentChooser = RecentChooserSignalList +type RecentChooserSignalList = ('[ '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_recent_chooser_get_type" + c_gtk_recent_chooser_get_type :: IO GType + +instance GObject RecentChooser where + gobjectType = c_gtk_recent_chooser_get_type + + +-- | Type class for types which can be safely cast to `RecentChooser`, for instance with `toRecentChooser`. +class (GObject o, O.IsDescendantOf RecentChooser o) => IsRecentChooser o +instance (GObject o, O.IsDescendantOf RecentChooser o) => IsRecentChooser o + +instance O.HasParentTypes RecentChooser +type instance O.ParentTypes RecentChooser = '[GObject.Object.Object] + +-- | Cast to `RecentChooser`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toRecentChooser :: (MonadIO m, IsRecentChooser o) => o -> m RecentChooser +toRecentChooser = liftIO . unsafeCastTo RecentChooser + +-- VVV Prop "filter" + -- Type: TInterface (Name {namespace = "Gtk", name = "RecentFilter"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@filter@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #filter +@ +-} +getRecentChooserFilter :: (MonadIO m, IsRecentChooser o) => o -> m Gtk.RecentFilter.RecentFilter +getRecentChooserFilter obj = liftIO $ checkUnexpectedNothing "getRecentChooserFilter" $ B.Properties.getObjectPropertyObject obj "filter" Gtk.RecentFilter.RecentFilter + +{- | +Set the value of the “@filter@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #filter 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserFilter :: (MonadIO m, IsRecentChooser o, Gtk.RecentFilter.IsRecentFilter a) => o -> a -> m () +setRecentChooserFilter obj val = liftIO $ B.Properties.setObjectPropertyObject obj "filter" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@filter@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserFilter :: (IsRecentChooser o, Gtk.RecentFilter.IsRecentFilter a) => a -> IO (GValueConstruct o) +constructRecentChooserFilter val = B.Properties.constructObjectPropertyObject "filter" (Just val) + +{- | +Set the value of the “@filter@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #filter +@ +-} +clearRecentChooserFilter :: (MonadIO m, IsRecentChooser o) => o -> m () +clearRecentChooserFilter obj = liftIO $ B.Properties.setObjectPropertyObject obj "filter" (Nothing :: Maybe Gtk.RecentFilter.RecentFilter) + +#if ENABLE_OVERLOADING +data RecentChooserFilterPropertyInfo +instance AttrInfo RecentChooserFilterPropertyInfo where + type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentChooserFilterPropertyInfo = Gtk.RecentFilter.IsRecentFilter + type AttrBaseTypeConstraint RecentChooserFilterPropertyInfo = IsRecentChooser + type AttrGetType RecentChooserFilterPropertyInfo = Gtk.RecentFilter.RecentFilter + type AttrLabel RecentChooserFilterPropertyInfo = "filter" + type AttrOrigin RecentChooserFilterPropertyInfo = RecentChooser + attrGet _ = getRecentChooserFilter + attrSet _ = setRecentChooserFilter + attrConstruct _ = constructRecentChooserFilter + attrClear _ = clearRecentChooserFilter +#endif + +-- VVV Prop "limit" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@limit@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #limit +@ +-} +getRecentChooserLimit :: (MonadIO m, IsRecentChooser o) => o -> m Int32 +getRecentChooserLimit obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "limit" + +{- | +Set the value of the “@limit@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #limit 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserLimit :: (MonadIO m, IsRecentChooser o) => o -> Int32 -> m () +setRecentChooserLimit obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "limit" val + +{- | +Construct a `GValueConstruct` with valid value for the “@limit@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserLimit :: (IsRecentChooser o) => Int32 -> IO (GValueConstruct o) +constructRecentChooserLimit val = B.Properties.constructObjectPropertyInt32 "limit" val + +#if ENABLE_OVERLOADING +data RecentChooserLimitPropertyInfo +instance AttrInfo RecentChooserLimitPropertyInfo where + type AttrAllowedOps RecentChooserLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserLimitPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint RecentChooserLimitPropertyInfo = IsRecentChooser + type AttrGetType RecentChooserLimitPropertyInfo = Int32 + type AttrLabel RecentChooserLimitPropertyInfo = "limit" + type AttrOrigin RecentChooserLimitPropertyInfo = RecentChooser + attrGet _ = getRecentChooserLimit + attrSet _ = setRecentChooserLimit + attrConstruct _ = constructRecentChooserLimit + attrClear _ = undefined +#endif + +-- VVV Prop "local-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@local-only@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #localOnly +@ +-} +getRecentChooserLocalOnly :: (MonadIO m, IsRecentChooser o) => o -> m Bool +getRecentChooserLocalOnly obj = liftIO $ B.Properties.getObjectPropertyBool obj "local-only" + +{- | +Set the value of the “@local-only@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #localOnly 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserLocalOnly :: (MonadIO m, IsRecentChooser o) => o -> Bool -> m () +setRecentChooserLocalOnly obj val = liftIO $ B.Properties.setObjectPropertyBool obj "local-only" val + +{- | +Construct a `GValueConstruct` with valid value for the “@local-only@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserLocalOnly :: (IsRecentChooser o) => Bool -> IO (GValueConstruct o) +constructRecentChooserLocalOnly val = B.Properties.constructObjectPropertyBool "local-only" val + +#if ENABLE_OVERLOADING +data RecentChooserLocalOnlyPropertyInfo +instance AttrInfo RecentChooserLocalOnlyPropertyInfo where + type AttrAllowedOps RecentChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserLocalOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint RecentChooserLocalOnlyPropertyInfo = IsRecentChooser + type AttrGetType RecentChooserLocalOnlyPropertyInfo = Bool + type AttrLabel RecentChooserLocalOnlyPropertyInfo = "local-only" + type AttrOrigin RecentChooserLocalOnlyPropertyInfo = RecentChooser + attrGet _ = getRecentChooserLocalOnly + attrSet _ = setRecentChooserLocalOnly + attrConstruct _ = constructRecentChooserLocalOnly + attrClear _ = undefined +#endif + +-- VVV Prop "recent-manager" + -- Type: TInterface (Name {namespace = "Gtk", name = "RecentManager"}) + -- Flags: [PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) + +{- | +Construct a `GValueConstruct` with valid value for the “@recent-manager@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserRecentManager :: (IsRecentChooser o, Gtk.RecentManager.IsRecentManager a) => a -> IO (GValueConstruct o) +constructRecentChooserRecentManager val = B.Properties.constructObjectPropertyObject "recent-manager" (Just val) + +#if ENABLE_OVERLOADING +data RecentChooserRecentManagerPropertyInfo +instance AttrInfo RecentChooserRecentManagerPropertyInfo where + type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrClear] + type AttrSetTypeConstraint RecentChooserRecentManagerPropertyInfo = Gtk.RecentManager.IsRecentManager + type AttrBaseTypeConstraint RecentChooserRecentManagerPropertyInfo = IsRecentChooser + type AttrGetType RecentChooserRecentManagerPropertyInfo = () + type AttrLabel RecentChooserRecentManagerPropertyInfo = "recent-manager" + type AttrOrigin RecentChooserRecentManagerPropertyInfo = RecentChooser + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructRecentChooserRecentManager + attrClear _ = undefined +#endif + +-- VVV Prop "select-multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@select-multiple@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #selectMultiple +@ +-} +getRecentChooserSelectMultiple :: (MonadIO m, IsRecentChooser o) => o -> m Bool +getRecentChooserSelectMultiple obj = liftIO $ B.Properties.getObjectPropertyBool obj "select-multiple" + +{- | +Set the value of the “@select-multiple@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #selectMultiple 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserSelectMultiple :: (MonadIO m, IsRecentChooser o) => o -> Bool -> m () +setRecentChooserSelectMultiple obj val = liftIO $ B.Properties.setObjectPropertyBool obj "select-multiple" val + +{- | +Construct a `GValueConstruct` with valid value for the “@select-multiple@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserSelectMultiple :: (IsRecentChooser o) => Bool -> IO (GValueConstruct o) +constructRecentChooserSelectMultiple val = B.Properties.constructObjectPropertyBool "select-multiple" val + +#if ENABLE_OVERLOADING +data RecentChooserSelectMultiplePropertyInfo +instance AttrInfo RecentChooserSelectMultiplePropertyInfo where + type AttrAllowedOps RecentChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserSelectMultiplePropertyInfo = (~) Bool + type AttrBaseTypeConstraint RecentChooserSelectMultiplePropertyInfo = IsRecentChooser + type AttrGetType RecentChooserSelectMultiplePropertyInfo = Bool + type AttrLabel RecentChooserSelectMultiplePropertyInfo = "select-multiple" + type AttrOrigin RecentChooserSelectMultiplePropertyInfo = RecentChooser + attrGet _ = getRecentChooserSelectMultiple + attrSet _ = setRecentChooserSelectMultiple + attrConstruct _ = constructRecentChooserSelectMultiple + attrClear _ = undefined +#endif + +-- VVV Prop "show-icons" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-icons@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #showIcons +@ +-} +getRecentChooserShowIcons :: (MonadIO m, IsRecentChooser o) => o -> m Bool +getRecentChooserShowIcons obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-icons" + +{- | +Set the value of the “@show-icons@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #showIcons 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserShowIcons :: (MonadIO m, IsRecentChooser o) => o -> Bool -> m () +setRecentChooserShowIcons obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-icons" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-icons@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserShowIcons :: (IsRecentChooser o) => Bool -> IO (GValueConstruct o) +constructRecentChooserShowIcons val = B.Properties.constructObjectPropertyBool "show-icons" val + +#if ENABLE_OVERLOADING +data RecentChooserShowIconsPropertyInfo +instance AttrInfo RecentChooserShowIconsPropertyInfo where + type AttrAllowedOps RecentChooserShowIconsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserShowIconsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint RecentChooserShowIconsPropertyInfo = IsRecentChooser + type AttrGetType RecentChooserShowIconsPropertyInfo = Bool + type AttrLabel RecentChooserShowIconsPropertyInfo = "show-icons" + type AttrOrigin RecentChooserShowIconsPropertyInfo = RecentChooser + attrGet _ = getRecentChooserShowIcons + attrSet _ = setRecentChooserShowIcons + attrConstruct _ = constructRecentChooserShowIcons + attrClear _ = undefined +#endif + +-- VVV Prop "show-not-found" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-not-found@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #showNotFound +@ +-} +getRecentChooserShowNotFound :: (MonadIO m, IsRecentChooser o) => o -> m Bool +getRecentChooserShowNotFound obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-not-found" + +{- | +Set the value of the “@show-not-found@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #showNotFound 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserShowNotFound :: (MonadIO m, IsRecentChooser o) => o -> Bool -> m () +setRecentChooserShowNotFound obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-not-found" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-not-found@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserShowNotFound :: (IsRecentChooser o) => Bool -> IO (GValueConstruct o) +constructRecentChooserShowNotFound val = B.Properties.constructObjectPropertyBool "show-not-found" val + +#if ENABLE_OVERLOADING +data RecentChooserShowNotFoundPropertyInfo +instance AttrInfo RecentChooserShowNotFoundPropertyInfo where + type AttrAllowedOps RecentChooserShowNotFoundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserShowNotFoundPropertyInfo = (~) Bool + type AttrBaseTypeConstraint RecentChooserShowNotFoundPropertyInfo = IsRecentChooser + type AttrGetType RecentChooserShowNotFoundPropertyInfo = Bool + type AttrLabel RecentChooserShowNotFoundPropertyInfo = "show-not-found" + type AttrOrigin RecentChooserShowNotFoundPropertyInfo = RecentChooser + attrGet _ = getRecentChooserShowNotFound + attrSet _ = setRecentChooserShowNotFound + attrConstruct _ = constructRecentChooserShowNotFound + attrClear _ = undefined +#endif + +-- VVV Prop "show-private" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-private@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #showPrivate +@ +-} +getRecentChooserShowPrivate :: (MonadIO m, IsRecentChooser o) => o -> m Bool +getRecentChooserShowPrivate obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-private" + +{- | +Set the value of the “@show-private@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #showPrivate 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserShowPrivate :: (MonadIO m, IsRecentChooser o) => o -> Bool -> m () +setRecentChooserShowPrivate obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-private" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-private@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserShowPrivate :: (IsRecentChooser o) => Bool -> IO (GValueConstruct o) +constructRecentChooserShowPrivate val = B.Properties.constructObjectPropertyBool "show-private" val + +#if ENABLE_OVERLOADING +data RecentChooserShowPrivatePropertyInfo +instance AttrInfo RecentChooserShowPrivatePropertyInfo where + type AttrAllowedOps RecentChooserShowPrivatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserShowPrivatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint RecentChooserShowPrivatePropertyInfo = IsRecentChooser + type AttrGetType RecentChooserShowPrivatePropertyInfo = Bool + type AttrLabel RecentChooserShowPrivatePropertyInfo = "show-private" + type AttrOrigin RecentChooserShowPrivatePropertyInfo = RecentChooser + attrGet _ = getRecentChooserShowPrivate + attrSet _ = setRecentChooserShowPrivate + attrConstruct _ = constructRecentChooserShowPrivate + attrClear _ = undefined +#endif + +-- VVV Prop "show-tips" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-tips@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #showTips +@ +-} +getRecentChooserShowTips :: (MonadIO m, IsRecentChooser o) => o -> m Bool +getRecentChooserShowTips obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-tips" + +{- | +Set the value of the “@show-tips@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #showTips 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserShowTips :: (MonadIO m, IsRecentChooser o) => o -> Bool -> m () +setRecentChooserShowTips obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-tips" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-tips@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserShowTips :: (IsRecentChooser o) => Bool -> IO (GValueConstruct o) +constructRecentChooserShowTips val = B.Properties.constructObjectPropertyBool "show-tips" val + +#if ENABLE_OVERLOADING +data RecentChooserShowTipsPropertyInfo +instance AttrInfo RecentChooserShowTipsPropertyInfo where + type AttrAllowedOps RecentChooserShowTipsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserShowTipsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint RecentChooserShowTipsPropertyInfo = IsRecentChooser + type AttrGetType RecentChooserShowTipsPropertyInfo = Bool + type AttrLabel RecentChooserShowTipsPropertyInfo = "show-tips" + type AttrOrigin RecentChooserShowTipsPropertyInfo = RecentChooser + attrGet _ = getRecentChooserShowTips + attrSet _ = setRecentChooserShowTips + attrConstruct _ = constructRecentChooserShowTips + attrClear _ = undefined +#endif + +-- VVV Prop "sort-type" + -- Type: TInterface (Name {namespace = "Gtk", name = "RecentSortType"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@sort-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' recentChooser #sortType +@ +-} +getRecentChooserSortType :: (MonadIO m, IsRecentChooser o) => o -> m Gtk.Enums.RecentSortType +getRecentChooserSortType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "sort-type" + +{- | +Set the value of the “@sort-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' recentChooser [ #sortType 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setRecentChooserSortType :: (MonadIO m, IsRecentChooser o) => o -> Gtk.Enums.RecentSortType -> m () +setRecentChooserSortType obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "sort-type" val + +{- | +Construct a `GValueConstruct` with valid value for the “@sort-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructRecentChooserSortType :: (IsRecentChooser o) => Gtk.Enums.RecentSortType -> IO (GValueConstruct o) +constructRecentChooserSortType val = B.Properties.constructObjectPropertyEnum "sort-type" val + +#if ENABLE_OVERLOADING +data RecentChooserSortTypePropertyInfo +instance AttrInfo RecentChooserSortTypePropertyInfo where + type AttrAllowedOps RecentChooserSortTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserSortTypePropertyInfo = (~) Gtk.Enums.RecentSortType + type AttrBaseTypeConstraint RecentChooserSortTypePropertyInfo = IsRecentChooser + type AttrGetType RecentChooserSortTypePropertyInfo = Gtk.Enums.RecentSortType + type AttrLabel RecentChooserSortTypePropertyInfo = "sort-type" + type AttrOrigin RecentChooserSortTypePropertyInfo = RecentChooser + attrGet _ = getRecentChooserSortType + attrSet _ = setRecentChooserSortType + attrConstruct _ = constructRecentChooserSortType + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList RecentChooser +type instance O.AttributeList RecentChooser = RecentChooserAttributeList +type RecentChooserAttributeList = ('[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +recentChooserFilter :: AttrLabelProxy "filter" +recentChooserFilter = AttrLabelProxy + +recentChooserLimit :: AttrLabelProxy "limit" +recentChooserLimit = AttrLabelProxy + +recentChooserLocalOnly :: AttrLabelProxy "localOnly" +recentChooserLocalOnly = AttrLabelProxy + +recentChooserRecentManager :: AttrLabelProxy "recentManager" +recentChooserRecentManager = AttrLabelProxy + +recentChooserSelectMultiple :: AttrLabelProxy "selectMultiple" +recentChooserSelectMultiple = AttrLabelProxy + +recentChooserShowIcons :: AttrLabelProxy "showIcons" +recentChooserShowIcons = AttrLabelProxy + +recentChooserShowNotFound :: AttrLabelProxy "showNotFound" +recentChooserShowNotFound = AttrLabelProxy + +recentChooserShowPrivate :: AttrLabelProxy "showPrivate" +recentChooserShowPrivate = AttrLabelProxy + +recentChooserShowTips :: AttrLabelProxy "showTips" +recentChooserShowTips = AttrLabelProxy + +recentChooserSortType :: AttrLabelProxy "sortType" +recentChooserSortType = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveRecentChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentChooserMethod "addFilter" o = RecentChooserAddFilterMethodInfo + ResolveRecentChooserMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveRecentChooserMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveRecentChooserMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveRecentChooserMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveRecentChooserMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveRecentChooserMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveRecentChooserMethod "listFilters" o = RecentChooserListFiltersMethodInfo + ResolveRecentChooserMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveRecentChooserMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveRecentChooserMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveRecentChooserMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveRecentChooserMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo + ResolveRecentChooserMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveRecentChooserMethod "selectAll" o = RecentChooserSelectAllMethodInfo + ResolveRecentChooserMethod "selectUri" o = RecentChooserSelectUriMethodInfo + ResolveRecentChooserMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveRecentChooserMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveRecentChooserMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveRecentChooserMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveRecentChooserMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo + ResolveRecentChooserMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo + ResolveRecentChooserMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveRecentChooserMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo + ResolveRecentChooserMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo + ResolveRecentChooserMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveRecentChooserMethod "getFilter" o = RecentChooserGetFilterMethodInfo + ResolveRecentChooserMethod "getItems" o = RecentChooserGetItemsMethodInfo + ResolveRecentChooserMethod "getLimit" o = RecentChooserGetLimitMethodInfo + ResolveRecentChooserMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo + ResolveRecentChooserMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveRecentChooserMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveRecentChooserMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo + ResolveRecentChooserMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo + ResolveRecentChooserMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo + ResolveRecentChooserMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo + ResolveRecentChooserMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo + ResolveRecentChooserMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo + ResolveRecentChooserMethod "getUris" o = RecentChooserGetUrisMethodInfo + ResolveRecentChooserMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo + ResolveRecentChooserMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveRecentChooserMethod "setFilter" o = RecentChooserSetFilterMethodInfo + ResolveRecentChooserMethod "setLimit" o = RecentChooserSetLimitMethodInfo + ResolveRecentChooserMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo + ResolveRecentChooserMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveRecentChooserMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo + ResolveRecentChooserMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo + ResolveRecentChooserMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo + ResolveRecentChooserMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo + ResolveRecentChooserMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo + ResolveRecentChooserMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo + ResolveRecentChooserMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo + ResolveRecentChooserMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveRecentChooserMethod t RecentChooser, O.MethodInfo info RecentChooser p) => OL.IsLabel t (RecentChooser -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method RecentChooser::add_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Gtk", name = "RecentFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_add_filter" gtk_recent_chooser_add_filter :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + Ptr Gtk.RecentFilter.RecentFilter -> -- filter : TInterface (Name {namespace = "Gtk", name = "RecentFilter"}) + IO () + +{- | +Adds /@filter@/ to the list of 'GI.Gtk.Objects.RecentFilter.RecentFilter' objects held by /@chooser@/. + +If no previous filter objects were defined, this function will call +'GI.Gtk.Interfaces.RecentChooser.recentChooserSetFilter'. + +/Since: 2.10/ +-} +recentChooserAddFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a, Gtk.RecentFilter.IsRecentFilter b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> b + {- ^ /@filter@/: a 'GI.Gtk.Objects.RecentFilter.RecentFilter' -} + -> m () +recentChooserAddFilter chooser filter = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filter' <- unsafeManagedPtrCastPtr filter + gtk_recent_chooser_add_filter chooser' filter' + touchManagedPtr chooser + touchManagedPtr filter + return () + +#if ENABLE_OVERLOADING +data RecentChooserAddFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsRecentChooser a, Gtk.RecentFilter.IsRecentFilter b) => O.MethodInfo RecentChooserAddFilterMethodInfo a signature where + overloadedMethod _ = recentChooserAddFilter + +#endif + +-- method RecentChooser::get_current_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "RecentInfo"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_current_item" gtk_recent_chooser_get_current_item :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO (Ptr Gtk.RecentInfo.RecentInfo) + +{- | +Gets the 'GI.Gtk.Structs.RecentInfo.RecentInfo' currently selected by /@chooser@/. + +/Since: 2.10/ +-} +recentChooserGetCurrentItem :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Gtk.RecentInfo.RecentInfo + {- ^ __Returns:__ a 'GI.Gtk.Structs.RecentInfo.RecentInfo'. Use 'GI.Gtk.Structs.RecentInfo.recentInfoUnref' when + when you have finished using it. -} +recentChooserGetCurrentItem chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_current_item chooser' + checkUnexpectedReturnNULL "recentChooserGetCurrentItem" result + result' <- (wrapBoxed Gtk.RecentInfo.RecentInfo) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetCurrentItemMethodInfo +instance (signature ~ (m Gtk.RecentInfo.RecentInfo), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetCurrentItemMethodInfo a signature where + overloadedMethod _ = recentChooserGetCurrentItem + +#endif + +-- method RecentChooser::get_current_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_current_uri" gtk_recent_chooser_get_current_uri :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CString + +{- | +Gets the URI currently selected by /@chooser@/. + +/Since: 2.10/ +-} +recentChooserGetCurrentUri :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m T.Text + {- ^ __Returns:__ a newly allocated string holding a URI. -} +recentChooserGetCurrentUri chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_current_uri chooser' + checkUnexpectedReturnNULL "recentChooserGetCurrentUri" result + result' <- cstringToText result + freeMem result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetCurrentUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetCurrentUriMethodInfo a signature where + overloadedMethod _ = recentChooserGetCurrentUri + +#endif + +-- method RecentChooser::get_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "RecentFilter"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_filter" gtk_recent_chooser_get_filter :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO (Ptr Gtk.RecentFilter.RecentFilter) + +{- | +Gets the 'GI.Gtk.Objects.RecentFilter.RecentFilter' object currently used by /@chooser@/ to affect +the display of the recently used resources. + +/Since: 2.10/ +-} +recentChooserGetFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Gtk.RecentFilter.RecentFilter + {- ^ __Returns:__ a 'GI.Gtk.Objects.RecentFilter.RecentFilter' object. -} +recentChooserGetFilter chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_filter chooser' + checkUnexpectedReturnNULL "recentChooserGetFilter" result + result' <- (newObject Gtk.RecentFilter.RecentFilter) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetFilterMethodInfo +instance (signature ~ (m Gtk.RecentFilter.RecentFilter), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetFilterMethodInfo a signature where + overloadedMethod _ = recentChooserGetFilter + +#endif + +-- method RecentChooser::get_items +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGList (TInterface (Name {namespace = "Gtk", name = "RecentInfo"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_items" gtk_recent_chooser_get_items :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO (Ptr (GList (Ptr Gtk.RecentInfo.RecentInfo))) + +{- | +Gets the list of recently used resources in form of 'GI.Gtk.Structs.RecentInfo.RecentInfo' objects. + +The return value of this function is affected by the “sort-type” and +“limit” properties of /@chooser@/. + +/Since: 2.10/ +-} +recentChooserGetItems :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m [Gtk.RecentInfo.RecentInfo] + {- ^ __Returns:__ A newly allocated + list of 'GI.Gtk.Structs.RecentInfo.RecentInfo' objects. You should + use 'GI.Gtk.Structs.RecentInfo.recentInfoUnref' on every item of the list, and then free + the list itself using @/g_list_free()/@. -} +recentChooserGetItems chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_items chooser' + result' <- unpackGList result + result'' <- mapM (wrapBoxed Gtk.RecentInfo.RecentInfo) result' + g_list_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data RecentChooserGetItemsMethodInfo +instance (signature ~ (m [Gtk.RecentInfo.RecentInfo]), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetItemsMethodInfo a signature where + overloadedMethod _ = recentChooserGetItems + +#endif + +-- method RecentChooser::get_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_limit" gtk_recent_chooser_get_limit :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO Int32 + +{- | +Gets the number of items returned by 'GI.Gtk.Interfaces.RecentChooser.recentChooserGetItems' +and 'GI.Gtk.Interfaces.RecentChooser.recentChooserGetUris'. + +/Since: 2.10/ +-} +recentChooserGetLimit :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Int32 + {- ^ __Returns:__ A positive integer, or -1 meaning that all items are + returned. -} +recentChooserGetLimit chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_limit chooser' + touchManagedPtr chooser + return result + +#if ENABLE_OVERLOADING +data RecentChooserGetLimitMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetLimitMethodInfo a signature where + overloadedMethod _ = recentChooserGetLimit + +#endif + +-- method RecentChooser::get_local_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_local_only" gtk_recent_chooser_get_local_only :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CInt + +{- | +Gets whether only local resources should be shown in the recently used +resources selector. See 'GI.Gtk.Interfaces.RecentChooser.recentChooserSetLocalOnly' + +/Since: 2.10/ +-} +recentChooserGetLocalOnly :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if only local resources should be shown. -} +recentChooserGetLocalOnly chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_local_only chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetLocalOnlyMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetLocalOnlyMethodInfo a signature where + overloadedMethod _ = recentChooserGetLocalOnly + +#endif + +-- method RecentChooser::get_select_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_select_multiple" gtk_recent_chooser_get_select_multiple :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CInt + +{- | +Gets whether /@chooser@/ can select multiple items. + +/Since: 2.10/ +-} +recentChooserGetSelectMultiple :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if /@chooser@/ can select more than one item. -} +recentChooserGetSelectMultiple chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_select_multiple chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetSelectMultipleMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetSelectMultipleMethodInfo a signature where + overloadedMethod _ = recentChooserGetSelectMultiple + +#endif + +-- method RecentChooser::get_show_icons +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_show_icons" gtk_recent_chooser_get_show_icons :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CInt + +{- | +Retrieves whether /@chooser@/ should show an icon near the resource. + +/Since: 2.10/ +-} +recentChooserGetShowIcons :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the icons should be displayed, 'False' otherwise. -} +recentChooserGetShowIcons chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_show_icons chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetShowIconsMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetShowIconsMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowIcons + +#endif + +-- method RecentChooser::get_show_not_found +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_show_not_found" gtk_recent_chooser_get_show_not_found :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CInt + +{- | +Retrieves whether /@chooser@/ should show the recently used resources that +were not found. + +/Since: 2.10/ +-} +recentChooserGetShowNotFound :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the resources not found should be displayed, and + 'False' otheriwse. -} +recentChooserGetShowNotFound chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_show_not_found chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetShowNotFoundMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetShowNotFoundMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowNotFound + +#endif + +-- method RecentChooser::get_show_private +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_show_private" gtk_recent_chooser_get_show_private :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CInt + +{- | +Returns whether /@chooser@/ should display recently used resources +registered as private. + +/Since: 2.10/ +-} +recentChooserGetShowPrivate :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the recent chooser should show private items, + 'False' otherwise. -} +recentChooserGetShowPrivate chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_show_private chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetShowPrivateMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetShowPrivateMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowPrivate + +#endif + +-- method RecentChooser::get_show_tips +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_show_tips" gtk_recent_chooser_get_show_tips :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CInt + +{- | +Gets whether /@chooser@/ should display tooltips containing the full path +of a recently user resource. + +/Since: 2.10/ +-} +recentChooserGetShowTips :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Bool + {- ^ __Returns:__ 'True' if the recent chooser should show tooltips, + 'False' otherwise. -} +recentChooserGetShowTips chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_show_tips chooser' + let result' = (/= 0) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetShowTipsMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetShowTipsMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowTips + +#endif + +-- method RecentChooser::get_sort_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "RecentSortType"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_sort_type" gtk_recent_chooser_get_sort_type :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO CUInt + +{- | +Gets the value set by 'GI.Gtk.Interfaces.RecentChooser.recentChooserSetSortType'. + +/Since: 2.10/ +-} +recentChooserGetSortType :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m Gtk.Enums.RecentSortType + {- ^ __Returns:__ the sorting order of the /@chooser@/. -} +recentChooserGetSortType chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_get_sort_type chooser' + let result' = (toEnum . fromIntegral) result + touchManagedPtr chooser + return result' + +#if ENABLE_OVERLOADING +data RecentChooserGetSortTypeMethodInfo +instance (signature ~ (m Gtk.Enums.RecentSortType), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetSortTypeMethodInfo a signature where + overloadedMethod _ = recentChooserGetSortType + +#endif + +-- method RecentChooser::get_uris +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for a the length of the\n URI list, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_get_uris" gtk_recent_chooser_get_uris :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + Ptr Word64 -> -- length : TBasicType TUInt64 + IO (Ptr CString) + +{- | +Gets the URI of the recently used resources. + +The return value of this function is affected by the “sort-type” and “limit” +properties of /@chooser@/. + +Since the returned array is 'Nothing' terminated, /@length@/ may be 'Nothing'. + +/Since: 2.10/ +-} +recentChooserGetUris :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m (([T.Text], Word64)) + {- ^ __Returns:__ + A newly allocated, 'Nothing'-terminated array of strings. Use + 'GI.GLib.Functions.strfreev' to free it. -} +recentChooserGetUris chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + length_ <- allocMem :: IO (Ptr Word64) + result <- gtk_recent_chooser_get_uris chooser' length_ + checkUnexpectedReturnNULL "recentChooserGetUris" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + length_' <- peek length_ + touchManagedPtr chooser + freeMem length_ + return (result', length_') + +#if ENABLE_OVERLOADING +data RecentChooserGetUrisMethodInfo +instance (signature ~ (m (([T.Text], Word64))), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserGetUrisMethodInfo a signature where + overloadedMethod _ = recentChooserGetUris + +#endif + +-- method RecentChooser::list_filters +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TInterface (Name {namespace = "Gtk", name = "RecentFilter"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_list_filters" gtk_recent_chooser_list_filters :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO (Ptr (GSList (Ptr Gtk.RecentFilter.RecentFilter))) + +{- | +Gets the 'GI.Gtk.Objects.RecentFilter.RecentFilter' objects held by /@chooser@/. + +/Since: 2.10/ +-} +recentChooserListFilters :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m [Gtk.RecentFilter.RecentFilter] + {- ^ __Returns:__ A singly linked list + of 'GI.Gtk.Objects.RecentFilter.RecentFilter' objects. You + should just free the returned list using @/g_slist_free()/@. -} +recentChooserListFilters chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + result <- gtk_recent_chooser_list_filters chooser' + result' <- unpackGSList result + result'' <- mapM (newObject Gtk.RecentFilter.RecentFilter) result' + g_slist_free result + touchManagedPtr chooser + return result'' + +#if ENABLE_OVERLOADING +data RecentChooserListFiltersMethodInfo +instance (signature ~ (m [Gtk.RecentFilter.RecentFilter]), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserListFiltersMethodInfo a signature where + overloadedMethod _ = recentChooserListFilters + +#endif + +-- method RecentChooser::remove_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Gtk", name = "RecentFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_remove_filter" gtk_recent_chooser_remove_filter :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + Ptr Gtk.RecentFilter.RecentFilter -> -- filter : TInterface (Name {namespace = "Gtk", name = "RecentFilter"}) + IO () + +{- | +Removes /@filter@/ from the list of 'GI.Gtk.Objects.RecentFilter.RecentFilter' objects held by /@chooser@/. + +/Since: 2.10/ +-} +recentChooserRemoveFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a, Gtk.RecentFilter.IsRecentFilter b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> b + {- ^ /@filter@/: a 'GI.Gtk.Objects.RecentFilter.RecentFilter' -} + -> m () +recentChooserRemoveFilter chooser filter = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + filter' <- unsafeManagedPtrCastPtr filter + gtk_recent_chooser_remove_filter chooser' filter' + touchManagedPtr chooser + touchManagedPtr filter + return () + +#if ENABLE_OVERLOADING +data RecentChooserRemoveFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsRecentChooser a, Gtk.RecentFilter.IsRecentFilter b) => O.MethodInfo RecentChooserRemoveFilterMethodInfo a signature where + overloadedMethod _ = recentChooserRemoveFilter + +#endif + +-- method RecentChooser::select_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_select_all" gtk_recent_chooser_select_all :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO () + +{- | +Selects all the items inside /@chooser@/, if the /@chooser@/ supports +multiple selection. + +/Since: 2.10/ +-} +recentChooserSelectAll :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m () +recentChooserSelectAll chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + gtk_recent_chooser_select_all chooser' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSelectAllMethodInfo a signature where + overloadedMethod _ = recentChooserSelectAll + +#endif + +-- method RecentChooser::select_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_select_uri" gtk_recent_chooser_select_uri :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Selects /@uri@/ inside /@chooser@/. + +/Since: 2.10/ +-} +recentChooserSelectUri :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> T.Text + {- ^ /@uri@/: a URI -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +recentChooserSelectUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_recent_chooser_select_uri chooser' uri' + touchManagedPtr chooser + freeMem uri' + return () + ) (do + freeMem uri' + ) + +#if ENABLE_OVERLOADING +data RecentChooserSelectUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSelectUriMethodInfo a signature where + overloadedMethod _ = recentChooserSelectUri + +#endif + +-- method RecentChooser::set_current_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_current_uri" gtk_recent_chooser_set_current_uri :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + +{- | +Sets /@uri@/ as the current URI for /@chooser@/. + +/Since: 2.10/ +-} +recentChooserSetCurrentUri :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> T.Text + {- ^ /@uri@/: a URI -} + -> m () + {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -} +recentChooserSetCurrentUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_recent_chooser_set_current_uri chooser' uri' + touchManagedPtr chooser + freeMem uri' + return () + ) (do + freeMem uri' + ) + +#if ENABLE_OVERLOADING +data RecentChooserSetCurrentUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetCurrentUriMethodInfo a signature where + overloadedMethod _ = recentChooserSetCurrentUri + +#endif + +-- method RecentChooser::set_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Gtk", name = "RecentFilter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkRecentFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_filter" gtk_recent_chooser_set_filter :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + Ptr Gtk.RecentFilter.RecentFilter -> -- filter : TInterface (Name {namespace = "Gtk", name = "RecentFilter"}) + IO () + +{- | +Sets /@filter@/ as the current 'GI.Gtk.Objects.RecentFilter.RecentFilter' object used by /@chooser@/ +to affect the displayed recently used resources. + +/Since: 2.10/ +-} +recentChooserSetFilter :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a, Gtk.RecentFilter.IsRecentFilter b) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Maybe (b) + {- ^ /@filter@/: a 'GI.Gtk.Objects.RecentFilter.RecentFilter' -} + -> m () +recentChooserSetFilter chooser filter = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + maybeFilter <- case filter of + Nothing -> return nullPtr + Just jFilter -> do + jFilter' <- unsafeManagedPtrCastPtr jFilter + return jFilter' + gtk_recent_chooser_set_filter chooser' maybeFilter + touchManagedPtr chooser + whenJust filter touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetFilterMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsRecentChooser a, Gtk.RecentFilter.IsRecentFilter b) => O.MethodInfo RecentChooserSetFilterMethodInfo a signature where + overloadedMethod _ = recentChooserSetFilter + +#endif + +-- method RecentChooser::set_limit +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a positive integer, or -1 for all items", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_limit" gtk_recent_chooser_set_limit :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + Int32 -> -- limit : TBasicType TInt + IO () + +{- | +Sets the number of items that should be returned by +'GI.Gtk.Interfaces.RecentChooser.recentChooserGetItems' and 'GI.Gtk.Interfaces.RecentChooser.recentChooserGetUris'. + +/Since: 2.10/ +-} +recentChooserSetLimit :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Int32 + {- ^ /@limit@/: a positive integer, or -1 for all items -} + -> m () +recentChooserSetLimit chooser limit = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + gtk_recent_chooser_set_limit chooser' limit + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetLimitMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetLimitMethodInfo a signature where + overloadedMethod _ = recentChooserSetLimit + +#endif + +-- method RecentChooser::set_local_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if only local files can be shown", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_local_only" gtk_recent_chooser_set_local_only :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CInt -> -- local_only : TBasicType TBoolean + IO () + +{- | +Sets whether only local resources, that is resources using the file:\/\/ URI +scheme, should be shown in the recently used resources selector. If +/@localOnly@/ is 'True' (the default) then the shown resources are guaranteed +to be accessible through the operating system native file system. + +/Since: 2.10/ +-} +recentChooserSetLocalOnly :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Bool + {- ^ /@localOnly@/: 'True' if only local files can be shown -} + -> m () +recentChooserSetLocalOnly chooser localOnly = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let localOnly' = (fromIntegral . fromEnum) localOnly + gtk_recent_chooser_set_local_only chooser' localOnly' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetLocalOnlyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetLocalOnlyMethodInfo a signature where + overloadedMethod _ = recentChooserSetLocalOnly + +#endif + +-- method RecentChooser::set_select_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if @chooser can select more than one item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_select_multiple" gtk_recent_chooser_set_select_multiple :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CInt -> -- select_multiple : TBasicType TBoolean + IO () + +{- | +Sets whether /@chooser@/ can select multiple items. + +/Since: 2.10/ +-} +recentChooserSetSelectMultiple :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Bool + {- ^ /@selectMultiple@/: 'True' if /@chooser@/ can select more than one item -} + -> m () +recentChooserSetSelectMultiple chooser selectMultiple = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let selectMultiple' = (fromIntegral . fromEnum) selectMultiple + gtk_recent_chooser_set_select_multiple chooser' selectMultiple' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetSelectMultipleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetSelectMultipleMethodInfo a signature where + overloadedMethod _ = recentChooserSetSelectMultiple + +#endif + +-- method RecentChooser::set_show_icons +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to show an icon near the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_show_icons" gtk_recent_chooser_set_show_icons :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CInt -> -- show_icons : TBasicType TBoolean + IO () + +{- | +Sets whether /@chooser@/ should show an icon near the resource when +displaying it. + +/Since: 2.10/ +-} +recentChooserSetShowIcons :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Bool + {- ^ /@showIcons@/: whether to show an icon near the resource -} + -> m () +recentChooserSetShowIcons chooser showIcons = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let showIcons' = (fromIntegral . fromEnum) showIcons + gtk_recent_chooser_set_show_icons chooser' showIcons' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetShowIconsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetShowIconsMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowIcons + +#endif + +-- method RecentChooser::set_show_not_found +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to show the local items we didn\8217t find", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_show_not_found" gtk_recent_chooser_set_show_not_found :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CInt -> -- show_not_found : TBasicType TBoolean + IO () + +{- | +Sets whether /@chooser@/ should display the recently used resources that +it didn’t find. This only applies to local resources. + +/Since: 2.10/ +-} +recentChooserSetShowNotFound :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Bool + {- ^ /@showNotFound@/: whether to show the local items we didn’t find -} + -> m () +recentChooserSetShowNotFound chooser showNotFound = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let showNotFound' = (fromIntegral . fromEnum) showNotFound + gtk_recent_chooser_set_show_not_found chooser' showNotFound' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetShowNotFoundMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetShowNotFoundMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowNotFound + +#endif + +-- method RecentChooser::set_show_private +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to show private items, %FALSE otherwise", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_show_private" gtk_recent_chooser_set_show_private :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CInt -> -- show_private : TBasicType TBoolean + IO () + +{- | +Whether to show recently used resources marked registered as private. + +/Since: 2.10/ +-} +recentChooserSetShowPrivate :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Bool + {- ^ /@showPrivate@/: 'True' to show private items, 'False' otherwise -} + -> m () +recentChooserSetShowPrivate chooser showPrivate = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let showPrivate' = (fromIntegral . fromEnum) showPrivate + gtk_recent_chooser_set_show_private chooser' showPrivate' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetShowPrivateMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetShowPrivateMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowPrivate + +#endif + +-- method RecentChooser::set_show_tips +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if tooltips should be shown", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_show_tips" gtk_recent_chooser_set_show_tips :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CInt -> -- show_tips : TBasicType TBoolean + IO () + +{- | +Sets whether to show a tooltips containing the full path of each +recently used resource in a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' widget. + +/Since: 2.10/ +-} +recentChooserSetShowTips :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Bool + {- ^ /@showTips@/: 'True' if tooltips should be shown -} + -> m () +recentChooserSetShowTips chooser showTips = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let showTips' = (fromIntegral . fromEnum) showTips + gtk_recent_chooser_set_show_tips chooser' showTips' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetShowTipsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetShowTipsMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowTips + +#endif + +-- method RecentChooser::set_sort_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface (Name {namespace = "Gtk", name = "RecentSortFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the comparison function", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to pass to @sort_func, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "destroy notifier for @sort_data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_sort_func" gtk_recent_chooser_set_sort_func :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + FunPtr Gtk.Callbacks.C_RecentSortFunc -> -- sort_func : TInterface (Name {namespace = "Gtk", name = "RecentSortFunc"}) + Ptr () -> -- sort_data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- data_destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{- | +Sets the comparison function used when sorting to be /@sortFunc@/. If +the /@chooser@/ has the sort type set to @/GTK_RECENT_SORT_CUSTOM/@ then +the chooser will sort using this function. + +To the comparison function will be passed two 'GI.Gtk.Structs.RecentInfo.RecentInfo' structs and +/@sortData@/; /@sortFunc@/ should return a positive integer if the first +item comes before the second, zero if the two items are equal and +a negative integer if the first item comes after the second. + +/Since: 2.10/ +-} +recentChooserSetSortFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Gtk.Callbacks.RecentSortFunc + {- ^ /@sortFunc@/: the comparison function -} + -> m () +recentChooserSetSortFunc chooser sortFunc = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + sortFunc' <- Gtk.Callbacks.mk_RecentSortFunc (Gtk.Callbacks.wrap_RecentSortFunc Nothing (Gtk.Callbacks.drop_closures_RecentSortFunc sortFunc)) + let sortData = castFunPtrToPtr sortFunc' + let dataDestroy = safeFreeFunPtrPtr + gtk_recent_chooser_set_sort_func chooser' sortFunc' sortData dataDestroy + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetSortFuncMethodInfo +instance (signature ~ (Gtk.Callbacks.RecentSortFunc -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetSortFuncMethodInfo a signature where + overloadedMethod _ = recentChooserSetSortFunc + +#endif + +-- method RecentChooser::set_sort_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_type", argType = TInterface (Name {namespace = "Gtk", name = "RecentSortType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "sort order that the chooser should use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_set_sort_type" gtk_recent_chooser_set_sort_type :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CUInt -> -- sort_type : TInterface (Name {namespace = "Gtk", name = "RecentSortType"}) + IO () + +{- | +Changes the sorting order of the recently used resources list displayed by +/@chooser@/. + +/Since: 2.10/ +-} +recentChooserSetSortType :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> Gtk.Enums.RecentSortType + {- ^ /@sortType@/: sort order that the chooser should use -} + -> m () +recentChooserSetSortType chooser sortType = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + let sortType' = (fromIntegral . fromEnum) sortType + gtk_recent_chooser_set_sort_type chooser' sortType' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserSetSortTypeMethodInfo +instance (signature ~ (Gtk.Enums.RecentSortType -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserSetSortTypeMethodInfo a signature where + overloadedMethod _ = recentChooserSetSortType + +#endif + +-- method RecentChooser::unselect_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_unselect_all" gtk_recent_chooser_unselect_all :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + IO () + +{- | +Unselects all the items inside /@chooser@/. + +/Since: 2.10/ +-} +recentChooserUnselectAll :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> m () +recentChooserUnselectAll chooser = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + gtk_recent_chooser_unselect_all chooser' + touchManagedPtr chooser + return () + +#if ENABLE_OVERLOADING +data RecentChooserUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserUnselectAllMethodInfo a signature where + overloadedMethod _ = recentChooserUnselectAll + +#endif + +-- method RecentChooser::unselect_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "chooser", argType = TInterface (Name {namespace = "Gtk", name = "RecentChooser"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkRecentChooser", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_recent_chooser_unselect_uri" gtk_recent_chooser_unselect_uri :: + Ptr RecentChooser -> -- chooser : TInterface (Name {namespace = "Gtk", name = "RecentChooser"}) + CString -> -- uri : TBasicType TUTF8 + IO () + +{- | +Unselects /@uri@/ inside /@chooser@/. + +/Since: 2.10/ +-} +recentChooserUnselectUri :: + (B.CallStack.HasCallStack, MonadIO m, IsRecentChooser a) => + a + {- ^ /@chooser@/: a 'GI.Gtk.Interfaces.RecentChooser.RecentChooser' -} + -> T.Text + {- ^ /@uri@/: a URI -} + -> m () +recentChooserUnselectUri chooser uri = liftIO $ do + chooser' <- unsafeManagedPtrCastPtr chooser + uri' <- textToCString uri + gtk_recent_chooser_unselect_uri chooser' uri' + touchManagedPtr chooser + freeMem uri' + return () + +#if ENABLE_OVERLOADING +data RecentChooserUnselectUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsRecentChooser a) => O.MethodInfo RecentChooserUnselectUriMethodInfo a signature where + overloadedMethod _ = recentChooserUnselectUri + +#endif + + diff --git a/GI/Gtk/Interfaces/RecentChooser.hs-boot b/GI/Gtk/Interfaces/RecentChooser.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/RecentChooser.hs-boot @@ -0,0 +1,158 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.RecentChooser where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype RecentChooser = RecentChooser (ManagedPtr RecentChooser) +#if ENABLE_OVERLOADING +data RecentChooserItemActivatedSignalInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSelectionChangedSignalInfo +#endif +instance GObject RecentChooser where +class (GObject o, O.IsDescendantOf RecentChooser o) => IsRecentChooser o +instance (GObject o, O.IsDescendantOf RecentChooser o) => IsRecentChooser o +instance O.HasParentTypes RecentChooser +#if ENABLE_OVERLOADING +data RecentChooserFilterPropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserLimitPropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserLocalOnlyPropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserRecentManagerPropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSelectMultiplePropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserShowIconsPropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserShowNotFoundPropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserShowPrivatePropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserShowTipsPropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSortTypePropertyInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserAddFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetCurrentItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetCurrentUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetItemsMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetLimitMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetLocalOnlyMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetSelectMultipleMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetShowIconsMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetShowNotFoundMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetShowPrivateMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetShowTipsMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetSortTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserGetUrisMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserListFiltersMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserRemoveFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSelectAllMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSelectUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetCurrentUriMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetFilterMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetLimitMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetLocalOnlyMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetSelectMultipleMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetShowIconsMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetShowNotFoundMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetShowPrivateMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetShowTipsMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetSortFuncMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserSetSortTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserUnselectAllMethodInfo +#endif +#if ENABLE_OVERLOADING +data RecentChooserUnselectUriMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/Scrollable.hs b/GI/Gtk/Interfaces/Scrollable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Scrollable.hs @@ -0,0 +1,896 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.Scrollable.Scrollable' is an interface that is implemented by widgets with native +scrolling ability. + +To implement this interface you should override the +'GI.Gtk.Interfaces.Scrollable.Scrollable':@/hadjustment/@ and 'GI.Gtk.Interfaces.Scrollable.Scrollable':@/vadjustment/@ properties. + +== Creating a scrollable widget + +All scrollable widgets should do the following. + +* When a parent widget sets the scrollable child widget’s adjustments, +the widget should populate the adjustments’ +'GI.Gtk.Objects.Adjustment.Adjustment':@/lower/@, 'GI.Gtk.Objects.Adjustment.Adjustment':@/upper/@, +'GI.Gtk.Objects.Adjustment.Adjustment':@/step-increment/@, 'GI.Gtk.Objects.Adjustment.Adjustment':@/page-increment/@ and +'GI.Gtk.Objects.Adjustment.Adjustment':@/page-size/@ properties and connect to the +'GI.Gtk.Objects.Adjustment.Adjustment'::@/value-changed/@ signal. +* Because its preferred size is the size for a fully expanded widget, +the scrollable widget must be able to cope with underallocations. +This means that it must accept any value passed to its +'GI.Gtk.Structs.WidgetClass.WidgetClass'.@/size_allocate/@() function. +* When the parent allocates space to the scrollable child widget, +the widget should update the adjustments’ properties with new values. +* When any of the adjustments emits the 'GI.Gtk.Objects.Adjustment.Adjustment'::@/value-changed/@ signal, +the scrollable widget should scroll its contents. + +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.Scrollable + ( + +-- * Exported types + Scrollable(..) , + noScrollable , + IsScrollable , + toScrollable , + + + -- * Methods +-- ** getBorder #method:getBorder# + +#if ENABLE_OVERLOADING + ScrollableGetBorderMethodInfo , +#endif + scrollableGetBorder , + + +-- ** getHadjustment #method:getHadjustment# + +#if ENABLE_OVERLOADING + ScrollableGetHadjustmentMethodInfo , +#endif + scrollableGetHadjustment , + + +-- ** getHscrollPolicy #method:getHscrollPolicy# + +#if ENABLE_OVERLOADING + ScrollableGetHscrollPolicyMethodInfo , +#endif + scrollableGetHscrollPolicy , + + +-- ** getVadjustment #method:getVadjustment# + +#if ENABLE_OVERLOADING + ScrollableGetVadjustmentMethodInfo , +#endif + scrollableGetVadjustment , + + +-- ** getVscrollPolicy #method:getVscrollPolicy# + +#if ENABLE_OVERLOADING + ScrollableGetVscrollPolicyMethodInfo , +#endif + scrollableGetVscrollPolicy , + + +-- ** setHadjustment #method:setHadjustment# + +#if ENABLE_OVERLOADING + ScrollableSetHadjustmentMethodInfo , +#endif + scrollableSetHadjustment , + + +-- ** setHscrollPolicy #method:setHscrollPolicy# + +#if ENABLE_OVERLOADING + ScrollableSetHscrollPolicyMethodInfo , +#endif + scrollableSetHscrollPolicy , + + +-- ** setVadjustment #method:setVadjustment# + +#if ENABLE_OVERLOADING + ScrollableSetVadjustmentMethodInfo , +#endif + scrollableSetVadjustment , + + +-- ** setVscrollPolicy #method:setVscrollPolicy# + +#if ENABLE_OVERLOADING + ScrollableSetVscrollPolicyMethodInfo , +#endif + scrollableSetVscrollPolicy , + + + + + -- * Properties +-- ** hadjustment #attr:hadjustment# +{- | Horizontal 'GI.Gtk.Objects.Adjustment.Adjustment' of the scrollable widget. This adjustment is +shared between the scrollable widget and its parent. + +/Since: 3.0/ +-} +#if ENABLE_OVERLOADING + ScrollableHadjustmentPropertyInfo , +#endif + clearScrollableHadjustment , + constructScrollableHadjustment , + getScrollableHadjustment , +#if ENABLE_OVERLOADING + scrollableHadjustment , +#endif + setScrollableHadjustment , + + +-- ** hscrollPolicy #attr:hscrollPolicy# +{- | Determines whether horizontal scrolling should start once the scrollable +widget is allocated less than its minimum width or less than its natural width. + +/Since: 3.0/ +-} +#if ENABLE_OVERLOADING + ScrollableHscrollPolicyPropertyInfo , +#endif + constructScrollableHscrollPolicy , + getScrollableHscrollPolicy , +#if ENABLE_OVERLOADING + scrollableHscrollPolicy , +#endif + setScrollableHscrollPolicy , + + +-- ** vadjustment #attr:vadjustment# +{- | Verical 'GI.Gtk.Objects.Adjustment.Adjustment' of the scrollable widget. This adjustment is shared +between the scrollable widget and its parent. + +/Since: 3.0/ +-} +#if ENABLE_OVERLOADING + ScrollableVadjustmentPropertyInfo , +#endif + clearScrollableVadjustment , + constructScrollableVadjustment , + getScrollableVadjustment , +#if ENABLE_OVERLOADING + scrollableVadjustment , +#endif + setScrollableVadjustment , + + +-- ** vscrollPolicy #attr:vscrollPolicy# +{- | Determines whether vertical scrolling should start once the scrollable +widget is allocated less than its minimum height or less than its natural height. + +/Since: 3.0/ +-} +#if ENABLE_OVERLOADING + ScrollableVscrollPolicyPropertyInfo , +#endif + constructScrollableVscrollPolicy , + getScrollableVscrollPolicy , +#if ENABLE_OVERLOADING + scrollableVscrollPolicy , +#endif + setScrollableVscrollPolicy , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment +import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border + +-- interface Scrollable +-- | Memory-managed wrapper type. +newtype Scrollable = Scrollable (ManagedPtr Scrollable) +-- | A convenience alias for `Nothing` :: `Maybe` `Scrollable`. +noScrollable :: Maybe Scrollable +noScrollable = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList Scrollable = ScrollableSignalList +type ScrollableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_scrollable_get_type" + c_gtk_scrollable_get_type :: IO GType + +instance GObject Scrollable where + gobjectType = c_gtk_scrollable_get_type + + +-- | Type class for types which can be safely cast to `Scrollable`, for instance with `toScrollable`. +class (GObject o, O.IsDescendantOf Scrollable o) => IsScrollable o +instance (GObject o, O.IsDescendantOf Scrollable o) => IsScrollable o + +instance O.HasParentTypes Scrollable +type instance O.ParentTypes Scrollable = '[GObject.Object.Object] + +-- | Cast to `Scrollable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toScrollable :: (MonadIO m, IsScrollable o) => o -> m Scrollable +toScrollable = liftIO . unsafeCastTo Scrollable + +-- VVV Prop "hadjustment" + -- Type: TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@hadjustment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' scrollable #hadjustment +@ +-} +getScrollableHadjustment :: (MonadIO m, IsScrollable o) => o -> m Gtk.Adjustment.Adjustment +getScrollableHadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableHadjustment" $ B.Properties.getObjectPropertyObject obj "hadjustment" Gtk.Adjustment.Adjustment + +{- | +Set the value of the “@hadjustment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' scrollable [ #hadjustment 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setScrollableHadjustment :: (MonadIO m, IsScrollable o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m () +setScrollableHadjustment obj val = liftIO $ B.Properties.setObjectPropertyObject obj "hadjustment" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@hadjustment@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructScrollableHadjustment :: (IsScrollable o, Gtk.Adjustment.IsAdjustment a) => a -> IO (GValueConstruct o) +constructScrollableHadjustment val = B.Properties.constructObjectPropertyObject "hadjustment" (Just val) + +{- | +Set the value of the “@hadjustment@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #hadjustment +@ +-} +clearScrollableHadjustment :: (MonadIO m, IsScrollable o) => o -> m () +clearScrollableHadjustment obj = liftIO $ B.Properties.setObjectPropertyObject obj "hadjustment" (Nothing :: Maybe Gtk.Adjustment.Adjustment) + +#if ENABLE_OVERLOADING +data ScrollableHadjustmentPropertyInfo +instance AttrInfo ScrollableHadjustmentPropertyInfo where + type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ScrollableHadjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment + type AttrBaseTypeConstraint ScrollableHadjustmentPropertyInfo = IsScrollable + type AttrGetType ScrollableHadjustmentPropertyInfo = Gtk.Adjustment.Adjustment + type AttrLabel ScrollableHadjustmentPropertyInfo = "hadjustment" + type AttrOrigin ScrollableHadjustmentPropertyInfo = Scrollable + attrGet _ = getScrollableHadjustment + attrSet _ = setScrollableHadjustment + attrConstruct _ = constructScrollableHadjustment + attrClear _ = clearScrollableHadjustment +#endif + +-- VVV Prop "hscroll-policy" + -- Type: TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@hscroll-policy@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' scrollable #hscrollPolicy +@ +-} +getScrollableHscrollPolicy :: (MonadIO m, IsScrollable o) => o -> m Gtk.Enums.ScrollablePolicy +getScrollableHscrollPolicy obj = liftIO $ B.Properties.getObjectPropertyEnum obj "hscroll-policy" + +{- | +Set the value of the “@hscroll-policy@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' scrollable [ #hscrollPolicy 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setScrollableHscrollPolicy :: (MonadIO m, IsScrollable o) => o -> Gtk.Enums.ScrollablePolicy -> m () +setScrollableHscrollPolicy obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "hscroll-policy" val + +{- | +Construct a `GValueConstruct` with valid value for the “@hscroll-policy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructScrollableHscrollPolicy :: (IsScrollable o) => Gtk.Enums.ScrollablePolicy -> IO (GValueConstruct o) +constructScrollableHscrollPolicy val = B.Properties.constructObjectPropertyEnum "hscroll-policy" val + +#if ENABLE_OVERLOADING +data ScrollableHscrollPolicyPropertyInfo +instance AttrInfo ScrollableHscrollPolicyPropertyInfo where + type AttrAllowedOps ScrollableHscrollPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ScrollableHscrollPolicyPropertyInfo = (~) Gtk.Enums.ScrollablePolicy + type AttrBaseTypeConstraint ScrollableHscrollPolicyPropertyInfo = IsScrollable + type AttrGetType ScrollableHscrollPolicyPropertyInfo = Gtk.Enums.ScrollablePolicy + type AttrLabel ScrollableHscrollPolicyPropertyInfo = "hscroll-policy" + type AttrOrigin ScrollableHscrollPolicyPropertyInfo = Scrollable + attrGet _ = getScrollableHscrollPolicy + attrSet _ = setScrollableHscrollPolicy + attrConstruct _ = constructScrollableHscrollPolicy + attrClear _ = undefined +#endif + +-- VVV Prop "vadjustment" + -- Type: TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@vadjustment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' scrollable #vadjustment +@ +-} +getScrollableVadjustment :: (MonadIO m, IsScrollable o) => o -> m Gtk.Adjustment.Adjustment +getScrollableVadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableVadjustment" $ B.Properties.getObjectPropertyObject obj "vadjustment" Gtk.Adjustment.Adjustment + +{- | +Set the value of the “@vadjustment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' scrollable [ #vadjustment 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setScrollableVadjustment :: (MonadIO m, IsScrollable o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m () +setScrollableVadjustment obj val = liftIO $ B.Properties.setObjectPropertyObject obj "vadjustment" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@vadjustment@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructScrollableVadjustment :: (IsScrollable o, Gtk.Adjustment.IsAdjustment a) => a -> IO (GValueConstruct o) +constructScrollableVadjustment val = B.Properties.constructObjectPropertyObject "vadjustment" (Just val) + +{- | +Set the value of the “@vadjustment@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #vadjustment +@ +-} +clearScrollableVadjustment :: (MonadIO m, IsScrollable o) => o -> m () +clearScrollableVadjustment obj = liftIO $ B.Properties.setObjectPropertyObject obj "vadjustment" (Nothing :: Maybe Gtk.Adjustment.Adjustment) + +#if ENABLE_OVERLOADING +data ScrollableVadjustmentPropertyInfo +instance AttrInfo ScrollableVadjustmentPropertyInfo where + type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ScrollableVadjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment + type AttrBaseTypeConstraint ScrollableVadjustmentPropertyInfo = IsScrollable + type AttrGetType ScrollableVadjustmentPropertyInfo = Gtk.Adjustment.Adjustment + type AttrLabel ScrollableVadjustmentPropertyInfo = "vadjustment" + type AttrOrigin ScrollableVadjustmentPropertyInfo = Scrollable + attrGet _ = getScrollableVadjustment + attrSet _ = setScrollableVadjustment + attrConstruct _ = constructScrollableVadjustment + attrClear _ = clearScrollableVadjustment +#endif + +-- VVV Prop "vscroll-policy" + -- Type: TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@vscroll-policy@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' scrollable #vscrollPolicy +@ +-} +getScrollableVscrollPolicy :: (MonadIO m, IsScrollable o) => o -> m Gtk.Enums.ScrollablePolicy +getScrollableVscrollPolicy obj = liftIO $ B.Properties.getObjectPropertyEnum obj "vscroll-policy" + +{- | +Set the value of the “@vscroll-policy@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' scrollable [ #vscrollPolicy 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setScrollableVscrollPolicy :: (MonadIO m, IsScrollable o) => o -> Gtk.Enums.ScrollablePolicy -> m () +setScrollableVscrollPolicy obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "vscroll-policy" val + +{- | +Construct a `GValueConstruct` with valid value for the “@vscroll-policy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructScrollableVscrollPolicy :: (IsScrollable o) => Gtk.Enums.ScrollablePolicy -> IO (GValueConstruct o) +constructScrollableVscrollPolicy val = B.Properties.constructObjectPropertyEnum "vscroll-policy" val + +#if ENABLE_OVERLOADING +data ScrollableVscrollPolicyPropertyInfo +instance AttrInfo ScrollableVscrollPolicyPropertyInfo where + type AttrAllowedOps ScrollableVscrollPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ScrollableVscrollPolicyPropertyInfo = (~) Gtk.Enums.ScrollablePolicy + type AttrBaseTypeConstraint ScrollableVscrollPolicyPropertyInfo = IsScrollable + type AttrGetType ScrollableVscrollPolicyPropertyInfo = Gtk.Enums.ScrollablePolicy + type AttrLabel ScrollableVscrollPolicyPropertyInfo = "vscroll-policy" + type AttrOrigin ScrollableVscrollPolicyPropertyInfo = Scrollable + attrGet _ = getScrollableVscrollPolicy + attrSet _ = setScrollableVscrollPolicy + attrConstruct _ = constructScrollableVscrollPolicy + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Scrollable +type instance O.AttributeList Scrollable = ScrollableAttributeList +type ScrollableAttributeList = ('[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +scrollableHadjustment :: AttrLabelProxy "hadjustment" +scrollableHadjustment = AttrLabelProxy + +scrollableHscrollPolicy :: AttrLabelProxy "hscrollPolicy" +scrollableHscrollPolicy = AttrLabelProxy + +scrollableVadjustment :: AttrLabelProxy "vadjustment" +scrollableVadjustment = AttrLabelProxy + +scrollableVscrollPolicy :: AttrLabelProxy "vscrollPolicy" +scrollableVscrollPolicy = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type family ResolveScrollableMethod (t :: Symbol) (o :: *) :: * where + ResolveScrollableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveScrollableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveScrollableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveScrollableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveScrollableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveScrollableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveScrollableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveScrollableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveScrollableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveScrollableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveScrollableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveScrollableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveScrollableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveScrollableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveScrollableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveScrollableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveScrollableMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveScrollableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveScrollableMethod "getHadjustment" o = ScrollableGetHadjustmentMethodInfo + ResolveScrollableMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveScrollableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveScrollableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveScrollableMethod "getVadjustment" o = ScrollableGetVadjustmentMethodInfo + ResolveScrollableMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveScrollableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveScrollableMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo + ResolveScrollableMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveScrollableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveScrollableMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo + ResolveScrollableMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveScrollableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveScrollableMethod t Scrollable, O.MethodInfo info Scrollable p) => OL.IsLabel t (Scrollable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method Scrollable::get_border +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface (Name {namespace = "Gtk", name = "Border"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the results", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_get_border" gtk_scrollable_get_border :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + Ptr Gtk.Border.Border -> -- border : TInterface (Name {namespace = "Gtk", name = "Border"}) + IO CInt + +{- | +Returns the size of a non-scrolling border around the +outside of the scrollable. An example for this would +be treeview headers. GTK+ can use this information to +display overlayed graphics, like the overshoot indication, +at the right position. + +/Since: 3.16/ +-} +scrollableGetBorder :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> m ((Bool, Gtk.Border.Border)) + {- ^ __Returns:__ 'True' if /@border@/ has been set -} +scrollableGetBorder scrollable = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + border <- callocBoxedBytes 8 :: IO (Ptr Gtk.Border.Border) + result <- gtk_scrollable_get_border scrollable' border + let result' = (/= 0) result + border' <- (wrapBoxed Gtk.Border.Border) border + touchManagedPtr scrollable + return (result', border') + +#if ENABLE_OVERLOADING +data ScrollableGetBorderMethodInfo +instance (signature ~ (m ((Bool, Gtk.Border.Border))), MonadIO m, IsScrollable a) => O.MethodInfo ScrollableGetBorderMethodInfo a signature where + overloadedMethod _ = scrollableGetBorder + +#endif + +-- method Scrollable::get_hadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Adjustment"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_get_hadjustment" gtk_scrollable_get_hadjustment :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + IO (Ptr Gtk.Adjustment.Adjustment) + +{- | +Retrieves the 'GI.Gtk.Objects.Adjustment.Adjustment' used for horizontal scrolling. + +/Since: 3.0/ +-} +scrollableGetHadjustment :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> m Gtk.Adjustment.Adjustment + {- ^ __Returns:__ horizontal 'GI.Gtk.Objects.Adjustment.Adjustment'. -} +scrollableGetHadjustment scrollable = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + result <- gtk_scrollable_get_hadjustment scrollable' + checkUnexpectedReturnNULL "scrollableGetHadjustment" result + result' <- (newObject Gtk.Adjustment.Adjustment) result + touchManagedPtr scrollable + return result' + +#if ENABLE_OVERLOADING +data ScrollableGetHadjustmentMethodInfo +instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsScrollable a) => O.MethodInfo ScrollableGetHadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableGetHadjustment + +#endif + +-- method Scrollable::get_hscroll_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_get_hscroll_policy" gtk_scrollable_get_hscroll_policy :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + IO CUInt + +{- | +Gets the horizontal 'GI.Gtk.Enums.ScrollablePolicy'. + +/Since: 3.0/ +-} +scrollableGetHscrollPolicy :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> m Gtk.Enums.ScrollablePolicy + {- ^ __Returns:__ The horizontal 'GI.Gtk.Enums.ScrollablePolicy'. -} +scrollableGetHscrollPolicy scrollable = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + result <- gtk_scrollable_get_hscroll_policy scrollable' + let result' = (toEnum . fromIntegral) result + touchManagedPtr scrollable + return result' + +#if ENABLE_OVERLOADING +data ScrollableGetHscrollPolicyMethodInfo +instance (signature ~ (m Gtk.Enums.ScrollablePolicy), MonadIO m, IsScrollable a) => O.MethodInfo ScrollableGetHscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableGetHscrollPolicy + +#endif + +-- method Scrollable::get_vadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Adjustment"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_get_vadjustment" gtk_scrollable_get_vadjustment :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + IO (Ptr Gtk.Adjustment.Adjustment) + +{- | +Retrieves the 'GI.Gtk.Objects.Adjustment.Adjustment' used for vertical scrolling. + +/Since: 3.0/ +-} +scrollableGetVadjustment :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> m Gtk.Adjustment.Adjustment + {- ^ __Returns:__ vertical 'GI.Gtk.Objects.Adjustment.Adjustment'. -} +scrollableGetVadjustment scrollable = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + result <- gtk_scrollable_get_vadjustment scrollable' + checkUnexpectedReturnNULL "scrollableGetVadjustment" result + result' <- (newObject Gtk.Adjustment.Adjustment) result + touchManagedPtr scrollable + return result' + +#if ENABLE_OVERLOADING +data ScrollableGetVadjustmentMethodInfo +instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsScrollable a) => O.MethodInfo ScrollableGetVadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableGetVadjustment + +#endif + +-- method Scrollable::get_vscroll_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_get_vscroll_policy" gtk_scrollable_get_vscroll_policy :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + IO CUInt + +{- | +Gets the vertical 'GI.Gtk.Enums.ScrollablePolicy'. + +/Since: 3.0/ +-} +scrollableGetVscrollPolicy :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> m Gtk.Enums.ScrollablePolicy + {- ^ __Returns:__ The vertical 'GI.Gtk.Enums.ScrollablePolicy'. -} +scrollableGetVscrollPolicy scrollable = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + result <- gtk_scrollable_get_vscroll_policy scrollable' + let result' = (toEnum . fromIntegral) result + touchManagedPtr scrollable + return result' + +#if ENABLE_OVERLOADING +data ScrollableGetVscrollPolicyMethodInfo +instance (signature ~ (m Gtk.Enums.ScrollablePolicy), MonadIO m, IsScrollable a) => O.MethodInfo ScrollableGetVscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableGetVscrollPolicy + +#endif + +-- method Scrollable::set_hadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_set_hadjustment" gtk_scrollable_set_hadjustment :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + Ptr Gtk.Adjustment.Adjustment -> -- hadjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO () + +{- | +Sets the horizontal adjustment of the 'GI.Gtk.Interfaces.Scrollable.Scrollable'. + +/Since: 3.0/ +-} +scrollableSetHadjustment :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a, Gtk.Adjustment.IsAdjustment b) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> Maybe (b) + {- ^ /@hadjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m () +scrollableSetHadjustment scrollable hadjustment = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + maybeHadjustment <- case hadjustment of + Nothing -> return nullPtr + Just jHadjustment -> do + jHadjustment' <- unsafeManagedPtrCastPtr jHadjustment + return jHadjustment' + gtk_scrollable_set_hadjustment scrollable' maybeHadjustment + touchManagedPtr scrollable + whenJust hadjustment touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ScrollableSetHadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsScrollable a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo ScrollableSetHadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableSetHadjustment + +#endif + +-- method Scrollable::set_hscroll_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the horizontal #GtkScrollablePolicy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_set_hscroll_policy" gtk_scrollable_set_hscroll_policy :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + CUInt -> -- policy : TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"}) + IO () + +{- | +Sets the 'GI.Gtk.Enums.ScrollablePolicy' to determine whether +horizontal scrolling should start below the minimum width or +below the natural width. + +/Since: 3.0/ +-} +scrollableSetHscrollPolicy :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> Gtk.Enums.ScrollablePolicy + {- ^ /@policy@/: the horizontal 'GI.Gtk.Enums.ScrollablePolicy' -} + -> m () +scrollableSetHscrollPolicy scrollable policy = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + let policy' = (fromIntegral . fromEnum) policy + gtk_scrollable_set_hscroll_policy scrollable' policy' + touchManagedPtr scrollable + return () + +#if ENABLE_OVERLOADING +data ScrollableSetHscrollPolicyMethodInfo +instance (signature ~ (Gtk.Enums.ScrollablePolicy -> m ()), MonadIO m, IsScrollable a) => O.MethodInfo ScrollableSetHscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableSetHscrollPolicy + +#endif + +-- method Scrollable::set_vadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_set_vadjustment" gtk_scrollable_set_vadjustment :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + Ptr Gtk.Adjustment.Adjustment -> -- vadjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO () + +{- | +Sets the vertical adjustment of the 'GI.Gtk.Interfaces.Scrollable.Scrollable'. + +/Since: 3.0/ +-} +scrollableSetVadjustment :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a, Gtk.Adjustment.IsAdjustment b) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> Maybe (b) + {- ^ /@vadjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m () +scrollableSetVadjustment scrollable vadjustment = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + maybeVadjustment <- case vadjustment of + Nothing -> return nullPtr + Just jVadjustment -> do + jVadjustment' <- unsafeManagedPtrCastPtr jVadjustment + return jVadjustment' + gtk_scrollable_set_vadjustment scrollable' maybeVadjustment + touchManagedPtr scrollable + whenJust vadjustment touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ScrollableSetVadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsScrollable a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo ScrollableSetVadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableSetVadjustment + +#endif + +-- method Scrollable::set_vscroll_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "scrollable", argType = TInterface (Name {namespace = "Gtk", name = "Scrollable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkScrollable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the vertical #GtkScrollablePolicy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_scrollable_set_vscroll_policy" gtk_scrollable_set_vscroll_policy :: + Ptr Scrollable -> -- scrollable : TInterface (Name {namespace = "Gtk", name = "Scrollable"}) + CUInt -> -- policy : TInterface (Name {namespace = "Gtk", name = "ScrollablePolicy"}) + IO () + +{- | +Sets the 'GI.Gtk.Enums.ScrollablePolicy' to determine whether +vertical scrolling should start below the minimum height or +below the natural height. + +/Since: 3.0/ +-} +scrollableSetVscrollPolicy :: + (B.CallStack.HasCallStack, MonadIO m, IsScrollable a) => + a + {- ^ /@scrollable@/: a 'GI.Gtk.Interfaces.Scrollable.Scrollable' -} + -> Gtk.Enums.ScrollablePolicy + {- ^ /@policy@/: the vertical 'GI.Gtk.Enums.ScrollablePolicy' -} + -> m () +scrollableSetVscrollPolicy scrollable policy = liftIO $ do + scrollable' <- unsafeManagedPtrCastPtr scrollable + let policy' = (fromIntegral . fromEnum) policy + gtk_scrollable_set_vscroll_policy scrollable' policy' + touchManagedPtr scrollable + return () + +#if ENABLE_OVERLOADING +data ScrollableSetVscrollPolicyMethodInfo +instance (signature ~ (Gtk.Enums.ScrollablePolicy -> m ()), MonadIO m, IsScrollable a) => O.MethodInfo ScrollableSetVscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableSetVscrollPolicy + +#endif + + diff --git a/GI/Gtk/Interfaces/Scrollable.hs-boot b/GI/Gtk/Interfaces/Scrollable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/Scrollable.hs-boot @@ -0,0 +1,68 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.Scrollable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Scrollable = Scrollable (ManagedPtr Scrollable) +instance GObject Scrollable where +class (GObject o, O.IsDescendantOf Scrollable o) => IsScrollable o +instance (GObject o, O.IsDescendantOf Scrollable o) => IsScrollable o +instance O.HasParentTypes Scrollable +#if ENABLE_OVERLOADING +data ScrollableHadjustmentPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableHscrollPolicyPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableVadjustmentPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableVscrollPolicyPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableGetBorderMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableGetHadjustmentMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableGetHscrollPolicyMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableGetVadjustmentMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableGetVscrollPolicyMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableSetHadjustmentMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableSetHscrollPolicyMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableSetVadjustmentMethodInfo +#endif +#if ENABLE_OVERLOADING +data ScrollableSetVscrollPolicyMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/StyleProvider.hs b/GI/Gtk/Interfaces/StyleProvider.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/StyleProvider.hs @@ -0,0 +1,265 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +GtkStyleProvider is an interface used to provide style information to a 'GI.Gtk.Objects.StyleContext.StyleContext'. +See 'GI.Gtk.Objects.StyleContext.styleContextAddProvider' and 'GI.Gtk.Objects.StyleContext.styleContextAddProviderForScreen'. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.StyleProvider + ( + +-- * Exported types + StyleProvider(..) , + noStyleProvider , + IsStyleProvider , + + + -- * Methods +-- ** getIconFactory #method:getIconFactory# + +#if ENABLE_OVERLOADING + StyleProviderGetIconFactoryMethodInfo , +#endif + styleProviderGetIconFactory , + + +-- ** getStyle #method:getStyle# + +#if ENABLE_OVERLOADING + StyleProviderGetStyleMethodInfo , +#endif + styleProviderGetStyle , + + +-- ** getStyleProperty #method:getStyleProperty# + +#if ENABLE_OVERLOADING + StyleProviderGetStylePropertyMethodInfo , +#endif + styleProviderGetStyleProperty , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags +import {-# SOURCE #-} qualified GI.Gtk.Objects.IconFactory as Gtk.IconFactory +import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleProperties as Gtk.StyleProperties +import {-# SOURCE #-} qualified GI.Gtk.Structs.WidgetPath as Gtk.WidgetPath + +-- interface StyleProvider +-- | Memory-managed wrapper type. +newtype StyleProvider = StyleProvider (ManagedPtr StyleProvider) +-- | A convenience alias for `Nothing` :: `Maybe` `StyleProvider`. +noStyleProvider :: Maybe StyleProvider +noStyleProvider = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList StyleProvider = StyleProviderSignalList +type StyleProviderSignalList = ('[ ] :: [(Symbol, *)]) + +#endif + +-- | Type class for types which implement `StyleProvider`. +class ManagedPtrNewtype a => IsStyleProvider a +instance IsStyleProvider StyleProvider +-- XXX Wrapping a foreign struct/union with no known destructor or size, leak? +instance WrappedPtr StyleProvider where + wrappedPtrCalloc = return nullPtr + wrappedPtrCopy = return + wrappedPtrFree = Nothing + + +#if ENABLE_OVERLOADING +type family ResolveStyleProviderMethod (t :: Symbol) (o :: *) :: * where + ResolveStyleProviderMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo + ResolveStyleProviderMethod "getStyle" o = StyleProviderGetStyleMethodInfo + ResolveStyleProviderMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo + ResolveStyleProviderMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveStyleProviderMethod t StyleProvider, O.MethodInfo info StyleProvider p) => OL.IsLabel t (StyleProvider -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method StyleProvider::get_icon_factory +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "provider", argType = TInterface (Name {namespace = "Gtk", name = "StyleProvider"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleProvider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "WidgetPath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GtkWidgetPath to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "IconFactory"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_style_provider_get_icon_factory" gtk_style_provider_get_icon_factory :: + Ptr StyleProvider -> -- provider : TInterface (Name {namespace = "Gtk", name = "StyleProvider"}) + Ptr Gtk.WidgetPath.WidgetPath -> -- path : TInterface (Name {namespace = "Gtk", name = "WidgetPath"}) + IO (Ptr Gtk.IconFactory.IconFactory) + +{-# DEPRECATED styleProviderGetIconFactory ["(Since version 3.8)","Will always return 'Nothing' for all GTK-provided style providers."] #-} +{- | +Returns the 'GI.Gtk.Objects.IconFactory.IconFactory' defined to be in use for /@path@/, or 'Nothing' if none +is defined. + +/Since: 3.0/ +-} +styleProviderGetIconFactory :: + (B.CallStack.HasCallStack, MonadIO m, IsStyleProvider a) => + a + {- ^ /@provider@/: a 'GI.Gtk.Interfaces.StyleProvider.StyleProvider' -} + -> Gtk.WidgetPath.WidgetPath + {- ^ /@path@/: 'GI.Gtk.Structs.WidgetPath.WidgetPath' to query -} + -> m (Maybe Gtk.IconFactory.IconFactory) + {- ^ __Returns:__ The icon factory to use for /@path@/, or 'Nothing' -} +styleProviderGetIconFactory provider path = liftIO $ do + provider' <- unsafeManagedPtrCastPtr provider + path' <- unsafeManagedPtrGetPtr path + result <- gtk_style_provider_get_icon_factory provider' path' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.IconFactory.IconFactory) result' + return result'' + touchManagedPtr provider + touchManagedPtr path + return maybeResult + +#if ENABLE_OVERLOADING +data StyleProviderGetIconFactoryMethodInfo +instance (signature ~ (Gtk.WidgetPath.WidgetPath -> m (Maybe Gtk.IconFactory.IconFactory)), MonadIO m, IsStyleProvider a) => O.MethodInfo StyleProviderGetIconFactoryMethodInfo a signature where + overloadedMethod _ = styleProviderGetIconFactory + +#endif + +-- method StyleProvider::get_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "provider", argType = TInterface (Name {namespace = "Gtk", name = "StyleProvider"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleProvider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "WidgetPath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GtkWidgetPath to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "StyleProperties"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_style_provider_get_style" gtk_style_provider_get_style :: + Ptr StyleProvider -> -- provider : TInterface (Name {namespace = "Gtk", name = "StyleProvider"}) + Ptr Gtk.WidgetPath.WidgetPath -> -- path : TInterface (Name {namespace = "Gtk", name = "WidgetPath"}) + IO (Ptr Gtk.StyleProperties.StyleProperties) + +{-# DEPRECATED styleProviderGetStyle ["(Since version 3.8)","Will always return 'Nothing' for all GTK-provided style providers"," as the interface cannot correctly work the way CSS is specified."] #-} +{- | +Returns the style settings affecting a widget defined by /@path@/, or 'Nothing' if +/@provider@/ doesn’t contemplate styling /@path@/. + +/Since: 3.0/ +-} +styleProviderGetStyle :: + (B.CallStack.HasCallStack, MonadIO m, IsStyleProvider a) => + a + {- ^ /@provider@/: a 'GI.Gtk.Interfaces.StyleProvider.StyleProvider' -} + -> Gtk.WidgetPath.WidgetPath + {- ^ /@path@/: 'GI.Gtk.Structs.WidgetPath.WidgetPath' to query -} + -> m (Maybe Gtk.StyleProperties.StyleProperties) + {- ^ __Returns:__ a 'GI.Gtk.Objects.StyleProperties.StyleProperties' containing the +style settings affecting /@path@/ -} +styleProviderGetStyle provider path = liftIO $ do + provider' <- unsafeManagedPtrCastPtr provider + path' <- unsafeManagedPtrGetPtr path + result <- gtk_style_provider_get_style provider' path' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject Gtk.StyleProperties.StyleProperties) result' + return result'' + touchManagedPtr provider + touchManagedPtr path + return maybeResult + +#if ENABLE_OVERLOADING +data StyleProviderGetStyleMethodInfo +instance (signature ~ (Gtk.WidgetPath.WidgetPath -> m (Maybe Gtk.StyleProperties.StyleProperties)), MonadIO m, IsStyleProvider a) => O.MethodInfo StyleProviderGetStyleMethodInfo a signature where + overloadedMethod _ = styleProviderGetStyle + +#endif + +-- method StyleProvider::get_style_property +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "provider", argType = TInterface (Name {namespace = "Gtk", name = "StyleProvider"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStyleProvider", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "WidgetPath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GtkWidgetPath to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface (Name {namespace = "Gtk", name = "StateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "state to query the style property for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GParamSpec to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the property value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_style_provider_get_style_property" gtk_style_provider_get_style_property :: + Ptr StyleProvider -> -- provider : TInterface (Name {namespace = "Gtk", name = "StyleProvider"}) + Ptr Gtk.WidgetPath.WidgetPath -> -- path : TInterface (Name {namespace = "Gtk", name = "WidgetPath"}) + CUInt -> -- state : TInterface (Name {namespace = "Gtk", name = "StateFlags"}) + Ptr GParamSpec -> -- pspec : TParamSpec + Ptr GValue -> -- value : TInterface (Name {namespace = "GObject", name = "Value"}) + IO CInt + +{- | +Looks up a widget style property as defined by /@provider@/ for +the widget represented by /@path@/. + +/Since: 3.0/ +-} +styleProviderGetStyleProperty :: + (B.CallStack.HasCallStack, MonadIO m, IsStyleProvider a) => + a + {- ^ /@provider@/: a 'GI.Gtk.Interfaces.StyleProvider.StyleProvider' -} + -> Gtk.WidgetPath.WidgetPath + {- ^ /@path@/: 'GI.Gtk.Structs.WidgetPath.WidgetPath' to query -} + -> [Gtk.Flags.StateFlags] + {- ^ /@state@/: state to query the style property for -} + -> GParamSpec + {- ^ /@pspec@/: The 'GI.GObject.Objects.ParamSpec.ParamSpec' to query -} + -> m ((Bool, GValue)) + {- ^ __Returns:__ 'True' if the property was found and has a value, 'False' otherwise -} +styleProviderGetStyleProperty provider path state pspec = liftIO $ do + provider' <- unsafeManagedPtrCastPtr provider + path' <- unsafeManagedPtrGetPtr path + let state' = gflagsToWord state + pspec' <- unsafeManagedPtrGetPtr pspec + value <- callocBoxedBytes 24 :: IO (Ptr GValue) + result <- gtk_style_provider_get_style_property provider' path' state' pspec' value + let result' = (/= 0) result + value' <- (wrapBoxed GValue) value + touchManagedPtr provider + touchManagedPtr path + touchManagedPtr pspec + return (result', value') + +#if ENABLE_OVERLOADING +data StyleProviderGetStylePropertyMethodInfo +instance (signature ~ (Gtk.WidgetPath.WidgetPath -> [Gtk.Flags.StateFlags] -> GParamSpec -> m ((Bool, GValue))), MonadIO m, IsStyleProvider a) => O.MethodInfo StyleProviderGetStylePropertyMethodInfo a signature where + overloadedMethod _ = styleProviderGetStyleProperty + +#endif + + diff --git a/GI/Gtk/Interfaces/StyleProvider.hs-boot b/GI/Gtk/Interfaces/StyleProvider.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/StyleProvider.hs-boot @@ -0,0 +1,36 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.StyleProvider where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype StyleProvider = StyleProvider (ManagedPtr StyleProvider) +class ManagedPtrNewtype a => IsStyleProvider a +instance WrappedPtr StyleProvider where +#if ENABLE_OVERLOADING +data StyleProviderGetIconFactoryMethodInfo +#endif +#if ENABLE_OVERLOADING +data StyleProviderGetStyleMethodInfo +#endif +#if ENABLE_OVERLOADING +data StyleProviderGetStylePropertyMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/ToolShell.hs b/GI/Gtk/Interfaces/ToolShell.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/ToolShell.hs @@ -0,0 +1,830 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Interfaces.ToolShell.ToolShell' interface allows container widgets to provide additional +information when embedding 'GI.Gtk.Objects.ToolItem.ToolItem' widgets. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.ToolShell + ( + +-- * Exported types + ToolShell(..) , + noToolShell , + IsToolShell , + toToolShell , + + + -- * Methods +-- ** getEllipsizeMode #method:getEllipsizeMode# + +#if ENABLE_OVERLOADING + ToolShellGetEllipsizeModeMethodInfo , +#endif + toolShellGetEllipsizeMode , + + +-- ** getIconSize #method:getIconSize# + +#if ENABLE_OVERLOADING + ToolShellGetIconSizeMethodInfo , +#endif + toolShellGetIconSize , + + +-- ** getOrientation #method:getOrientation# + +#if ENABLE_OVERLOADING + ToolShellGetOrientationMethodInfo , +#endif + toolShellGetOrientation , + + +-- ** getReliefStyle #method:getReliefStyle# + +#if ENABLE_OVERLOADING + ToolShellGetReliefStyleMethodInfo , +#endif + toolShellGetReliefStyle , + + +-- ** getStyle #method:getStyle# + +#if ENABLE_OVERLOADING + ToolShellGetStyleMethodInfo , +#endif + toolShellGetStyle , + + +-- ** getTextAlignment #method:getTextAlignment# + +#if ENABLE_OVERLOADING + ToolShellGetTextAlignmentMethodInfo , +#endif + toolShellGetTextAlignment , + + +-- ** getTextOrientation #method:getTextOrientation# + +#if ENABLE_OVERLOADING + ToolShellGetTextOrientationMethodInfo , +#endif + toolShellGetTextOrientation , + + +-- ** getTextSizeGroup #method:getTextSizeGroup# + +#if ENABLE_OVERLOADING + ToolShellGetTextSizeGroupMethodInfo , +#endif + toolShellGetTextSizeGroup , + + +-- ** rebuildMenu #method:rebuildMenu# + +#if ENABLE_OVERLOADING + ToolShellRebuildMenuMethodInfo , +#endif + toolShellRebuildMenu , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.SizeGroup as Gtk.SizeGroup +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget +import qualified GI.Pango.Enums as Pango.Enums + +-- interface ToolShell +-- | Memory-managed wrapper type. +newtype ToolShell = ToolShell (ManagedPtr ToolShell) +-- | A convenience alias for `Nothing` :: `Maybe` `ToolShell`. +noToolShell :: Maybe ToolShell +noToolShell = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList ToolShell = ToolShellSignalList +type ToolShellSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_tool_shell_get_type" + c_gtk_tool_shell_get_type :: IO GType + +instance GObject ToolShell where + gobjectType = c_gtk_tool_shell_get_type + + +-- | Type class for types which can be safely cast to `ToolShell`, for instance with `toToolShell`. +class (GObject o, O.IsDescendantOf ToolShell o) => IsToolShell o +instance (GObject o, O.IsDescendantOf ToolShell o) => IsToolShell o + +instance O.HasParentTypes ToolShell +type instance O.ParentTypes ToolShell = '[Gtk.Widget.Widget, GObject.Object.Object] + +-- | Cast to `ToolShell`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toToolShell :: (MonadIO m, IsToolShell o) => o -> m ToolShell +toToolShell = liftIO . unsafeCastTo ToolShell + +#if ENABLE_OVERLOADING +instance O.HasAttributeList ToolShell +type instance O.AttributeList ToolShell = ToolShellAttributeList +type ToolShellAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type family ResolveToolShellMethod (t :: Symbol) (o :: *) :: * where + ResolveToolShellMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveToolShellMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveToolShellMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveToolShellMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveToolShellMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveToolShellMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveToolShellMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveToolShellMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveToolShellMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveToolShellMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveToolShellMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveToolShellMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo + ResolveToolShellMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveToolShellMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveToolShellMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveToolShellMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveToolShellMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveToolShellMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveToolShellMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveToolShellMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveToolShellMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveToolShellMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveToolShellMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveToolShellMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveToolShellMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveToolShellMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveToolShellMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveToolShellMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveToolShellMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveToolShellMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveToolShellMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveToolShellMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveToolShellMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveToolShellMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveToolShellMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveToolShellMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveToolShellMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveToolShellMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveToolShellMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveToolShellMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveToolShellMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveToolShellMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveToolShellMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveToolShellMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveToolShellMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveToolShellMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveToolShellMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveToolShellMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveToolShellMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveToolShellMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveToolShellMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveToolShellMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveToolShellMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveToolShellMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveToolShellMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveToolShellMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveToolShellMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveToolShellMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveToolShellMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveToolShellMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveToolShellMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveToolShellMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveToolShellMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveToolShellMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveToolShellMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveToolShellMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveToolShellMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveToolShellMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveToolShellMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveToolShellMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveToolShellMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveToolShellMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveToolShellMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveToolShellMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveToolShellMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveToolShellMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveToolShellMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveToolShellMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveToolShellMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveToolShellMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveToolShellMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveToolShellMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveToolShellMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveToolShellMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveToolShellMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveToolShellMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveToolShellMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveToolShellMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveToolShellMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveToolShellMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveToolShellMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveToolShellMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveToolShellMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveToolShellMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveToolShellMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveToolShellMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveToolShellMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveToolShellMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveToolShellMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveToolShellMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveToolShellMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveToolShellMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveToolShellMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveToolShellMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveToolShellMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveToolShellMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveToolShellMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveToolShellMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveToolShellMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveToolShellMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveToolShellMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveToolShellMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveToolShellMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveToolShellMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveToolShellMethod "rebuildMenu" o = ToolShellRebuildMenuMethodInfo + ResolveToolShellMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveToolShellMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveToolShellMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveToolShellMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveToolShellMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveToolShellMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveToolShellMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveToolShellMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveToolShellMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveToolShellMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveToolShellMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveToolShellMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveToolShellMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveToolShellMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveToolShellMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveToolShellMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveToolShellMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveToolShellMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveToolShellMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveToolShellMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveToolShellMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveToolShellMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveToolShellMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveToolShellMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveToolShellMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveToolShellMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveToolShellMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveToolShellMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveToolShellMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveToolShellMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveToolShellMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveToolShellMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveToolShellMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveToolShellMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveToolShellMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveToolShellMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveToolShellMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveToolShellMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveToolShellMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveToolShellMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveToolShellMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveToolShellMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveToolShellMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveToolShellMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveToolShellMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveToolShellMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveToolShellMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveToolShellMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveToolShellMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveToolShellMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveToolShellMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveToolShellMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveToolShellMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveToolShellMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveToolShellMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveToolShellMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveToolShellMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveToolShellMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveToolShellMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveToolShellMethod "getEllipsizeMode" o = ToolShellGetEllipsizeModeMethodInfo + ResolveToolShellMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveToolShellMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveToolShellMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveToolShellMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveToolShellMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveToolShellMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveToolShellMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveToolShellMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveToolShellMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveToolShellMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveToolShellMethod "getIconSize" o = ToolShellGetIconSizeMethodInfo + ResolveToolShellMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveToolShellMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveToolShellMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveToolShellMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveToolShellMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveToolShellMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveToolShellMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveToolShellMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveToolShellMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveToolShellMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveToolShellMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveToolShellMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveToolShellMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveToolShellMethod "getOrientation" o = ToolShellGetOrientationMethodInfo + ResolveToolShellMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveToolShellMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveToolShellMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveToolShellMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveToolShellMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveToolShellMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveToolShellMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToolShellMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveToolShellMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveToolShellMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveToolShellMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveToolShellMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveToolShellMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveToolShellMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveToolShellMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveToolShellMethod "getReliefStyle" o = ToolShellGetReliefStyleMethodInfo + ResolveToolShellMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveToolShellMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveToolShellMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveToolShellMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveToolShellMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveToolShellMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveToolShellMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveToolShellMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveToolShellMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveToolShellMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveToolShellMethod "getStyle" o = ToolShellGetStyleMethodInfo + ResolveToolShellMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveToolShellMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveToolShellMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveToolShellMethod "getTextAlignment" o = ToolShellGetTextAlignmentMethodInfo + ResolveToolShellMethod "getTextOrientation" o = ToolShellGetTextOrientationMethodInfo + ResolveToolShellMethod "getTextSizeGroup" o = ToolShellGetTextSizeGroupMethodInfo + ResolveToolShellMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveToolShellMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveToolShellMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveToolShellMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveToolShellMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveToolShellMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveToolShellMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveToolShellMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveToolShellMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveToolShellMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveToolShellMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveToolShellMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveToolShellMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveToolShellMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveToolShellMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveToolShellMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveToolShellMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveToolShellMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveToolShellMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveToolShellMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveToolShellMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveToolShellMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveToolShellMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveToolShellMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveToolShellMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveToolShellMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveToolShellMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveToolShellMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveToolShellMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveToolShellMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveToolShellMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveToolShellMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveToolShellMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveToolShellMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveToolShellMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveToolShellMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveToolShellMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveToolShellMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveToolShellMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveToolShellMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveToolShellMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveToolShellMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveToolShellMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveToolShellMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveToolShellMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveToolShellMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveToolShellMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveToolShellMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveToolShellMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveToolShellMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveToolShellMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveToolShellMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveToolShellMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveToolShellMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveToolShellMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveToolShellMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveToolShellMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveToolShellMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveToolShellMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveToolShellMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveToolShellMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveToolShellMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveToolShellMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveToolShellMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveToolShellMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveToolShellMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveToolShellMethod t ToolShell, O.MethodInfo info ToolShell p) => OL.IsLabel t (ToolShell -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method ToolShell::get_ellipsize_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Pango", name = "EllipsizeMode"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_get_ellipsize_mode" gtk_tool_shell_get_ellipsize_mode :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO CUInt + +{- | +Retrieves the current ellipsize mode for the tool shell. Tool items must not +call this function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetEllipsizeMode' +instead. + +/Since: 2.20/ +-} +toolShellGetEllipsizeMode :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Pango.Enums.EllipsizeMode + {- ^ __Returns:__ the current ellipsize mode of /@shell@/ -} +toolShellGetEllipsizeMode shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_ellipsize_mode shell' + let result' = (toEnum . fromIntegral) result + touchManagedPtr shell + return result' + +#if ENABLE_OVERLOADING +data ToolShellGetEllipsizeModeMethodInfo +instance (signature ~ (m Pango.Enums.EllipsizeMode), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetEllipsizeModeMethodInfo a signature where + overloadedMethod _ = toolShellGetEllipsizeMode + +#endif + +-- method ToolShell::get_icon_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_get_icon_size" gtk_tool_shell_get_icon_size :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO Int32 + +{- | +Retrieves the icon size for the tool shell. Tool items must not call this +function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetIconSize' instead. + +/Since: 2.14/ +-} +toolShellGetIconSize :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Int32 + {- ^ __Returns:__ the current size ('GI.Gtk.Enums.IconSize') for icons of /@shell@/ -} +toolShellGetIconSize shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_icon_size shell' + touchManagedPtr shell + return result + +#if ENABLE_OVERLOADING +data ToolShellGetIconSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetIconSizeMethodInfo a signature where + overloadedMethod _ = toolShellGetIconSize + +#endif + +-- method ToolShell::get_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Orientation"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_get_orientation" gtk_tool_shell_get_orientation :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO CUInt + +{- | +Retrieves the current orientation for the tool shell. Tool items must not +call this function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetOrientation' +instead. + +/Since: 2.14/ +-} +toolShellGetOrientation :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Gtk.Enums.Orientation + {- ^ __Returns:__ the current orientation of /@shell@/ -} +toolShellGetOrientation shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_orientation shell' + let result' = (toEnum . fromIntegral) result + touchManagedPtr shell + return result' + +#if ENABLE_OVERLOADING +data ToolShellGetOrientationMethodInfo +instance (signature ~ (m Gtk.Enums.Orientation), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetOrientationMethodInfo a signature where + overloadedMethod _ = toolShellGetOrientation + +#endif + +-- method ToolShell::get_relief_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ReliefStyle"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_get_relief_style" gtk_tool_shell_get_relief_style :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO CUInt + +{- | +Returns the relief style of buttons on /@shell@/. Tool items must not call this +function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetReliefStyle' instead. + +/Since: 2.14/ +-} +toolShellGetReliefStyle :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Gtk.Enums.ReliefStyle + {- ^ __Returns:__ The relief style of buttons on /@shell@/. -} +toolShellGetReliefStyle shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_relief_style shell' + let result' = (toEnum . fromIntegral) result + touchManagedPtr shell + return result' + +#if ENABLE_OVERLOADING +data ToolShellGetReliefStyleMethodInfo +instance (signature ~ (m Gtk.Enums.ReliefStyle), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetReliefStyleMethodInfo a signature where + overloadedMethod _ = toolShellGetReliefStyle + +#endif + +-- method ToolShell::get_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ToolbarStyle"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_get_style" gtk_tool_shell_get_style :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO CUInt + +{- | +Retrieves whether the tool shell has text, icons, or both. Tool items must +not call this function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetToolbarStyle' +instead. + +/Since: 2.14/ +-} +toolShellGetStyle :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Gtk.Enums.ToolbarStyle + {- ^ __Returns:__ the current style of /@shell@/ -} +toolShellGetStyle shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_style shell' + let result' = (toEnum . fromIntegral) result + touchManagedPtr shell + return result' + +#if ENABLE_OVERLOADING +data ToolShellGetStyleMethodInfo +instance (signature ~ (m Gtk.Enums.ToolbarStyle), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetStyleMethodInfo a signature where + overloadedMethod _ = toolShellGetStyle + +#endif + +-- method ToolShell::get_text_alignment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TFloat) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_get_text_alignment" gtk_tool_shell_get_text_alignment :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO CFloat + +{- | +Retrieves the current text alignment for the tool shell. Tool items must not +call this function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetTextAlignment' +instead. + +/Since: 2.20/ +-} +toolShellGetTextAlignment :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Float + {- ^ __Returns:__ the current text alignment of /@shell@/ -} +toolShellGetTextAlignment shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_text_alignment shell' + let result' = realToFrac result + touchManagedPtr shell + return result' + +#if ENABLE_OVERLOADING +data ToolShellGetTextAlignmentMethodInfo +instance (signature ~ (m Float), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetTextAlignmentMethodInfo a signature where + overloadedMethod _ = toolShellGetTextAlignment + +#endif + +-- method ToolShell::get_text_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Orientation"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_get_text_orientation" gtk_tool_shell_get_text_orientation :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO CUInt + +{- | +Retrieves the current text orientation for the tool shell. Tool items must not +call this function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetTextOrientation' +instead. + +/Since: 2.20/ +-} +toolShellGetTextOrientation :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Gtk.Enums.Orientation + {- ^ __Returns:__ the current text orientation of /@shell@/ -} +toolShellGetTextOrientation shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_text_orientation shell' + let result' = (toEnum . fromIntegral) result + touchManagedPtr shell + return result' + +#if ENABLE_OVERLOADING +data ToolShellGetTextOrientationMethodInfo +instance (signature ~ (m Gtk.Enums.Orientation), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetTextOrientationMethodInfo a signature where + overloadedMethod _ = toolShellGetTextOrientation + +#endif + +-- method ToolShell::get_text_size_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO (Ptr Gtk.SizeGroup.SizeGroup) + +{- | +Retrieves the current text size group for the tool shell. Tool items must not +call this function directly, but rely on 'GI.Gtk.Objects.ToolItem.toolItemGetTextSizeGroup' +instead. + +/Since: 2.20/ +-} +toolShellGetTextSizeGroup :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m Gtk.SizeGroup.SizeGroup + {- ^ __Returns:__ the current text size group of /@shell@/ -} +toolShellGetTextSizeGroup shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + result <- gtk_tool_shell_get_text_size_group shell' + checkUnexpectedReturnNULL "toolShellGetTextSizeGroup" result + result' <- (newObject Gtk.SizeGroup.SizeGroup) result + touchManagedPtr shell + return result' + +#if ENABLE_OVERLOADING +data ToolShellGetTextSizeGroupMethodInfo +instance (signature ~ (m Gtk.SizeGroup.SizeGroup), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellGetTextSizeGroupMethodInfo a signature where + overloadedMethod _ = toolShellGetTextSizeGroup + +#endif + +-- method ToolShell::rebuild_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "shell", argType = TInterface (Name {namespace = "Gtk", name = "ToolShell"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkToolShell", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tool_shell_rebuild_menu" gtk_tool_shell_rebuild_menu :: + Ptr ToolShell -> -- shell : TInterface (Name {namespace = "Gtk", name = "ToolShell"}) + IO () + +{- | +Calling this function signals the tool shell that the overflow menu item for +tool items have changed. If there is an overflow menu and if it is visible +when this function it called, the menu will be rebuilt. + +Tool items must not call this function directly, but rely on +'GI.Gtk.Objects.ToolItem.toolItemRebuildMenu' instead. + +/Since: 2.14/ +-} +toolShellRebuildMenu :: + (B.CallStack.HasCallStack, MonadIO m, IsToolShell a) => + a + {- ^ /@shell@/: a 'GI.Gtk.Interfaces.ToolShell.ToolShell' -} + -> m () +toolShellRebuildMenu shell = liftIO $ do + shell' <- unsafeManagedPtrCastPtr shell + gtk_tool_shell_rebuild_menu shell' + touchManagedPtr shell + return () + +#if ENABLE_OVERLOADING +data ToolShellRebuildMenuMethodInfo +instance (signature ~ (m ()), MonadIO m, IsToolShell a) => O.MethodInfo ToolShellRebuildMenuMethodInfo a signature where + overloadedMethod _ = toolShellRebuildMenu + +#endif + + diff --git a/GI/Gtk/Interfaces/ToolShell.hs-boot b/GI/Gtk/Interfaces/ToolShell.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/ToolShell.hs-boot @@ -0,0 +1,56 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.ToolShell where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype ToolShell = ToolShell (ManagedPtr ToolShell) +instance GObject ToolShell where +class (GObject o, O.IsDescendantOf ToolShell o) => IsToolShell o +instance (GObject o, O.IsDescendantOf ToolShell o) => IsToolShell o +instance O.HasParentTypes ToolShell +#if ENABLE_OVERLOADING +data ToolShellGetEllipsizeModeMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellGetIconSizeMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellGetOrientationMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellGetReliefStyleMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellGetStyleMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellGetTextAlignmentMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellGetTextOrientationMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellGetTextSizeGroupMethodInfo +#endif +#if ENABLE_OVERLOADING +data ToolShellRebuildMenuMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs b/GI/Gtk/Interfaces/TreeDragDest.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeDragDest.hs @@ -0,0 +1,204 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +/No description available in the introspection data./ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.TreeDragDest + ( + +-- * Exported types + TreeDragDest(..) , + noTreeDragDest , + IsTreeDragDest , + + + -- * Methods +-- ** dragDataReceived #method:dragDataReceived# + +#if ENABLE_OVERLOADING + TreeDragDestDragDataReceivedMethodInfo , +#endif + treeDragDestDragDataReceived , + + +-- ** rowDropPossible #method:rowDropPossible# + +#if ENABLE_OVERLOADING + TreeDragDestRowDropPossibleMethodInfo , +#endif + treeDragDestRowDropPossible , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData +import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath + +-- interface TreeDragDest +-- | Memory-managed wrapper type. +newtype TreeDragDest = TreeDragDest (ManagedPtr TreeDragDest) +-- | A convenience alias for `Nothing` :: `Maybe` `TreeDragDest`. +noTreeDragDest :: Maybe TreeDragDest +noTreeDragDest = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList TreeDragDest = TreeDragDestSignalList +type TreeDragDestSignalList = ('[ ] :: [(Symbol, *)]) + +#endif + +-- | Type class for types which implement `TreeDragDest`. +class ManagedPtrNewtype a => IsTreeDragDest a +instance IsTreeDragDest TreeDragDest +-- XXX Wrapping a foreign struct/union with no known destructor or size, leak? +instance WrappedPtr TreeDragDest where + wrappedPtrCalloc = return nullPtr + wrappedPtrCopy = return + wrappedPtrFree = Nothing + + +#if ENABLE_OVERLOADING +type family ResolveTreeDragDestMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeDragDestMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo + ResolveTreeDragDestMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo + ResolveTreeDragDestMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveTreeDragDestMethod t TreeDragDest, O.MethodInfo info TreeDragDest p) => OL.IsLabel t (TreeDragDest -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method TreeDragDest::drag_data_received +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "drag_dest", argType = TInterface (Name {namespace = "Gtk", name = "TreeDragDest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeDragDest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "row to drop in front of", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data to drop", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_drag_dest_drag_data_received" gtk_tree_drag_dest_drag_data_received :: + Ptr TreeDragDest -> -- drag_dest : TInterface (Name {namespace = "Gtk", name = "TreeDragDest"}) + Ptr Gtk.TreePath.TreePath -> -- dest : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + Ptr Gtk.SelectionData.SelectionData -> -- selection_data : TInterface (Name {namespace = "Gtk", name = "SelectionData"}) + IO CInt + +{- | +Asks the 'GI.Gtk.Interfaces.TreeDragDest.TreeDragDest' to insert a row before the path /@dest@/, +deriving the contents of the row from /@selectionData@/. If /@dest@/ is +outside the tree so that inserting before it is impossible, 'False' +will be returned. Also, 'False' may be returned if the new row is +not created for some model-specific reason. Should robustly handle +a /@dest@/ no longer found in the model! +-} +treeDragDestDragDataReceived :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeDragDest a) => + a + {- ^ /@dragDest@/: a 'GI.Gtk.Interfaces.TreeDragDest.TreeDragDest' -} + -> Gtk.TreePath.TreePath + {- ^ /@dest@/: row to drop in front of -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: data to drop -} + -> m Bool + {- ^ __Returns:__ whether a new row was created before position /@dest@/ -} +treeDragDestDragDataReceived dragDest dest selectionData = liftIO $ do + dragDest' <- unsafeManagedPtrCastPtr dragDest + dest' <- unsafeManagedPtrGetPtr dest + selectionData' <- unsafeManagedPtrGetPtr selectionData + result <- gtk_tree_drag_dest_drag_data_received dragDest' dest' selectionData' + let result' = (/= 0) result + touchManagedPtr dragDest + touchManagedPtr dest + touchManagedPtr selectionData + return result' + +#if ENABLE_OVERLOADING +data TreeDragDestDragDataReceivedMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.SelectionData.SelectionData -> m Bool), MonadIO m, IsTreeDragDest a) => O.MethodInfo TreeDragDestDragDataReceivedMethodInfo a signature where + overloadedMethod _ = treeDragDestDragDataReceived + +#endif + +-- method TreeDragDest::row_drop_possible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "drag_dest", argType = TInterface (Name {namespace = "Gtk", name = "TreeDragDest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeDragDest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destination row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the data being dragged", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_drag_dest_row_drop_possible" gtk_tree_drag_dest_row_drop_possible :: + Ptr TreeDragDest -> -- drag_dest : TInterface (Name {namespace = "Gtk", name = "TreeDragDest"}) + Ptr Gtk.TreePath.TreePath -> -- dest_path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + Ptr Gtk.SelectionData.SelectionData -> -- selection_data : TInterface (Name {namespace = "Gtk", name = "SelectionData"}) + IO CInt + +{- | +Determines whether a drop is possible before the given /@destPath@/, +at the same depth as /@destPath@/. i.e., can we drop the data in +/@selectionData@/ at that location. /@destPath@/ does not have to +exist; the return value will almost certainly be 'False' if the +parent of /@destPath@/ doesn’t exist, though. +-} +treeDragDestRowDropPossible :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeDragDest a) => + a + {- ^ /@dragDest@/: a 'GI.Gtk.Interfaces.TreeDragDest.TreeDragDest' -} + -> Gtk.TreePath.TreePath + {- ^ /@destPath@/: destination row -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: the data being dragged -} + -> m Bool + {- ^ __Returns:__ 'True' if a drop is possible before /@destPath@/ -} +treeDragDestRowDropPossible dragDest destPath selectionData = liftIO $ do + dragDest' <- unsafeManagedPtrCastPtr dragDest + destPath' <- unsafeManagedPtrGetPtr destPath + selectionData' <- unsafeManagedPtrGetPtr selectionData + result <- gtk_tree_drag_dest_row_drop_possible dragDest' destPath' selectionData' + let result' = (/= 0) result + touchManagedPtr dragDest + touchManagedPtr destPath + touchManagedPtr selectionData + return result' + +#if ENABLE_OVERLOADING +data TreeDragDestRowDropPossibleMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.SelectionData.SelectionData -> m Bool), MonadIO m, IsTreeDragDest a) => O.MethodInfo TreeDragDestRowDropPossibleMethodInfo a signature where + overloadedMethod _ = treeDragDestRowDropPossible + +#endif + + diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs-boot b/GI/Gtk/Interfaces/TreeDragDest.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeDragDest.hs-boot @@ -0,0 +1,33 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.TreeDragDest where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype TreeDragDest = TreeDragDest (ManagedPtr TreeDragDest) +class ManagedPtrNewtype a => IsTreeDragDest a +instance WrappedPtr TreeDragDest where +#if ENABLE_OVERLOADING +data TreeDragDestDragDataReceivedMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeDragDestRowDropPossibleMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs b/GI/Gtk/Interfaces/TreeDragSource.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeDragSource.hs @@ -0,0 +1,249 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +/No description available in the introspection data./ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.TreeDragSource + ( + +-- * Exported types + TreeDragSource(..) , + noTreeDragSource , + IsTreeDragSource , + + + -- * Methods +-- ** dragDataDelete #method:dragDataDelete# + +#if ENABLE_OVERLOADING + TreeDragSourceDragDataDeleteMethodInfo , +#endif + treeDragSourceDragDataDelete , + + +-- ** dragDataGet #method:dragDataGet# + +#if ENABLE_OVERLOADING + TreeDragSourceDragDataGetMethodInfo , +#endif + treeDragSourceDragDataGet , + + +-- ** rowDraggable #method:rowDraggable# + +#if ENABLE_OVERLOADING + TreeDragSourceRowDraggableMethodInfo , +#endif + treeDragSourceRowDraggable , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData +import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath + +-- interface TreeDragSource +-- | Memory-managed wrapper type. +newtype TreeDragSource = TreeDragSource (ManagedPtr TreeDragSource) +-- | A convenience alias for `Nothing` :: `Maybe` `TreeDragSource`. +noTreeDragSource :: Maybe TreeDragSource +noTreeDragSource = Nothing + +#if ENABLE_OVERLOADING +type instance O.SignalList TreeDragSource = TreeDragSourceSignalList +type TreeDragSourceSignalList = ('[ ] :: [(Symbol, *)]) + +#endif + +-- | Type class for types which implement `TreeDragSource`. +class ManagedPtrNewtype a => IsTreeDragSource a +instance IsTreeDragSource TreeDragSource +-- XXX Wrapping a foreign struct/union with no known destructor or size, leak? +instance WrappedPtr TreeDragSource where + wrappedPtrCalloc = return nullPtr + wrappedPtrCopy = return + wrappedPtrFree = Nothing + + +#if ENABLE_OVERLOADING +type family ResolveTreeDragSourceMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeDragSourceMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo + ResolveTreeDragSourceMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo + ResolveTreeDragSourceMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo + ResolveTreeDragSourceMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveTreeDragSourceMethod t TreeDragSource, O.MethodInfo info TreeDragSource p) => OL.IsLabel t (TreeDragSource -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method TreeDragSource::drag_data_delete +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "drag_source", argType = TInterface (Name {namespace = "Gtk", name = "TreeDragSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeDragSource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "row that was being dragged", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_drag_source_drag_data_delete" gtk_tree_drag_source_drag_data_delete :: + Ptr TreeDragSource -> -- drag_source : TInterface (Name {namespace = "Gtk", name = "TreeDragSource"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + IO CInt + +{- | +Asks the 'GI.Gtk.Interfaces.TreeDragSource.TreeDragSource' to delete the row at /@path@/, because +it was moved somewhere else via drag-and-drop. Returns 'False' +if the deletion fails because /@path@/ no longer exists, or for +some model-specific reason. Should robustly handle a /@path@/ no +longer found in the model! +-} +treeDragSourceDragDataDelete :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeDragSource a) => + a + {- ^ /@dragSource@/: a 'GI.Gtk.Interfaces.TreeDragSource.TreeDragSource' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: row that was being dragged -} + -> m Bool + {- ^ __Returns:__ 'True' if the row was successfully deleted -} +treeDragSourceDragDataDelete dragSource path = liftIO $ do + dragSource' <- unsafeManagedPtrCastPtr dragSource + path' <- unsafeManagedPtrGetPtr path + result <- gtk_tree_drag_source_drag_data_delete dragSource' path' + let result' = (/= 0) result + touchManagedPtr dragSource + touchManagedPtr path + return result' + +#if ENABLE_OVERLOADING +data TreeDragSourceDragDataDeleteMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> m Bool), MonadIO m, IsTreeDragSource a) => O.MethodInfo TreeDragSourceDragDataDeleteMethodInfo a signature where + overloadedMethod _ = treeDragSourceDragDataDelete + +#endif + +-- method TreeDragSource::drag_data_get +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "drag_source", argType = TInterface (Name {namespace = "Gtk", name = "TreeDragSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeDragSource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "row that was dragged", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface (Name {namespace = "Gtk", name = "SelectionData"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkSelectionData to fill with data\n from the dragged row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_drag_source_drag_data_get" gtk_tree_drag_source_drag_data_get :: + Ptr TreeDragSource -> -- drag_source : TInterface (Name {namespace = "Gtk", name = "TreeDragSource"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + Ptr Gtk.SelectionData.SelectionData -> -- selection_data : TInterface (Name {namespace = "Gtk", name = "SelectionData"}) + IO CInt + +{- | +Asks the 'GI.Gtk.Interfaces.TreeDragSource.TreeDragSource' to fill in /@selectionData@/ with a +representation of the row at /@path@/. /@selectionData@/->target gives +the required type of the data. Should robustly handle a /@path@/ no +longer found in the model! +-} +treeDragSourceDragDataGet :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeDragSource a) => + a + {- ^ /@dragSource@/: a 'GI.Gtk.Interfaces.TreeDragSource.TreeDragSource' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: row that was dragged -} + -> Gtk.SelectionData.SelectionData + {- ^ /@selectionData@/: a 'GI.Gtk.Structs.SelectionData.SelectionData' to fill with data + from the dragged row -} + -> m Bool + {- ^ __Returns:__ 'True' if data of the required type was provided -} +treeDragSourceDragDataGet dragSource path selectionData = liftIO $ do + dragSource' <- unsafeManagedPtrCastPtr dragSource + path' <- unsafeManagedPtrGetPtr path + selectionData' <- unsafeManagedPtrGetPtr selectionData + result <- gtk_tree_drag_source_drag_data_get dragSource' path' selectionData' + let result' = (/= 0) result + touchManagedPtr dragSource + touchManagedPtr path + touchManagedPtr selectionData + return result' + +#if ENABLE_OVERLOADING +data TreeDragSourceDragDataGetMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.SelectionData.SelectionData -> m Bool), MonadIO m, IsTreeDragSource a) => O.MethodInfo TreeDragSourceDragDataGetMethodInfo a signature where + overloadedMethod _ = treeDragSourceDragDataGet + +#endif + +-- method TreeDragSource::row_draggable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "drag_source", argType = TInterface (Name {namespace = "Gtk", name = "TreeDragSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeDragSource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "row on which user is initiating a drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_drag_source_row_draggable" gtk_tree_drag_source_row_draggable :: + Ptr TreeDragSource -> -- drag_source : TInterface (Name {namespace = "Gtk", name = "TreeDragSource"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + IO CInt + +{- | +Asks the 'GI.Gtk.Interfaces.TreeDragSource.TreeDragSource' whether a particular row can be used as +the source of a DND operation. If the source doesn’t implement +this interface, the row is assumed draggable. +-} +treeDragSourceRowDraggable :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeDragSource a) => + a + {- ^ /@dragSource@/: a 'GI.Gtk.Interfaces.TreeDragSource.TreeDragSource' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: row on which user is initiating a drag -} + -> m Bool + {- ^ __Returns:__ 'True' if the row can be dragged -} +treeDragSourceRowDraggable dragSource path = liftIO $ do + dragSource' <- unsafeManagedPtrCastPtr dragSource + path' <- unsafeManagedPtrGetPtr path + result <- gtk_tree_drag_source_row_draggable dragSource' path' + let result' = (/= 0) result + touchManagedPtr dragSource + touchManagedPtr path + return result' + +#if ENABLE_OVERLOADING +data TreeDragSourceRowDraggableMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> m Bool), MonadIO m, IsTreeDragSource a) => O.MethodInfo TreeDragSourceRowDraggableMethodInfo a signature where + overloadedMethod _ = treeDragSourceRowDraggable + +#endif + + diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs-boot b/GI/Gtk/Interfaces/TreeDragSource.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeDragSource.hs-boot @@ -0,0 +1,36 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.TreeDragSource where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype TreeDragSource = TreeDragSource (ManagedPtr TreeDragSource) +class ManagedPtrNewtype a => IsTreeDragSource a +instance WrappedPtr TreeDragSource where +#if ENABLE_OVERLOADING +data TreeDragSourceDragDataDeleteMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeDragSourceDragDataGetMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeDragSourceRowDraggableMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/TreeModel.hs b/GI/Gtk/Interfaces/TreeModel.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeModel.hs @@ -0,0 +1,2136 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Interfaces.TreeModel.TreeModel' interface defines a generic tree interface for +use by the 'GI.Gtk.Objects.TreeView.TreeView' widget. It is an abstract interface, and +is designed to be usable with any appropriate data structure. The +programmer just has to implement this interface on their own data +type for it to be viewable by a 'GI.Gtk.Objects.TreeView.TreeView' widget. + +The model is represented as a hierarchical tree of strongly-typed, +columned data. In other words, the model can be seen as a tree where +every node has different values depending on which column is being +queried. The type of data found in a column is determined by using +the GType system (ie. @/G_TYPE_INT/@, @/GTK_TYPE_BUTTON/@, @/G_TYPE_POINTER/@, +etc). The types are homogeneous per column across all nodes. It is +important to note that this interface only provides a way of examining +a model and observing changes. The implementation of each individual +model decides how and if changes are made. + +In order to make life simpler for programmers who do not need to +write their own specialized model, two generic models are provided +— the 'GI.Gtk.Objects.TreeStore.TreeStore' and the 'GI.Gtk.Objects.ListStore.ListStore'. To use these, the +developer simply pushes data into these models as necessary. These +models provide the data structure as well as all appropriate tree +interfaces. As a result, implementing drag and drop, sorting, and +storing data is trivial. For the vast majority of trees and lists, +these two models are sufficient. + +Models are accessed on a node\/column level of granularity. One can +query for the value of a model at a certain node and a certain +column on that node. There are two structures used to reference a +particular node in a model. They are the 'GI.Gtk.Structs.TreePath.TreePath'-struct and +the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct (“iter” is short for iterator). Most of the +interface consists of operations on a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct. + +A path is essentially a potential node. It is a location on a model +that may or may not actually correspond to a node on a specific +model. The 'GI.Gtk.Structs.TreePath.TreePath'-struct can be converted into either an +array of unsigned integers or a string. The string form is a list +of numbers separated by a colon. Each number refers to the offset +at that level. Thus, the path @0@ refers to the root +node and the path @2:4@ refers to the fifth child of +the third node. + +By contrast, a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct is a reference to a specific node on +a specific model. It is a generic struct with an integer and three +generic pointers. These are filled in by the model in a model-specific +way. One can convert a path to an iterator by calling +'GI.Gtk.Interfaces.TreeModel.treeModelGetIter'. These iterators are the primary way +of accessing a model and are similar to the iterators used by +'GI.Gtk.Objects.TextBuffer.TextBuffer'. They are generally statically allocated on the +stack and only used for a short time. The model interface defines +a set of operations using them for navigating the model. + +It is expected that models fill in the iterator with private data. +For example, the 'GI.Gtk.Objects.ListStore.ListStore' model, which is internally a simple +linked list, stores a list node in one of the pointers. The +'GI.Gtk.Objects.TreeModelSort.TreeModelSort' stores an array and an offset in two of the +pointers. Additionally, there is an integer field. This field is +generally filled with a unique stamp per model. This stamp is for +catching errors resulting from using invalid iterators with a model. + +The lifecycle of an iterator can be a little confusing at first. +Iterators are expected to always be valid for as long as the model +is unchanged (and doesn’t emit a signal). The model is considered +to own all outstanding iterators and nothing needs to be done to +free them from the user’s point of view. Additionally, some models +guarantee that an iterator is valid for as long as the node it refers +to is valid (most notably the 'GI.Gtk.Objects.TreeStore.TreeStore' and 'GI.Gtk.Objects.ListStore.ListStore'). +Although generally uninteresting, as one always has to allow for +the case where iterators do not persist beyond a signal, some very +important performance enhancements were made in the sort model. +As a result, the @/GTK_TREE_MODEL_ITERS_PERSIST/@ flag was added to +indicate this behavior. + +To help show some common operation of a model, some examples are +provided. The first example shows three ways of getting the iter at +the location @3:2:5@. While the first method shown is +easier, the second is much more common, as you often get paths from +callbacks. + +## Acquiring a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct + + +=== /C code/ +> +>// Three ways of getting the iter pointing to the location +>GtkTreePath *path; +>GtkTreeIter iter; +>GtkTreeIter parent_iter; +> +>// get the iterator from a string +>gtk_tree_model_get_iter_from_string (model, +> &iter, +> "3:2:5"); +> +>// get the iterator from a path +>path = gtk_tree_path_new_from_string ("3:2:5"); +>gtk_tree_model_get_iter (model, &iter, path); +>gtk_tree_path_free (path); +> +>// walk the tree to find the iterator +>gtk_tree_model_iter_nth_child (model, &iter, +> NULL, 3); +>parent_iter = iter; +>gtk_tree_model_iter_nth_child (model, &iter, +> &parent_iter, 2); +>parent_iter = iter; +>gtk_tree_model_iter_nth_child (model, &iter, +> &parent_iter, 5); + + +This second example shows a quick way of iterating through a list +and getting a string and an integer from each row. The +@/populate_model()/@ function used below is not +shown, as it is specific to the 'GI.Gtk.Objects.ListStore.ListStore'. For information on +how to write such a function, see the 'GI.Gtk.Objects.ListStore.ListStore' documentation. + +## Reading data from a 'GI.Gtk.Interfaces.TreeModel.TreeModel' + + +=== /C code/ +> +>enum +>{ +> STRING_COLUMN, +> INT_COLUMN, +> N_COLUMNS +>}; +> +>... +> +>GtkTreeModel *list_store; +>GtkTreeIter iter; +>gboolean valid; +>gint row_count = 0; +> +>// make a new list_store +>list_store = gtk_list_store_new (N_COLUMNS, +> G_TYPE_STRING, +> G_TYPE_INT); +> +>// Fill the list store with data +>populate_model (list_store); +> +>// Get the first iter in the list, check it is valid and walk +>// through the list, reading each row. +> +>valid = gtk_tree_model_get_iter_first (list_store, +> &iter); +>while (valid) +> { +> gchar *str_data; +> gint int_data; +> +> // Make sure you terminate calls to gtk_tree_model_get() with a “-1” value +> gtk_tree_model_get (list_store, &iter, +> STRING_COLUMN, &str_data, +> INT_COLUMN, &int_data, +> -1); +> +> // Do something with the data +> g_print ("Row %d: (%s,%d)\n", +> row_count, str_data, int_data); +> g_free (str_data); +> +> valid = gtk_tree_model_iter_next (list_store, +> &iter); +> row_count++; +> } + + +The 'GI.Gtk.Interfaces.TreeModel.TreeModel' interface contains two methods for reference +counting: 'GI.Gtk.Interfaces.TreeModel.treeModelRefNode' and 'GI.Gtk.Interfaces.TreeModel.treeModelUnrefNode'. +These two methods are optional to implement. The reference counting +is meant as a way for views to let models know when nodes are being +displayed. 'GI.Gtk.Objects.TreeView.TreeView' will take a reference on a node when it is +visible, which means the node is either in the toplevel or expanded. +Being displayed does not mean that the node is currently directly +visible to the user in the viewport. Based on this reference counting +scheme a caching model, for example, can decide whether or not to cache +a node based on the reference count. A file-system based model would +not want to keep the entire file hierarchy in memory, but just the +folders that are currently expanded in every current view. + +When working with reference counting, the following rules must be taken +into account: + +* Never take a reference on a node without owning a reference on its parent. +This means that all parent nodes of a referenced node must be referenced +as well. +* Outstanding references on a deleted node are not released. This is not +possible because the node has already been deleted by the time the +row-deleted signal is received. +* Models are not obligated to emit a signal on rows of which none of its +siblings are referenced. To phrase this differently, signals are only +required for levels in which nodes are referenced. For the root level +however, signals must be emitted at all times (however the root level +is always referenced when any view is attached). + +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.TreeModel + ( + +-- * Exported types + TreeModel(..) , + noTreeModel , + IsTreeModel , + toTreeModel , + + + -- * Methods +-- ** filterNew #method:filterNew# + +#if ENABLE_OVERLOADING + TreeModelFilterNewMethodInfo , +#endif + treeModelFilterNew , + + +-- ** foreach #method:foreach# + +#if ENABLE_OVERLOADING + TreeModelForeachMethodInfo , +#endif + treeModelForeach , + + +-- ** getColumnType #method:getColumnType# + +#if ENABLE_OVERLOADING + TreeModelGetColumnTypeMethodInfo , +#endif + treeModelGetColumnType , + + +-- ** getFlags #method:getFlags# + +#if ENABLE_OVERLOADING + TreeModelGetFlagsMethodInfo , +#endif + treeModelGetFlags , + + +-- ** getIter #method:getIter# + +#if ENABLE_OVERLOADING + TreeModelGetIterMethodInfo , +#endif + treeModelGetIter , + + +-- ** getIterFirst #method:getIterFirst# + +#if ENABLE_OVERLOADING + TreeModelGetIterFirstMethodInfo , +#endif + treeModelGetIterFirst , + + +-- ** getIterFromString #method:getIterFromString# + +#if ENABLE_OVERLOADING + TreeModelGetIterFromStringMethodInfo , +#endif + treeModelGetIterFromString , + + +-- ** getNColumns #method:getNColumns# + +#if ENABLE_OVERLOADING + TreeModelGetNColumnsMethodInfo , +#endif + treeModelGetNColumns , + + +-- ** getPath #method:getPath# + +#if ENABLE_OVERLOADING + TreeModelGetPathMethodInfo , +#endif + treeModelGetPath , + + +-- ** getStringFromIter #method:getStringFromIter# + +#if ENABLE_OVERLOADING + TreeModelGetStringFromIterMethodInfo , +#endif + treeModelGetStringFromIter , + + +-- ** getValue #method:getValue# + +#if ENABLE_OVERLOADING + TreeModelGetValueMethodInfo , +#endif + treeModelGetValue , + + +-- ** iterChildren #method:iterChildren# + +#if ENABLE_OVERLOADING + TreeModelIterChildrenMethodInfo , +#endif + treeModelIterChildren , + + +-- ** iterHasChild #method:iterHasChild# + +#if ENABLE_OVERLOADING + TreeModelIterHasChildMethodInfo , +#endif + treeModelIterHasChild , + + +-- ** iterNChildren #method:iterNChildren# + +#if ENABLE_OVERLOADING + TreeModelIterNChildrenMethodInfo , +#endif + treeModelIterNChildren , + + +-- ** iterNext #method:iterNext# + +#if ENABLE_OVERLOADING + TreeModelIterNextMethodInfo , +#endif + treeModelIterNext , + + +-- ** iterNthChild #method:iterNthChild# + +#if ENABLE_OVERLOADING + TreeModelIterNthChildMethodInfo , +#endif + treeModelIterNthChild , + + +-- ** iterParent #method:iterParent# + +#if ENABLE_OVERLOADING + TreeModelIterParentMethodInfo , +#endif + treeModelIterParent , + + +-- ** iterPrevious #method:iterPrevious# + +#if ENABLE_OVERLOADING + TreeModelIterPreviousMethodInfo , +#endif + treeModelIterPrevious , + + +-- ** refNode #method:refNode# + +#if ENABLE_OVERLOADING + TreeModelRefNodeMethodInfo , +#endif + treeModelRefNode , + + +-- ** rowChanged #method:rowChanged# + +#if ENABLE_OVERLOADING + TreeModelRowChangedMethodInfo , +#endif + treeModelRowChanged , + + +-- ** rowDeleted #method:rowDeleted# + +#if ENABLE_OVERLOADING + TreeModelRowDeletedMethodInfo , +#endif + treeModelRowDeleted , + + +-- ** rowHasChildToggled #method:rowHasChildToggled# + +#if ENABLE_OVERLOADING + TreeModelRowHasChildToggledMethodInfo , +#endif + treeModelRowHasChildToggled , + + +-- ** rowInserted #method:rowInserted# + +#if ENABLE_OVERLOADING + TreeModelRowInsertedMethodInfo , +#endif + treeModelRowInserted , + + +-- ** rowsReordered #method:rowsReordered# + +#if ENABLE_OVERLOADING + TreeModelRowsReorderedMethodInfo , +#endif + treeModelRowsReordered , + + +-- ** sortNewWithModel #method:sortNewWithModel# + +#if ENABLE_OVERLOADING + TreeModelSortNewWithModelMethodInfo , +#endif + treeModelSortNewWithModel , + + +-- ** unrefNode #method:unrefNode# + +#if ENABLE_OVERLOADING + TreeModelUnrefNodeMethodInfo , +#endif + treeModelUnrefNode , + + + + + -- * Signals +-- ** rowChanged #signal:rowChanged# + + C_TreeModelRowChangedCallback , + TreeModelRowChangedCallback , +#if ENABLE_OVERLOADING + TreeModelRowChangedSignalInfo , +#endif + afterTreeModelRowChanged , + genClosure_TreeModelRowChanged , + mk_TreeModelRowChangedCallback , + noTreeModelRowChangedCallback , + onTreeModelRowChanged , + wrap_TreeModelRowChangedCallback , + + +-- ** rowDeleted #signal:rowDeleted# + + C_TreeModelRowDeletedCallback , + TreeModelRowDeletedCallback , +#if ENABLE_OVERLOADING + TreeModelRowDeletedSignalInfo , +#endif + afterTreeModelRowDeleted , + genClosure_TreeModelRowDeleted , + mk_TreeModelRowDeletedCallback , + noTreeModelRowDeletedCallback , + onTreeModelRowDeleted , + wrap_TreeModelRowDeletedCallback , + + +-- ** rowHasChildToggled #signal:rowHasChildToggled# + + C_TreeModelRowHasChildToggledCallback , + TreeModelRowHasChildToggledCallback , +#if ENABLE_OVERLOADING + TreeModelRowHasChildToggledSignalInfo , +#endif + afterTreeModelRowHasChildToggled , + genClosure_TreeModelRowHasChildToggled , + mk_TreeModelRowHasChildToggledCallback , + noTreeModelRowHasChildToggledCallback , + onTreeModelRowHasChildToggled , + wrap_TreeModelRowHasChildToggledCallback, + + +-- ** rowInserted #signal:rowInserted# + + C_TreeModelRowInsertedCallback , + TreeModelRowInsertedCallback , +#if ENABLE_OVERLOADING + TreeModelRowInsertedSignalInfo , +#endif + afterTreeModelRowInserted , + genClosure_TreeModelRowInserted , + mk_TreeModelRowInsertedCallback , + noTreeModelRowInsertedCallback , + onTreeModelRowInserted , + wrap_TreeModelRowInsertedCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags +import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter +import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath + +-- interface TreeModel +-- | Memory-managed wrapper type. +newtype TreeModel = TreeModel (ManagedPtr TreeModel) +-- | A convenience alias for `Nothing` :: `Maybe` `TreeModel`. +noTreeModel :: Maybe TreeModel +noTreeModel = Nothing + +-- signal TreeModel::row-changed +{- | +This signal is emitted when a row in the model has changed. +-} +type TreeModelRowChangedCallback = + Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct identifying the changed row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the changed row -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelRowChangedCallback`@. +noTreeModelRowChangedCallback :: Maybe TreeModelRowChangedCallback +noTreeModelRowChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_TreeModelRowChangedCallback = + Ptr () -> -- object + Ptr Gtk.TreePath.TreePath -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_TreeModelRowChangedCallback`. +foreign import ccall "wrapper" + mk_TreeModelRowChangedCallback :: C_TreeModelRowChangedCallback -> IO (FunPtr C_TreeModelRowChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeModelRowChanged :: MonadIO m => TreeModelRowChangedCallback -> m (GClosure C_TreeModelRowChangedCallback) +genClosure_TreeModelRowChanged cb = liftIO $ do + let cb' = wrap_TreeModelRowChangedCallback cb + mk_TreeModelRowChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeModelRowChangedCallback` into a `C_TreeModelRowChangedCallback`. +wrap_TreeModelRowChangedCallback :: + TreeModelRowChangedCallback -> + C_TreeModelRowChangedCallback +wrap_TreeModelRowChangedCallback _cb _ path iter _ = do + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + _cb path' iter' + + +{- | +Connect a signal handler for the “@row-changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' treeModel #rowChanged callback +@ +-} +onTreeModelRowChanged :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId +onTreeModelRowChanged obj cb = liftIO $ do + let cb' = wrap_TreeModelRowChangedCallback cb + cb'' <- mk_TreeModelRowChangedCallback cb' + connectSignalFunPtr obj "row-changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@row-changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' treeModel #rowChanged callback +@ +-} +afterTreeModelRowChanged :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId +afterTreeModelRowChanged obj cb = liftIO $ do + let cb' = wrap_TreeModelRowChangedCallback cb + cb'' <- mk_TreeModelRowChangedCallback cb' + connectSignalFunPtr obj "row-changed" cb'' SignalConnectAfter + + +-- signal TreeModel::row-deleted +{- | +This signal is emitted when a row has been deleted. + +Note that no iterator is passed to the signal handler, +since the row is already deleted. + +This should be called by models after a row has been removed. +The location pointed to by /@path@/ should be the location that +the row previously was at. It may not be a valid location anymore. +-} +type TreeModelRowDeletedCallback = + Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct identifying the row -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelRowDeletedCallback`@. +noTreeModelRowDeletedCallback :: Maybe TreeModelRowDeletedCallback +noTreeModelRowDeletedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_TreeModelRowDeletedCallback = + Ptr () -> -- object + Ptr Gtk.TreePath.TreePath -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_TreeModelRowDeletedCallback`. +foreign import ccall "wrapper" + mk_TreeModelRowDeletedCallback :: C_TreeModelRowDeletedCallback -> IO (FunPtr C_TreeModelRowDeletedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeModelRowDeleted :: MonadIO m => TreeModelRowDeletedCallback -> m (GClosure C_TreeModelRowDeletedCallback) +genClosure_TreeModelRowDeleted cb = liftIO $ do + let cb' = wrap_TreeModelRowDeletedCallback cb + mk_TreeModelRowDeletedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeModelRowDeletedCallback` into a `C_TreeModelRowDeletedCallback`. +wrap_TreeModelRowDeletedCallback :: + TreeModelRowDeletedCallback -> + C_TreeModelRowDeletedCallback +wrap_TreeModelRowDeletedCallback _cb _ path _ = do + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + _cb path' + + +{- | +Connect a signal handler for the “@row-deleted@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' treeModel #rowDeleted callback +@ +-} +onTreeModelRowDeleted :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId +onTreeModelRowDeleted obj cb = liftIO $ do + let cb' = wrap_TreeModelRowDeletedCallback cb + cb'' <- mk_TreeModelRowDeletedCallback cb' + connectSignalFunPtr obj "row-deleted" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@row-deleted@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' treeModel #rowDeleted callback +@ +-} +afterTreeModelRowDeleted :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId +afterTreeModelRowDeleted obj cb = liftIO $ do + let cb' = wrap_TreeModelRowDeletedCallback cb + cb'' <- mk_TreeModelRowDeletedCallback cb' + connectSignalFunPtr obj "row-deleted" cb'' SignalConnectAfter + + +-- signal TreeModel::row-has-child-toggled +{- | +This signal is emitted when a row has gotten the first child +row or lost its last child row. +-} +type TreeModelRowHasChildToggledCallback = + Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct identifying the row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the row -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelRowHasChildToggledCallback`@. +noTreeModelRowHasChildToggledCallback :: Maybe TreeModelRowHasChildToggledCallback +noTreeModelRowHasChildToggledCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_TreeModelRowHasChildToggledCallback = + Ptr () -> -- object + Ptr Gtk.TreePath.TreePath -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_TreeModelRowHasChildToggledCallback`. +foreign import ccall "wrapper" + mk_TreeModelRowHasChildToggledCallback :: C_TreeModelRowHasChildToggledCallback -> IO (FunPtr C_TreeModelRowHasChildToggledCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeModelRowHasChildToggled :: MonadIO m => TreeModelRowHasChildToggledCallback -> m (GClosure C_TreeModelRowHasChildToggledCallback) +genClosure_TreeModelRowHasChildToggled cb = liftIO $ do + let cb' = wrap_TreeModelRowHasChildToggledCallback cb + mk_TreeModelRowHasChildToggledCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeModelRowHasChildToggledCallback` into a `C_TreeModelRowHasChildToggledCallback`. +wrap_TreeModelRowHasChildToggledCallback :: + TreeModelRowHasChildToggledCallback -> + C_TreeModelRowHasChildToggledCallback +wrap_TreeModelRowHasChildToggledCallback _cb _ path iter _ = do + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + _cb path' iter' + + +{- | +Connect a signal handler for the “@row-has-child-toggled@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' treeModel #rowHasChildToggled callback +@ +-} +onTreeModelRowHasChildToggled :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId +onTreeModelRowHasChildToggled obj cb = liftIO $ do + let cb' = wrap_TreeModelRowHasChildToggledCallback cb + cb'' <- mk_TreeModelRowHasChildToggledCallback cb' + connectSignalFunPtr obj "row-has-child-toggled" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@row-has-child-toggled@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' treeModel #rowHasChildToggled callback +@ +-} +afterTreeModelRowHasChildToggled :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId +afterTreeModelRowHasChildToggled obj cb = liftIO $ do + let cb' = wrap_TreeModelRowHasChildToggledCallback cb + cb'' <- mk_TreeModelRowHasChildToggledCallback cb' + connectSignalFunPtr obj "row-has-child-toggled" cb'' SignalConnectAfter + + +-- signal TreeModel::row-inserted +{- | +This signal is emitted when a new row has been inserted in +the model. + +Note that the row may still be empty at this point, since +it is a common pattern to first insert an empty row, and +then fill it with the desired values. +-} +type TreeModelRowInsertedCallback = + Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct identifying the new row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the new row -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeModelRowInsertedCallback`@. +noTreeModelRowInsertedCallback :: Maybe TreeModelRowInsertedCallback +noTreeModelRowInsertedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_TreeModelRowInsertedCallback = + Ptr () -> -- object + Ptr Gtk.TreePath.TreePath -> + Ptr Gtk.TreeIter.TreeIter -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_TreeModelRowInsertedCallback`. +foreign import ccall "wrapper" + mk_TreeModelRowInsertedCallback :: C_TreeModelRowInsertedCallback -> IO (FunPtr C_TreeModelRowInsertedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeModelRowInserted :: MonadIO m => TreeModelRowInsertedCallback -> m (GClosure C_TreeModelRowInsertedCallback) +genClosure_TreeModelRowInserted cb = liftIO $ do + let cb' = wrap_TreeModelRowInsertedCallback cb + mk_TreeModelRowInsertedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeModelRowInsertedCallback` into a `C_TreeModelRowInsertedCallback`. +wrap_TreeModelRowInsertedCallback :: + TreeModelRowInsertedCallback -> + C_TreeModelRowInsertedCallback +wrap_TreeModelRowInsertedCallback _cb _ path iter _ = do + B.ManagedPtr.withTransient Gtk.TreePath.TreePath path $ \path' -> do + B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do + _cb path' iter' + + +{- | +Connect a signal handler for the “@row-inserted@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' treeModel #rowInserted callback +@ +-} +onTreeModelRowInserted :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId +onTreeModelRowInserted obj cb = liftIO $ do + let cb' = wrap_TreeModelRowInsertedCallback cb + cb'' <- mk_TreeModelRowInsertedCallback cb' + connectSignalFunPtr obj "row-inserted" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@row-inserted@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' treeModel #rowInserted callback +@ +-} +afterTreeModelRowInserted :: (IsTreeModel a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId +afterTreeModelRowInserted obj cb = liftIO $ do + let cb' = wrap_TreeModelRowInsertedCallback cb + cb'' <- mk_TreeModelRowInsertedCallback cb' + connectSignalFunPtr obj "row-inserted" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data TreeModelRowChangedSignalInfo +instance SignalInfo TreeModelRowChangedSignalInfo where + type HaskellCallbackType TreeModelRowChangedSignalInfo = TreeModelRowChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_TreeModelRowChangedCallback cb + cb'' <- mk_TreeModelRowChangedCallback cb' + connectSignalFunPtr obj "row-changed" cb'' connectMode + +data TreeModelRowDeletedSignalInfo +instance SignalInfo TreeModelRowDeletedSignalInfo where + type HaskellCallbackType TreeModelRowDeletedSignalInfo = TreeModelRowDeletedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_TreeModelRowDeletedCallback cb + cb'' <- mk_TreeModelRowDeletedCallback cb' + connectSignalFunPtr obj "row-deleted" cb'' connectMode + +data TreeModelRowHasChildToggledSignalInfo +instance SignalInfo TreeModelRowHasChildToggledSignalInfo where + type HaskellCallbackType TreeModelRowHasChildToggledSignalInfo = TreeModelRowHasChildToggledCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_TreeModelRowHasChildToggledCallback cb + cb'' <- mk_TreeModelRowHasChildToggledCallback cb' + connectSignalFunPtr obj "row-has-child-toggled" cb'' connectMode + +data TreeModelRowInsertedSignalInfo +instance SignalInfo TreeModelRowInsertedSignalInfo where + type HaskellCallbackType TreeModelRowInsertedSignalInfo = TreeModelRowInsertedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_TreeModelRowInsertedCallback cb + cb'' <- mk_TreeModelRowInsertedCallback cb' + connectSignalFunPtr obj "row-inserted" cb'' connectMode + +type instance O.SignalList TreeModel = TreeModelSignalList +type TreeModelSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_tree_model_get_type" + c_gtk_tree_model_get_type :: IO GType + +instance GObject TreeModel where + gobjectType = c_gtk_tree_model_get_type + + +-- | Type class for types which can be safely cast to `TreeModel`, for instance with `toTreeModel`. +class (GObject o, O.IsDescendantOf TreeModel o) => IsTreeModel o +instance (GObject o, O.IsDescendantOf TreeModel o) => IsTreeModel o + +instance O.HasParentTypes TreeModel +type instance O.ParentTypes TreeModel = '[GObject.Object.Object] + +-- | Cast to `TreeModel`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toTreeModel :: (MonadIO m, IsTreeModel o) => o -> m TreeModel +toTreeModel = liftIO . unsafeCastTo TreeModel + +#if ENABLE_OVERLOADING +instance O.HasAttributeList TreeModel +type instance O.AttributeList TreeModel = TreeModelAttributeList +type TreeModelAttributeList = ('[ ] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type family ResolveTreeModelMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeModelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveTreeModelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveTreeModelMethod "filterNew" o = TreeModelFilterNewMethodInfo + ResolveTreeModelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveTreeModelMethod "foreach" o = TreeModelForeachMethodInfo + ResolveTreeModelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveTreeModelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveTreeModelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveTreeModelMethod "iterChildren" o = TreeModelIterChildrenMethodInfo + ResolveTreeModelMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo + ResolveTreeModelMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo + ResolveTreeModelMethod "iterNext" o = TreeModelIterNextMethodInfo + ResolveTreeModelMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo + ResolveTreeModelMethod "iterParent" o = TreeModelIterParentMethodInfo + ResolveTreeModelMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo + ResolveTreeModelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveTreeModelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveTreeModelMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveTreeModelMethod "refNode" o = TreeModelRefNodeMethodInfo + ResolveTreeModelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveTreeModelMethod "rowChanged" o = TreeModelRowChangedMethodInfo + ResolveTreeModelMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo + ResolveTreeModelMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo + ResolveTreeModelMethod "rowInserted" o = TreeModelRowInsertedMethodInfo + ResolveTreeModelMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo + ResolveTreeModelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveTreeModelMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo + ResolveTreeModelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveTreeModelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveTreeModelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveTreeModelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveTreeModelMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo + ResolveTreeModelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveTreeModelMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo + ResolveTreeModelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveTreeModelMethod "getFlags" o = TreeModelGetFlagsMethodInfo + ResolveTreeModelMethod "getIter" o = TreeModelGetIterMethodInfo + ResolveTreeModelMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo + ResolveTreeModelMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo + ResolveTreeModelMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo + ResolveTreeModelMethod "getPath" o = TreeModelGetPathMethodInfo + ResolveTreeModelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveTreeModelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveTreeModelMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo + ResolveTreeModelMethod "getValue" o = TreeModelGetValueMethodInfo + ResolveTreeModelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveTreeModelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveTreeModelMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveTreeModelMethod t TreeModel, O.MethodInfo info TreeModel p) => OL.IsLabel t (TreeModel -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method TreeModel::filter_new +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "child_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeModel.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GtkTreePath or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TreeModel"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_filter_new" gtk_tree_model_filter_new :: + Ptr TreeModel -> -- child_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreePath.TreePath -> -- root : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + IO (Ptr TreeModel) + +{- | +Creates a new 'GI.Gtk.Interfaces.TreeModel.TreeModel', with /@childModel@/ as the child_model +and /@root@/ as the virtual root. + +/Since: 2.4/ +-} +treeModelFilterNew :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@childModel@/: A 'GI.Gtk.Interfaces.TreeModel.TreeModel'. -} + -> Maybe (Gtk.TreePath.TreePath) + {- ^ /@root@/: A 'GI.Gtk.Structs.TreePath.TreePath' or 'Nothing'. -} + -> m TreeModel + {- ^ __Returns:__ A new 'GI.Gtk.Interfaces.TreeModel.TreeModel'. -} +treeModelFilterNew childModel root = liftIO $ do + childModel' <- unsafeManagedPtrCastPtr childModel + maybeRoot <- case root of + Nothing -> return nullPtr + Just jRoot -> do + jRoot' <- unsafeManagedPtrGetPtr jRoot + return jRoot' + result <- gtk_tree_model_filter_new childModel' maybeRoot + checkUnexpectedReturnNULL "treeModelFilterNew" result + result' <- (wrapObject TreeModel) result + touchManagedPtr childModel + whenJust root touchManagedPtr + return result' + +#if ENABLE_OVERLOADING +data TreeModelFilterNewMethodInfo +instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> m TreeModel), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelFilterNewMethodInfo a signature where + overloadedMethod _ = treeModelFilterNew + +#endif + +-- method TreeModel::foreach +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "Gtk", name = "TreeModelForeachFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a function to be called on each row", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to passed to @func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_foreach" gtk_tree_model_foreach :: + Ptr TreeModel -> -- model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + FunPtr Gtk.Callbacks.C_TreeModelForeachFunc -> -- func : TInterface (Name {namespace = "Gtk", name = "TreeModelForeachFunc"}) + Ptr () -> -- user_data : TBasicType TPtr + IO () + +{- | +Calls func on each node in model in a depth-first fashion. + +If /@func@/ returns 'True', then the tree ceases to be walked, +and 'GI.Gtk.Interfaces.TreeModel.treeModelForeach' returns. +-} +treeModelForeach :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@model@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.Callbacks.TreeModelForeachFunc + {- ^ /@func@/: a function to be called on each row -} + -> m () +treeModelForeach model func = liftIO $ do + model' <- unsafeManagedPtrCastPtr model + func' <- Gtk.Callbacks.mk_TreeModelForeachFunc (Gtk.Callbacks.wrap_TreeModelForeachFunc Nothing (Gtk.Callbacks.drop_closures_TreeModelForeachFunc func)) + let userData = nullPtr + gtk_tree_model_foreach model' func' userData + safeFreeFunPtr $ castFunPtrToPtr func' + touchManagedPtr model + return () + +#if ENABLE_OVERLOADING +data TreeModelForeachMethodInfo +instance (signature ~ (Gtk.Callbacks.TreeModelForeachFunc -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelForeachMethodInfo a signature where + overloadedMethod _ = treeModelForeach + +#endif + +-- method TreeModel::get_column_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the column index", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TGType) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_column_type" gtk_tree_model_get_column_type :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Int32 -> -- index_ : TBasicType TInt + IO CGType + +{- | +Returns the type of the column. +-} +treeModelGetColumnType :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Int32 + {- ^ /@index_@/: the column index -} + -> m GType + {- ^ __Returns:__ the type of the column -} +treeModelGetColumnType treeModel index_ = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + result <- gtk_tree_model_get_column_type treeModel' index_ + let result' = GType result + touchManagedPtr treeModel + return result' + +#if ENABLE_OVERLOADING +data TreeModelGetColumnTypeMethodInfo +instance (signature ~ (Int32 -> m GType), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetColumnTypeMethodInfo a signature where + overloadedMethod _ = treeModelGetColumnType + +#endif + +-- method TreeModel::get_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TreeModelFlags"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_flags" gtk_tree_model_get_flags :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + IO CUInt + +{- | +Returns a set of flags supported by this interface. + +The flags are a bitwise combination of 'GI.Gtk.Flags.TreeModelFlags'. +The flags supported should not change during the lifetime +of the /@treeModel@/. +-} +treeModelGetFlags :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> m [Gtk.Flags.TreeModelFlags] + {- ^ __Returns:__ the flags supported by this interface -} +treeModelGetFlags treeModel = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + result <- gtk_tree_model_get_flags treeModel' + let result' = wordToGFlags result + touchManagedPtr treeModel + return result' + +#if ENABLE_OVERLOADING +data TreeModelGetFlagsMethodInfo +instance (signature ~ (m [Gtk.Flags.TreeModelFlags]), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetFlagsMethodInfo a signature where + overloadedMethod _ = treeModelGetFlags + +#endif + +-- method TreeModel::get_iter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uninitialized #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreePath-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_iter" gtk_tree_model_get_iter :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + IO CInt + +{- | +Sets /@iter@/ to a valid iterator pointing to /@path@/. If /@path@/ does +not exist, /@iter@/ is set to an invalid iterator and 'False' is returned. +-} +treeModelGetIter :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: the 'GI.Gtk.Structs.TreePath.TreePath'-struct -} + -> m ((Bool, Gtk.TreeIter.TreeIter)) + {- ^ __Returns:__ 'True', if /@iter@/ was set -} +treeModelGetIter treeModel path = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) + path' <- unsafeManagedPtrGetPtr path + result <- gtk_tree_model_get_iter treeModel' iter path' + let result' = (/= 0) result + iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter + touchManagedPtr treeModel + touchManagedPtr path + return (result', iter') + +#if ENABLE_OVERLOADING +data TreeModelGetIterMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> m ((Bool, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetIterMethodInfo a signature where + overloadedMethod _ = treeModelGetIter + +#endif + +-- method TreeModel::get_iter_first +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uninitialized #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_iter_first" gtk_tree_model_get_iter_first :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO CInt + +{- | +Initializes /@iter@/ with the first iterator in the tree +(the one at the path \"0\") and returns 'True'. Returns +'False' if the tree is empty. +-} +treeModelGetIterFirst :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> m ((Bool, Gtk.TreeIter.TreeIter)) + {- ^ __Returns:__ 'True', if /@iter@/ was set -} +treeModelGetIterFirst treeModel = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) + result <- gtk_tree_model_get_iter_first treeModel' iter + let result' = (/= 0) result + iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter + touchManagedPtr treeModel + return (result', iter') + +#if ENABLE_OVERLOADING +data TreeModelGetIterFirstMethodInfo +instance (signature ~ (m ((Bool, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetIterFirstMethodInfo a signature where + overloadedMethod _ = treeModelGetIterFirst + +#endif + +-- method TreeModel::get_iter_from_string +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an uninitialized #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string representation of a #GtkTreePath-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_iter_from_string" gtk_tree_model_get_iter_from_string :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + CString -> -- path_string : TBasicType TUTF8 + IO CInt + +{- | +Sets /@iter@/ to a valid iterator pointing to /@pathString@/, if it +exists. Otherwise, /@iter@/ is left invalid and 'False' is returned. +-} +treeModelGetIterFromString :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> T.Text + {- ^ /@pathString@/: a string representation of a 'GI.Gtk.Structs.TreePath.TreePath'-struct -} + -> m ((Bool, Gtk.TreeIter.TreeIter)) + {- ^ __Returns:__ 'True', if /@iter@/ was set -} +treeModelGetIterFromString treeModel pathString = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) + pathString' <- textToCString pathString + result <- gtk_tree_model_get_iter_from_string treeModel' iter pathString' + let result' = (/= 0) result + iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter + touchManagedPtr treeModel + freeMem pathString' + return (result', iter') + +#if ENABLE_OVERLOADING +data TreeModelGetIterFromStringMethodInfo +instance (signature ~ (T.Text -> m ((Bool, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetIterFromStringMethodInfo a signature where + overloadedMethod _ = treeModelGetIterFromString + +#endif + +-- method TreeModel::get_n_columns +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_n_columns" gtk_tree_model_get_n_columns :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + IO Int32 + +{- | +Returns the number of columns supported by /@treeModel@/. +-} +treeModelGetNColumns :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> m Int32 + {- ^ __Returns:__ the number of columns -} +treeModelGetNColumns treeModel = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + result <- gtk_tree_model_get_n_columns treeModel' + touchManagedPtr treeModel + return result + +#if ENABLE_OVERLOADING +data TreeModelGetNColumnsMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetNColumnsMethodInfo a signature where + overloadedMethod _ = treeModelGetNColumns + +#endif + +-- method TreeModel::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TreePath"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_path" gtk_tree_model_get_path :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO (Ptr Gtk.TreePath.TreePath) + +{- | +Returns a newly-created 'GI.Gtk.Structs.TreePath.TreePath'-struct referenced by /@iter@/. + +This path should be freed with 'GI.Gtk.Structs.TreePath.treePathFree'. +-} +treeModelGetPath :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> m Gtk.TreePath.TreePath + {- ^ __Returns:__ a newly-created 'GI.Gtk.Structs.TreePath.TreePath'-struct -} +treeModelGetPath treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + result <- gtk_tree_model_get_path treeModel' iter' + checkUnexpectedReturnNULL "treeModelGetPath" result + result' <- (wrapBoxed Gtk.TreePath.TreePath) result + touchManagedPtr treeModel + touchManagedPtr iter + return result' + +#if ENABLE_OVERLOADING +data TreeModelGetPathMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m Gtk.TreePath.TreePath), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetPathMethodInfo a signature where + overloadedMethod _ = treeModelGetPath + +#endif + +-- method TreeModel::get_string_from_iter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_string_from_iter" gtk_tree_model_get_string_from_iter :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO CString + +{- | +Generates a string representation of the iter. + +This string is a “:” separated list of numbers. +For example, “4:10:0:3” would be an acceptable +return value for this string. + +/Since: 2.2/ +-} +treeModelGetStringFromIter :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> m T.Text + {- ^ __Returns:__ a newly-allocated string. + Must be freed with 'GI.GLib.Functions.free'. -} +treeModelGetStringFromIter treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + result <- gtk_tree_model_get_string_from_iter treeModel' iter' + checkUnexpectedReturnNULL "treeModelGetStringFromIter" result + result' <- cstringToText result + freeMem result + touchManagedPtr treeModel + touchManagedPtr iter + return result' + +#if ENABLE_OVERLOADING +data TreeModelGetStringFromIterMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m T.Text), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetStringFromIterMethodInfo a signature where + overloadedMethod _ = treeModelGetStringFromIter + +#endif + +-- method TreeModel::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the column to lookup the value at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an empty #GValue to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_get_value" gtk_tree_model_get_value :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + Int32 -> -- column : TBasicType TInt + Ptr GValue -> -- value : TInterface (Name {namespace = "GObject", name = "Value"}) + IO () + +{- | +Initializes and sets /@value@/ to that at /@column@/. + +When done with /@value@/, 'GI.GObject.Structs.Value.valueUnset' needs to be called +to free any allocated memory. +-} +treeModelGetValue :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> Int32 + {- ^ /@column@/: the column to lookup the value at -} + -> m (GValue) +treeModelGetValue treeModel iter column = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + value <- callocBoxedBytes 24 :: IO (Ptr GValue) + gtk_tree_model_get_value treeModel' iter' column value + value' <- (wrapBoxed GValue) value + touchManagedPtr treeModel + touchManagedPtr iter + return value' + +#if ENABLE_OVERLOADING +data TreeModelGetValueMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> Int32 -> m (GValue)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetValueMethodInfo a signature where + overloadedMethod _ = treeModelGetValue + +#endif + +-- method TreeModel::iter_children +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new #GtkTreeIter-struct to be set to the child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_iter_children" gtk_tree_model_iter_children :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + Ptr Gtk.TreeIter.TreeIter -> -- parent : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO CInt + +{- | +Sets /@iter@/ to point to the first child of /@parent@/. + +If /@parent@/ has no children, 'False' is returned and /@iter@/ is +set to be invalid. /@parent@/ will remain a valid node after this +function has been called. + +If /@parent@/ is 'Nothing' returns the first node, equivalent to +@gtk_tree_model_get_iter_first (tree_model, iter);@ +-} +treeModelIterChildren :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Maybe (Gtk.TreeIter.TreeIter) + {- ^ /@parent@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct, or 'Nothing' -} + -> m ((Bool, Gtk.TreeIter.TreeIter)) + {- ^ __Returns:__ 'True', if /@iter@/ has been set to the first child -} +treeModelIterChildren treeModel parent = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + jParent' <- unsafeManagedPtrGetPtr jParent + return jParent' + result <- gtk_tree_model_iter_children treeModel' iter maybeParent + let result' = (/= 0) result + iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter + touchManagedPtr treeModel + whenJust parent touchManagedPtr + return (result', iter') + +#if ENABLE_OVERLOADING +data TreeModelIterChildrenMethodInfo +instance (signature ~ (Maybe (Gtk.TreeIter.TreeIter) -> m ((Bool, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterChildrenMethodInfo a signature where + overloadedMethod _ = treeModelIterChildren + +#endif + +-- method TreeModel::iter_has_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct to test for children", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_iter_has_child" gtk_tree_model_iter_has_child :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO CInt + +{- | +Returns 'True' if /@iter@/ has children, 'False' otherwise. +-} +treeModelIterHasChild :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct to test for children -} + -> m Bool + {- ^ __Returns:__ 'True' if /@iter@/ has children -} +treeModelIterHasChild treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + result <- gtk_tree_model_iter_has_child treeModel' iter' + let result' = (/= 0) result + touchManagedPtr treeModel + touchManagedPtr iter + return result' + +#if ENABLE_OVERLOADING +data TreeModelIterHasChildMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m Bool), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterHasChildMethodInfo a signature where + overloadedMethod _ = treeModelIterHasChild + +#endif + +-- method TreeModel::iter_n_children +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_iter_n_children" gtk_tree_model_iter_n_children :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO Int32 + +{- | +Returns the number of children that /@iter@/ has. + +As a special case, if /@iter@/ is 'Nothing', then the number +of toplevel nodes is returned. +-} +treeModelIterNChildren :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Maybe (Gtk.TreeIter.TreeIter) + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct, or 'Nothing' -} + -> m Int32 + {- ^ __Returns:__ the number of children of /@iter@/ -} +treeModelIterNChildren treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + maybeIter <- case iter of + Nothing -> return nullPtr + Just jIter -> do + jIter' <- unsafeManagedPtrGetPtr jIter + return jIter' + result <- gtk_tree_model_iter_n_children treeModel' maybeIter + touchManagedPtr treeModel + whenJust iter touchManagedPtr + return result + +#if ENABLE_OVERLOADING +data TreeModelIterNChildrenMethodInfo +instance (signature ~ (Maybe (Gtk.TreeIter.TreeIter) -> m Int32), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterNChildrenMethodInfo a signature where + overloadedMethod _ = treeModelIterNChildren + +#endif + +-- method TreeModel::iter_next +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_iter_next" gtk_tree_model_iter_next :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO CInt + +{- | +Sets /@iter@/ to point to the node following it at the current level. + +If there is no next /@iter@/, 'False' is returned and /@iter@/ is set +to be invalid. +-} +treeModelIterNext :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> m Bool + {- ^ __Returns:__ 'True' if /@iter@/ has been changed to the next node -} +treeModelIterNext treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + result <- gtk_tree_model_iter_next treeModel' iter' + let result' = (/= 0) result + touchManagedPtr treeModel + touchManagedPtr iter + return result' + +#if ENABLE_OVERLOADING +data TreeModelIterNextMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m Bool), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterNextMethodInfo a signature where + overloadedMethod _ = treeModelIterNext + +#endif + +-- method TreeModel::iter_nth_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct to set to the nth child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct to get the child from, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the desired child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_iter_nth_child" gtk_tree_model_iter_nth_child :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + Ptr Gtk.TreeIter.TreeIter -> -- parent : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + Int32 -> -- n : TBasicType TInt + IO CInt + +{- | +Sets /@iter@/ to be the child of /@parent@/, using the given index. + +The first index is 0. If /@n@/ is too big, or /@parent@/ has no children, +/@iter@/ is set to an invalid iterator and 'False' is returned. /@parent@/ +will remain a valid node after this function has been called. As a +special case, if /@parent@/ is 'Nothing', then the /@n@/-th root node +is set. +-} +treeModelIterNthChild :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Maybe (Gtk.TreeIter.TreeIter) + {- ^ /@parent@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct to get the child from, or 'Nothing'. -} + -> Int32 + {- ^ /@n@/: the index of the desired child -} + -> m ((Bool, Gtk.TreeIter.TreeIter)) + {- ^ __Returns:__ 'True', if /@parent@/ has an /@n@/-th child -} +treeModelIterNthChild treeModel parent n = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + jParent' <- unsafeManagedPtrGetPtr jParent + return jParent' + result <- gtk_tree_model_iter_nth_child treeModel' iter maybeParent n + let result' = (/= 0) result + iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter + touchManagedPtr treeModel + whenJust parent touchManagedPtr + return (result', iter') + +#if ENABLE_OVERLOADING +data TreeModelIterNthChildMethodInfo +instance (signature ~ (Maybe (Gtk.TreeIter.TreeIter) -> Int32 -> m ((Bool, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterNthChildMethodInfo a signature where + overloadedMethod _ = treeModelIterNthChild + +#endif + +-- method TreeModel::iter_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new #GtkTreeIter-struct to set to the parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_iter_parent" gtk_tree_model_iter_parent :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + Ptr Gtk.TreeIter.TreeIter -> -- child : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO CInt + +{- | +Sets /@iter@/ to be the parent of /@child@/. + +If /@child@/ is at the toplevel, and doesn’t have a parent, then +/@iter@/ is set to an invalid iterator and 'False' is returned. +/@child@/ will remain a valid node after this function has been +called. + +/@iter@/ will be initialized before the lookup is performed, so /@child@/ +and /@iter@/ cannot point to the same memory location. +-} +treeModelIterParent :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@child@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> m ((Bool, Gtk.TreeIter.TreeIter)) + {- ^ __Returns:__ 'True', if /@iter@/ is set to the parent of /@child@/ -} +treeModelIterParent treeModel child = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) + child' <- unsafeManagedPtrGetPtr child + result <- gtk_tree_model_iter_parent treeModel' iter child' + let result' = (/= 0) result + iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter + touchManagedPtr treeModel + touchManagedPtr child + return (result', iter') + +#if ENABLE_OVERLOADING +data TreeModelIterParentMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m ((Bool, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterParentMethodInfo a signature where + overloadedMethod _ = treeModelIterParent + +#endif + +-- method TreeModel::iter_previous +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_iter_previous" gtk_tree_model_iter_previous :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO CInt + +{- | +Sets /@iter@/ to point to the previous node at the current level. + +If there is no previous /@iter@/, 'False' is returned and /@iter@/ is +set to be invalid. + +/Since: 3.0/ +-} +treeModelIterPrevious :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> m Bool + {- ^ __Returns:__ 'True' if /@iter@/ has been changed to the previous node -} +treeModelIterPrevious treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + result <- gtk_tree_model_iter_previous treeModel' iter' + let result' = (/= 0) result + touchManagedPtr treeModel + touchManagedPtr iter + return result' + +#if ENABLE_OVERLOADING +data TreeModelIterPreviousMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m Bool), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterPreviousMethodInfo a signature where + overloadedMethod _ = treeModelIterPrevious + +#endif + +-- method TreeModel::ref_node +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_ref_node" gtk_tree_model_ref_node :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO () + +{- | +Lets the tree ref the node. + +This is an optional method for models to implement. +To be more specific, models may ignore this call as it exists +primarily for performance reasons. + +This function is primarily meant as a way for views to let +caching models know when nodes are being displayed (and hence, +whether or not to cache that node). Being displayed means a node +is in an expanded branch, regardless of whether the node is currently +visible in the viewport. For example, a file-system based model +would not want to keep the entire file-hierarchy in memory, +just the sections that are currently being displayed by +every current view. + +A model should be expected to be able to get an iter independent +of its reffed state. +-} +treeModelRefNode :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> m () +treeModelRefNode treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + gtk_tree_model_ref_node treeModel' iter' + touchManagedPtr treeModel + touchManagedPtr iter + return () + +#if ENABLE_OVERLOADING +data TreeModelRefNodeMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRefNodeMethodInfo a signature where + overloadedMethod _ = treeModelRefNode + +#endif + +-- method TreeModel::row_changed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_row_changed" gtk_tree_model_row_changed :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO () + +{- | +Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-changed/@ signal on /@treeModel@/. +-} +treeModelRowChanged :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the changed row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the changed row -} + -> m () +treeModelRowChanged treeModel path iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + path' <- unsafeManagedPtrGetPtr path + iter' <- unsafeManagedPtrGetPtr iter + gtk_tree_model_row_changed treeModel' path' iter' + touchManagedPtr treeModel + touchManagedPtr path + touchManagedPtr iter + return () + +#if ENABLE_OVERLOADING +data TreeModelRowChangedMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowChangedMethodInfo a signature where + overloadedMethod _ = treeModelRowChanged + +#endif + +-- method TreeModel::row_deleted +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the previous location of\n the deleted row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_row_deleted" gtk_tree_model_row_deleted :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + IO () + +{- | +Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-deleted/@ signal on /@treeModel@/. + +This should be called by models after a row has been removed. +The location pointed to by /@path@/ should be the location that +the row previously was at. It may not be a valid location anymore. + +Nodes that are deleted are not unreffed, this means that any +outstanding references on the deleted node should not be released. +-} +treeModelRowDeleted :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the previous location of + the deleted row -} + -> m () +treeModelRowDeleted treeModel path = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + path' <- unsafeManagedPtrGetPtr path + gtk_tree_model_row_deleted treeModel' path' + touchManagedPtr treeModel + touchManagedPtr path + return () + +#if ENABLE_OVERLOADING +data TreeModelRowDeletedMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowDeletedMethodInfo a signature where + overloadedMethod _ = treeModelRowDeleted + +#endif + +-- method TreeModel::row_has_child_toggled +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_row_has_child_toggled" gtk_tree_model_row_has_child_toggled :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO () + +{- | +Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-has-child-toggled/@ signal on +/@treeModel@/. This should be called by models after the child +state of a node changes. +-} +treeModelRowHasChildToggled :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the changed row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the changed row -} + -> m () +treeModelRowHasChildToggled treeModel path iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + path' <- unsafeManagedPtrGetPtr path + iter' <- unsafeManagedPtrGetPtr iter + gtk_tree_model_row_has_child_toggled treeModel' path' iter' + touchManagedPtr treeModel + touchManagedPtr path + touchManagedPtr iter + return () + +#if ENABLE_OVERLOADING +data TreeModelRowHasChildToggledMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowHasChildToggledMethodInfo a signature where + overloadedMethod _ = treeModelRowHasChildToggled + +#endif + +-- method TreeModel::row_inserted +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the inserted row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the inserted row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_row_inserted" gtk_tree_model_row_inserted :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO () + +{- | +Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-inserted/@ signal on /@treeModel@/. +-} +treeModelRowInserted :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the inserted row -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the inserted row -} + -> m () +treeModelRowInserted treeModel path iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + path' <- unsafeManagedPtrGetPtr path + iter' <- unsafeManagedPtrGetPtr iter + gtk_tree_model_row_inserted treeModel' path' iter' + touchManagedPtr treeModel + touchManagedPtr path + touchManagedPtr iter + return () + +#if ENABLE_OVERLOADING +data TreeModelRowInsertedMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowInsertedMethodInfo a signature where + overloadedMethod _ = treeModelRowInserted + +#endif + +-- method TreeModel::rows_reordered +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the tree node whose children\n have been reordered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the node\n whose children have been reordered, or %NULL if the depth\n of @path is 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of integers\n mapping the current position of each child to its old\n position before the re-ordering,\n i.e. @new_order`[newpos] = oldpos`", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @new_order array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @new_order array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_rows_reordered_with_length" gtk_tree_model_rows_reordered_with_length :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt) + Int32 -> -- length : TBasicType TInt + IO () + +{- | +Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/rows-reordered/@ signal on /@treeModel@/. + +This should be called by models when their rows have been +reordered. + +/Since: 3.10/ +-} +treeModelRowsReordered :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreePath.TreePath + {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the tree node whose children + have been reordered -} + -> Maybe (Gtk.TreeIter.TreeIter) + {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the node + whose children have been reordered, or 'Nothing' if the depth + of /@path@/ is 0 -} + -> [Int32] + {- ^ /@newOrder@/: an array of integers + mapping the current position of each child to its old + position before the re-ordering, + i.e. /@newOrder@/@[newpos] = oldpos@ -} + -> m () +treeModelRowsReordered treeModel path iter newOrder = liftIO $ do + let length_ = fromIntegral $ length newOrder + treeModel' <- unsafeManagedPtrCastPtr treeModel + path' <- unsafeManagedPtrGetPtr path + maybeIter <- case iter of + Nothing -> return nullPtr + Just jIter -> do + jIter' <- unsafeManagedPtrGetPtr jIter + return jIter' + newOrder' <- packStorableArray newOrder + gtk_tree_model_rows_reordered_with_length treeModel' path' maybeIter newOrder' length_ + touchManagedPtr treeModel + touchManagedPtr path + whenJust iter touchManagedPtr + freeMem newOrder' + return () + +#if ENABLE_OVERLOADING +data TreeModelRowsReorderedMethodInfo +instance (signature ~ (Gtk.TreePath.TreePath -> Maybe (Gtk.TreeIter.TreeIter) -> [Int32] -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowsReorderedMethodInfo a signature where + overloadedMethod _ = treeModelRowsReordered + +#endif + +-- method TreeModel::sort_new_with_model +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "child_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 -> -- child_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + IO (Ptr TreeModel) + +{- | +Creates a new 'GI.Gtk.Interfaces.TreeModel.TreeModel', with /@childModel@/ as the child model. +-} +treeModelSortNewWithModel :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@childModel@/: A 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> m TreeModel + {- ^ __Returns:__ A new 'GI.Gtk.Interfaces.TreeModel.TreeModel'. -} +treeModelSortNewWithModel childModel = liftIO $ do + childModel' <- unsafeManagedPtrCastPtr childModel + result <- gtk_tree_model_sort_new_with_model childModel' + checkUnexpectedReturnNULL "treeModelSortNewWithModel" result + result' <- (wrapObject TreeModel) result + touchManagedPtr childModel + return result' + +#if ENABLE_OVERLOADING +data TreeModelSortNewWithModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelSortNewWithModelMethodInfo a signature where + overloadedMethod _ = treeModelSortNewWithModel + +#endif + +-- method TreeModel::unref_node +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_model_unref_node" gtk_tree_model_unref_node :: + Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) + Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) + IO () + +{- | +Lets the tree unref the node. + +This is an optional method for models to implement. +To be more specific, models may ignore this call as it exists +primarily for performance reasons. For more information on what +this means, see 'GI.Gtk.Interfaces.TreeModel.treeModelRefNode'. + +Please note that nodes that are deleted are not unreffed. +-} +treeModelUnrefNode :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => + a + {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} + -> Gtk.TreeIter.TreeIter + {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} + -> m () +treeModelUnrefNode treeModel iter = liftIO $ do + treeModel' <- unsafeManagedPtrCastPtr treeModel + iter' <- unsafeManagedPtrGetPtr iter + gtk_tree_model_unref_node treeModel' iter' + touchManagedPtr treeModel + touchManagedPtr iter + return () + +#if ENABLE_OVERLOADING +data TreeModelUnrefNodeMethodInfo +instance (signature ~ (Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelUnrefNodeMethodInfo a signature where + overloadedMethod _ = treeModelUnrefNode + +#endif + + diff --git a/GI/Gtk/Interfaces/TreeModel.hs-boot b/GI/Gtk/Interfaces/TreeModel.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeModel.hs-boot @@ -0,0 +1,119 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.TreeModel where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype TreeModel = TreeModel (ManagedPtr TreeModel) +#if ENABLE_OVERLOADING +data TreeModelRowChangedSignalInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowDeletedSignalInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowHasChildToggledSignalInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowInsertedSignalInfo +#endif +instance GObject TreeModel where +class (GObject o, O.IsDescendantOf TreeModel o) => IsTreeModel o +instance (GObject o, O.IsDescendantOf TreeModel o) => IsTreeModel o +instance O.HasParentTypes TreeModel +#if ENABLE_OVERLOADING +data TreeModelFilterNewMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelForeachMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetColumnTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetFlagsMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetIterMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetIterFirstMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetIterFromStringMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetNColumnsMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetPathMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetStringFromIterMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelGetValueMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelIterChildrenMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelIterHasChildMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelIterNChildrenMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelIterNextMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelIterNthChildMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelIterParentMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelIterPreviousMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRefNodeMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowChangedMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowDeletedMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowHasChildToggledMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowInsertedMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelRowsReorderedMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelSortNewWithModelMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeModelUnrefNodeMethodInfo +#endif diff --git a/GI/Gtk/Interfaces/TreeSortable.hs b/GI/Gtk/Interfaces/TreeSortable.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeSortable.hs @@ -0,0 +1,564 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Interfaces.TreeSortable.TreeSortable' is an interface to be implemented by tree models which +support sorting. The 'GI.Gtk.Objects.TreeView.TreeView' uses the methods provided by this interface +to sort the model. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Interfaces.TreeSortable + ( + +-- * Exported types + TreeSortable(..) , + noTreeSortable , + IsTreeSortable , + toTreeSortable , + + + -- * Methods +-- ** getSortColumnId #method:getSortColumnId# + +#if ENABLE_OVERLOADING + TreeSortableGetSortColumnIdMethodInfo , +#endif + treeSortableGetSortColumnId , + + +-- ** hasDefaultSortFunc #method:hasDefaultSortFunc# + +#if ENABLE_OVERLOADING + TreeSortableHasDefaultSortFuncMethodInfo, +#endif + treeSortableHasDefaultSortFunc , + + +-- ** setDefaultSortFunc #method:setDefaultSortFunc# + +#if ENABLE_OVERLOADING + TreeSortableSetDefaultSortFuncMethodInfo, +#endif + treeSortableSetDefaultSortFunc , + + +-- ** setSortColumnId #method:setSortColumnId# + +#if ENABLE_OVERLOADING + TreeSortableSetSortColumnIdMethodInfo , +#endif + treeSortableSetSortColumnId , + + +-- ** setSortFunc #method:setSortFunc# + +#if ENABLE_OVERLOADING + TreeSortableSetSortFuncMethodInfo , +#endif + treeSortableSetSortFunc , + + +-- ** sortColumnChanged #method:sortColumnChanged# + +#if ENABLE_OVERLOADING + TreeSortableSortColumnChangedMethodInfo , +#endif + treeSortableSortColumnChanged , + + + + + -- * Signals +-- ** sortColumnChanged #signal:sortColumnChanged# + + C_TreeSortableSortColumnChangedCallback , + TreeSortableSortColumnChangedCallback , +#if ENABLE_OVERLOADING + TreeSortableSortColumnChangedSignalInfo , +#endif + afterTreeSortableSortColumnChanged , + genClosure_TreeSortableSortColumnChanged, + mk_TreeSortableSortColumnChangedCallback, + noTreeSortableSortColumnChangedCallback , + onTreeSortableSortColumnChanged , + wrap_TreeSortableSortColumnChangedCallback, + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Callbacks as GLib.Callbacks +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel + +-- interface TreeSortable +-- | Memory-managed wrapper type. +newtype TreeSortable = TreeSortable (ManagedPtr TreeSortable) +-- | A convenience alias for `Nothing` :: `Maybe` `TreeSortable`. +noTreeSortable :: Maybe TreeSortable +noTreeSortable = Nothing + +-- signal TreeSortable::sort-column-changed +{- | +The ::sort-column-changed signal is emitted when the sort column +or sort order of /@sortable@/ is changed. The signal is emitted before +the contents of /@sortable@/ are resorted. +-} +type TreeSortableSortColumnChangedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `TreeSortableSortColumnChangedCallback`@. +noTreeSortableSortColumnChangedCallback :: Maybe TreeSortableSortColumnChangedCallback +noTreeSortableSortColumnChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_TreeSortableSortColumnChangedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_TreeSortableSortColumnChangedCallback`. +foreign import ccall "wrapper" + mk_TreeSortableSortColumnChangedCallback :: C_TreeSortableSortColumnChangedCallback -> IO (FunPtr C_TreeSortableSortColumnChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_TreeSortableSortColumnChanged :: MonadIO m => TreeSortableSortColumnChangedCallback -> m (GClosure C_TreeSortableSortColumnChangedCallback) +genClosure_TreeSortableSortColumnChanged cb = liftIO $ do + let cb' = wrap_TreeSortableSortColumnChangedCallback cb + mk_TreeSortableSortColumnChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `TreeSortableSortColumnChangedCallback` into a `C_TreeSortableSortColumnChangedCallback`. +wrap_TreeSortableSortColumnChangedCallback :: + TreeSortableSortColumnChangedCallback -> + C_TreeSortableSortColumnChangedCallback +wrap_TreeSortableSortColumnChangedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@sort-column-changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' treeSortable #sortColumnChanged callback +@ +-} +onTreeSortableSortColumnChanged :: (IsTreeSortable a, MonadIO m) => a -> TreeSortableSortColumnChangedCallback -> m SignalHandlerId +onTreeSortableSortColumnChanged obj cb = liftIO $ do + let cb' = wrap_TreeSortableSortColumnChangedCallback cb + cb'' <- mk_TreeSortableSortColumnChangedCallback cb' + connectSignalFunPtr obj "sort-column-changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@sort-column-changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' treeSortable #sortColumnChanged callback +@ +-} +afterTreeSortableSortColumnChanged :: (IsTreeSortable a, MonadIO m) => a -> TreeSortableSortColumnChangedCallback -> m SignalHandlerId +afterTreeSortableSortColumnChanged obj cb = liftIO $ do + let cb' = wrap_TreeSortableSortColumnChangedCallback cb + cb'' <- mk_TreeSortableSortColumnChangedCallback cb' + connectSignalFunPtr obj "sort-column-changed" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +data TreeSortableSortColumnChangedSignalInfo +instance SignalInfo TreeSortableSortColumnChangedSignalInfo where + type HaskellCallbackType TreeSortableSortColumnChangedSignalInfo = TreeSortableSortColumnChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_TreeSortableSortColumnChangedCallback cb + cb'' <- mk_TreeSortableSortColumnChangedCallback cb' + connectSignalFunPtr obj "sort-column-changed" cb'' connectMode + +type instance O.SignalList TreeSortable = TreeSortableSignalList +type TreeSortableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("rowChanged", Gtk.TreeModel.TreeModelRowChangedSignalInfo), '("rowDeleted", Gtk.TreeModel.TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", Gtk.TreeModel.TreeModelRowHasChildToggledSignalInfo), '("rowInserted", Gtk.TreeModel.TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) + +#endif + +foreign import ccall "gtk_tree_sortable_get_type" + c_gtk_tree_sortable_get_type :: IO GType + +instance GObject TreeSortable where + gobjectType = c_gtk_tree_sortable_get_type + + +-- | Type class for types which can be safely cast to `TreeSortable`, for instance with `toTreeSortable`. +class (GObject o, O.IsDescendantOf TreeSortable o) => IsTreeSortable o +instance (GObject o, O.IsDescendantOf TreeSortable o) => IsTreeSortable o + +instance O.HasParentTypes TreeSortable +type instance O.ParentTypes TreeSortable = '[Gtk.TreeModel.TreeModel, GObject.Object.Object] + +-- | Cast to `TreeSortable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toTreeSortable :: (MonadIO m, IsTreeSortable o) => o -> m TreeSortable +toTreeSortable = liftIO . unsafeCastTo TreeSortable + +#if ENABLE_OVERLOADING +instance O.HasAttributeList TreeSortable +type instance O.AttributeList TreeSortable = TreeSortableAttributeList +type TreeSortableAttributeList = ('[ ] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type family ResolveTreeSortableMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeSortableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveTreeSortableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveTreeSortableMethod "filterNew" o = Gtk.TreeModel.TreeModelFilterNewMethodInfo + ResolveTreeSortableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveTreeSortableMethod "foreach" o = Gtk.TreeModel.TreeModelForeachMethodInfo + ResolveTreeSortableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveTreeSortableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveTreeSortableMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo + ResolveTreeSortableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveTreeSortableMethod "iterChildren" o = Gtk.TreeModel.TreeModelIterChildrenMethodInfo + ResolveTreeSortableMethod "iterHasChild" o = Gtk.TreeModel.TreeModelIterHasChildMethodInfo + ResolveTreeSortableMethod "iterNChildren" o = Gtk.TreeModel.TreeModelIterNChildrenMethodInfo + ResolveTreeSortableMethod "iterNext" o = Gtk.TreeModel.TreeModelIterNextMethodInfo + ResolveTreeSortableMethod "iterNthChild" o = Gtk.TreeModel.TreeModelIterNthChildMethodInfo + ResolveTreeSortableMethod "iterParent" o = Gtk.TreeModel.TreeModelIterParentMethodInfo + ResolveTreeSortableMethod "iterPrevious" o = Gtk.TreeModel.TreeModelIterPreviousMethodInfo + ResolveTreeSortableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveTreeSortableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveTreeSortableMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveTreeSortableMethod "refNode" o = Gtk.TreeModel.TreeModelRefNodeMethodInfo + ResolveTreeSortableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveTreeSortableMethod "rowChanged" o = Gtk.TreeModel.TreeModelRowChangedMethodInfo + ResolveTreeSortableMethod "rowDeleted" o = Gtk.TreeModel.TreeModelRowDeletedMethodInfo + ResolveTreeSortableMethod "rowHasChildToggled" o = Gtk.TreeModel.TreeModelRowHasChildToggledMethodInfo + ResolveTreeSortableMethod "rowInserted" o = Gtk.TreeModel.TreeModelRowInsertedMethodInfo + ResolveTreeSortableMethod "rowsReordered" o = Gtk.TreeModel.TreeModelRowsReorderedMethodInfo + ResolveTreeSortableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveTreeSortableMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo + ResolveTreeSortableMethod "sortNewWithModel" o = Gtk.TreeModel.TreeModelSortNewWithModelMethodInfo + ResolveTreeSortableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveTreeSortableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveTreeSortableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveTreeSortableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveTreeSortableMethod "unrefNode" o = Gtk.TreeModel.TreeModelUnrefNodeMethodInfo + ResolveTreeSortableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveTreeSortableMethod "getColumnType" o = Gtk.TreeModel.TreeModelGetColumnTypeMethodInfo + ResolveTreeSortableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveTreeSortableMethod "getFlags" o = Gtk.TreeModel.TreeModelGetFlagsMethodInfo + ResolveTreeSortableMethod "getIter" o = Gtk.TreeModel.TreeModelGetIterMethodInfo + ResolveTreeSortableMethod "getIterFirst" o = Gtk.TreeModel.TreeModelGetIterFirstMethodInfo + ResolveTreeSortableMethod "getIterFromString" o = Gtk.TreeModel.TreeModelGetIterFromStringMethodInfo + ResolveTreeSortableMethod "getNColumns" o = Gtk.TreeModel.TreeModelGetNColumnsMethodInfo + ResolveTreeSortableMethod "getPath" o = Gtk.TreeModel.TreeModelGetPathMethodInfo + ResolveTreeSortableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveTreeSortableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveTreeSortableMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo + ResolveTreeSortableMethod "getStringFromIter" o = Gtk.TreeModel.TreeModelGetStringFromIterMethodInfo + ResolveTreeSortableMethod "getValue" o = Gtk.TreeModel.TreeModelGetValueMethodInfo + ResolveTreeSortableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveTreeSortableMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo + ResolveTreeSortableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveTreeSortableMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo + ResolveTreeSortableMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo + ResolveTreeSortableMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveTreeSortableMethod t TreeSortable, O.MethodInfo info TreeSortable p) => OL.IsLabel t (TreeSortable -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- method TreeSortable::get_sort_column_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "sortable", argType = TInterface (Name {namespace = "Gtk", name = "TreeSortable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSortable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The sort column id to be filled in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "order", argType = TInterface (Name {namespace = "Gtk", name = "SortType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GtkSortType to be filled in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_sortable_get_sort_column_id" gtk_tree_sortable_get_sort_column_id :: + Ptr TreeSortable -> -- sortable : TInterface (Name {namespace = "Gtk", name = "TreeSortable"}) + Ptr Int32 -> -- sort_column_id : TBasicType TInt + Ptr CUInt -> -- order : TInterface (Name {namespace = "Gtk", name = "SortType"}) + IO CInt + +{- | +Fills in /@sortColumnId@/ and /@order@/ with the current sort column and the +order. It returns 'True' unless the /@sortColumnId@/ is +'GI.Gtk.Constants.TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID' or +'GI.Gtk.Constants.TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID'. +-} +treeSortableGetSortColumnId :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeSortable a) => + a + {- ^ /@sortable@/: A 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' -} + -> m ((Bool, Int32, Gtk.Enums.SortType)) + {- ^ __Returns:__ 'True' if the sort column is not one of the special sort + column ids. -} +treeSortableGetSortColumnId sortable = liftIO $ do + sortable' <- unsafeManagedPtrCastPtr sortable + sortColumnId <- allocMem :: IO (Ptr Int32) + order <- allocMem :: IO (Ptr CUInt) + result <- gtk_tree_sortable_get_sort_column_id sortable' sortColumnId order + let result' = (/= 0) result + sortColumnId' <- peek sortColumnId + order' <- peek order + let order'' = (toEnum . fromIntegral) order' + touchManagedPtr sortable + freeMem sortColumnId + freeMem order + return (result', sortColumnId', order'') + +#if ENABLE_OVERLOADING +data TreeSortableGetSortColumnIdMethodInfo +instance (signature ~ (m ((Bool, Int32, Gtk.Enums.SortType))), MonadIO m, IsTreeSortable a) => O.MethodInfo TreeSortableGetSortColumnIdMethodInfo a signature where + overloadedMethod _ = treeSortableGetSortColumnId + +#endif + +-- method TreeSortable::has_default_sort_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "sortable", argType = TInterface (Name {namespace = "Gtk", name = "TreeSortable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSortable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_sortable_has_default_sort_func" gtk_tree_sortable_has_default_sort_func :: + Ptr TreeSortable -> -- sortable : TInterface (Name {namespace = "Gtk", name = "TreeSortable"}) + IO CInt + +{- | +Returns 'True' if the model has a default sort function. This is used +primarily by GtkTreeViewColumns in order to determine if a model can +go back to the default state, or not. +-} +treeSortableHasDefaultSortFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeSortable a) => + a + {- ^ /@sortable@/: A 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' -} + -> m Bool + {- ^ __Returns:__ 'True', if the model has a default sort function -} +treeSortableHasDefaultSortFunc sortable = liftIO $ do + sortable' <- unsafeManagedPtrCastPtr sortable + result <- gtk_tree_sortable_has_default_sort_func sortable' + let result' = (/= 0) result + touchManagedPtr sortable + return result' + +#if ENABLE_OVERLOADING +data TreeSortableHasDefaultSortFuncMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsTreeSortable a) => O.MethodInfo TreeSortableHasDefaultSortFuncMethodInfo a signature where + overloadedMethod _ = treeSortableHasDefaultSortFunc + +#endif + +-- method TreeSortable::set_default_sort_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "sortable", argType = TInterface (Name {namespace = "Gtk", name = "TreeSortable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSortable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface (Name {namespace = "Gtk", name = "TreeIterCompareFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The comparison function", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data to pass to @sort_func, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Destroy notifier of @user_data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_sortable_set_default_sort_func" gtk_tree_sortable_set_default_sort_func :: + Ptr TreeSortable -> -- sortable : TInterface (Name {namespace = "Gtk", name = "TreeSortable"}) + FunPtr Gtk.Callbacks.C_TreeIterCompareFunc -> -- sort_func : TInterface (Name {namespace = "Gtk", name = "TreeIterCompareFunc"}) + Ptr () -> -- user_data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{- | +Sets the default comparison function used when sorting to be /@sortFunc@/. +If the current sort column id of /@sortable@/ is +'GI.Gtk.Constants.TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID', then the model will sort using +this function. + +If /@sortFunc@/ is 'Nothing', then there will be no default comparison function. +This means that once the model has been sorted, it can’t go back to the +default state. In this case, when the current sort column id of /@sortable@/ +is 'GI.Gtk.Constants.TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID', the model will be unsorted. +-} +treeSortableSetDefaultSortFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeSortable a) => + a + {- ^ /@sortable@/: A 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' -} + -> Gtk.Callbacks.TreeIterCompareFunc + {- ^ /@sortFunc@/: The comparison function -} + -> m () +treeSortableSetDefaultSortFunc sortable sortFunc = liftIO $ do + sortable' <- unsafeManagedPtrCastPtr sortable + sortFunc' <- Gtk.Callbacks.mk_TreeIterCompareFunc (Gtk.Callbacks.wrap_TreeIterCompareFunc Nothing (Gtk.Callbacks.drop_closures_TreeIterCompareFunc sortFunc)) + let userData = castFunPtrToPtr sortFunc' + let destroy = safeFreeFunPtrPtr + gtk_tree_sortable_set_default_sort_func sortable' sortFunc' userData destroy + touchManagedPtr sortable + return () + +#if ENABLE_OVERLOADING +data TreeSortableSetDefaultSortFuncMethodInfo +instance (signature ~ (Gtk.Callbacks.TreeIterCompareFunc -> m ()), MonadIO m, IsTreeSortable a) => O.MethodInfo TreeSortableSetDefaultSortFuncMethodInfo a signature where + overloadedMethod _ = treeSortableSetDefaultSortFunc + +#endif + +-- method TreeSortable::set_sort_column_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "sortable", argType = TInterface (Name {namespace = "Gtk", name = "TreeSortable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSortable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the sort column id to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface (Name {namespace = "Gtk", name = "SortType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The sort order of the column", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_sortable_set_sort_column_id" gtk_tree_sortable_set_sort_column_id :: + Ptr TreeSortable -> -- sortable : TInterface (Name {namespace = "Gtk", name = "TreeSortable"}) + Int32 -> -- sort_column_id : TBasicType TInt + CUInt -> -- order : TInterface (Name {namespace = "Gtk", name = "SortType"}) + IO () + +{- | +Sets the current sort column to be /@sortColumnId@/. The /@sortable@/ will +resort itself to reflect this change, after emitting a +'GI.Gtk.Interfaces.TreeSortable.TreeSortable'::@/sort-column-changed/@ signal. /@sortColumnId@/ may either be +a regular column id, or one of the following special values: + +* 'GI.Gtk.Constants.TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID': the default sort function +will be used, if it is set +* 'GI.Gtk.Constants.TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID': no sorting will occur +-} +treeSortableSetSortColumnId :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeSortable a) => + a + {- ^ /@sortable@/: A 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' -} + -> Int32 + {- ^ /@sortColumnId@/: the sort column id to set -} + -> Gtk.Enums.SortType + {- ^ /@order@/: The sort order of the column -} + -> m () +treeSortableSetSortColumnId sortable sortColumnId order = liftIO $ do + sortable' <- unsafeManagedPtrCastPtr sortable + let order' = (fromIntegral . fromEnum) order + gtk_tree_sortable_set_sort_column_id sortable' sortColumnId order' + touchManagedPtr sortable + return () + +#if ENABLE_OVERLOADING +data TreeSortableSetSortColumnIdMethodInfo +instance (signature ~ (Int32 -> Gtk.Enums.SortType -> m ()), MonadIO m, IsTreeSortable a) => O.MethodInfo TreeSortableSetSortColumnIdMethodInfo a signature where + overloadedMethod _ = treeSortableSetSortColumnId + +#endif + +-- method TreeSortable::set_sort_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "sortable", argType = TInterface (Name {namespace = "Gtk", name = "TreeSortable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSortable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the sort column id to set the function for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface (Name {namespace = "Gtk", name = "TreeIterCompareFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The comparison function", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data to pass to @sort_func, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Destroy notifier of @user_data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_sortable_set_sort_func" gtk_tree_sortable_set_sort_func :: + Ptr TreeSortable -> -- sortable : TInterface (Name {namespace = "Gtk", name = "TreeSortable"}) + Int32 -> -- sort_column_id : TBasicType TInt + FunPtr Gtk.Callbacks.C_TreeIterCompareFunc -> -- sort_func : TInterface (Name {namespace = "Gtk", name = "TreeIterCompareFunc"}) + Ptr () -> -- user_data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{- | +Sets the comparison function used when sorting to be /@sortFunc@/. If the +current sort column id of /@sortable@/ is the same as /@sortColumnId@/, then +the model will sort using this function. +-} +treeSortableSetSortFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeSortable a) => + a + {- ^ /@sortable@/: A 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' -} + -> Int32 + {- ^ /@sortColumnId@/: the sort column id to set the function for -} + -> Gtk.Callbacks.TreeIterCompareFunc + {- ^ /@sortFunc@/: The comparison function -} + -> m () +treeSortableSetSortFunc sortable sortColumnId sortFunc = liftIO $ do + sortable' <- unsafeManagedPtrCastPtr sortable + sortFunc' <- Gtk.Callbacks.mk_TreeIterCompareFunc (Gtk.Callbacks.wrap_TreeIterCompareFunc Nothing (Gtk.Callbacks.drop_closures_TreeIterCompareFunc sortFunc)) + let userData = castFunPtrToPtr sortFunc' + let destroy = safeFreeFunPtrPtr + gtk_tree_sortable_set_sort_func sortable' sortColumnId sortFunc' userData destroy + touchManagedPtr sortable + return () + +#if ENABLE_OVERLOADING +data TreeSortableSetSortFuncMethodInfo +instance (signature ~ (Int32 -> Gtk.Callbacks.TreeIterCompareFunc -> m ()), MonadIO m, IsTreeSortable a) => O.MethodInfo TreeSortableSetSortFuncMethodInfo a signature where + overloadedMethod _ = treeSortableSetSortFunc + +#endif + +-- method TreeSortable::sort_column_changed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "sortable", argType = TInterface (Name {namespace = "Gtk", name = "TreeSortable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeSortable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_sortable_sort_column_changed" gtk_tree_sortable_sort_column_changed :: + Ptr TreeSortable -> -- sortable : TInterface (Name {namespace = "Gtk", name = "TreeSortable"}) + IO () + +{- | +Emits a 'GI.Gtk.Interfaces.TreeSortable.TreeSortable'::@/sort-column-changed/@ signal on /@sortable@/. +-} +treeSortableSortColumnChanged :: + (B.CallStack.HasCallStack, MonadIO m, IsTreeSortable a) => + a + {- ^ /@sortable@/: A 'GI.Gtk.Interfaces.TreeSortable.TreeSortable' -} + -> m () +treeSortableSortColumnChanged sortable = liftIO $ do + sortable' <- unsafeManagedPtrCastPtr sortable + gtk_tree_sortable_sort_column_changed sortable' + touchManagedPtr sortable + return () + +#if ENABLE_OVERLOADING +data TreeSortableSortColumnChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, IsTreeSortable a) => O.MethodInfo TreeSortableSortColumnChangedMethodInfo a signature where + overloadedMethod _ = treeSortableSortColumnChanged + +#endif + + diff --git a/GI/Gtk/Interfaces/TreeSortable.hs-boot b/GI/Gtk/Interfaces/TreeSortable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Interfaces/TreeSortable.hs-boot @@ -0,0 +1,50 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Interfaces.TreeSortable where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype TreeSortable = TreeSortable (ManagedPtr TreeSortable) +#if ENABLE_OVERLOADING +data TreeSortableSortColumnChangedSignalInfo +#endif +instance GObject TreeSortable where +class (GObject o, O.IsDescendantOf TreeSortable o) => IsTreeSortable o +instance (GObject o, O.IsDescendantOf TreeSortable o) => IsTreeSortable o +instance O.HasParentTypes TreeSortable +#if ENABLE_OVERLOADING +data TreeSortableGetSortColumnIdMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeSortableHasDefaultSortFuncMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeSortableSetDefaultSortFuncMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeSortableSetSortColumnIdMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeSortableSetSortFuncMethodInfo +#endif +#if ENABLE_OVERLOADING +data TreeSortableSortColumnChangedMethodInfo +#endif diff --git a/GI/Gtk/Objects.hs b/GI/Gtk/Objects.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects.hs @@ -0,0 +1,575 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +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.EventControllerKey, + module GI.Gtk.Objects.EventControllerMotion, + module GI.Gtk.Objects.EventControllerScroll, + module GI.Gtk.Objects.Expander , + module GI.Gtk.Objects.ExpanderAccessible, + module GI.Gtk.Objects.FileChooserButton , + module GI.Gtk.Objects.FileChooserDialog , + module GI.Gtk.Objects.FileChooserNative , + 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.GestureStylus , + 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.NativeDialog , + 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.PadController , + 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.ShortcutLabel , + module GI.Gtk.Objects.ShortcutsGroup , + module GI.Gtk.Objects.ShortcutsSection , + module GI.Gtk.Objects.ShortcutsShortcut , + module GI.Gtk.Objects.ShortcutsWindow , + 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.StackAccessible , + 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.EventControllerKey +import GI.Gtk.Objects.EventControllerMotion +import GI.Gtk.Objects.EventControllerScroll +import GI.Gtk.Objects.Expander +import GI.Gtk.Objects.ExpanderAccessible +import GI.Gtk.Objects.FileChooserButton +import GI.Gtk.Objects.FileChooserDialog +import GI.Gtk.Objects.FileChooserNative +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.GestureStylus +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.NativeDialog +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.PadController +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.ShortcutLabel +import GI.Gtk.Objects.ShortcutsGroup +import GI.Gtk.Objects.ShortcutsSection +import GI.Gtk.Objects.ShortcutsShortcut +import GI.Gtk.Objects.ShortcutsWindow +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.StackAccessible +import GI.Gtk.Objects.StackSidebar +import GI.Gtk.Objects.StackSwitcher +import GI.Gtk.Objects.StatusIcon +import GI.Gtk.Objects.Statusbar +import GI.Gtk.Objects.StatusbarAccessible +import GI.Gtk.Objects.Style +import GI.Gtk.Objects.StyleContext +import GI.Gtk.Objects.StyleProperties +import GI.Gtk.Objects.Switch +import GI.Gtk.Objects.SwitchAccessible +import GI.Gtk.Objects.Table +import GI.Gtk.Objects.TearoffMenuItem +import GI.Gtk.Objects.TextBuffer +import GI.Gtk.Objects.TextCellAccessible +import GI.Gtk.Objects.TextChildAnchor +import GI.Gtk.Objects.TextMark +import GI.Gtk.Objects.TextTag +import GI.Gtk.Objects.TextTagTable +import GI.Gtk.Objects.TextView +import GI.Gtk.Objects.TextViewAccessible +import GI.Gtk.Objects.ThemingEngine +import GI.Gtk.Objects.ToggleAction +import GI.Gtk.Objects.ToggleButton +import GI.Gtk.Objects.ToggleButtonAccessible +import GI.Gtk.Objects.ToggleToolButton +import GI.Gtk.Objects.ToolButton +import GI.Gtk.Objects.ToolItem +import GI.Gtk.Objects.ToolItemGroup +import GI.Gtk.Objects.ToolPalette +import GI.Gtk.Objects.Toolbar +import GI.Gtk.Objects.Tooltip +import GI.Gtk.Objects.ToplevelAccessible +import GI.Gtk.Objects.TreeModelFilter +import GI.Gtk.Objects.TreeModelSort +import GI.Gtk.Objects.TreeSelection +import GI.Gtk.Objects.TreeStore +import GI.Gtk.Objects.TreeView +import GI.Gtk.Objects.TreeViewAccessible +import GI.Gtk.Objects.TreeViewColumn +import GI.Gtk.Objects.UIManager +import GI.Gtk.Objects.VBox +import GI.Gtk.Objects.VButtonBox +import GI.Gtk.Objects.VPaned +import GI.Gtk.Objects.VScale +import GI.Gtk.Objects.VScrollbar +import GI.Gtk.Objects.VSeparator +import GI.Gtk.Objects.Viewport +import GI.Gtk.Objects.VolumeButton +import GI.Gtk.Objects.Widget +import GI.Gtk.Objects.WidgetAccessible +import GI.Gtk.Objects.Window +import GI.Gtk.Objects.WindowAccessible +import GI.Gtk.Objects.WindowGroup + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + + + diff --git a/GI/Gtk/Objects/AboutDialog.hs b/GI/Gtk/Objects/AboutDialog.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AboutDialog.hs @@ -0,0 +1,3443 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The GtkAboutDialog offers a simple way to display information about +a program like its logo, name, copyright, website and license. It is +also possible to give credits to the authors, documenters, translators +and artists who have worked on the program. An about dialog is typically +opened when the user selects the @About@ option from the @Help@ menu. +All parts of the dialog are optional. + +About dialogs often contain links and email addresses. GtkAboutDialog +displays these as clickable links. By default, it calls 'GI.Gtk.Functions.showUriOnWindow' +when a user clicks one. The behaviour can be overridden with the +'GI.Gtk.Objects.AboutDialog.AboutDialog'::@/activate-link/@ signal. + +To specify a person with an email address, use a string like +\"Edgar Allan Poe \\". To specify a website with a title, +use a string like \"GTK+ team http:\/\/www.gtk.org\". + +To make constructing a GtkAboutDialog as convenient as possible, you can +use the function @/gtk_show_about_dialog()/@ which constructs and shows a dialog +and keeps it around so that it can be shown again. + +Note that GTK+ sets a default title of @_(\"About %s\")@ on the dialog +window (where %s is replaced by the name of the application, but in +order to ensure proper translation of the title, applications should +set the title property explicitly when constructing a GtkAboutDialog, +as shown in the following example: + +=== /C code/ +> +>GdkPixbuf *example_logo = gdk_pixbuf_new_from_file ("./logo.png", NULL); +>gtk_show_about_dialog (NULL, +> "program-name", "ExampleCode", +> "logo", example_logo, +> "title", _("About ExampleCode"), +> NULL); + + +It is also possible to show a 'GI.Gtk.Objects.AboutDialog.AboutDialog' like any other 'GI.Gtk.Objects.Dialog.Dialog', +e.g. using 'GI.Gtk.Objects.Dialog.dialogRun'. In this case, you might need to know that +the “Close” button returns the @/GTK_RESPONSE_CANCEL/@ response id. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AboutDialog + ( + +-- * Exported types + AboutDialog(..) , + IsAboutDialog , + toAboutDialog , + noAboutDialog , + + + -- * Methods +-- ** addCreditSection #method:addCreditSection# + +#if ENABLE_OVERLOADING + AboutDialogAddCreditSectionMethodInfo , +#endif + aboutDialogAddCreditSection , + + +-- ** getArtists #method:getArtists# + +#if ENABLE_OVERLOADING + AboutDialogGetArtistsMethodInfo , +#endif + aboutDialogGetArtists , + + +-- ** getAuthors #method:getAuthors# + +#if ENABLE_OVERLOADING + AboutDialogGetAuthorsMethodInfo , +#endif + aboutDialogGetAuthors , + + +-- ** getComments #method:getComments# + +#if ENABLE_OVERLOADING + AboutDialogGetCommentsMethodInfo , +#endif + aboutDialogGetComments , + + +-- ** getCopyright #method:getCopyright# + +#if ENABLE_OVERLOADING + AboutDialogGetCopyrightMethodInfo , +#endif + aboutDialogGetCopyright , + + +-- ** getDocumenters #method:getDocumenters# + +#if ENABLE_OVERLOADING + AboutDialogGetDocumentersMethodInfo , +#endif + aboutDialogGetDocumenters , + + +-- ** getLicense #method:getLicense# + +#if ENABLE_OVERLOADING + AboutDialogGetLicenseMethodInfo , +#endif + aboutDialogGetLicense , + + +-- ** getLicenseType #method:getLicenseType# + +#if ENABLE_OVERLOADING + AboutDialogGetLicenseTypeMethodInfo , +#endif + aboutDialogGetLicenseType , + + +-- ** getLogo #method:getLogo# + +#if ENABLE_OVERLOADING + AboutDialogGetLogoMethodInfo , +#endif + aboutDialogGetLogo , + + +-- ** getLogoIconName #method:getLogoIconName# + +#if ENABLE_OVERLOADING + AboutDialogGetLogoIconNameMethodInfo , +#endif + aboutDialogGetLogoIconName , + + +-- ** getProgramName #method:getProgramName# + +#if ENABLE_OVERLOADING + AboutDialogGetProgramNameMethodInfo , +#endif + aboutDialogGetProgramName , + + +-- ** getTranslatorCredits #method:getTranslatorCredits# + +#if ENABLE_OVERLOADING + AboutDialogGetTranslatorCreditsMethodInfo, +#endif + aboutDialogGetTranslatorCredits , + + +-- ** getVersion #method:getVersion# + +#if ENABLE_OVERLOADING + AboutDialogGetVersionMethodInfo , +#endif + aboutDialogGetVersion , + + +-- ** getWebsite #method:getWebsite# + +#if ENABLE_OVERLOADING + AboutDialogGetWebsiteMethodInfo , +#endif + aboutDialogGetWebsite , + + +-- ** getWebsiteLabel #method:getWebsiteLabel# + +#if ENABLE_OVERLOADING + AboutDialogGetWebsiteLabelMethodInfo , +#endif + aboutDialogGetWebsiteLabel , + + +-- ** getWrapLicense #method:getWrapLicense# + +#if ENABLE_OVERLOADING + AboutDialogGetWrapLicenseMethodInfo , +#endif + aboutDialogGetWrapLicense , + + +-- ** new #method:new# + + aboutDialogNew , + + +-- ** setArtists #method:setArtists# + +#if ENABLE_OVERLOADING + AboutDialogSetArtistsMethodInfo , +#endif + aboutDialogSetArtists , + + +-- ** setAuthors #method:setAuthors# + +#if ENABLE_OVERLOADING + AboutDialogSetAuthorsMethodInfo , +#endif + aboutDialogSetAuthors , + + +-- ** setComments #method:setComments# + +#if ENABLE_OVERLOADING + AboutDialogSetCommentsMethodInfo , +#endif + aboutDialogSetComments , + + +-- ** setCopyright #method:setCopyright# + +#if ENABLE_OVERLOADING + AboutDialogSetCopyrightMethodInfo , +#endif + aboutDialogSetCopyright , + + +-- ** setDocumenters #method:setDocumenters# + +#if ENABLE_OVERLOADING + AboutDialogSetDocumentersMethodInfo , +#endif + aboutDialogSetDocumenters , + + +-- ** setLicense #method:setLicense# + +#if ENABLE_OVERLOADING + AboutDialogSetLicenseMethodInfo , +#endif + aboutDialogSetLicense , + + +-- ** setLicenseType #method:setLicenseType# + +#if ENABLE_OVERLOADING + AboutDialogSetLicenseTypeMethodInfo , +#endif + aboutDialogSetLicenseType , + + +-- ** setLogo #method:setLogo# + +#if ENABLE_OVERLOADING + AboutDialogSetLogoMethodInfo , +#endif + aboutDialogSetLogo , + + +-- ** setLogoIconName #method:setLogoIconName# + +#if ENABLE_OVERLOADING + AboutDialogSetLogoIconNameMethodInfo , +#endif + aboutDialogSetLogoIconName , + + +-- ** setProgramName #method:setProgramName# + +#if ENABLE_OVERLOADING + AboutDialogSetProgramNameMethodInfo , +#endif + aboutDialogSetProgramName , + + +-- ** setTranslatorCredits #method:setTranslatorCredits# + +#if ENABLE_OVERLOADING + AboutDialogSetTranslatorCreditsMethodInfo, +#endif + aboutDialogSetTranslatorCredits , + + +-- ** setVersion #method:setVersion# + +#if ENABLE_OVERLOADING + AboutDialogSetVersionMethodInfo , +#endif + aboutDialogSetVersion , + + +-- ** setWebsite #method:setWebsite# + +#if ENABLE_OVERLOADING + AboutDialogSetWebsiteMethodInfo , +#endif + aboutDialogSetWebsite , + + +-- ** setWebsiteLabel #method:setWebsiteLabel# + +#if ENABLE_OVERLOADING + AboutDialogSetWebsiteLabelMethodInfo , +#endif + aboutDialogSetWebsiteLabel , + + +-- ** setWrapLicense #method:setWrapLicense# + +#if ENABLE_OVERLOADING + AboutDialogSetWrapLicenseMethodInfo , +#endif + aboutDialogSetWrapLicense , + + + + + -- * Properties +-- ** artists #attr:artists# +{- | The people who contributed artwork to the program, as a 'Nothing'-terminated +array of strings. Each string may contain email addresses and URLs, which +will be displayed as links, see the introduction for more details. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogArtistsPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogArtists , +#endif + constructAboutDialogArtists , + getAboutDialogArtists , + setAboutDialogArtists , + + +-- ** authors #attr:authors# +{- | The authors of the program, as a 'Nothing'-terminated array of strings. +Each string may contain email addresses and URLs, which will be displayed +as links, see the introduction for more details. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogAuthorsPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogAuthors , +#endif + constructAboutDialogAuthors , + getAboutDialogAuthors , + setAboutDialogAuthors , + + +-- ** comments #attr:comments# +{- | Comments about the program. This string is displayed in a label +in the main dialog, thus it should be a short explanation of +the main purpose of the program, not a detailed list of features. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogCommentsPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogComments , +#endif + clearAboutDialogComments , + constructAboutDialogComments , + getAboutDialogComments , + setAboutDialogComments , + + +-- ** copyright #attr:copyright# +{- | Copyright information for the program. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogCopyrightPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogCopyright , +#endif + clearAboutDialogCopyright , + constructAboutDialogCopyright , + getAboutDialogCopyright , + setAboutDialogCopyright , + + +-- ** documenters #attr:documenters# +{- | The people documenting the program, as a 'Nothing'-terminated array of strings. +Each string may contain email addresses and URLs, which will be displayed +as links, see the introduction for more details. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogDocumentersPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogDocumenters , +#endif + constructAboutDialogDocumenters , + getAboutDialogDocumenters , + setAboutDialogDocumenters , + + +-- ** license #attr:license# +{- | The license of the program. This string is displayed in a +text view in a secondary dialog, therefore it is fine to use +a long multi-paragraph text. Note that the text is only wrapped +in the text view if the \"wrap-license\" property is set to 'True'; +otherwise the text itself must contain the intended linebreaks. +When setting this property to a non-'Nothing' value, the +'GI.Gtk.Objects.AboutDialog.AboutDialog':@/license-type/@ property is set to 'GI.Gtk.Enums.LicenseCustom' +as a side effect. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogLicensePropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogLicense , +#endif + clearAboutDialogLicense , + constructAboutDialogLicense , + getAboutDialogLicense , + setAboutDialogLicense , + + +-- ** licenseType #attr:licenseType# +{- | The license of the program, as a value of the @/GtkLicense/@ enumeration. + +The 'GI.Gtk.Objects.AboutDialog.AboutDialog' will automatically fill out a standard disclaimer +and link the user to the appropriate online resource for the license +text. + +If 'GI.Gtk.Enums.LicenseUnknown' is used, the link used will be the same +specified in the 'GI.Gtk.Objects.AboutDialog.AboutDialog':@/website/@ property. + +If 'GI.Gtk.Enums.LicenseCustom' is used, the current contents of the +'GI.Gtk.Objects.AboutDialog.AboutDialog':@/license/@ property are used. + +For any other 'GI.Gtk.Enums.License' value, the contents of the +'GI.Gtk.Objects.AboutDialog.AboutDialog':@/license/@ property are also set by this property as +a side effect. + +/Since: 3.0/ +-} +#if ENABLE_OVERLOADING + AboutDialogLicenseTypePropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogLicenseType , +#endif + constructAboutDialogLicenseType , + getAboutDialogLicenseType , + setAboutDialogLicenseType , + + +-- ** logo #attr:logo# +{- | A logo for the about box. If it is 'Nothing', the default window icon +set with 'GI.Gtk.Objects.Window.windowSetDefaultIcon' will be used. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogLogoPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogLogo , +#endif + clearAboutDialogLogo , + constructAboutDialogLogo , + getAboutDialogLogo , + setAboutDialogLogo , + + +-- ** logoIconName #attr:logoIconName# +{- | A named icon to use as the logo for the about box. This property +overrides the 'GI.Gtk.Objects.AboutDialog.AboutDialog':@/logo/@ property. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogLogoIconNamePropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogLogoIconName , +#endif + clearAboutDialogLogoIconName , + constructAboutDialogLogoIconName , + getAboutDialogLogoIconName , + setAboutDialogLogoIconName , + + +-- ** programName #attr:programName# +{- | The name of the program. +If this is not set, it defaults to 'GI.GLib.Functions.getApplicationName'. + +/Since: 2.12/ +-} +#if ENABLE_OVERLOADING + AboutDialogProgramNamePropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogProgramName , +#endif + constructAboutDialogProgramName , + getAboutDialogProgramName , + setAboutDialogProgramName , + + +-- ** translatorCredits #attr:translatorCredits# +{- | Credits to the translators. This string should be marked as translatable. +The string may contain email addresses and URLs, which will be displayed +as links, see the introduction for more details. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogTranslatorCreditsPropertyInfo, +#endif +#if ENABLE_OVERLOADING + aboutDialogTranslatorCredits , +#endif + clearAboutDialogTranslatorCredits , + constructAboutDialogTranslatorCredits , + getAboutDialogTranslatorCredits , + setAboutDialogTranslatorCredits , + + +-- ** version #attr:version# +{- | The version of the program. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogVersionPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogVersion , +#endif + clearAboutDialogVersion , + constructAboutDialogVersion , + getAboutDialogVersion , + setAboutDialogVersion , + + +-- ** website #attr:website# +{- | The URL for the link to the website of the program. +This should be a string starting with \"http:\/\/. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogWebsitePropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogWebsite , +#endif + clearAboutDialogWebsite , + constructAboutDialogWebsite , + getAboutDialogWebsite , + setAboutDialogWebsite , + + +-- ** websiteLabel #attr:websiteLabel# +{- | The label for the link to the website of the program. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + AboutDialogWebsiteLabelPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogWebsiteLabel , +#endif + constructAboutDialogWebsiteLabel , + getAboutDialogWebsiteLabel , + setAboutDialogWebsiteLabel , + + +-- ** wrapLicense #attr:wrapLicense# +{- | Whether to wrap the text in the license dialog. + +/Since: 2.8/ +-} +#if ENABLE_OVERLOADING + AboutDialogWrapLicensePropertyInfo , +#endif +#if ENABLE_OVERLOADING + aboutDialogWrapLicense , +#endif + constructAboutDialogWrapLicense , + getAboutDialogWrapLicense , + setAboutDialogWrapLicense , + + + + + -- * Signals +-- ** activateLink #signal:activateLink# + + AboutDialogActivateLinkCallback , +#if ENABLE_OVERLOADING + AboutDialogActivateLinkSignalInfo , +#endif + C_AboutDialogActivateLinkCallback , + afterAboutDialogActivateLink , + genClosure_AboutDialogActivateLink , + mk_AboutDialogActivateLinkCallback , + noAboutDialogActivateLinkCallback , + onAboutDialogActivateLink , + wrap_AboutDialogActivateLinkCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Dialog as Gtk.Dialog +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget +import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window + +-- | Memory-managed wrapper type. +newtype AboutDialog = AboutDialog (ManagedPtr AboutDialog) +foreign import ccall "gtk_about_dialog_get_type" + c_gtk_about_dialog_get_type :: IO GType + +instance GObject AboutDialog where + gobjectType = c_gtk_about_dialog_get_type + + +-- | Type class for types which can be safely cast to `AboutDialog`, for instance with `toAboutDialog`. +class (GObject o, O.IsDescendantOf AboutDialog o) => IsAboutDialog o +instance (GObject o, O.IsDescendantOf AboutDialog o) => IsAboutDialog o + +instance O.HasParentTypes AboutDialog +type instance O.ParentTypes AboutDialog = '[Gtk.Dialog.Dialog, Gtk.Window.Window, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `AboutDialog`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAboutDialog :: (MonadIO m, IsAboutDialog o) => o -> m AboutDialog +toAboutDialog = liftIO . unsafeCastTo AboutDialog + +-- | A convenience alias for `Nothing` :: `Maybe` `AboutDialog`. +noAboutDialog :: Maybe AboutDialog +noAboutDialog = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAboutDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveAboutDialogMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAboutDialogMethod "activateDefault" o = Gtk.Window.WindowActivateDefaultMethodInfo + ResolveAboutDialogMethod "activateFocus" o = Gtk.Window.WindowActivateFocusMethodInfo + ResolveAboutDialogMethod "activateKey" o = Gtk.Window.WindowActivateKeyMethodInfo + ResolveAboutDialogMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveAboutDialogMethod "addAccelGroup" o = Gtk.Window.WindowAddAccelGroupMethodInfo + ResolveAboutDialogMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAboutDialogMethod "addActionWidget" o = Gtk.Dialog.DialogAddActionWidgetMethodInfo + ResolveAboutDialogMethod "addButton" o = Gtk.Dialog.DialogAddButtonMethodInfo + ResolveAboutDialogMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAboutDialogMethod "addCreditSection" o = AboutDialogAddCreditSectionMethodInfo + ResolveAboutDialogMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAboutDialogMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAboutDialogMethod "addMnemonic" o = Gtk.Window.WindowAddMnemonicMethodInfo + ResolveAboutDialogMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAboutDialogMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAboutDialogMethod "beginMoveDrag" o = Gtk.Window.WindowBeginMoveDragMethodInfo + ResolveAboutDialogMethod "beginResizeDrag" o = Gtk.Window.WindowBeginResizeDragMethodInfo + ResolveAboutDialogMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAboutDialogMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAboutDialogMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAboutDialogMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveAboutDialogMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAboutDialogMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveAboutDialogMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveAboutDialogMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveAboutDialogMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveAboutDialogMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveAboutDialogMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAboutDialogMethod "close" o = Gtk.Window.WindowCloseMethodInfo + ResolveAboutDialogMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAboutDialogMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAboutDialogMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAboutDialogMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAboutDialogMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAboutDialogMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAboutDialogMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAboutDialogMethod "deiconify" o = Gtk.Window.WindowDeiconifyMethodInfo + ResolveAboutDialogMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAboutDialogMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAboutDialogMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAboutDialogMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAboutDialogMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAboutDialogMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAboutDialogMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAboutDialogMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAboutDialogMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAboutDialogMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAboutDialogMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAboutDialogMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAboutDialogMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAboutDialogMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAboutDialogMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAboutDialogMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAboutDialogMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAboutDialogMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAboutDialogMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAboutDialogMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAboutDialogMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAboutDialogMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAboutDialogMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAboutDialogMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAboutDialogMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAboutDialogMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAboutDialogMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAboutDialogMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAboutDialogMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAboutDialogMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAboutDialogMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAboutDialogMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveAboutDialogMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAboutDialogMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveAboutDialogMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAboutDialogMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAboutDialogMethod "fullscreen" o = Gtk.Window.WindowFullscreenMethodInfo + ResolveAboutDialogMethod "fullscreenOnMonitor" o = Gtk.Window.WindowFullscreenOnMonitorMethodInfo + ResolveAboutDialogMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAboutDialogMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAboutDialogMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAboutDialogMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAboutDialogMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAboutDialogMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAboutDialogMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAboutDialogMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAboutDialogMethod "hasGroup" o = Gtk.Window.WindowHasGroupMethodInfo + ResolveAboutDialogMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAboutDialogMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAboutDialogMethod "hasToplevelFocus" o = Gtk.Window.WindowHasToplevelFocusMethodInfo + ResolveAboutDialogMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAboutDialogMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAboutDialogMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAboutDialogMethod "iconify" o = Gtk.Window.WindowIconifyMethodInfo + ResolveAboutDialogMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAboutDialogMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAboutDialogMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAboutDialogMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAboutDialogMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAboutDialogMethod "isActive" o = Gtk.Window.WindowIsActiveMethodInfo + ResolveAboutDialogMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAboutDialogMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAboutDialogMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAboutDialogMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAboutDialogMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAboutDialogMethod "isMaximized" o = Gtk.Window.WindowIsMaximizedMethodInfo + ResolveAboutDialogMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAboutDialogMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAboutDialogMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAboutDialogMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAboutDialogMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAboutDialogMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAboutDialogMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAboutDialogMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAboutDialogMethod "maximize" o = Gtk.Window.WindowMaximizeMethodInfo + ResolveAboutDialogMethod "mnemonicActivate" o = Gtk.Window.WindowMnemonicActivateMethodInfo + ResolveAboutDialogMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAboutDialogMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAboutDialogMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAboutDialogMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAboutDialogMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAboutDialogMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAboutDialogMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAboutDialogMethod "move" o = Gtk.Window.WindowMoveMethodInfo + ResolveAboutDialogMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAboutDialogMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAboutDialogMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAboutDialogMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAboutDialogMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAboutDialogMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAboutDialogMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAboutDialogMethod "parseGeometry" o = Gtk.Window.WindowParseGeometryMethodInfo + ResolveAboutDialogMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAboutDialogMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAboutDialogMethod "present" o = Gtk.Window.WindowPresentMethodInfo + ResolveAboutDialogMethod "presentWithTime" o = Gtk.Window.WindowPresentWithTimeMethodInfo + ResolveAboutDialogMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveAboutDialogMethod "propagateKeyEvent" o = Gtk.Window.WindowPropagateKeyEventMethodInfo + ResolveAboutDialogMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAboutDialogMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAboutDialogMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAboutDialogMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAboutDialogMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAboutDialogMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAboutDialogMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAboutDialogMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAboutDialogMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAboutDialogMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAboutDialogMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAboutDialogMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAboutDialogMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveAboutDialogMethod "removeAccelGroup" o = Gtk.Window.WindowRemoveAccelGroupMethodInfo + ResolveAboutDialogMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAboutDialogMethod "removeMnemonic" o = Gtk.Window.WindowRemoveMnemonicMethodInfo + ResolveAboutDialogMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAboutDialogMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAboutDialogMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAboutDialogMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAboutDialogMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAboutDialogMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAboutDialogMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAboutDialogMethod "reshowWithInitialSize" o = Gtk.Window.WindowReshowWithInitialSizeMethodInfo + ResolveAboutDialogMethod "resize" o = Gtk.Window.WindowResizeMethodInfo + ResolveAboutDialogMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveAboutDialogMethod "resizeGripIsVisible" o = Gtk.Window.WindowResizeGripIsVisibleMethodInfo + ResolveAboutDialogMethod "resizeToGeometry" o = Gtk.Window.WindowResizeToGeometryMethodInfo + ResolveAboutDialogMethod "response" o = Gtk.Dialog.DialogResponseMethodInfo + ResolveAboutDialogMethod "run" o = Gtk.Dialog.DialogRunMethodInfo + ResolveAboutDialogMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAboutDialogMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAboutDialogMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAboutDialogMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAboutDialogMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAboutDialogMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAboutDialogMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAboutDialogMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAboutDialogMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAboutDialogMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAboutDialogMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAboutDialogMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAboutDialogMethod "stick" o = Gtk.Window.WindowStickMethodInfo + ResolveAboutDialogMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAboutDialogMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAboutDialogMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAboutDialogMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAboutDialogMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAboutDialogMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAboutDialogMethod "unfullscreen" o = Gtk.Window.WindowUnfullscreenMethodInfo + ResolveAboutDialogMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAboutDialogMethod "unmaximize" o = Gtk.Window.WindowUnmaximizeMethodInfo + ResolveAboutDialogMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAboutDialogMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAboutDialogMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAboutDialogMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAboutDialogMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveAboutDialogMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAboutDialogMethod "unstick" o = Gtk.Window.WindowUnstickMethodInfo + ResolveAboutDialogMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAboutDialogMethod "getAcceptFocus" o = Gtk.Window.WindowGetAcceptFocusMethodInfo + ResolveAboutDialogMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAboutDialogMethod "getActionArea" o = Gtk.Dialog.DialogGetActionAreaMethodInfo + ResolveAboutDialogMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAboutDialogMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAboutDialogMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAboutDialogMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAboutDialogMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAboutDialogMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAboutDialogMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAboutDialogMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAboutDialogMethod "getApplication" o = Gtk.Window.WindowGetApplicationMethodInfo + ResolveAboutDialogMethod "getArtists" o = AboutDialogGetArtistsMethodInfo + ResolveAboutDialogMethod "getAttachedTo" o = Gtk.Window.WindowGetAttachedToMethodInfo + ResolveAboutDialogMethod "getAuthors" o = AboutDialogGetAuthorsMethodInfo + ResolveAboutDialogMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveAboutDialogMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAboutDialogMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAboutDialogMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveAboutDialogMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAboutDialogMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAboutDialogMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveAboutDialogMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAboutDialogMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAboutDialogMethod "getComments" o = AboutDialogGetCommentsMethodInfo + ResolveAboutDialogMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAboutDialogMethod "getContentArea" o = Gtk.Dialog.DialogGetContentAreaMethodInfo + ResolveAboutDialogMethod "getCopyright" o = AboutDialogGetCopyrightMethodInfo + ResolveAboutDialogMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAboutDialogMethod "getDecorated" o = Gtk.Window.WindowGetDecoratedMethodInfo + ResolveAboutDialogMethod "getDefaultSize" o = Gtk.Window.WindowGetDefaultSizeMethodInfo + ResolveAboutDialogMethod "getDefaultWidget" o = Gtk.Window.WindowGetDefaultWidgetMethodInfo + ResolveAboutDialogMethod "getDeletable" o = Gtk.Window.WindowGetDeletableMethodInfo + ResolveAboutDialogMethod "getDestroyWithParent" o = Gtk.Window.WindowGetDestroyWithParentMethodInfo + ResolveAboutDialogMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAboutDialogMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAboutDialogMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAboutDialogMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAboutDialogMethod "getDocumenters" o = AboutDialogGetDocumentersMethodInfo + ResolveAboutDialogMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAboutDialogMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAboutDialogMethod "getFocus" o = Gtk.Window.WindowGetFocusMethodInfo + ResolveAboutDialogMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveAboutDialogMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveAboutDialogMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveAboutDialogMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAboutDialogMethod "getFocusOnMap" o = Gtk.Window.WindowGetFocusOnMapMethodInfo + ResolveAboutDialogMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveAboutDialogMethod "getFocusVisible" o = Gtk.Window.WindowGetFocusVisibleMethodInfo + ResolveAboutDialogMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAboutDialogMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAboutDialogMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAboutDialogMethod "getGravity" o = Gtk.Window.WindowGetGravityMethodInfo + ResolveAboutDialogMethod "getGroup" o = Gtk.Window.WindowGetGroupMethodInfo + ResolveAboutDialogMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAboutDialogMethod "getHasResizeGrip" o = Gtk.Window.WindowGetHasResizeGripMethodInfo + ResolveAboutDialogMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAboutDialogMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAboutDialogMethod "getHeaderBar" o = Gtk.Dialog.DialogGetHeaderBarMethodInfo + ResolveAboutDialogMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAboutDialogMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAboutDialogMethod "getHideTitlebarWhenMaximized" o = Gtk.Window.WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveAboutDialogMethod "getIcon" o = Gtk.Window.WindowGetIconMethodInfo + ResolveAboutDialogMethod "getIconList" o = Gtk.Window.WindowGetIconListMethodInfo + ResolveAboutDialogMethod "getIconName" o = Gtk.Window.WindowGetIconNameMethodInfo + ResolveAboutDialogMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAboutDialogMethod "getLicense" o = AboutDialogGetLicenseMethodInfo + ResolveAboutDialogMethod "getLicenseType" o = AboutDialogGetLicenseTypeMethodInfo + ResolveAboutDialogMethod "getLogo" o = AboutDialogGetLogoMethodInfo + ResolveAboutDialogMethod "getLogoIconName" o = AboutDialogGetLogoIconNameMethodInfo + ResolveAboutDialogMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAboutDialogMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAboutDialogMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAboutDialogMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAboutDialogMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAboutDialogMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAboutDialogMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAboutDialogMethod "getMnemonicModifier" o = Gtk.Window.WindowGetMnemonicModifierMethodInfo + ResolveAboutDialogMethod "getMnemonicsVisible" o = Gtk.Window.WindowGetMnemonicsVisibleMethodInfo + ResolveAboutDialogMethod "getModal" o = Gtk.Window.WindowGetModalMethodInfo + ResolveAboutDialogMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAboutDialogMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAboutDialogMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAboutDialogMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAboutDialogMethod "getOpacity" o = Gtk.Window.WindowGetOpacityMethodInfo + ResolveAboutDialogMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAboutDialogMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAboutDialogMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAboutDialogMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAboutDialogMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveAboutDialogMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAboutDialogMethod "getPosition" o = Gtk.Window.WindowGetPositionMethodInfo + ResolveAboutDialogMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAboutDialogMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAboutDialogMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAboutDialogMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAboutDialogMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAboutDialogMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAboutDialogMethod "getProgramName" o = AboutDialogGetProgramNameMethodInfo + ResolveAboutDialogMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAboutDialogMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAboutDialogMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAboutDialogMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAboutDialogMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAboutDialogMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAboutDialogMethod "getResizable" o = Gtk.Window.WindowGetResizableMethodInfo + ResolveAboutDialogMethod "getResizeGripArea" o = Gtk.Window.WindowGetResizeGripAreaMethodInfo + ResolveAboutDialogMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveAboutDialogMethod "getResponseForWidget" o = Gtk.Dialog.DialogGetResponseForWidgetMethodInfo + ResolveAboutDialogMethod "getRole" o = Gtk.Window.WindowGetRoleMethodInfo + ResolveAboutDialogMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAboutDialogMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAboutDialogMethod "getScreen" o = Gtk.Window.WindowGetScreenMethodInfo + ResolveAboutDialogMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAboutDialogMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAboutDialogMethod "getSize" o = Gtk.Window.WindowGetSizeMethodInfo + ResolveAboutDialogMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAboutDialogMethod "getSkipPagerHint" o = Gtk.Window.WindowGetSkipPagerHintMethodInfo + ResolveAboutDialogMethod "getSkipTaskbarHint" o = Gtk.Window.WindowGetSkipTaskbarHintMethodInfo + ResolveAboutDialogMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAboutDialogMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAboutDialogMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAboutDialogMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAboutDialogMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAboutDialogMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAboutDialogMethod "getTitle" o = Gtk.Window.WindowGetTitleMethodInfo + ResolveAboutDialogMethod "getTitlebar" o = Gtk.Window.WindowGetTitlebarMethodInfo + ResolveAboutDialogMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAboutDialogMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAboutDialogMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAboutDialogMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAboutDialogMethod "getTransientFor" o = Gtk.Window.WindowGetTransientForMethodInfo + ResolveAboutDialogMethod "getTranslatorCredits" o = AboutDialogGetTranslatorCreditsMethodInfo + ResolveAboutDialogMethod "getTypeHint" o = Gtk.Window.WindowGetTypeHintMethodInfo + ResolveAboutDialogMethod "getUrgencyHint" o = Gtk.Window.WindowGetUrgencyHintMethodInfo + ResolveAboutDialogMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAboutDialogMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAboutDialogMethod "getVersion" o = AboutDialogGetVersionMethodInfo + ResolveAboutDialogMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAboutDialogMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAboutDialogMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAboutDialogMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAboutDialogMethod "getWebsite" o = AboutDialogGetWebsiteMethodInfo + ResolveAboutDialogMethod "getWebsiteLabel" o = AboutDialogGetWebsiteLabelMethodInfo + ResolveAboutDialogMethod "getWidgetForResponse" o = Gtk.Dialog.DialogGetWidgetForResponseMethodInfo + ResolveAboutDialogMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAboutDialogMethod "getWindowType" o = Gtk.Window.WindowGetWindowTypeMethodInfo + ResolveAboutDialogMethod "getWrapLicense" o = AboutDialogGetWrapLicenseMethodInfo + ResolveAboutDialogMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAboutDialogMethod "setAcceptFocus" o = Gtk.Window.WindowSetAcceptFocusMethodInfo + ResolveAboutDialogMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAboutDialogMethod "setAlternativeButtonOrderFromArray" o = Gtk.Dialog.DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveAboutDialogMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAboutDialogMethod "setApplication" o = Gtk.Window.WindowSetApplicationMethodInfo + ResolveAboutDialogMethod "setArtists" o = AboutDialogSetArtistsMethodInfo + ResolveAboutDialogMethod "setAttachedTo" o = Gtk.Window.WindowSetAttachedToMethodInfo + ResolveAboutDialogMethod "setAuthors" o = AboutDialogSetAuthorsMethodInfo + ResolveAboutDialogMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveAboutDialogMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAboutDialogMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAboutDialogMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAboutDialogMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAboutDialogMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAboutDialogMethod "setComments" o = AboutDialogSetCommentsMethodInfo + ResolveAboutDialogMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAboutDialogMethod "setCopyright" o = AboutDialogSetCopyrightMethodInfo + ResolveAboutDialogMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAboutDialogMethod "setDecorated" o = Gtk.Window.WindowSetDecoratedMethodInfo + ResolveAboutDialogMethod "setDefault" o = Gtk.Window.WindowSetDefaultMethodInfo + ResolveAboutDialogMethod "setDefaultGeometry" o = Gtk.Window.WindowSetDefaultGeometryMethodInfo + ResolveAboutDialogMethod "setDefaultResponse" o = Gtk.Dialog.DialogSetDefaultResponseMethodInfo + ResolveAboutDialogMethod "setDefaultSize" o = Gtk.Window.WindowSetDefaultSizeMethodInfo + ResolveAboutDialogMethod "setDeletable" o = Gtk.Window.WindowSetDeletableMethodInfo + ResolveAboutDialogMethod "setDestroyWithParent" o = Gtk.Window.WindowSetDestroyWithParentMethodInfo + ResolveAboutDialogMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAboutDialogMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAboutDialogMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAboutDialogMethod "setDocumenters" o = AboutDialogSetDocumentersMethodInfo + ResolveAboutDialogMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAboutDialogMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAboutDialogMethod "setFocus" o = Gtk.Window.WindowSetFocusMethodInfo + ResolveAboutDialogMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveAboutDialogMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveAboutDialogMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveAboutDialogMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAboutDialogMethod "setFocusOnMap" o = Gtk.Window.WindowSetFocusOnMapMethodInfo + ResolveAboutDialogMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveAboutDialogMethod "setFocusVisible" o = Gtk.Window.WindowSetFocusVisibleMethodInfo + ResolveAboutDialogMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAboutDialogMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAboutDialogMethod "setGeometryHints" o = Gtk.Window.WindowSetGeometryHintsMethodInfo + ResolveAboutDialogMethod "setGravity" o = Gtk.Window.WindowSetGravityMethodInfo + ResolveAboutDialogMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAboutDialogMethod "setHasResizeGrip" o = Gtk.Window.WindowSetHasResizeGripMethodInfo + ResolveAboutDialogMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAboutDialogMethod "setHasUserRefCount" o = Gtk.Window.WindowSetHasUserRefCountMethodInfo + ResolveAboutDialogMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAboutDialogMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAboutDialogMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAboutDialogMethod "setHideTitlebarWhenMaximized" o = Gtk.Window.WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveAboutDialogMethod "setIcon" o = Gtk.Window.WindowSetIconMethodInfo + ResolveAboutDialogMethod "setIconFromFile" o = Gtk.Window.WindowSetIconFromFileMethodInfo + ResolveAboutDialogMethod "setIconList" o = Gtk.Window.WindowSetIconListMethodInfo + ResolveAboutDialogMethod "setIconName" o = Gtk.Window.WindowSetIconNameMethodInfo + ResolveAboutDialogMethod "setKeepAbove" o = Gtk.Window.WindowSetKeepAboveMethodInfo + ResolveAboutDialogMethod "setKeepBelow" o = Gtk.Window.WindowSetKeepBelowMethodInfo + ResolveAboutDialogMethod "setLicense" o = AboutDialogSetLicenseMethodInfo + ResolveAboutDialogMethod "setLicenseType" o = AboutDialogSetLicenseTypeMethodInfo + ResolveAboutDialogMethod "setLogo" o = AboutDialogSetLogoMethodInfo + ResolveAboutDialogMethod "setLogoIconName" o = AboutDialogSetLogoIconNameMethodInfo + ResolveAboutDialogMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAboutDialogMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAboutDialogMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAboutDialogMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAboutDialogMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAboutDialogMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAboutDialogMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAboutDialogMethod "setMnemonicModifier" o = Gtk.Window.WindowSetMnemonicModifierMethodInfo + ResolveAboutDialogMethod "setMnemonicsVisible" o = Gtk.Window.WindowSetMnemonicsVisibleMethodInfo + ResolveAboutDialogMethod "setModal" o = Gtk.Window.WindowSetModalMethodInfo + ResolveAboutDialogMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAboutDialogMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAboutDialogMethod "setOpacity" o = Gtk.Window.WindowSetOpacityMethodInfo + ResolveAboutDialogMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAboutDialogMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAboutDialogMethod "setPosition" o = Gtk.Window.WindowSetPositionMethodInfo + ResolveAboutDialogMethod "setProgramName" o = AboutDialogSetProgramNameMethodInfo + ResolveAboutDialogMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAboutDialogMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAboutDialogMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveAboutDialogMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAboutDialogMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAboutDialogMethod "setResizable" o = Gtk.Window.WindowSetResizableMethodInfo + ResolveAboutDialogMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveAboutDialogMethod "setResponseSensitive" o = Gtk.Dialog.DialogSetResponseSensitiveMethodInfo + ResolveAboutDialogMethod "setRole" o = Gtk.Window.WindowSetRoleMethodInfo + ResolveAboutDialogMethod "setScreen" o = Gtk.Window.WindowSetScreenMethodInfo + ResolveAboutDialogMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAboutDialogMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAboutDialogMethod "setSkipPagerHint" o = Gtk.Window.WindowSetSkipPagerHintMethodInfo + ResolveAboutDialogMethod "setSkipTaskbarHint" o = Gtk.Window.WindowSetSkipTaskbarHintMethodInfo + ResolveAboutDialogMethod "setStartupId" o = Gtk.Window.WindowSetStartupIdMethodInfo + ResolveAboutDialogMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAboutDialogMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAboutDialogMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAboutDialogMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAboutDialogMethod "setTitle" o = Gtk.Window.WindowSetTitleMethodInfo + ResolveAboutDialogMethod "setTitlebar" o = Gtk.Window.WindowSetTitlebarMethodInfo + ResolveAboutDialogMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAboutDialogMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAboutDialogMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAboutDialogMethod "setTransientFor" o = Gtk.Window.WindowSetTransientForMethodInfo + ResolveAboutDialogMethod "setTranslatorCredits" o = AboutDialogSetTranslatorCreditsMethodInfo + ResolveAboutDialogMethod "setTypeHint" o = Gtk.Window.WindowSetTypeHintMethodInfo + ResolveAboutDialogMethod "setUrgencyHint" o = Gtk.Window.WindowSetUrgencyHintMethodInfo + ResolveAboutDialogMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAboutDialogMethod "setVersion" o = AboutDialogSetVersionMethodInfo + ResolveAboutDialogMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAboutDialogMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAboutDialogMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAboutDialogMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAboutDialogMethod "setWebsite" o = AboutDialogSetWebsiteMethodInfo + ResolveAboutDialogMethod "setWebsiteLabel" o = AboutDialogSetWebsiteLabelMethodInfo + ResolveAboutDialogMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAboutDialogMethod "setWmclass" o = Gtk.Window.WindowSetWmclassMethodInfo + ResolveAboutDialogMethod "setWrapLicense" o = AboutDialogSetWrapLicenseMethodInfo + ResolveAboutDialogMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAboutDialogMethod t AboutDialog, O.MethodInfo info AboutDialog p) => OL.IsLabel t (AboutDialog -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal AboutDialog::activate-link +{- | +The signal which gets emitted to activate a URI. +Applications may connect to it to override the default behaviour, +which is to call 'GI.Gtk.Functions.showUriOnWindow'. + +/Since: 2.24/ +-} +type AboutDialogActivateLinkCallback = + T.Text + {- ^ /@uri@/: the URI that is activated -} + -> IO Bool + {- ^ __Returns:__ 'True' if the link has been activated -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AboutDialogActivateLinkCallback`@. +noAboutDialogActivateLinkCallback :: Maybe AboutDialogActivateLinkCallback +noAboutDialogActivateLinkCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AboutDialogActivateLinkCallback = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO CInt + +-- | Generate a function pointer callable from C code, from a `C_AboutDialogActivateLinkCallback`. +foreign import ccall "wrapper" + mk_AboutDialogActivateLinkCallback :: C_AboutDialogActivateLinkCallback -> IO (FunPtr C_AboutDialogActivateLinkCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AboutDialogActivateLink :: MonadIO m => AboutDialogActivateLinkCallback -> m (GClosure C_AboutDialogActivateLinkCallback) +genClosure_AboutDialogActivateLink cb = liftIO $ do + let cb' = wrap_AboutDialogActivateLinkCallback cb + mk_AboutDialogActivateLinkCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AboutDialogActivateLinkCallback` into a `C_AboutDialogActivateLinkCallback`. +wrap_AboutDialogActivateLinkCallback :: + AboutDialogActivateLinkCallback -> + C_AboutDialogActivateLinkCallback +wrap_AboutDialogActivateLinkCallback _cb _ uri _ = do + uri' <- cstringToText uri + result <- _cb uri' + let result' = (fromIntegral . fromEnum) result + return result' + + +{- | +Connect a signal handler for the “@activate-link@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' aboutDialog #activateLink callback +@ +-} +onAboutDialogActivateLink :: (IsAboutDialog a, MonadIO m) => a -> AboutDialogActivateLinkCallback -> m SignalHandlerId +onAboutDialogActivateLink obj cb = liftIO $ do + let cb' = wrap_AboutDialogActivateLinkCallback cb + cb'' <- mk_AboutDialogActivateLinkCallback cb' + connectSignalFunPtr obj "activate-link" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@activate-link@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' aboutDialog #activateLink callback +@ +-} +afterAboutDialogActivateLink :: (IsAboutDialog a, MonadIO m) => a -> AboutDialogActivateLinkCallback -> m SignalHandlerId +afterAboutDialogActivateLink obj cb = liftIO $ do + let cb' = wrap_AboutDialogActivateLinkCallback cb + cb'' <- mk_AboutDialogActivateLinkCallback cb' + connectSignalFunPtr obj "activate-link" cb'' SignalConnectAfter + + +-- VVV Prop "artists" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@artists@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #artists +@ +-} +getAboutDialogArtists :: (MonadIO m, IsAboutDialog o) => o -> m [T.Text] +getAboutDialogArtists obj = liftIO $ checkUnexpectedNothing "getAboutDialogArtists" $ B.Properties.getObjectPropertyStringArray obj "artists" + +{- | +Set the value of the “@artists@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #artists 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogArtists :: (MonadIO m, IsAboutDialog o) => o -> [T.Text] -> m () +setAboutDialogArtists obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "artists" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@artists@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogArtists :: (IsAboutDialog o) => [T.Text] -> IO (GValueConstruct o) +constructAboutDialogArtists val = B.Properties.constructObjectPropertyStringArray "artists" (Just val) + +#if ENABLE_OVERLOADING +data AboutDialogArtistsPropertyInfo +instance AttrInfo AboutDialogArtistsPropertyInfo where + type AttrAllowedOps AboutDialogArtistsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogArtistsPropertyInfo = (~) [T.Text] + type AttrBaseTypeConstraint AboutDialogArtistsPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogArtistsPropertyInfo = [T.Text] + type AttrLabel AboutDialogArtistsPropertyInfo = "artists" + type AttrOrigin AboutDialogArtistsPropertyInfo = AboutDialog + attrGet _ = getAboutDialogArtists + attrSet _ = setAboutDialogArtists + attrConstruct _ = constructAboutDialogArtists + attrClear _ = undefined +#endif + +-- VVV Prop "authors" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@authors@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #authors +@ +-} +getAboutDialogAuthors :: (MonadIO m, IsAboutDialog o) => o -> m [T.Text] +getAboutDialogAuthors obj = liftIO $ checkUnexpectedNothing "getAboutDialogAuthors" $ B.Properties.getObjectPropertyStringArray obj "authors" + +{- | +Set the value of the “@authors@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #authors 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogAuthors :: (MonadIO m, IsAboutDialog o) => o -> [T.Text] -> m () +setAboutDialogAuthors obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "authors" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@authors@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogAuthors :: (IsAboutDialog o) => [T.Text] -> IO (GValueConstruct o) +constructAboutDialogAuthors val = B.Properties.constructObjectPropertyStringArray "authors" (Just val) + +#if ENABLE_OVERLOADING +data AboutDialogAuthorsPropertyInfo +instance AttrInfo AboutDialogAuthorsPropertyInfo where + type AttrAllowedOps AboutDialogAuthorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogAuthorsPropertyInfo = (~) [T.Text] + type AttrBaseTypeConstraint AboutDialogAuthorsPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogAuthorsPropertyInfo = [T.Text] + type AttrLabel AboutDialogAuthorsPropertyInfo = "authors" + type AttrOrigin AboutDialogAuthorsPropertyInfo = AboutDialog + attrGet _ = getAboutDialogAuthors + attrSet _ = setAboutDialogAuthors + attrConstruct _ = constructAboutDialogAuthors + attrClear _ = undefined +#endif + +-- VVV Prop "comments" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@comments@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #comments +@ +-} +getAboutDialogComments :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogComments obj = liftIO $ checkUnexpectedNothing "getAboutDialogComments" $ B.Properties.getObjectPropertyString obj "comments" + +{- | +Set the value of the “@comments@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #comments 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogComments :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogComments obj val = liftIO $ B.Properties.setObjectPropertyString obj "comments" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@comments@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogComments :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogComments val = B.Properties.constructObjectPropertyString "comments" (Just val) + +{- | +Set the value of the “@comments@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #comments +@ +-} +clearAboutDialogComments :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogComments obj = liftIO $ B.Properties.setObjectPropertyString obj "comments" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data AboutDialogCommentsPropertyInfo +instance AttrInfo AboutDialogCommentsPropertyInfo where + type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogCommentsPropertyInfo = T.Text + type AttrLabel AboutDialogCommentsPropertyInfo = "comments" + type AttrOrigin AboutDialogCommentsPropertyInfo = AboutDialog + attrGet _ = getAboutDialogComments + attrSet _ = setAboutDialogComments + attrConstruct _ = constructAboutDialogComments + attrClear _ = clearAboutDialogComments +#endif + +-- VVV Prop "copyright" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@copyright@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #copyright +@ +-} +getAboutDialogCopyright :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogCopyright obj = liftIO $ checkUnexpectedNothing "getAboutDialogCopyright" $ B.Properties.getObjectPropertyString obj "copyright" + +{- | +Set the value of the “@copyright@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #copyright 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogCopyright :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogCopyright obj val = liftIO $ B.Properties.setObjectPropertyString obj "copyright" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@copyright@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogCopyright :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogCopyright val = B.Properties.constructObjectPropertyString "copyright" (Just val) + +{- | +Set the value of the “@copyright@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #copyright +@ +-} +clearAboutDialogCopyright :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogCopyright obj = liftIO $ B.Properties.setObjectPropertyString obj "copyright" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data AboutDialogCopyrightPropertyInfo +instance AttrInfo AboutDialogCopyrightPropertyInfo where + type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text + type AttrLabel AboutDialogCopyrightPropertyInfo = "copyright" + type AttrOrigin AboutDialogCopyrightPropertyInfo = AboutDialog + attrGet _ = getAboutDialogCopyright + attrSet _ = setAboutDialogCopyright + attrConstruct _ = constructAboutDialogCopyright + attrClear _ = clearAboutDialogCopyright +#endif + +-- VVV Prop "documenters" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@documenters@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #documenters +@ +-} +getAboutDialogDocumenters :: (MonadIO m, IsAboutDialog o) => o -> m [T.Text] +getAboutDialogDocumenters obj = liftIO $ checkUnexpectedNothing "getAboutDialogDocumenters" $ B.Properties.getObjectPropertyStringArray obj "documenters" + +{- | +Set the value of the “@documenters@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #documenters 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogDocumenters :: (MonadIO m, IsAboutDialog o) => o -> [T.Text] -> m () +setAboutDialogDocumenters obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "documenters" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@documenters@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogDocumenters :: (IsAboutDialog o) => [T.Text] -> IO (GValueConstruct o) +constructAboutDialogDocumenters val = B.Properties.constructObjectPropertyStringArray "documenters" (Just val) + +#if ENABLE_OVERLOADING +data AboutDialogDocumentersPropertyInfo +instance AttrInfo AboutDialogDocumentersPropertyInfo where + type AttrAllowedOps AboutDialogDocumentersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogDocumentersPropertyInfo = (~) [T.Text] + type AttrBaseTypeConstraint AboutDialogDocumentersPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogDocumentersPropertyInfo = [T.Text] + type AttrLabel AboutDialogDocumentersPropertyInfo = "documenters" + type AttrOrigin AboutDialogDocumentersPropertyInfo = AboutDialog + attrGet _ = getAboutDialogDocumenters + attrSet _ = setAboutDialogDocumenters + attrConstruct _ = constructAboutDialogDocumenters + attrClear _ = undefined +#endif + +-- VVV Prop "license" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@license@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #license +@ +-} +getAboutDialogLicense :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogLicense obj = liftIO $ checkUnexpectedNothing "getAboutDialogLicense" $ B.Properties.getObjectPropertyString obj "license" + +{- | +Set the value of the “@license@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #license 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogLicense :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogLicense obj val = liftIO $ B.Properties.setObjectPropertyString obj "license" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@license@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogLicense :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogLicense val = B.Properties.constructObjectPropertyString "license" (Just val) + +{- | +Set the value of the “@license@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #license +@ +-} +clearAboutDialogLicense :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogLicense obj = liftIO $ B.Properties.setObjectPropertyString obj "license" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data AboutDialogLicensePropertyInfo +instance AttrInfo AboutDialogLicensePropertyInfo where + type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = IsAboutDialog + type AttrGetType AboutDialogLicensePropertyInfo = T.Text + type AttrLabel AboutDialogLicensePropertyInfo = "license" + type AttrOrigin AboutDialogLicensePropertyInfo = AboutDialog + attrGet _ = getAboutDialogLicense + attrSet _ = setAboutDialogLicense + attrConstruct _ = constructAboutDialogLicense + attrClear _ = clearAboutDialogLicense +#endif + +-- VVV Prop "license-type" + -- Type: TInterface (Name {namespace = "Gtk", name = "License"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@license-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #licenseType +@ +-} +getAboutDialogLicenseType :: (MonadIO m, IsAboutDialog o) => o -> m Gtk.Enums.License +getAboutDialogLicenseType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "license-type" + +{- | +Set the value of the “@license-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #licenseType 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogLicenseType :: (MonadIO m, IsAboutDialog o) => o -> Gtk.Enums.License -> m () +setAboutDialogLicenseType obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "license-type" val + +{- | +Construct a `GValueConstruct` with valid value for the “@license-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogLicenseType :: (IsAboutDialog o) => Gtk.Enums.License -> IO (GValueConstruct o) +constructAboutDialogLicenseType val = B.Properties.constructObjectPropertyEnum "license-type" val + +#if ENABLE_OVERLOADING +data AboutDialogLicenseTypePropertyInfo +instance AttrInfo AboutDialogLicenseTypePropertyInfo where + type AttrAllowedOps AboutDialogLicenseTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogLicenseTypePropertyInfo = (~) Gtk.Enums.License + type AttrBaseTypeConstraint AboutDialogLicenseTypePropertyInfo = IsAboutDialog + type AttrGetType AboutDialogLicenseTypePropertyInfo = Gtk.Enums.License + type AttrLabel AboutDialogLicenseTypePropertyInfo = "license-type" + type AttrOrigin AboutDialogLicenseTypePropertyInfo = AboutDialog + attrGet _ = getAboutDialogLicenseType + attrSet _ = setAboutDialogLicenseType + attrConstruct _ = constructAboutDialogLicenseType + attrClear _ = undefined +#endif + +-- VVV Prop "logo" + -- Type: TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@logo@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #logo +@ +-} +getAboutDialogLogo :: (MonadIO m, IsAboutDialog o) => o -> m GdkPixbuf.Pixbuf.Pixbuf +getAboutDialogLogo obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogo" $ B.Properties.getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf.Pixbuf + +{- | +Set the value of the “@logo@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #logo 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogLogo :: (MonadIO m, IsAboutDialog o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m () +setAboutDialogLogo obj val = liftIO $ B.Properties.setObjectPropertyObject obj "logo" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@logo@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogLogo :: (IsAboutDialog o, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> IO (GValueConstruct o) +constructAboutDialogLogo val = B.Properties.constructObjectPropertyObject "logo" (Just val) + +{- | +Set the value of the “@logo@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #logo +@ +-} +clearAboutDialogLogo :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogLogo obj = liftIO $ B.Properties.setObjectPropertyObject obj "logo" (Nothing :: Maybe GdkPixbuf.Pixbuf.Pixbuf) + +#if ENABLE_OVERLOADING +data AboutDialogLogoPropertyInfo +instance AttrInfo AboutDialogLogoPropertyInfo where + type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf + type AttrBaseTypeConstraint AboutDialogLogoPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf.Pixbuf + type AttrLabel AboutDialogLogoPropertyInfo = "logo" + type AttrOrigin AboutDialogLogoPropertyInfo = AboutDialog + attrGet _ = getAboutDialogLogo + attrSet _ = setAboutDialogLogo + attrConstruct _ = constructAboutDialogLogo + attrClear _ = clearAboutDialogLogo +#endif + +-- VVV Prop "logo-icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@logo-icon-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #logoIconName +@ +-} +getAboutDialogLogoIconName :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogLogoIconName obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogoIconName" $ B.Properties.getObjectPropertyString obj "logo-icon-name" + +{- | +Set the value of the “@logo-icon-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #logoIconName 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogLogoIconName :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogLogoIconName obj val = liftIO $ B.Properties.setObjectPropertyString obj "logo-icon-name" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@logo-icon-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogLogoIconName :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogLogoIconName val = B.Properties.constructObjectPropertyString "logo-icon-name" (Just val) + +{- | +Set the value of the “@logo-icon-name@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #logoIconName +@ +-} +clearAboutDialogLogoIconName :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogLogoIconName obj = liftIO $ B.Properties.setObjectPropertyString obj "logo-icon-name" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data AboutDialogLogoIconNamePropertyInfo +instance AttrInfo AboutDialogLogoIconNamePropertyInfo where + type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogLogoIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogLogoIconNamePropertyInfo = IsAboutDialog + type AttrGetType AboutDialogLogoIconNamePropertyInfo = T.Text + type AttrLabel AboutDialogLogoIconNamePropertyInfo = "logo-icon-name" + type AttrOrigin AboutDialogLogoIconNamePropertyInfo = AboutDialog + attrGet _ = getAboutDialogLogoIconName + attrSet _ = setAboutDialogLogoIconName + attrConstruct _ = constructAboutDialogLogoIconName + attrClear _ = clearAboutDialogLogoIconName +#endif + +-- VVV Prop "program-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@program-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #programName +@ +-} +getAboutDialogProgramName :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogProgramName obj = liftIO $ checkUnexpectedNothing "getAboutDialogProgramName" $ B.Properties.getObjectPropertyString obj "program-name" + +{- | +Set the value of the “@program-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #programName 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogProgramName :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogProgramName obj val = liftIO $ B.Properties.setObjectPropertyString obj "program-name" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@program-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogProgramName :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogProgramName val = B.Properties.constructObjectPropertyString "program-name" (Just val) + +#if ENABLE_OVERLOADING +data AboutDialogProgramNamePropertyInfo +instance AttrInfo AboutDialogProgramNamePropertyInfo where + type AttrAllowedOps AboutDialogProgramNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogProgramNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogProgramNamePropertyInfo = IsAboutDialog + type AttrGetType AboutDialogProgramNamePropertyInfo = T.Text + type AttrLabel AboutDialogProgramNamePropertyInfo = "program-name" + type AttrOrigin AboutDialogProgramNamePropertyInfo = AboutDialog + attrGet _ = getAboutDialogProgramName + attrSet _ = setAboutDialogProgramName + attrConstruct _ = constructAboutDialogProgramName + attrClear _ = undefined +#endif + +-- VVV Prop "translator-credits" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@translator-credits@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #translatorCredits +@ +-} +getAboutDialogTranslatorCredits :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogTranslatorCredits obj = liftIO $ checkUnexpectedNothing "getAboutDialogTranslatorCredits" $ B.Properties.getObjectPropertyString obj "translator-credits" + +{- | +Set the value of the “@translator-credits@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #translatorCredits 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogTranslatorCredits :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogTranslatorCredits obj val = liftIO $ B.Properties.setObjectPropertyString obj "translator-credits" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@translator-credits@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogTranslatorCredits :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogTranslatorCredits val = B.Properties.constructObjectPropertyString "translator-credits" (Just val) + +{- | +Set the value of the “@translator-credits@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #translatorCredits +@ +-} +clearAboutDialogTranslatorCredits :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogTranslatorCredits obj = liftIO $ B.Properties.setObjectPropertyString obj "translator-credits" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data AboutDialogTranslatorCreditsPropertyInfo +instance AttrInfo AboutDialogTranslatorCreditsPropertyInfo where + type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text + type AttrLabel AboutDialogTranslatorCreditsPropertyInfo = "translator-credits" + type AttrOrigin AboutDialogTranslatorCreditsPropertyInfo = AboutDialog + attrGet _ = getAboutDialogTranslatorCredits + attrSet _ = setAboutDialogTranslatorCredits + attrConstruct _ = constructAboutDialogTranslatorCredits + attrClear _ = clearAboutDialogTranslatorCredits +#endif + +-- VVV Prop "version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@version@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #version +@ +-} +getAboutDialogVersion :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogVersion obj = liftIO $ checkUnexpectedNothing "getAboutDialogVersion" $ B.Properties.getObjectPropertyString obj "version" + +{- | +Set the value of the “@version@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #version 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogVersion :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogVersion obj val = liftIO $ B.Properties.setObjectPropertyString obj "version" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@version@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogVersion :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogVersion val = B.Properties.constructObjectPropertyString "version" (Just val) + +{- | +Set the value of the “@version@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #version +@ +-} +clearAboutDialogVersion :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogVersion obj = liftIO $ B.Properties.setObjectPropertyString obj "version" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data AboutDialogVersionPropertyInfo +instance AttrInfo AboutDialogVersionPropertyInfo where + type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogVersionPropertyInfo = T.Text + type AttrLabel AboutDialogVersionPropertyInfo = "version" + type AttrOrigin AboutDialogVersionPropertyInfo = AboutDialog + attrGet _ = getAboutDialogVersion + attrSet _ = setAboutDialogVersion + attrConstruct _ = constructAboutDialogVersion + attrClear _ = clearAboutDialogVersion +#endif + +-- VVV Prop "website" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@website@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #website +@ +-} +getAboutDialogWebsite :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogWebsite obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsite" $ B.Properties.getObjectPropertyString obj "website" + +{- | +Set the value of the “@website@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #website 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogWebsite :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogWebsite obj val = liftIO $ B.Properties.setObjectPropertyString obj "website" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@website@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogWebsite :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogWebsite val = B.Properties.constructObjectPropertyString "website" (Just val) + +{- | +Set the value of the “@website@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #website +@ +-} +clearAboutDialogWebsite :: (MonadIO m, IsAboutDialog o) => o -> m () +clearAboutDialogWebsite obj = liftIO $ B.Properties.setObjectPropertyString obj "website" (Nothing :: Maybe T.Text) + +#if ENABLE_OVERLOADING +data AboutDialogWebsitePropertyInfo +instance AttrInfo AboutDialogWebsitePropertyInfo where + type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = IsAboutDialog + type AttrGetType AboutDialogWebsitePropertyInfo = T.Text + type AttrLabel AboutDialogWebsitePropertyInfo = "website" + type AttrOrigin AboutDialogWebsitePropertyInfo = AboutDialog + attrGet _ = getAboutDialogWebsite + attrSet _ = setAboutDialogWebsite + attrConstruct _ = constructAboutDialogWebsite + attrClear _ = clearAboutDialogWebsite +#endif + +-- VVV Prop "website-label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@website-label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #websiteLabel +@ +-} +getAboutDialogWebsiteLabel :: (MonadIO m, IsAboutDialog o) => o -> m T.Text +getAboutDialogWebsiteLabel obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsiteLabel" $ B.Properties.getObjectPropertyString obj "website-label" + +{- | +Set the value of the “@website-label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #websiteLabel 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogWebsiteLabel :: (MonadIO m, IsAboutDialog o) => o -> T.Text -> m () +setAboutDialogWebsiteLabel obj val = liftIO $ B.Properties.setObjectPropertyString obj "website-label" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@website-label@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogWebsiteLabel :: (IsAboutDialog o) => T.Text -> IO (GValueConstruct o) +constructAboutDialogWebsiteLabel val = B.Properties.constructObjectPropertyString "website-label" (Just val) + +#if ENABLE_OVERLOADING +data AboutDialogWebsiteLabelPropertyInfo +instance AttrInfo AboutDialogWebsiteLabelPropertyInfo where + type AttrAllowedOps AboutDialogWebsiteLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogWebsiteLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogWebsiteLabelPropertyInfo = IsAboutDialog + type AttrGetType AboutDialogWebsiteLabelPropertyInfo = T.Text + type AttrLabel AboutDialogWebsiteLabelPropertyInfo = "website-label" + type AttrOrigin AboutDialogWebsiteLabelPropertyInfo = AboutDialog + attrGet _ = getAboutDialogWebsiteLabel + attrSet _ = setAboutDialogWebsiteLabel + attrConstruct _ = constructAboutDialogWebsiteLabel + attrClear _ = undefined +#endif + +-- VVV Prop "wrap-license" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@wrap-license@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aboutDialog #wrapLicense +@ +-} +getAboutDialogWrapLicense :: (MonadIO m, IsAboutDialog o) => o -> m Bool +getAboutDialogWrapLicense obj = liftIO $ B.Properties.getObjectPropertyBool obj "wrap-license" + +{- | +Set the value of the “@wrap-license@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aboutDialog [ #wrapLicense 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAboutDialogWrapLicense :: (MonadIO m, IsAboutDialog o) => o -> Bool -> m () +setAboutDialogWrapLicense obj val = liftIO $ B.Properties.setObjectPropertyBool obj "wrap-license" val + +{- | +Construct a `GValueConstruct` with valid value for the “@wrap-license@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAboutDialogWrapLicense :: (IsAboutDialog o) => Bool -> IO (GValueConstruct o) +constructAboutDialogWrapLicense val = B.Properties.constructObjectPropertyBool "wrap-license" val + +#if ENABLE_OVERLOADING +data AboutDialogWrapLicensePropertyInfo +instance AttrInfo AboutDialogWrapLicensePropertyInfo where + type AttrAllowedOps AboutDialogWrapLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogWrapLicensePropertyInfo = (~) Bool + type AttrBaseTypeConstraint AboutDialogWrapLicensePropertyInfo = IsAboutDialog + type AttrGetType AboutDialogWrapLicensePropertyInfo = Bool + type AttrLabel AboutDialogWrapLicensePropertyInfo = "wrap-license" + type AttrOrigin AboutDialogWrapLicensePropertyInfo = AboutDialog + attrGet _ = getAboutDialogWrapLicense + attrSet _ = setAboutDialogWrapLicense + attrConstruct _ = constructAboutDialogWrapLicense + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AboutDialog +type instance O.AttributeList AboutDialog = AboutDialogAttributeList +type AboutDialogAttributeList = ('[ '("acceptFocus", Gtk.Window.WindowAcceptFocusPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("application", Gtk.Window.WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attachedTo", Gtk.Window.WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", Gtk.Window.WindowDecoratedPropertyInfo), '("defaultHeight", Gtk.Window.WindowDefaultHeightPropertyInfo), '("defaultWidth", Gtk.Window.WindowDefaultWidthPropertyInfo), '("deletable", Gtk.Window.WindowDeletablePropertyInfo), '("destroyWithParent", Gtk.Window.WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusOnMap", Gtk.Window.WindowFocusOnMapPropertyInfo), '("focusVisible", Gtk.Window.WindowFocusVisiblePropertyInfo), '("gravity", Gtk.Window.WindowGravityPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasResizeGrip", Gtk.Window.WindowHasResizeGripPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", Gtk.Window.WindowHasToplevelFocusPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", Gtk.Window.WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", Gtk.Window.WindowIconPropertyInfo), '("iconName", Gtk.Window.WindowIconNamePropertyInfo), '("isActive", Gtk.Window.WindowIsActivePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isMaximized", Gtk.Window.WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("licenseType", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logoIconName", AboutDialogLogoIconNamePropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mnemonicsVisible", Gtk.Window.WindowMnemonicsVisiblePropertyInfo), '("modal", Gtk.Window.WindowModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("programName", AboutDialogProgramNamePropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizable", Gtk.Window.WindowResizablePropertyInfo), '("resizeGripVisible", Gtk.Window.WindowResizeGripVisiblePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("role", Gtk.Window.WindowRolePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("screen", Gtk.Window.WindowScreenPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("skipPagerHint", Gtk.Window.WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", Gtk.Window.WindowSkipTaskbarHintPropertyInfo), '("startupId", Gtk.Window.WindowStartupIdPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("title", Gtk.Window.WindowTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", Gtk.Window.WindowTransientForPropertyInfo), '("translatorCredits", AboutDialogTranslatorCreditsPropertyInfo), '("type", Gtk.Window.WindowTypePropertyInfo), '("typeHint", Gtk.Window.WindowTypeHintPropertyInfo), '("urgencyHint", Gtk.Window.WindowUrgencyHintPropertyInfo), '("useHeaderBar", Gtk.Dialog.DialogUseHeaderBarPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("websiteLabel", AboutDialogWebsiteLabelPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowPosition", Gtk.Window.WindowWindowPositionPropertyInfo), '("wrapLicense", AboutDialogWrapLicensePropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +aboutDialogArtists :: AttrLabelProxy "artists" +aboutDialogArtists = AttrLabelProxy + +aboutDialogAuthors :: AttrLabelProxy "authors" +aboutDialogAuthors = AttrLabelProxy + +aboutDialogComments :: AttrLabelProxy "comments" +aboutDialogComments = AttrLabelProxy + +aboutDialogCopyright :: AttrLabelProxy "copyright" +aboutDialogCopyright = AttrLabelProxy + +aboutDialogDocumenters :: AttrLabelProxy "documenters" +aboutDialogDocumenters = AttrLabelProxy + +aboutDialogLicense :: AttrLabelProxy "license" +aboutDialogLicense = AttrLabelProxy + +aboutDialogLicenseType :: AttrLabelProxy "licenseType" +aboutDialogLicenseType = AttrLabelProxy + +aboutDialogLogo :: AttrLabelProxy "logo" +aboutDialogLogo = AttrLabelProxy + +aboutDialogLogoIconName :: AttrLabelProxy "logoIconName" +aboutDialogLogoIconName = AttrLabelProxy + +aboutDialogProgramName :: AttrLabelProxy "programName" +aboutDialogProgramName = AttrLabelProxy + +aboutDialogTranslatorCredits :: AttrLabelProxy "translatorCredits" +aboutDialogTranslatorCredits = AttrLabelProxy + +aboutDialogVersion :: AttrLabelProxy "version" +aboutDialogVersion = AttrLabelProxy + +aboutDialogWebsite :: AttrLabelProxy "website" +aboutDialogWebsite = AttrLabelProxy + +aboutDialogWebsiteLabel :: AttrLabelProxy "websiteLabel" +aboutDialogWebsiteLabel = AttrLabelProxy + +aboutDialogWrapLicense :: AttrLabelProxy "wrapLicense" +aboutDialogWrapLicense = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data AboutDialogActivateLinkSignalInfo +instance SignalInfo AboutDialogActivateLinkSignalInfo where + type HaskellCallbackType AboutDialogActivateLinkSignalInfo = AboutDialogActivateLinkCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AboutDialogActivateLinkCallback cb + cb'' <- mk_AboutDialogActivateLinkCallback cb' + connectSignalFunPtr obj "activate-link" cb'' connectMode + +type instance O.SignalList AboutDialog = AboutDialogSignalList +type AboutDialogSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateDefault", Gtk.Window.WindowActivateDefaultSignalInfo), '("activateFocus", Gtk.Window.WindowActivateFocusSignalInfo), '("activateLink", AboutDialogActivateLinkSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("close", Gtk.Dialog.DialogCloseSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enableDebugging", Gtk.Window.WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("keysChanged", Gtk.Window.WindowKeysChangedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("response", Gtk.Dialog.DialogResponseSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocus", Gtk.Window.WindowSetFocusSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AboutDialog::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AboutDialog"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_new" gtk_about_dialog_new :: + IO (Ptr AboutDialog) + +{- | +Creates a new 'GI.Gtk.Objects.AboutDialog.AboutDialog'. + +/Since: 2.6/ +-} +aboutDialogNew :: + (B.CallStack.HasCallStack, MonadIO m) => + m AboutDialog + {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} +aboutDialogNew = liftIO $ do + result <- gtk_about_dialog_new + checkUnexpectedReturnNULL "aboutDialogNew" result + result' <- (newObject AboutDialog) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AboutDialog::add_credit_section +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the section", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The people who belong to that section", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_add_credit_section" gtk_about_dialog_add_credit_section :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- section_name : TBasicType TUTF8 + Ptr CString -> -- people : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + +{- | +Creates a new section in the Credits page. + +/Since: 3.4/ +-} +aboutDialogAddCreditSection :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: A 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> T.Text + {- ^ /@sectionName@/: The name of the section -} + -> [T.Text] + {- ^ /@people@/: The people who belong to that section -} + -> m () +aboutDialogAddCreditSection about sectionName people = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + sectionName' <- textToCString sectionName + people' <- packZeroTerminatedUTF8CArray people + gtk_about_dialog_add_credit_section about' sectionName' people' + touchManagedPtr about + freeMem sectionName' + mapZeroTerminatedCArray freeMem people' + freeMem people' + return () + +#if ENABLE_OVERLOADING +data AboutDialogAddCreditSectionMethodInfo +instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogAddCreditSectionMethodInfo a signature where + overloadedMethod _ = aboutDialogAddCreditSection + +#endif + +-- method AboutDialog::get_artists +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_artists" gtk_about_dialog_get_artists :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO (Ptr CString) + +{- | +Returns the string which are displayed in the artists tab +of the secondary credits dialog. + +/Since: 2.6/ +-} +aboutDialogGetArtists :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m [T.Text] + {- ^ __Returns:__ A + 'Nothing'-terminated string array containing the artists. The array is + owned by the about dialog and must not be modified. -} +aboutDialogGetArtists about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_artists about' + checkUnexpectedReturnNULL "aboutDialogGetArtists" result + result' <- unpackZeroTerminatedUTF8CArray result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetArtistsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetArtistsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetArtists + +#endif + +-- method AboutDialog::get_authors +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_authors" gtk_about_dialog_get_authors :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO (Ptr CString) + +{- | +Returns the string which are displayed in the authors tab +of the secondary credits dialog. + +/Since: 2.6/ +-} +aboutDialogGetAuthors :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m [T.Text] + {- ^ __Returns:__ A + 'Nothing'-terminated string array containing the authors. The array is + owned by the about dialog and must not be modified. -} +aboutDialogGetAuthors about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_authors about' + checkUnexpectedReturnNULL "aboutDialogGetAuthors" result + result' <- unpackZeroTerminatedUTF8CArray result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetAuthorsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetAuthorsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetAuthors + +#endif + +-- method AboutDialog::get_comments +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_comments" gtk_about_dialog_get_comments :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the comments string. + +/Since: 2.6/ +-} +aboutDialogGetComments :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The comments. The string is owned by the about + dialog and must not be modified. -} +aboutDialogGetComments about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_comments about' + checkUnexpectedReturnNULL "aboutDialogGetComments" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetCommentsMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetCommentsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetComments + +#endif + +-- method AboutDialog::get_copyright +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_copyright" gtk_about_dialog_get_copyright :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the copyright string. + +/Since: 2.6/ +-} +aboutDialogGetCopyright :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The copyright string. The string is owned by the about + dialog and must not be modified. -} +aboutDialogGetCopyright about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_copyright about' + checkUnexpectedReturnNULL "aboutDialogGetCopyright" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetCopyrightMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetCopyrightMethodInfo a signature where + overloadedMethod _ = aboutDialogGetCopyright + +#endif + +-- method AboutDialog::get_documenters +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_documenters" gtk_about_dialog_get_documenters :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO (Ptr CString) + +{- | +Returns the string which are displayed in the documenters +tab of the secondary credits dialog. + +/Since: 2.6/ +-} +aboutDialogGetDocumenters :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m [T.Text] + {- ^ __Returns:__ A + 'Nothing'-terminated string array containing the documenters. The + array is owned by the about dialog and must not be modified. -} +aboutDialogGetDocumenters about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_documenters about' + checkUnexpectedReturnNULL "aboutDialogGetDocumenters" result + result' <- unpackZeroTerminatedUTF8CArray result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetDocumentersMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetDocumentersMethodInfo a signature where + overloadedMethod _ = aboutDialogGetDocumenters + +#endif + +-- method AboutDialog::get_license +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_license" gtk_about_dialog_get_license :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the license information. + +/Since: 2.6/ +-} +aboutDialogGetLicense :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The license information. The string is owned by the about + dialog and must not be modified. -} +aboutDialogGetLicense about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_license about' + checkUnexpectedReturnNULL "aboutDialogGetLicense" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetLicenseMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLicense + +#endif + +-- method AboutDialog::get_license_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "License"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_license_type" gtk_about_dialog_get_license_type :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CUInt + +{- | +Retrieves the license set using 'GI.Gtk.Objects.AboutDialog.aboutDialogSetLicenseType' + +/Since: 3.0/ +-} +aboutDialogGetLicenseType :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m Gtk.Enums.License + {- ^ __Returns:__ a 'GI.Gtk.Enums.License' value -} +aboutDialogGetLicenseType about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_license_type about' + let result' = (toEnum . fromIntegral) result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetLicenseTypeMethodInfo +instance (signature ~ (m Gtk.Enums.License), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetLicenseTypeMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLicenseType + +#endif + +-- method AboutDialog::get_logo +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_logo" gtk_about_dialog_get_logo :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO (Ptr GdkPixbuf.Pixbuf.Pixbuf) + +{- | +Returns the pixbuf displayed as logo in the about dialog. + +/Since: 2.6/ +-} +aboutDialogGetLogo :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m GdkPixbuf.Pixbuf.Pixbuf + {- ^ __Returns:__ the pixbuf displayed as logo. The + pixbuf is owned by the about dialog. If you want to keep a + reference to it, you have to call 'GI.GObject.Objects.Object.objectRef' on it. -} +aboutDialogGetLogo about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_logo about' + checkUnexpectedReturnNULL "aboutDialogGetLogo" result + result' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetLogoMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetLogoMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLogo + +#endif + +-- method AboutDialog::get_logo_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_logo_icon_name" gtk_about_dialog_get_logo_icon_name :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the icon name displayed as logo in the about dialog. + +/Since: 2.6/ +-} +aboutDialogGetLogoIconName :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ the icon name displayed as logo. The string is + owned by the dialog. If you want to keep a reference + to it, you have to call 'GI.GLib.Functions.strdup' on it. -} +aboutDialogGetLogoIconName about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_logo_icon_name about' + checkUnexpectedReturnNULL "aboutDialogGetLogoIconName" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetLogoIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetLogoIconNameMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLogoIconName + +#endif + +-- method AboutDialog::get_program_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_program_name" gtk_about_dialog_get_program_name :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the program name displayed in the about dialog. + +/Since: 2.12/ +-} +aboutDialogGetProgramName :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The program name. The string is owned by the about + dialog and must not be modified. -} +aboutDialogGetProgramName about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_program_name about' + checkUnexpectedReturnNULL "aboutDialogGetProgramName" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetProgramNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetProgramNameMethodInfo a signature where + overloadedMethod _ = aboutDialogGetProgramName + +#endif + +-- method AboutDialog::get_translator_credits +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_translator_credits" gtk_about_dialog_get_translator_credits :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the translator credits string which is displayed +in the translators tab of the secondary credits dialog. + +/Since: 2.6/ +-} +aboutDialogGetTranslatorCredits :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The translator credits string. The string is + owned by the about dialog and must not be modified. -} +aboutDialogGetTranslatorCredits about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_translator_credits about' + checkUnexpectedReturnNULL "aboutDialogGetTranslatorCredits" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetTranslatorCreditsMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetTranslatorCreditsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetTranslatorCredits + +#endif + +-- method AboutDialog::get_version +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_version" gtk_about_dialog_get_version :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the version string. + +/Since: 2.6/ +-} +aboutDialogGetVersion :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The version string. The string is owned by the about + dialog and must not be modified. -} +aboutDialogGetVersion about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_version about' + checkUnexpectedReturnNULL "aboutDialogGetVersion" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetVersionMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetVersionMethodInfo a signature where + overloadedMethod _ = aboutDialogGetVersion + +#endif + +-- method AboutDialog::get_website +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_website" gtk_about_dialog_get_website :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the website URL. + +/Since: 2.6/ +-} +aboutDialogGetWebsite :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The website URL. The string is owned by the about + dialog and must not be modified. -} +aboutDialogGetWebsite about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_website about' + checkUnexpectedReturnNULL "aboutDialogGetWebsite" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetWebsiteMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetWebsiteMethodInfo a signature where + overloadedMethod _ = aboutDialogGetWebsite + +#endif + +-- method AboutDialog::get_website_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_website_label" gtk_about_dialog_get_website_label :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CString + +{- | +Returns the label used for the website link. + +/Since: 2.6/ +-} +aboutDialogGetWebsiteLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m T.Text + {- ^ __Returns:__ The label used for the website link. The string is + owned by the about dialog and must not be modified. -} +aboutDialogGetWebsiteLabel about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_website_label about' + checkUnexpectedReturnNULL "aboutDialogGetWebsiteLabel" result + result' <- cstringToText result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetWebsiteLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetWebsiteLabelMethodInfo a signature where + overloadedMethod _ = aboutDialogGetWebsiteLabel + +#endif + +-- method AboutDialog::get_wrap_license +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_get_wrap_license" gtk_about_dialog_get_wrap_license :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + IO CInt + +{- | +Returns whether the license text in /@about@/ is +automatically wrapped. + +/Since: 2.8/ +-} +aboutDialogGetWrapLicense :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> m Bool + {- ^ __Returns:__ 'True' if the license text is wrapped -} +aboutDialogGetWrapLicense about = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + result <- gtk_about_dialog_get_wrap_license about' + let result' = (/= 0) result + touchManagedPtr about + return result' + +#if ENABLE_OVERLOADING +data AboutDialogGetWrapLicenseMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogGetWrapLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogGetWrapLicense + +#endif + +-- method AboutDialog::set_artists +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %NULL-terminated array of strings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_artists" gtk_about_dialog_set_artists :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + Ptr CString -> -- artists : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + +{- | +Sets the strings which are displayed in the artists tab +of the secondary credits dialog. + +/Since: 2.6/ +-} +aboutDialogSetArtists :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> [T.Text] + {- ^ /@artists@/: a 'Nothing'-terminated array of strings -} + -> m () +aboutDialogSetArtists about artists = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + artists' <- packZeroTerminatedUTF8CArray artists + gtk_about_dialog_set_artists about' artists' + touchManagedPtr about + mapZeroTerminatedCArray freeMem artists' + freeMem artists' + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetArtistsMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetArtistsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetArtists + +#endif + +-- method AboutDialog::set_authors +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %NULL-terminated array of strings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_authors" gtk_about_dialog_set_authors :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + Ptr CString -> -- authors : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + +{- | +Sets the strings which are displayed in the authors tab +of the secondary credits dialog. + +/Since: 2.6/ +-} +aboutDialogSetAuthors :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> [T.Text] + {- ^ /@authors@/: a 'Nothing'-terminated array of strings -} + -> m () +aboutDialogSetAuthors about authors = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + authors' <- packZeroTerminatedUTF8CArray authors + gtk_about_dialog_set_authors about' authors' + touchManagedPtr about + mapZeroTerminatedCArray freeMem authors' + freeMem authors' + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetAuthorsMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetAuthorsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetAuthors + +#endif + +-- method AboutDialog::set_comments +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a comments string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_comments" gtk_about_dialog_set_comments :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- comments : TBasicType TUTF8 + IO () + +{- | +Sets the comments string to display in the about dialog. +This should be a short string of one or two lines. + +/Since: 2.6/ +-} +aboutDialogSetComments :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (T.Text) + {- ^ /@comments@/: a comments string -} + -> m () +aboutDialogSetComments about comments = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeComments <- case comments of + Nothing -> return nullPtr + Just jComments -> do + jComments' <- textToCString jComments + return jComments' + gtk_about_dialog_set_comments about' maybeComments + touchManagedPtr about + freeMem maybeComments + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetCommentsMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetCommentsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetComments + +#endif + +-- method AboutDialog::set_copyright +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the copyright string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_copyright" gtk_about_dialog_set_copyright :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- copyright : TBasicType TUTF8 + IO () + +{- | +Sets the copyright string to display in the about dialog. +This should be a short string of one or two lines. + +/Since: 2.6/ +-} +aboutDialogSetCopyright :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (T.Text) + {- ^ /@copyright@/: the copyright string -} + -> m () +aboutDialogSetCopyright about copyright = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeCopyright <- case copyright of + Nothing -> return nullPtr + Just jCopyright -> do + jCopyright' <- textToCString jCopyright + return jCopyright' + gtk_about_dialog_set_copyright about' maybeCopyright + touchManagedPtr about + freeMem maybeCopyright + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetCopyrightMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetCopyrightMethodInfo a signature where + overloadedMethod _ = aboutDialogSetCopyright + +#endif + +-- method AboutDialog::set_documenters +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %NULL-terminated array of strings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_documenters" gtk_about_dialog_set_documenters :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + Ptr CString -> -- documenters : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + +{- | +Sets the strings which are displayed in the documenters tab +of the secondary credits dialog. + +/Since: 2.6/ +-} +aboutDialogSetDocumenters :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> [T.Text] + {- ^ /@documenters@/: a 'Nothing'-terminated array of strings -} + -> m () +aboutDialogSetDocumenters about documenters = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + documenters' <- packZeroTerminatedUTF8CArray documenters + gtk_about_dialog_set_documenters about' documenters' + touchManagedPtr about + mapZeroTerminatedCArray freeMem documenters' + freeMem documenters' + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetDocumentersMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetDocumentersMethodInfo a signature where + overloadedMethod _ = aboutDialogSetDocumenters + +#endif + +-- method AboutDialog::set_license +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the license information or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_license" gtk_about_dialog_set_license :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- license : TBasicType TUTF8 + IO () + +{- | +Sets the license information to be displayed in the secondary +license dialog. If /@license@/ is 'Nothing', the license button is +hidden. + +/Since: 2.6/ +-} +aboutDialogSetLicense :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (T.Text) + {- ^ /@license@/: the license information or 'Nothing' -} + -> m () +aboutDialogSetLicense about license = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeLicense <- case license of + Nothing -> return nullPtr + Just jLicense -> do + jLicense' <- textToCString jLicense + return jLicense' + gtk_about_dialog_set_license about' maybeLicense + touchManagedPtr about + freeMem maybeLicense + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetLicenseMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLicense + +#endif + +-- method AboutDialog::set_license_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license_type", argType = TInterface (Name {namespace = "Gtk", name = "License"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of license", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_license_type" gtk_about_dialog_set_license_type :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CUInt -> -- license_type : TInterface (Name {namespace = "Gtk", name = "License"}) + IO () + +{- | +Sets the license of the application showing the /@about@/ dialog from a +list of known licenses. + +This function overrides the license set using +'GI.Gtk.Objects.AboutDialog.aboutDialogSetLicense'. + +/Since: 3.0/ +-} +aboutDialogSetLicenseType :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Gtk.Enums.License + {- ^ /@licenseType@/: the type of license -} + -> m () +aboutDialogSetLicenseType about licenseType = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + let licenseType' = (fromIntegral . fromEnum) licenseType + gtk_about_dialog_set_license_type about' licenseType' + touchManagedPtr about + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetLicenseTypeMethodInfo +instance (signature ~ (Gtk.Enums.License -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetLicenseTypeMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLicenseType + +#endif + +-- method AboutDialog::set_logo +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logo", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkPixbuf, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_logo" gtk_about_dialog_set_logo :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- logo : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) + IO () + +{- | +Sets the pixbuf to be displayed as logo in the about dialog. +If it is 'Nothing', the default window icon set with +'GI.Gtk.Objects.Window.windowSetDefaultIcon' will be used. + +/Since: 2.6/ +-} +aboutDialogSetLogo :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a, GdkPixbuf.Pixbuf.IsPixbuf b) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (b) + {- ^ /@logo@/: a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf', or 'Nothing' -} + -> m () +aboutDialogSetLogo about logo = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeLogo <- case logo of + Nothing -> return nullPtr + Just jLogo -> do + jLogo' <- unsafeManagedPtrCastPtr jLogo + return jLogo' + gtk_about_dialog_set_logo about' maybeLogo + touchManagedPtr about + whenJust logo touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetLogoMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsAboutDialog a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo AboutDialogSetLogoMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLogo + +#endif + +-- method AboutDialog::set_logo_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an icon name, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_logo_icon_name" gtk_about_dialog_set_logo_icon_name :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- icon_name : TBasicType TUTF8 + IO () + +{- | +Sets the pixbuf to be displayed as logo in the about dialog. +If it is 'Nothing', the default window icon set with +'GI.Gtk.Objects.Window.windowSetDefaultIcon' will be used. + +/Since: 2.6/ +-} +aboutDialogSetLogoIconName :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (T.Text) + {- ^ /@iconName@/: an icon name, or 'Nothing' -} + -> m () +aboutDialogSetLogoIconName about iconName = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeIconName <- case iconName of + Nothing -> return nullPtr + Just jIconName -> do + jIconName' <- textToCString jIconName + return jIconName' + gtk_about_dialog_set_logo_icon_name about' maybeIconName + touchManagedPtr about + freeMem maybeIconName + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetLogoIconNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetLogoIconNameMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLogoIconName + +#endif + +-- method AboutDialog::set_program_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the program name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_program_name" gtk_about_dialog_set_program_name :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- name : TBasicType TUTF8 + IO () + +{- | +Sets the name to display in the about dialog. +If this is not set, it defaults to 'GI.GLib.Functions.getApplicationName'. + +/Since: 2.12/ +-} +aboutDialogSetProgramName :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> T.Text + {- ^ /@name@/: the program name -} + -> m () +aboutDialogSetProgramName about name = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + name' <- textToCString name + gtk_about_dialog_set_program_name about' name' + touchManagedPtr about + freeMem name' + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetProgramNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetProgramNameMethodInfo a signature where + overloadedMethod _ = aboutDialogSetProgramName + +#endif + +-- method AboutDialog::set_translator_credits +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the translator credits", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_translator_credits" gtk_about_dialog_set_translator_credits :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- translator_credits : TBasicType TUTF8 + IO () + +{- | +Sets the translator credits string which is displayed in +the translators tab of the secondary credits dialog. + +The intended use for this string is to display the translator +of the language which is currently used in the user interface. +Using @/gettext()/@, a simple way to achieve that is to mark the +string for translation: + +=== /C code/ +> +>GtkWidget *about = gtk_about_dialog_new (); +>gtk_about_dialog_set_translator_credits (GTK_ABOUT_DIALOG (about), +> _("translator-credits")); + +It is a good idea to use the customary msgid “translator-credits” for this +purpose, since translators will already know the purpose of that msgid, and +since 'GI.Gtk.Objects.AboutDialog.AboutDialog' will detect if “translator-credits” is untranslated +and hide the tab. + +/Since: 2.6/ +-} +aboutDialogSetTranslatorCredits :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (T.Text) + {- ^ /@translatorCredits@/: the translator credits -} + -> m () +aboutDialogSetTranslatorCredits about translatorCredits = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeTranslatorCredits <- case translatorCredits of + Nothing -> return nullPtr + Just jTranslatorCredits -> do + jTranslatorCredits' <- textToCString jTranslatorCredits + return jTranslatorCredits' + gtk_about_dialog_set_translator_credits about' maybeTranslatorCredits + touchManagedPtr about + freeMem maybeTranslatorCredits + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetTranslatorCreditsMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetTranslatorCreditsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetTranslatorCredits + +#endif + +-- method AboutDialog::set_version +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the version string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_version" gtk_about_dialog_set_version :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- version : TBasicType TUTF8 + IO () + +{- | +Sets the version string to display in the about dialog. + +/Since: 2.6/ +-} +aboutDialogSetVersion :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (T.Text) + {- ^ /@version@/: the version string -} + -> m () +aboutDialogSetVersion about version = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeVersion <- case version of + Nothing -> return nullPtr + Just jVersion -> do + jVersion' <- textToCString jVersion + return jVersion' + gtk_about_dialog_set_version about' maybeVersion + touchManagedPtr about + freeMem maybeVersion + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetVersionMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetVersionMethodInfo a signature where + overloadedMethod _ = aboutDialogSetVersion + +#endif + +-- method AboutDialog::set_website +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a URL string starting with \"http://\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_website" gtk_about_dialog_set_website :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- website : TBasicType TUTF8 + IO () + +{- | +Sets the URL to use for the website link. + +/Since: 2.6/ +-} +aboutDialogSetWebsite :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Maybe (T.Text) + {- ^ /@website@/: a URL string starting with \"http:\/\/\" -} + -> m () +aboutDialogSetWebsite about website = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + maybeWebsite <- case website of + Nothing -> return nullPtr + Just jWebsite -> do + jWebsite' <- textToCString jWebsite + return jWebsite' + gtk_about_dialog_set_website about' maybeWebsite + touchManagedPtr about + freeMem maybeWebsite + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetWebsiteMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetWebsiteMethodInfo a signature where + overloadedMethod _ = aboutDialogSetWebsite + +#endif + +-- method AboutDialog::set_website_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the label used for the website link", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_website_label" gtk_about_dialog_set_website_label :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CString -> -- website_label : TBasicType TUTF8 + IO () + +{- | +Sets the label to be used for the website link. + +/Since: 2.6/ +-} +aboutDialogSetWebsiteLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> T.Text + {- ^ /@websiteLabel@/: the label used for the website link -} + -> m () +aboutDialogSetWebsiteLabel about websiteLabel = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + websiteLabel' <- textToCString websiteLabel + gtk_about_dialog_set_website_label about' websiteLabel' + touchManagedPtr about + freeMem websiteLabel' + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetWebsiteLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetWebsiteLabelMethodInfo a signature where + overloadedMethod _ = aboutDialogSetWebsiteLabel + +#endif + +-- method AboutDialog::set_wrap_license +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "about", argType = TInterface (Name {namespace = "Gtk", name = "AboutDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAboutDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to wrap the license", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_about_dialog_set_wrap_license" gtk_about_dialog_set_wrap_license :: + Ptr AboutDialog -> -- about : TInterface (Name {namespace = "Gtk", name = "AboutDialog"}) + CInt -> -- wrap_license : TBasicType TBoolean + IO () + +{- | +Sets whether the license text in /@about@/ is +automatically wrapped. + +/Since: 2.8/ +-} +aboutDialogSetWrapLicense :: + (B.CallStack.HasCallStack, MonadIO m, IsAboutDialog a) => + a + {- ^ /@about@/: a 'GI.Gtk.Objects.AboutDialog.AboutDialog' -} + -> Bool + {- ^ /@wrapLicense@/: whether to wrap the license -} + -> m () +aboutDialogSetWrapLicense about wrapLicense = liftIO $ do + about' <- unsafeManagedPtrCastPtr about + let wrapLicense' = (fromIntegral . fromEnum) wrapLicense + gtk_about_dialog_set_wrap_license about' wrapLicense' + touchManagedPtr about + return () + +#if ENABLE_OVERLOADING +data AboutDialogSetWrapLicenseMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAboutDialog a) => O.MethodInfo AboutDialogSetWrapLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogSetWrapLicense + +#endif + + diff --git a/GI/Gtk/Objects/AboutDialog.hs-boot b/GI/Gtk/Objects/AboutDialog.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AboutDialog.hs-boot @@ -0,0 +1,170 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AboutDialog where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AboutDialog = AboutDialog (ManagedPtr AboutDialog) +instance GObject AboutDialog where +class (GObject o, O.IsDescendantOf AboutDialog o) => IsAboutDialog o +instance (GObject o, O.IsDescendantOf AboutDialog o) => IsAboutDialog o +instance O.HasParentTypes AboutDialog +#if ENABLE_OVERLOADING +data AboutDialogArtistsPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogAuthorsPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogCommentsPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogCopyrightPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogDocumentersPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogLicensePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogLicenseTypePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogLogoPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogLogoIconNamePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogProgramNamePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogTranslatorCreditsPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogVersionPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogWebsitePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogWebsiteLabelPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogWrapLicensePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogActivateLinkSignalInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogAddCreditSectionMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetArtistsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetAuthorsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetCommentsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetCopyrightMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetDocumentersMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetLicenseMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetLicenseTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetLogoMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetLogoIconNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetProgramNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetTranslatorCreditsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetVersionMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetWebsiteMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetWebsiteLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogGetWrapLicenseMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetArtistsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetAuthorsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetCommentsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetCopyrightMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetDocumentersMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetLicenseMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetLicenseTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetLogoMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetLogoIconNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetProgramNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetTranslatorCreditsMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetVersionMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetWebsiteMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetWebsiteLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data AboutDialogSetWrapLicenseMethodInfo +#endif diff --git a/GI/Gtk/Objects/AccelGroup.hs b/GI/Gtk/Objects/AccelGroup.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AccelGroup.hs @@ -0,0 +1,1124 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +A 'GI.Gtk.Objects.AccelGroup.AccelGroup' represents a group of keyboard accelerators, +typically attached to a toplevel 'GI.Gtk.Objects.Window.Window' (with +'GI.Gtk.Objects.Window.windowAddAccelGroup'). Usually you won’t need to create a +'GI.Gtk.Objects.AccelGroup.AccelGroup' directly; instead, when using 'GI.Gtk.Objects.UIManager.UIManager', GTK+ +automatically sets up the accelerators for your menus in the ui +manager’s 'GI.Gtk.Objects.AccelGroup.AccelGroup'. + +Note that “accelerators” are different from +“mnemonics”. Accelerators are shortcuts for +activating a menu item; they appear alongside the menu item they’re a +shortcut for. For example “Ctrl+Q” might appear alongside the “Quit” +menu item. Mnemonics are shortcuts for GUI elements such as text +entries or buttons; they appear as underlined characters. See +'GI.Gtk.Objects.Label.labelNewWithMnemonic'. Menu items can have both accelerators +and mnemonics, of course. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AccelGroup + ( + +-- * Exported types + AccelGroup(..) , + IsAccelGroup , + toAccelGroup , + noAccelGroup , + + + -- * Methods +-- ** activate #method:activate# + +#if ENABLE_OVERLOADING + AccelGroupActivateMethodInfo , +#endif + accelGroupActivate , + + +-- ** connect #method:connect# + +#if ENABLE_OVERLOADING + AccelGroupConnectMethodInfo , +#endif + accelGroupConnect , + + +-- ** connectByPath #method:connectByPath# + +#if ENABLE_OVERLOADING + AccelGroupConnectByPathMethodInfo , +#endif + accelGroupConnectByPath , + + +-- ** disconnect #method:disconnect# + +#if ENABLE_OVERLOADING + AccelGroupDisconnectMethodInfo , +#endif + accelGroupDisconnect , + + +-- ** disconnectKey #method:disconnectKey# + +#if ENABLE_OVERLOADING + AccelGroupDisconnectKeyMethodInfo , +#endif + accelGroupDisconnectKey , + + +-- ** find #method:find# + +#if ENABLE_OVERLOADING + AccelGroupFindMethodInfo , +#endif + accelGroupFind , + + +-- ** fromAccelClosure #method:fromAccelClosure# + + accelGroupFromAccelClosure , + + +-- ** getIsLocked #method:getIsLocked# + +#if ENABLE_OVERLOADING + AccelGroupGetIsLockedMethodInfo , +#endif + accelGroupGetIsLocked , + + +-- ** getModifierMask #method:getModifierMask# + +#if ENABLE_OVERLOADING + AccelGroupGetModifierMaskMethodInfo , +#endif + accelGroupGetModifierMask , + + +-- ** lock #method:lock# + +#if ENABLE_OVERLOADING + AccelGroupLockMethodInfo , +#endif + accelGroupLock , + + +-- ** new #method:new# + + accelGroupNew , + + +-- ** query #method:query# + +#if ENABLE_OVERLOADING + AccelGroupQueryMethodInfo , +#endif + accelGroupQuery , + + +-- ** unlock #method:unlock# + +#if ENABLE_OVERLOADING + AccelGroupUnlockMethodInfo , +#endif + accelGroupUnlock , + + + + + -- * Properties +-- ** isLocked #attr:isLocked# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AccelGroupIsLockedPropertyInfo , +#endif +#if ENABLE_OVERLOADING + accelGroupIsLocked , +#endif + getAccelGroupIsLocked , + + +-- ** modifierMask #attr:modifierMask# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AccelGroupModifierMaskPropertyInfo , +#endif +#if ENABLE_OVERLOADING + accelGroupModifierMask , +#endif + getAccelGroupModifierMask , + + + + + -- * Signals +-- ** accelActivate #signal:accelActivate# + + AccelGroupAccelActivateCallback , +#if ENABLE_OVERLOADING + AccelGroupAccelActivateSignalInfo , +#endif + C_AccelGroupAccelActivateCallback , + afterAccelGroupAccelActivate , + genClosure_AccelGroupAccelActivate , + mk_AccelGroupAccelActivateCallback , + noAccelGroupAccelActivateCallback , + onAccelGroupAccelActivate , + wrap_AccelGroupAccelActivateCallback , + + +-- ** accelChanged #signal:accelChanged# + + AccelGroupAccelChangedCallback , +#if ENABLE_OVERLOADING + AccelGroupAccelChangedSignalInfo , +#endif + C_AccelGroupAccelChangedCallback , + afterAccelGroupAccelChanged , + genClosure_AccelGroupAccelChanged , + mk_AccelGroupAccelChangedCallback , + noAccelGroupAccelChangedCallback , + onAccelGroupAccelChanged , + wrap_AccelGroupAccelChangedCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gdk.Flags as Gdk.Flags +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags +import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelGroupEntry as Gtk.AccelGroupEntry +import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelKey as Gtk.AccelKey + +-- | Memory-managed wrapper type. +newtype AccelGroup = AccelGroup (ManagedPtr AccelGroup) +foreign import ccall "gtk_accel_group_get_type" + c_gtk_accel_group_get_type :: IO GType + +instance GObject AccelGroup where + gobjectType = c_gtk_accel_group_get_type + + +-- | Type class for types which can be safely cast to `AccelGroup`, for instance with `toAccelGroup`. +class (GObject o, O.IsDescendantOf AccelGroup o) => IsAccelGroup o +instance (GObject o, O.IsDescendantOf AccelGroup o) => IsAccelGroup o + +instance O.HasParentTypes AccelGroup +type instance O.ParentTypes AccelGroup = '[GObject.Object.Object] + +-- | Cast to `AccelGroup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAccelGroup :: (MonadIO m, IsAccelGroup o) => o -> m AccelGroup +toAccelGroup = liftIO . unsafeCastTo AccelGroup + +-- | A convenience alias for `Nothing` :: `Maybe` `AccelGroup`. +noAccelGroup :: Maybe AccelGroup +noAccelGroup = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAccelGroupMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelGroupMethod "activate" o = AccelGroupActivateMethodInfo + ResolveAccelGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAccelGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAccelGroupMethod "connect" o = AccelGroupConnectMethodInfo + ResolveAccelGroupMethod "connectByPath" o = AccelGroupConnectByPathMethodInfo + ResolveAccelGroupMethod "disconnect" o = AccelGroupDisconnectMethodInfo + ResolveAccelGroupMethod "disconnectKey" o = AccelGroupDisconnectKeyMethodInfo + ResolveAccelGroupMethod "find" o = AccelGroupFindMethodInfo + ResolveAccelGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAccelGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAccelGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAccelGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAccelGroupMethod "lock" o = AccelGroupLockMethodInfo + ResolveAccelGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAccelGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAccelGroupMethod "query" o = AccelGroupQueryMethodInfo + ResolveAccelGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAccelGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAccelGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAccelGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAccelGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAccelGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAccelGroupMethod "unlock" o = AccelGroupUnlockMethodInfo + ResolveAccelGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAccelGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAccelGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAccelGroupMethod "getIsLocked" o = AccelGroupGetIsLockedMethodInfo + ResolveAccelGroupMethod "getModifierMask" o = AccelGroupGetModifierMaskMethodInfo + ResolveAccelGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAccelGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAccelGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAccelGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAccelGroupMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAccelGroupMethod t AccelGroup, O.MethodInfo info AccelGroup p) => OL.IsLabel t (AccelGroup -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal AccelGroup::accel-activate +{- | +The accel-activate signal is an implementation detail of +'GI.Gtk.Objects.AccelGroup.AccelGroup' and not meant to be used by applications. +-} +type AccelGroupAccelActivateCallback = + GObject.Object.Object + {- ^ /@acceleratable@/: the object on which the accelerator was activated -} + -> Word32 + {- ^ /@keyval@/: the accelerator keyval -} + -> [Gdk.Flags.ModifierType] + {- ^ /@modifier@/: the modifier combination of the accelerator -} + -> IO Bool + {- ^ __Returns:__ 'True' if the accelerator was activated -} + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AccelGroupAccelActivateCallback`@. +noAccelGroupAccelActivateCallback :: Maybe AccelGroupAccelActivateCallback +noAccelGroupAccelActivateCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AccelGroupAccelActivateCallback = + Ptr () -> -- object + Ptr GObject.Object.Object -> + Word32 -> + CUInt -> + Ptr () -> -- user_data + IO CInt + +-- | Generate a function pointer callable from C code, from a `C_AccelGroupAccelActivateCallback`. +foreign import ccall "wrapper" + mk_AccelGroupAccelActivateCallback :: C_AccelGroupAccelActivateCallback -> IO (FunPtr C_AccelGroupAccelActivateCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AccelGroupAccelActivate :: MonadIO m => AccelGroupAccelActivateCallback -> m (GClosure C_AccelGroupAccelActivateCallback) +genClosure_AccelGroupAccelActivate cb = liftIO $ do + let cb' = wrap_AccelGroupAccelActivateCallback cb + mk_AccelGroupAccelActivateCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AccelGroupAccelActivateCallback` into a `C_AccelGroupAccelActivateCallback`. +wrap_AccelGroupAccelActivateCallback :: + AccelGroupAccelActivateCallback -> + C_AccelGroupAccelActivateCallback +wrap_AccelGroupAccelActivateCallback _cb _ acceleratable keyval modifier _ = do + acceleratable' <- (newObject GObject.Object.Object) acceleratable + let modifier' = wordToGFlags modifier + result <- _cb acceleratable' keyval modifier' + let result' = (fromIntegral . fromEnum) result + return result' + + +{- | +Connect a signal handler for the “@accel-activate@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' accelGroup #accelActivate callback +@ +-} +onAccelGroupAccelActivate :: (IsAccelGroup a, MonadIO m) => a -> AccelGroupAccelActivateCallback -> m SignalHandlerId +onAccelGroupAccelActivate obj cb = liftIO $ do + let cb' = wrap_AccelGroupAccelActivateCallback cb + cb'' <- mk_AccelGroupAccelActivateCallback cb' + connectSignalFunPtr obj "accel-activate" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@accel-activate@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' accelGroup #accelActivate callback +@ +-} +afterAccelGroupAccelActivate :: (IsAccelGroup a, MonadIO m) => a -> AccelGroupAccelActivateCallback -> m SignalHandlerId +afterAccelGroupAccelActivate obj cb = liftIO $ do + let cb' = wrap_AccelGroupAccelActivateCallback cb + cb'' <- mk_AccelGroupAccelActivateCallback cb' + connectSignalFunPtr obj "accel-activate" cb'' SignalConnectAfter + + +-- signal AccelGroup::accel-changed +{- | +The accel-changed signal is emitted when an entry +is added to or removed from the accel group. + +Widgets like 'GI.Gtk.Objects.AccelLabel.AccelLabel' which display an associated +accelerator should connect to this signal, and rebuild +their visual representation if the /@accelClosure@/ is theirs. +-} +type AccelGroupAccelChangedCallback = + Word32 + {- ^ /@keyval@/: the accelerator keyval -} + -> [Gdk.Flags.ModifierType] + {- ^ /@modifier@/: the modifier combination of the accelerator -} + -> GClosure () + {- ^ /@accelClosure@/: the 'GI.GObject.Structs.Closure.Closure' of the accelerator -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AccelGroupAccelChangedCallback`@. +noAccelGroupAccelChangedCallback :: Maybe AccelGroupAccelChangedCallback +noAccelGroupAccelChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AccelGroupAccelChangedCallback = + Ptr () -> -- object + Word32 -> + CUInt -> + Ptr (GClosure ()) -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AccelGroupAccelChangedCallback`. +foreign import ccall "wrapper" + mk_AccelGroupAccelChangedCallback :: C_AccelGroupAccelChangedCallback -> IO (FunPtr C_AccelGroupAccelChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AccelGroupAccelChanged :: MonadIO m => AccelGroupAccelChangedCallback -> m (GClosure C_AccelGroupAccelChangedCallback) +genClosure_AccelGroupAccelChanged cb = liftIO $ do + let cb' = wrap_AccelGroupAccelChangedCallback cb + mk_AccelGroupAccelChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AccelGroupAccelChangedCallback` into a `C_AccelGroupAccelChangedCallback`. +wrap_AccelGroupAccelChangedCallback :: + AccelGroupAccelChangedCallback -> + C_AccelGroupAccelChangedCallback +wrap_AccelGroupAccelChangedCallback _cb _ keyval modifier accelClosure _ = do + let modifier' = wordToGFlags modifier + accelClosure' <- (B.GClosure.newGClosureFromPtr . FP.castPtr) accelClosure + _cb keyval modifier' accelClosure' + + +{- | +Connect a signal handler for the “@accel-changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' accelGroup #accelChanged callback +@ +-} +onAccelGroupAccelChanged :: (IsAccelGroup a, MonadIO m) => a -> AccelGroupAccelChangedCallback -> m SignalHandlerId +onAccelGroupAccelChanged obj cb = liftIO $ do + let cb' = wrap_AccelGroupAccelChangedCallback cb + cb'' <- mk_AccelGroupAccelChangedCallback cb' + connectSignalFunPtr obj "accel-changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@accel-changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' accelGroup #accelChanged callback +@ +-} +afterAccelGroupAccelChanged :: (IsAccelGroup a, MonadIO m) => a -> AccelGroupAccelChangedCallback -> m SignalHandlerId +afterAccelGroupAccelChanged obj cb = liftIO $ do + let cb' = wrap_AccelGroupAccelChangedCallback cb + cb'' <- mk_AccelGroupAccelChangedCallback cb' + connectSignalFunPtr obj "accel-changed" cb'' SignalConnectAfter + + +-- VVV Prop "is-locked" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) + +{- | +Get the value of the “@is-locked@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' accelGroup #isLocked +@ +-} +getAccelGroupIsLocked :: (MonadIO m, IsAccelGroup o) => o -> m Bool +getAccelGroupIsLocked obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-locked" + +#if ENABLE_OVERLOADING +data AccelGroupIsLockedPropertyInfo +instance AttrInfo AccelGroupIsLockedPropertyInfo where + type AttrAllowedOps AccelGroupIsLockedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint AccelGroupIsLockedPropertyInfo = (~) () + type AttrBaseTypeConstraint AccelGroupIsLockedPropertyInfo = IsAccelGroup + type AttrGetType AccelGroupIsLockedPropertyInfo = Bool + type AttrLabel AccelGroupIsLockedPropertyInfo = "is-locked" + type AttrOrigin AccelGroupIsLockedPropertyInfo = AccelGroup + attrGet _ = getAccelGroupIsLocked + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined +#endif + +-- VVV Prop "modifier-mask" + -- Type: TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) + +{- | +Get the value of the “@modifier-mask@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' accelGroup #modifierMask +@ +-} +getAccelGroupModifierMask :: (MonadIO m, IsAccelGroup o) => o -> m [Gdk.Flags.ModifierType] +getAccelGroupModifierMask obj = liftIO $ B.Properties.getObjectPropertyFlags obj "modifier-mask" + +#if ENABLE_OVERLOADING +data AccelGroupModifierMaskPropertyInfo +instance AttrInfo AccelGroupModifierMaskPropertyInfo where + type AttrAllowedOps AccelGroupModifierMaskPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint AccelGroupModifierMaskPropertyInfo = (~) () + type AttrBaseTypeConstraint AccelGroupModifierMaskPropertyInfo = IsAccelGroup + type AttrGetType AccelGroupModifierMaskPropertyInfo = [Gdk.Flags.ModifierType] + type AttrLabel AccelGroupModifierMaskPropertyInfo = "modifier-mask" + type AttrOrigin AccelGroupModifierMaskPropertyInfo = AccelGroup + attrGet _ = getAccelGroupModifierMask + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AccelGroup +type instance O.AttributeList AccelGroup = AccelGroupAttributeList +type AccelGroupAttributeList = ('[ '("isLocked", AccelGroupIsLockedPropertyInfo), '("modifierMask", AccelGroupModifierMaskPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +accelGroupIsLocked :: AttrLabelProxy "isLocked" +accelGroupIsLocked = AttrLabelProxy + +accelGroupModifierMask :: AttrLabelProxy "modifierMask" +accelGroupModifierMask = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data AccelGroupAccelActivateSignalInfo +instance SignalInfo AccelGroupAccelActivateSignalInfo where + type HaskellCallbackType AccelGroupAccelActivateSignalInfo = AccelGroupAccelActivateCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AccelGroupAccelActivateCallback cb + cb'' <- mk_AccelGroupAccelActivateCallback cb' + connectSignalFunPtr obj "accel-activate" cb'' connectMode + +data AccelGroupAccelChangedSignalInfo +instance SignalInfo AccelGroupAccelChangedSignalInfo where + type HaskellCallbackType AccelGroupAccelChangedSignalInfo = AccelGroupAccelChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AccelGroupAccelChangedCallback cb + cb'' <- mk_AccelGroupAccelChangedCallback cb' + connectSignalFunPtr obj "accel-changed" cb'' connectMode + +type instance O.SignalList AccelGroup = AccelGroupSignalList +type AccelGroupSignalList = ('[ '("accelActivate", AccelGroupAccelActivateSignalInfo), '("accelChanged", AccelGroupAccelChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AccelGroup::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AccelGroup"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_new" gtk_accel_group_new :: + IO (Ptr AccelGroup) + +{- | +Creates a new 'GI.Gtk.Objects.AccelGroup.AccelGroup'. +-} +accelGroupNew :: + (B.CallStack.HasCallStack, MonadIO m) => + m AccelGroup + {- ^ __Returns:__ a new 'GI.Gtk.Objects.AccelGroup.AccelGroup' object -} +accelGroupNew = liftIO $ do + result <- gtk_accel_group_new + checkUnexpectedReturnNULL "accelGroupNew" result + result' <- (wrapObject AccelGroup) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AccelGroup::activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the quark for the accelerator name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GObject, usually a #GtkWindow, on which\n to activate the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator keyval from a key event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "keyboard state mask from a key event", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_activate" gtk_accel_group_activate :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + Word32 -> -- accel_quark : TBasicType TUInt32 + Ptr GObject.Object.Object -> -- acceleratable : TInterface (Name {namespace = "GObject", name = "Object"}) + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{- | +Finds the first accelerator in /@accelGroup@/ that matches +/@accelKey@/ and /@accelMods@/, and activates it. +-} +accelGroupActivate :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a, GObject.Object.IsObject b) => + a + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' -} + -> Word32 + {- ^ /@accelQuark@/: the quark for the accelerator name -} + -> b + {- ^ /@acceleratable@/: the 'GI.GObject.Objects.Object.Object', usually a 'GI.Gtk.Objects.Window.Window', on which + to activate the accelerator -} + -> Word32 + {- ^ /@accelKey@/: accelerator keyval from a key event -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: keyboard state mask from a key event -} + -> m Bool + {- ^ __Returns:__ 'True' if an accelerator was activated and handled + this keypress -} +accelGroupActivate accelGroup accelQuark acceleratable accelKey accelMods = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + acceleratable' <- unsafeManagedPtrCastPtr acceleratable + let accelMods' = gflagsToWord accelMods + result <- gtk_accel_group_activate accelGroup' accelQuark acceleratable' accelKey accelMods' + let result' = (/= 0) result + touchManagedPtr accelGroup + touchManagedPtr acceleratable + return result' + +#if ENABLE_OVERLOADING +data AccelGroupActivateMethodInfo +instance (signature ~ (Word32 -> b -> Word32 -> [Gdk.Flags.ModifierType] -> m Bool), MonadIO m, IsAccelGroup a, GObject.Object.IsObject b) => O.MethodInfo AccelGroupActivateMethodInfo a signature where + overloadedMethod _ = accelGroupActivate + +#endif + +-- method AccelGroup::connect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator group to install an accelerator in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "key value of the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "modifier combination of the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface (Name {namespace = "Gtk", name = "AccelFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a flag mask to configure this accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TGClosure (Just (TInterface (Name {namespace = "Gtk", name = "AccelGroupActivate"}))), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "closure to be executed upon accelerator activation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_connect" gtk_accel_group_connect :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + CUInt -> -- accel_flags : TInterface (Name {namespace = "Gtk", name = "AccelFlags"}) + Ptr (GClosure Gtk.Callbacks.C_AccelGroupActivate) -> -- closure : TGClosure (Just (TInterface (Name {namespace = "Gtk", name = "AccelGroupActivate"}))) + IO () + +{- | +Installs an accelerator in this group. When /@accelGroup@/ is being +activated in response to a call to 'GI.Gtk.Functions.accelGroupsActivate', +/@closure@/ will be invoked if the /@accelKey@/ and /@accelMods@/ from +'GI.Gtk.Functions.accelGroupsActivate' match those of this connection. + +The signature used for the /@closure@/ is that of 'GI.Gtk.Callbacks.AccelGroupActivate'. + +Note that, due to implementation details, a single closure can +only be connected to one accelerator group. +-} +accelGroupConnect :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: the accelerator group to install an accelerator in -} + -> Word32 + {- ^ /@accelKey@/: key value of the accelerator -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: modifier combination of the accelerator -} + -> [Gtk.Flags.AccelFlags] + {- ^ /@accelFlags@/: a flag mask to configure this accelerator -} + -> GClosure Gtk.Callbacks.C_AccelGroupActivate + {- ^ /@closure@/: closure to be executed upon accelerator activation -} + -> m () +accelGroupConnect accelGroup accelKey accelMods accelFlags closure = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + let accelMods' = gflagsToWord accelMods + let accelFlags' = gflagsToWord accelFlags + closure' <- unsafeManagedPtrGetPtr closure + gtk_accel_group_connect accelGroup' accelKey accelMods' accelFlags' closure' + touchManagedPtr accelGroup + touchManagedPtr closure + return () + +#if ENABLE_OVERLOADING +data AccelGroupConnectMethodInfo +instance (signature ~ (Word32 -> [Gdk.Flags.ModifierType] -> [Gtk.Flags.AccelFlags] -> GClosure Gtk.Callbacks.C_AccelGroupActivate -> m ()), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupConnectMethodInfo a signature where + overloadedMethod _ = accelGroupConnect + +#endif + +-- method AccelGroup::connect_by_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator group to install an accelerator in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path used for determining key and modifiers", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "closure to be executed upon accelerator activation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_connect_by_path" gtk_accel_group_connect_by_path :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + CString -> -- accel_path : TBasicType TUTF8 + Ptr (GClosure ()) -> -- closure : TGClosure Nothing + IO () + +{- | +Installs an accelerator in this group, using an accelerator path +to look up the appropriate key and modifiers (see +'GI.Gtk.Objects.AccelMap.accelMapAddEntry'). When /@accelGroup@/ is being activated +in response to a call to 'GI.Gtk.Functions.accelGroupsActivate', /@closure@/ will +be invoked if the /@accelKey@/ and /@accelMods@/ from +'GI.Gtk.Functions.accelGroupsActivate' match the key and modifiers for the path. + +The signature used for the /@closure@/ is that of 'GI.Gtk.Callbacks.AccelGroupActivate'. + +Note that /@accelPath@/ string will be stored in a @/GQuark/@. Therefore, +if you pass a static string, you can save some memory by interning it +first with 'GI.GLib.Functions.internStaticString'. +-} +accelGroupConnectByPath :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: the accelerator group to install an accelerator in -} + -> T.Text + {- ^ /@accelPath@/: path used for determining key and modifiers -} + -> GClosure b + {- ^ /@closure@/: closure to be executed upon accelerator activation -} + -> m () +accelGroupConnectByPath accelGroup accelPath closure = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + accelPath' <- textToCString accelPath + closure' <- unsafeManagedPtrCastPtr closure + gtk_accel_group_connect_by_path accelGroup' accelPath' closure' + touchManagedPtr accelGroup + touchManagedPtr closure + freeMem accelPath' + return () + +#if ENABLE_OVERLOADING +data AccelGroupConnectByPathMethodInfo +instance (signature ~ (T.Text -> GClosure b -> m ()), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupConnectByPathMethodInfo a signature where + overloadedMethod _ = accelGroupConnectByPath + +#endif + +-- method AccelGroup::disconnect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator group to remove an accelerator from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the closure to remove from this accelerator\n group, or %NULL to remove all closures", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_disconnect" gtk_accel_group_disconnect :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + Ptr (GClosure ()) -> -- closure : TGClosure Nothing + IO CInt + +{- | +Removes an accelerator previously installed through +'GI.Gtk.Objects.AccelGroup.accelGroupConnect'. + +Since 2.20 /@closure@/ can be 'Nothing'. +-} +accelGroupDisconnect :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: the accelerator group to remove an accelerator from -} + -> Maybe (GClosure b) + {- ^ /@closure@/: the closure to remove from this accelerator + group, or 'Nothing' to remove all closures -} + -> m Bool + {- ^ __Returns:__ 'True' if the closure was found and got disconnected -} +accelGroupDisconnect accelGroup closure = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + maybeClosure <- case closure of + Nothing -> return nullPtr + Just jClosure -> do + jClosure' <- unsafeManagedPtrCastPtr jClosure + return jClosure' + result <- gtk_accel_group_disconnect accelGroup' maybeClosure + let result' = (/= 0) result + touchManagedPtr accelGroup + whenJust closure touchManagedPtr + return result' + +#if ENABLE_OVERLOADING +data AccelGroupDisconnectMethodInfo +instance (signature ~ (Maybe (GClosure b) -> m Bool), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupDisconnectMethodInfo a signature where + overloadedMethod _ = accelGroupDisconnect + +#endif + +-- method AccelGroup::disconnect_key +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator group to install an accelerator in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "key value of the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "modifier combination of the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_disconnect_key" gtk_accel_group_disconnect_key :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO CInt + +{- | +Removes an accelerator previously installed through +'GI.Gtk.Objects.AccelGroup.accelGroupConnect'. +-} +accelGroupDisconnectKey :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: the accelerator group to install an accelerator in -} + -> Word32 + {- ^ /@accelKey@/: key value of the accelerator -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: modifier combination of the accelerator -} + -> m Bool + {- ^ __Returns:__ 'True' if there was an accelerator which could be + removed, 'False' otherwise -} +accelGroupDisconnectKey accelGroup accelKey accelMods = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + let accelMods' = gflagsToWord accelMods + result <- gtk_accel_group_disconnect_key accelGroup' accelKey accelMods' + let result' = (/= 0) result + touchManagedPtr accelGroup + return result' + +#if ENABLE_OVERLOADING +data AccelGroupDisconnectKeyMethodInfo +instance (signature ~ (Word32 -> [Gdk.Flags.ModifierType] -> m Bool), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupDisconnectKeyMethodInfo a signature where + overloadedMethod _ = accelGroupDisconnectKey + +#endif + +-- method AccelGroup::find +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_func", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroupFindFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a function to filter the entries\n of @accel_group with", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @find_func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AccelKey"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_find" gtk_accel_group_find :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + FunPtr Gtk.Callbacks.C_AccelGroupFindFunc -> -- find_func : TInterface (Name {namespace = "Gtk", name = "AccelGroupFindFunc"}) + Ptr () -> -- data : TBasicType TPtr + IO (Ptr Gtk.AccelKey.AccelKey) + +{- | +Finds the first entry in an accelerator group for which +/@findFunc@/ returns 'True' and returns its 'GI.Gtk.Structs.AccelKey.AccelKey'. +-} +accelGroupFind :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' -} + -> Gtk.Callbacks.AccelGroupFindFunc + {- ^ /@findFunc@/: a function to filter the entries + of /@accelGroup@/ with -} + -> m Gtk.AccelKey.AccelKey + {- ^ __Returns:__ the key of the first entry passing + /@findFunc@/. The key is owned by GTK+ and must not be freed. -} +accelGroupFind accelGroup findFunc = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + findFunc' <- Gtk.Callbacks.mk_AccelGroupFindFunc (Gtk.Callbacks.wrap_AccelGroupFindFunc Nothing (Gtk.Callbacks.drop_closures_AccelGroupFindFunc findFunc)) + let data_ = nullPtr + result <- gtk_accel_group_find accelGroup' findFunc' data_ + checkUnexpectedReturnNULL "accelGroupFind" result + result' <- (newPtr Gtk.AccelKey.AccelKey) result + safeFreeFunPtr $ castFunPtrToPtr findFunc' + touchManagedPtr accelGroup + return result' + +#if ENABLE_OVERLOADING +data AccelGroupFindMethodInfo +instance (signature ~ (Gtk.Callbacks.AccelGroupFindFunc -> m Gtk.AccelKey.AccelKey), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupFindMethodInfo a signature where + overloadedMethod _ = accelGroupFind + +#endif + +-- method AccelGroup::get_is_locked +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_get_is_locked" gtk_accel_group_get_is_locked :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + IO CInt + +{- | +Locks are added and removed using 'GI.Gtk.Objects.AccelGroup.accelGroupLock' and +'GI.Gtk.Objects.AccelGroup.accelGroupUnlock'. + +/Since: 2.14/ +-} +accelGroupGetIsLocked :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' -} + -> m Bool + {- ^ __Returns:__ 'True' if there are 1 or more locks on the /@accelGroup@/, + 'False' otherwise. -} +accelGroupGetIsLocked accelGroup = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + result <- gtk_accel_group_get_is_locked accelGroup' + let result' = (/= 0) result + touchManagedPtr accelGroup + return result' + +#if ENABLE_OVERLOADING +data AccelGroupGetIsLockedMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupGetIsLockedMethodInfo a signature where + overloadedMethod _ = accelGroupGetIsLocked + +#endif + +-- method AccelGroup::get_modifier_mask +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gdk", name = "ModifierType"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_get_modifier_mask" gtk_accel_group_get_modifier_mask :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + IO CUInt + +{- | +Gets a 'GI.Gdk.Flags.ModifierType' representing the mask for this +/@accelGroup@/. For example, @/GDK_CONTROL_MASK/@, @/GDK_SHIFT_MASK/@, etc. + +/Since: 2.14/ +-} +accelGroupGetModifierMask :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' -} + -> m [Gdk.Flags.ModifierType] + {- ^ __Returns:__ the modifier mask for this accel group. -} +accelGroupGetModifierMask accelGroup = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + result <- gtk_accel_group_get_modifier_mask accelGroup' + let result' = wordToGFlags result + touchManagedPtr accelGroup + return result' + +#if ENABLE_OVERLOADING +data AccelGroupGetModifierMaskMethodInfo +instance (signature ~ (m [Gdk.Flags.ModifierType]), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupGetModifierMaskMethodInfo a signature where + overloadedMethod _ = accelGroupGetModifierMask + +#endif + +-- method AccelGroup::lock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_lock" gtk_accel_group_lock :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + IO () + +{- | +Locks the given accelerator group. + +Locking an acelerator group prevents the accelerators contained +within it to be changed during runtime. Refer to +'GI.Gtk.Objects.AccelMap.accelMapChangeEntry' about runtime accelerator changes. + +If called more than once, /@accelGroup@/ remains locked until +'GI.Gtk.Objects.AccelGroup.accelGroupUnlock' has been called an equivalent number +of times. +-} +accelGroupLock :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' -} + -> m () +accelGroupLock accelGroup = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + gtk_accel_group_lock accelGroup' + touchManagedPtr accelGroup + return () + +#if ENABLE_OVERLOADING +data AccelGroupLockMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupLockMethodInfo a signature where + overloadedMethod _ = accelGroupLock + +#endif + +-- method AccelGroup::query +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator group to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "key value of the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "modifier combination of the accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to return the number\n of entries found, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to return the number\n of entries found, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 3 (TInterface (Name {namespace = "Gtk", name = "AccelGroupEntry"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_query" gtk_accel_group_query :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + Ptr Word32 -> -- n_entries : TBasicType TUInt + IO (Ptr Gtk.AccelGroupEntry.AccelGroupEntry) + +{- | +Queries an accelerator group for all entries matching /@accelKey@/ +and /@accelMods@/. +-} +accelGroupQuery :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: the accelerator group to query -} + -> Word32 + {- ^ /@accelKey@/: key value of the accelerator -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: modifier combination of the accelerator -} + -> m (Maybe [Gtk.AccelGroupEntry.AccelGroupEntry]) + {- ^ __Returns:__ an array of + /@nEntries@/ 'GI.Gtk.Structs.AccelGroupEntry.AccelGroupEntry' elements, or 'Nothing'. The array + is owned by GTK+ and must not be freed. -} +accelGroupQuery accelGroup accelKey accelMods = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + let accelMods' = gflagsToWord accelMods + nEntries <- allocMem :: IO (Ptr Word32) + result <- gtk_accel_group_query accelGroup' accelKey accelMods' nEntries + nEntries' <- peek nEntries + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (unpackBlockArrayWithLength 32 nEntries') result' + result''' <- mapM (newPtr Gtk.AccelGroupEntry.AccelGroupEntry) result'' + return result''' + touchManagedPtr accelGroup + freeMem nEntries + return maybeResult + +#if ENABLE_OVERLOADING +data AccelGroupQueryMethodInfo +instance (signature ~ (Word32 -> [Gdk.Flags.ModifierType] -> m (Maybe [Gtk.AccelGroupEntry.AccelGroupEntry])), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupQueryMethodInfo a signature where + overloadedMethod _ = accelGroupQuery + +#endif + +-- method AccelGroup::unlock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_unlock" gtk_accel_group_unlock :: + Ptr AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + IO () + +{- | +Undoes the last call to 'GI.Gtk.Objects.AccelGroup.accelGroupLock' on this /@accelGroup@/. +-} +accelGroupUnlock :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelGroup a) => + a + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' -} + -> m () +accelGroupUnlock accelGroup = liftIO $ do + accelGroup' <- unsafeManagedPtrCastPtr accelGroup + gtk_accel_group_unlock accelGroup' + touchManagedPtr accelGroup + return () + +#if ENABLE_OVERLOADING +data AccelGroupUnlockMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAccelGroup a) => O.MethodInfo AccelGroupUnlockMethodInfo a signature where + overloadedMethod _ = accelGroupUnlock + +#endif + +-- method AccelGroup::from_accel_closure +-- method type : MemberFunction +-- Args : [Arg {argCName = "closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GClosure", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AccelGroup"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_group_from_accel_closure" gtk_accel_group_from_accel_closure :: + Ptr (GClosure ()) -> -- closure : TGClosure Nothing + IO (Ptr AccelGroup) + +{- | +Finds the 'GI.Gtk.Objects.AccelGroup.AccelGroup' to which /@closure@/ is connected; +see 'GI.Gtk.Objects.AccelGroup.accelGroupConnect'. +-} +accelGroupFromAccelClosure :: + (B.CallStack.HasCallStack, MonadIO m) => + GClosure a + {- ^ /@closure@/: a 'GI.GObject.Structs.Closure.Closure' -} + -> m (Maybe AccelGroup) + {- ^ __Returns:__ the 'GI.Gtk.Objects.AccelGroup.AccelGroup' to which /@closure@/ + is connected, or 'Nothing' -} +accelGroupFromAccelClosure closure = liftIO $ do + closure' <- unsafeManagedPtrCastPtr closure + result <- gtk_accel_group_from_accel_closure closure' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject AccelGroup) result' + return result'' + touchManagedPtr closure + return maybeResult + +#if ENABLE_OVERLOADING +#endif + + diff --git a/GI/Gtk/Objects/AccelGroup.hs-boot b/GI/Gtk/Objects/AccelGroup.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AccelGroup.hs-boot @@ -0,0 +1,74 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AccelGroup where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AccelGroup = AccelGroup (ManagedPtr AccelGroup) +instance GObject AccelGroup where +class (GObject o, O.IsDescendantOf AccelGroup o) => IsAccelGroup o +instance (GObject o, O.IsDescendantOf AccelGroup o) => IsAccelGroup o +instance O.HasParentTypes AccelGroup +#if ENABLE_OVERLOADING +data AccelGroupIsLockedPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupModifierMaskPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupAccelActivateSignalInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupAccelChangedSignalInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupActivateMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupConnectMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupConnectByPathMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupDisconnectMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupDisconnectKeyMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupFindMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupGetIsLockedMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupGetModifierMaskMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupLockMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupQueryMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelGroupUnlockMethodInfo +#endif diff --git a/GI/Gtk/Objects/AccelLabel.hs b/GI/Gtk/Objects/AccelLabel.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AccelLabel.hs @@ -0,0 +1,1070 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Objects.AccelLabel.AccelLabel' widget is a subclass of 'GI.Gtk.Objects.Label.Label' that also displays an +accelerator key on the right of the label text, e.g. “Ctrl+S”. +It is commonly used in menus to show the keyboard short-cuts for commands. + +The accelerator key to display is typically not set explicitly (although it +can be, with 'GI.Gtk.Objects.AccelLabel.accelLabelSetAccel'). Instead, the 'GI.Gtk.Objects.AccelLabel.AccelLabel' displays +the accelerators which have been added to a particular widget. This widget is +set by calling 'GI.Gtk.Objects.AccelLabel.accelLabelSetAccelWidget'. + +For example, a 'GI.Gtk.Objects.MenuItem.MenuItem' widget may have an accelerator added to emit +the “activate” signal when the “Ctrl+S” key combination is pressed. +A 'GI.Gtk.Objects.AccelLabel.AccelLabel' is created and added to the 'GI.Gtk.Objects.MenuItem.MenuItem', and +'GI.Gtk.Objects.AccelLabel.accelLabelSetAccelWidget' is called with the 'GI.Gtk.Objects.MenuItem.MenuItem' as the +second argument. The 'GI.Gtk.Objects.AccelLabel.AccelLabel' will now display “Ctrl+S” after its label. + +Note that creating a 'GI.Gtk.Objects.MenuItem.MenuItem' with 'GI.Gtk.Objects.MenuItem.menuItemNewWithLabel' (or +one of the similar functions for 'GI.Gtk.Objects.CheckMenuItem.CheckMenuItem' and 'GI.Gtk.Objects.RadioMenuItem.RadioMenuItem') +automatically adds a 'GI.Gtk.Objects.AccelLabel.AccelLabel' to the 'GI.Gtk.Objects.MenuItem.MenuItem' and calls +'GI.Gtk.Objects.AccelLabel.accelLabelSetAccelWidget' to set it up for you. + +A 'GI.Gtk.Objects.AccelLabel.AccelLabel' will only display accelerators which have 'GI.Gtk.Flags.AccelFlagsVisible' +set (see 'GI.Gtk.Flags.AccelFlags'). +A 'GI.Gtk.Objects.AccelLabel.AccelLabel' can display multiple accelerators and even signal names, +though it is almost always used to display just one accelerator key. + +== Creating a simple menu item with an accelerator key. + + +=== /C code/ +> +> GtkWidget *window = gtk_window_new (GTK_WINDOW_TOPLEVEL); +> GtkWidget *menu = gtk_menu_new (); +> GtkWidget *save_item; +> GtkAccelGroup *accel_group; +> +> // Create a GtkAccelGroup and add it to the window. +> accel_group = gtk_accel_group_new (); +> gtk_window_add_accel_group (GTK_WINDOW (window), accel_group); +> +> // Create the menu item using the convenience function. +> save_item = gtk_menu_item_new_with_label ("Save"); +> gtk_widget_show (save_item); +> gtk_container_add (GTK_CONTAINER (menu), save_item); +> +> // Now add the accelerator to the GtkMenuItem. Note that since we +> // called gtk_menu_item_new_with_label() to create the GtkMenuItem +> // the GtkAccelLabel is automatically set up to display the +> // GtkMenuItem accelerators. We just need to make sure we use +> // GTK_ACCEL_VISIBLE here. +> gtk_widget_add_accelerator (save_item, "activate", accel_group, +> GDK_KEY_s, GDK_CONTROL_MASK, GTK_ACCEL_VISIBLE); + + += CSS nodes + + +=== /plain code/ +> +>label +>╰── accelerator + + +Like 'GI.Gtk.Objects.Label.Label', GtkAccelLabel has a main CSS node with the name label. +It adds a subnode with name accelerator. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AccelLabel + ( + +-- * Exported types + AccelLabel(..) , + IsAccelLabel , + toAccelLabel , + noAccelLabel , + + + -- * Methods +-- ** getAccel #method:getAccel# + +#if ENABLE_OVERLOADING + AccelLabelGetAccelMethodInfo , +#endif + accelLabelGetAccel , + + +-- ** getAccelWidget #method:getAccelWidget# + +#if ENABLE_OVERLOADING + AccelLabelGetAccelWidgetMethodInfo , +#endif + accelLabelGetAccelWidget , + + +-- ** getAccelWidth #method:getAccelWidth# + +#if ENABLE_OVERLOADING + AccelLabelGetAccelWidthMethodInfo , +#endif + accelLabelGetAccelWidth , + + +-- ** new #method:new# + + accelLabelNew , + + +-- ** refetch #method:refetch# + +#if ENABLE_OVERLOADING + AccelLabelRefetchMethodInfo , +#endif + accelLabelRefetch , + + +-- ** setAccel #method:setAccel# + +#if ENABLE_OVERLOADING + AccelLabelSetAccelMethodInfo , +#endif + accelLabelSetAccel , + + +-- ** setAccelClosure #method:setAccelClosure# + +#if ENABLE_OVERLOADING + AccelLabelSetAccelClosureMethodInfo , +#endif + accelLabelSetAccelClosure , + + +-- ** setAccelWidget #method:setAccelWidget# + +#if ENABLE_OVERLOADING + AccelLabelSetAccelWidgetMethodInfo , +#endif + accelLabelSetAccelWidget , + + + + + -- * Properties +-- ** accelClosure #attr:accelClosure# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AccelLabelAccelClosurePropertyInfo , +#endif +#if ENABLE_OVERLOADING + accelLabelAccelClosure , +#endif + clearAccelLabelAccelClosure , + constructAccelLabelAccelClosure , + getAccelLabelAccelClosure , + setAccelLabelAccelClosure , + + +-- ** accelWidget #attr:accelWidget# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AccelLabelAccelWidgetPropertyInfo , +#endif +#if ENABLE_OVERLOADING + accelLabelAccelWidget , +#endif + clearAccelLabelAccelWidget , + constructAccelLabelAccelWidget , + getAccelLabelAccelWidget , + setAccelLabelAccelWidget , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gdk.Flags as Gdk.Flags +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Label as Gtk.Label +import {-# SOURCE #-} qualified GI.Gtk.Objects.Misc as Gtk.Misc +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype AccelLabel = AccelLabel (ManagedPtr AccelLabel) +foreign import ccall "gtk_accel_label_get_type" + c_gtk_accel_label_get_type :: IO GType + +instance GObject AccelLabel where + gobjectType = c_gtk_accel_label_get_type + + +-- | Type class for types which can be safely cast to `AccelLabel`, for instance with `toAccelLabel`. +class (GObject o, O.IsDescendantOf AccelLabel o) => IsAccelLabel o +instance (GObject o, O.IsDescendantOf AccelLabel o) => IsAccelLabel o + +instance O.HasParentTypes AccelLabel +type instance O.ParentTypes AccelLabel = '[Gtk.Label.Label, Gtk.Misc.Misc, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `AccelLabel`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAccelLabel :: (MonadIO m, IsAccelLabel o) => o -> m AccelLabel +toAccelLabel = liftIO . unsafeCastTo AccelLabel + +-- | A convenience alias for `Nothing` :: `Maybe` `AccelLabel`. +noAccelLabel :: Maybe AccelLabel +noAccelLabel = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAccelLabelMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelLabelMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAccelLabelMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAccelLabelMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAccelLabelMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAccelLabelMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAccelLabelMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAccelLabelMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAccelLabelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAccelLabelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAccelLabelMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAccelLabelMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAccelLabelMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo + ResolveAccelLabelMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAccelLabelMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAccelLabelMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAccelLabelMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAccelLabelMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAccelLabelMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAccelLabelMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAccelLabelMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAccelLabelMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAccelLabelMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAccelLabelMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAccelLabelMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAccelLabelMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAccelLabelMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAccelLabelMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAccelLabelMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAccelLabelMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAccelLabelMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAccelLabelMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAccelLabelMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAccelLabelMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAccelLabelMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAccelLabelMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAccelLabelMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAccelLabelMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAccelLabelMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAccelLabelMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAccelLabelMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAccelLabelMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAccelLabelMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAccelLabelMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAccelLabelMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAccelLabelMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAccelLabelMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAccelLabelMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAccelLabelMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAccelLabelMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAccelLabelMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAccelLabelMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAccelLabelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAccelLabelMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAccelLabelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAccelLabelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAccelLabelMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAccelLabelMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAccelLabelMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAccelLabelMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAccelLabelMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAccelLabelMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAccelLabelMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAccelLabelMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAccelLabelMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAccelLabelMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAccelLabelMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAccelLabelMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAccelLabelMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAccelLabelMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAccelLabelMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAccelLabelMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAccelLabelMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAccelLabelMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAccelLabelMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAccelLabelMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAccelLabelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAccelLabelMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAccelLabelMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAccelLabelMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAccelLabelMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAccelLabelMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAccelLabelMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAccelLabelMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAccelLabelMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAccelLabelMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAccelLabelMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveAccelLabelMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAccelLabelMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAccelLabelMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAccelLabelMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAccelLabelMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAccelLabelMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAccelLabelMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAccelLabelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAccelLabelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAccelLabelMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAccelLabelMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAccelLabelMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAccelLabelMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAccelLabelMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAccelLabelMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAccelLabelMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAccelLabelMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAccelLabelMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAccelLabelMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAccelLabelMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAccelLabelMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAccelLabelMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAccelLabelMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAccelLabelMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAccelLabelMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAccelLabelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAccelLabelMethod "refetch" o = AccelLabelRefetchMethodInfo + ResolveAccelLabelMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAccelLabelMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAccelLabelMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAccelLabelMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAccelLabelMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAccelLabelMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAccelLabelMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAccelLabelMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAccelLabelMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAccelLabelMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAccelLabelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAccelLabelMethod "selectRegion" o = Gtk.Label.LabelSelectRegionMethodInfo + ResolveAccelLabelMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAccelLabelMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAccelLabelMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAccelLabelMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAccelLabelMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAccelLabelMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAccelLabelMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAccelLabelMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAccelLabelMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAccelLabelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAccelLabelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAccelLabelMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAccelLabelMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAccelLabelMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAccelLabelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAccelLabelMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAccelLabelMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAccelLabelMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAccelLabelMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAccelLabelMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAccelLabelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAccelLabelMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAccelLabelMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAccelLabelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAccelLabelMethod "getAccel" o = AccelLabelGetAccelMethodInfo + ResolveAccelLabelMethod "getAccelWidget" o = AccelLabelGetAccelWidgetMethodInfo + ResolveAccelLabelMethod "getAccelWidth" o = AccelLabelGetAccelWidthMethodInfo + ResolveAccelLabelMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAccelLabelMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAccelLabelMethod "getAlignment" o = Gtk.Misc.MiscGetAlignmentMethodInfo + ResolveAccelLabelMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAccelLabelMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAccelLabelMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAccelLabelMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAccelLabelMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAccelLabelMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAccelLabelMethod "getAngle" o = Gtk.Label.LabelGetAngleMethodInfo + ResolveAccelLabelMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAccelLabelMethod "getAttributes" o = Gtk.Label.LabelGetAttributesMethodInfo + ResolveAccelLabelMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAccelLabelMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAccelLabelMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAccelLabelMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAccelLabelMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAccelLabelMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAccelLabelMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAccelLabelMethod "getCurrentUri" o = Gtk.Label.LabelGetCurrentUriMethodInfo + ResolveAccelLabelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAccelLabelMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAccelLabelMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAccelLabelMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAccelLabelMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAccelLabelMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAccelLabelMethod "getEllipsize" o = Gtk.Label.LabelGetEllipsizeMethodInfo + ResolveAccelLabelMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAccelLabelMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAccelLabelMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAccelLabelMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAccelLabelMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAccelLabelMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAccelLabelMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAccelLabelMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAccelLabelMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAccelLabelMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAccelLabelMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAccelLabelMethod "getJustify" o = Gtk.Label.LabelGetJustifyMethodInfo + ResolveAccelLabelMethod "getLabel" o = Gtk.Label.LabelGetLabelMethodInfo + ResolveAccelLabelMethod "getLayout" o = Gtk.Label.LabelGetLayoutMethodInfo + ResolveAccelLabelMethod "getLayoutOffsets" o = Gtk.Label.LabelGetLayoutOffsetsMethodInfo + ResolveAccelLabelMethod "getLineWrap" o = Gtk.Label.LabelGetLineWrapMethodInfo + ResolveAccelLabelMethod "getLineWrapMode" o = Gtk.Label.LabelGetLineWrapModeMethodInfo + ResolveAccelLabelMethod "getLines" o = Gtk.Label.LabelGetLinesMethodInfo + ResolveAccelLabelMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAccelLabelMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAccelLabelMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAccelLabelMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAccelLabelMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAccelLabelMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAccelLabelMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAccelLabelMethod "getMaxWidthChars" o = Gtk.Label.LabelGetMaxWidthCharsMethodInfo + ResolveAccelLabelMethod "getMnemonicKeyval" o = Gtk.Label.LabelGetMnemonicKeyvalMethodInfo + ResolveAccelLabelMethod "getMnemonicWidget" o = Gtk.Label.LabelGetMnemonicWidgetMethodInfo + ResolveAccelLabelMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAccelLabelMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAccelLabelMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAccelLabelMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAccelLabelMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveAccelLabelMethod "getPadding" o = Gtk.Misc.MiscGetPaddingMethodInfo + ResolveAccelLabelMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAccelLabelMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAccelLabelMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAccelLabelMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAccelLabelMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAccelLabelMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAccelLabelMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAccelLabelMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAccelLabelMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAccelLabelMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAccelLabelMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAccelLabelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAccelLabelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAccelLabelMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAccelLabelMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAccelLabelMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAccelLabelMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAccelLabelMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAccelLabelMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAccelLabelMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveAccelLabelMethod "getSelectable" o = Gtk.Label.LabelGetSelectableMethodInfo + ResolveAccelLabelMethod "getSelectionBounds" o = Gtk.Label.LabelGetSelectionBoundsMethodInfo + ResolveAccelLabelMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAccelLabelMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAccelLabelMethod "getSingleLineMode" o = Gtk.Label.LabelGetSingleLineModeMethodInfo + ResolveAccelLabelMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAccelLabelMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAccelLabelMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAccelLabelMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAccelLabelMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAccelLabelMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAccelLabelMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAccelLabelMethod "getText" o = Gtk.Label.LabelGetTextMethodInfo + ResolveAccelLabelMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAccelLabelMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAccelLabelMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAccelLabelMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAccelLabelMethod "getTrackVisitedLinks" o = Gtk.Label.LabelGetTrackVisitedLinksMethodInfo + ResolveAccelLabelMethod "getUseMarkup" o = Gtk.Label.LabelGetUseMarkupMethodInfo + ResolveAccelLabelMethod "getUseUnderline" o = Gtk.Label.LabelGetUseUnderlineMethodInfo + ResolveAccelLabelMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAccelLabelMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAccelLabelMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAccelLabelMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAccelLabelMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAccelLabelMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAccelLabelMethod "getWidthChars" o = Gtk.Label.LabelGetWidthCharsMethodInfo + ResolveAccelLabelMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAccelLabelMethod "getXalign" o = Gtk.Label.LabelGetXalignMethodInfo + ResolveAccelLabelMethod "getYalign" o = Gtk.Label.LabelGetYalignMethodInfo + ResolveAccelLabelMethod "setAccel" o = AccelLabelSetAccelMethodInfo + ResolveAccelLabelMethod "setAccelClosure" o = AccelLabelSetAccelClosureMethodInfo + ResolveAccelLabelMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAccelLabelMethod "setAccelWidget" o = AccelLabelSetAccelWidgetMethodInfo + ResolveAccelLabelMethod "setAlignment" o = Gtk.Misc.MiscSetAlignmentMethodInfo + ResolveAccelLabelMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAccelLabelMethod "setAngle" o = Gtk.Label.LabelSetAngleMethodInfo + ResolveAccelLabelMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAccelLabelMethod "setAttributes" o = Gtk.Label.LabelSetAttributesMethodInfo + ResolveAccelLabelMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAccelLabelMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAccelLabelMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAccelLabelMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAccelLabelMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAccelLabelMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAccelLabelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAccelLabelMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAccelLabelMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAccelLabelMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAccelLabelMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAccelLabelMethod "setEllipsize" o = Gtk.Label.LabelSetEllipsizeMethodInfo + ResolveAccelLabelMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAccelLabelMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAccelLabelMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAccelLabelMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAccelLabelMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAccelLabelMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAccelLabelMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAccelLabelMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAccelLabelMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAccelLabelMethod "setJustify" o = Gtk.Label.LabelSetJustifyMethodInfo + ResolveAccelLabelMethod "setLabel" o = Gtk.Label.LabelSetLabelMethodInfo + ResolveAccelLabelMethod "setLineWrap" o = Gtk.Label.LabelSetLineWrapMethodInfo + ResolveAccelLabelMethod "setLineWrapMode" o = Gtk.Label.LabelSetLineWrapModeMethodInfo + ResolveAccelLabelMethod "setLines" o = Gtk.Label.LabelSetLinesMethodInfo + ResolveAccelLabelMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAccelLabelMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAccelLabelMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAccelLabelMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAccelLabelMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAccelLabelMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAccelLabelMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAccelLabelMethod "setMarkup" o = Gtk.Label.LabelSetMarkupMethodInfo + ResolveAccelLabelMethod "setMarkupWithMnemonic" o = Gtk.Label.LabelSetMarkupWithMnemonicMethodInfo + ResolveAccelLabelMethod "setMaxWidthChars" o = Gtk.Label.LabelSetMaxWidthCharsMethodInfo + ResolveAccelLabelMethod "setMnemonicWidget" o = Gtk.Label.LabelSetMnemonicWidgetMethodInfo + ResolveAccelLabelMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAccelLabelMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAccelLabelMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveAccelLabelMethod "setPadding" o = Gtk.Misc.MiscSetPaddingMethodInfo + ResolveAccelLabelMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAccelLabelMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAccelLabelMethod "setPattern" o = Gtk.Label.LabelSetPatternMethodInfo + ResolveAccelLabelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAccelLabelMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAccelLabelMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAccelLabelMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAccelLabelMethod "setSelectable" o = Gtk.Label.LabelSetSelectableMethodInfo + ResolveAccelLabelMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAccelLabelMethod "setSingleLineMode" o = Gtk.Label.LabelSetSingleLineModeMethodInfo + ResolveAccelLabelMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAccelLabelMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAccelLabelMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAccelLabelMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAccelLabelMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAccelLabelMethod "setText" o = Gtk.Label.LabelSetTextMethodInfo + ResolveAccelLabelMethod "setTextWithMnemonic" o = Gtk.Label.LabelSetTextWithMnemonicMethodInfo + ResolveAccelLabelMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAccelLabelMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAccelLabelMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAccelLabelMethod "setTrackVisitedLinks" o = Gtk.Label.LabelSetTrackVisitedLinksMethodInfo + ResolveAccelLabelMethod "setUseMarkup" o = Gtk.Label.LabelSetUseMarkupMethodInfo + ResolveAccelLabelMethod "setUseUnderline" o = Gtk.Label.LabelSetUseUnderlineMethodInfo + ResolveAccelLabelMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAccelLabelMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAccelLabelMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAccelLabelMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAccelLabelMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAccelLabelMethod "setWidthChars" o = Gtk.Label.LabelSetWidthCharsMethodInfo + ResolveAccelLabelMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAccelLabelMethod "setXalign" o = Gtk.Label.LabelSetXalignMethodInfo + ResolveAccelLabelMethod "setYalign" o = Gtk.Label.LabelSetYalignMethodInfo + ResolveAccelLabelMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAccelLabelMethod t AccelLabel, O.MethodInfo info AccelLabel p) => OL.IsLabel t (AccelLabel -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +--- XXX Duplicated object with different types: + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The xalign property determines the horizontal aligment of the label text\ninside the labels size allocation. Compare this to #GtkWidget:halign,\nwhich determines how the labels size allocation is positioned in the\nspace available for the label.", sinceVersion = Just "3.16"}, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The horizontal alignment. A value of 0.0 means left alignment (or right\non RTL locales); a value of 1.0 means right alignment (or left on RTL\nlocales).", sinceVersion = Nothing}, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} +--- XXX Duplicated object with different types: + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The yalign property determines the vertical aligment of the label text\ninside the labels size allocation. Compare this to #GtkWidget:valign,\nwhich determines how the labels size allocation is positioned in the\nspace available for the label.", sinceVersion = Just "3.16"}, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The vertical alignment. A value of 0.0 means top alignment;\na value of 1.0 means bottom alignment.", sinceVersion = Nothing}, 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: TGClosure Nothing + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just True) + +{- | +Get the value of the “@accel-closure@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' accelLabel #accelClosure +@ +-} +getAccelLabelAccelClosure :: (MonadIO m, IsAccelLabel o) => o -> m (Maybe (GClosure ())) +getAccelLabelAccelClosure obj = liftIO $ B.Properties.getObjectPropertyClosure obj "accel-closure" + +{- | +Set the value of the “@accel-closure@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' accelLabel [ #accelClosure 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAccelLabelAccelClosure :: (MonadIO m, IsAccelLabel o) => o -> GClosure a -> m () +setAccelLabelAccelClosure obj val = liftIO $ B.Properties.setObjectPropertyClosure obj "accel-closure" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@accel-closure@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAccelLabelAccelClosure :: (IsAccelLabel o) => GClosure a -> IO (GValueConstruct o) +constructAccelLabelAccelClosure val = B.Properties.constructObjectPropertyClosure "accel-closure" (Just val) + +{- | +Set the value of the “@accel-closure@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #accelClosure +@ +-} +clearAccelLabelAccelClosure :: (MonadIO m, IsAccelLabel o) => o -> m () +clearAccelLabelAccelClosure obj = liftIO $ B.Properties.setObjectPropertyClosure obj "accel-closure" (Nothing :: Maybe (GClosure a)) + +#if ENABLE_OVERLOADING +data AccelLabelAccelClosurePropertyInfo +instance AttrInfo AccelLabelAccelClosurePropertyInfo where + type AttrAllowedOps AccelLabelAccelClosurePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AccelLabelAccelClosurePropertyInfo = (~) (GClosure ()) + type AttrBaseTypeConstraint AccelLabelAccelClosurePropertyInfo = IsAccelLabel + type AttrGetType AccelLabelAccelClosurePropertyInfo = (Maybe (GClosure ())) + type AttrLabel AccelLabelAccelClosurePropertyInfo = "accel-closure" + type AttrOrigin AccelLabelAccelClosurePropertyInfo = AccelLabel + attrGet _ = getAccelLabelAccelClosure + attrSet _ = setAccelLabelAccelClosure + attrConstruct _ = constructAccelLabelAccelClosure + attrClear _ = clearAccelLabelAccelClosure +#endif + +-- VVV Prop "accel-widget" + -- Type: TInterface (Name {namespace = "Gtk", name = "Widget"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just True) + +{- | +Get the value of the “@accel-widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' accelLabel #accelWidget +@ +-} +getAccelLabelAccelWidget :: (MonadIO m, IsAccelLabel o) => o -> m (Maybe Gtk.Widget.Widget) +getAccelLabelAccelWidget obj = liftIO $ B.Properties.getObjectPropertyObject obj "accel-widget" Gtk.Widget.Widget + +{- | +Set the value of the “@accel-widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' accelLabel [ #accelWidget 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAccelLabelAccelWidget :: (MonadIO m, IsAccelLabel o, Gtk.Widget.IsWidget a) => o -> a -> m () +setAccelLabelAccelWidget obj val = liftIO $ B.Properties.setObjectPropertyObject obj "accel-widget" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@accel-widget@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAccelLabelAccelWidget :: (IsAccelLabel o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o) +constructAccelLabelAccelWidget val = B.Properties.constructObjectPropertyObject "accel-widget" (Just val) + +{- | +Set the value of the “@accel-widget@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #accelWidget +@ +-} +clearAccelLabelAccelWidget :: (MonadIO m, IsAccelLabel o) => o -> m () +clearAccelLabelAccelWidget obj = liftIO $ B.Properties.setObjectPropertyObject obj "accel-widget" (Nothing :: Maybe Gtk.Widget.Widget) + +#if ENABLE_OVERLOADING +data AccelLabelAccelWidgetPropertyInfo +instance AttrInfo AccelLabelAccelWidgetPropertyInfo where + type AttrAllowedOps AccelLabelAccelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AccelLabelAccelWidgetPropertyInfo = Gtk.Widget.IsWidget + type AttrBaseTypeConstraint AccelLabelAccelWidgetPropertyInfo = IsAccelLabel + type AttrGetType AccelLabelAccelWidgetPropertyInfo = (Maybe Gtk.Widget.Widget) + type AttrLabel AccelLabelAccelWidgetPropertyInfo = "accel-widget" + type AttrOrigin AccelLabelAccelWidgetPropertyInfo = AccelLabel + attrGet _ = getAccelLabelAccelWidget + attrSet _ = setAccelLabelAccelWidget + attrConstruct _ = constructAccelLabelAccelWidget + attrClear _ = clearAccelLabelAccelWidget +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AccelLabel +type instance O.AttributeList AccelLabel = AccelLabelAttributeList +type AccelLabelAttributeList = ('[ '("accelClosure", AccelLabelAccelClosurePropertyInfo), '("accelWidget", AccelLabelAccelWidgetPropertyInfo), '("angle", Gtk.Label.LabelAnglePropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("attributes", Gtk.Label.LabelAttributesPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("cursorPosition", Gtk.Label.LabelCursorPositionPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("ellipsize", Gtk.Label.LabelEllipsizePropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("justify", Gtk.Label.LabelJustifyPropertyInfo), '("label", Gtk.Label.LabelLabelPropertyInfo), '("lines", Gtk.Label.LabelLinesPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxWidthChars", Gtk.Label.LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", Gtk.Label.LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", Gtk.Label.LabelMnemonicWidgetPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("pattern", Gtk.Label.LabelPatternPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectable", Gtk.Label.LabelSelectablePropertyInfo), '("selectionBound", Gtk.Label.LabelSelectionBoundPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("singleLineMode", Gtk.Label.LabelSingleLineModePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", Gtk.Label.LabelTrackVisitedLinksPropertyInfo), '("useMarkup", Gtk.Label.LabelUseMarkupPropertyInfo), '("useUnderline", Gtk.Label.LabelUseUnderlinePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthChars", Gtk.Label.LabelWidthCharsPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("wrap", Gtk.Label.LabelWrapPropertyInfo), '("wrapMode", Gtk.Label.LabelWrapModePropertyInfo), '("xalign", Gtk.Label.LabelXalignPropertyInfo), '("xpad", Gtk.Misc.MiscXpadPropertyInfo), '("yalign", Gtk.Label.LabelYalignPropertyInfo), '("ypad", Gtk.Misc.MiscYpadPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +accelLabelAccelClosure :: AttrLabelProxy "accelClosure" +accelLabelAccelClosure = AttrLabelProxy + +accelLabelAccelWidget :: AttrLabelProxy "accelWidget" +accelLabelAccelWidget = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList AccelLabel = AccelLabelSignalList +type AccelLabelSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateCurrentLink", Gtk.Label.LabelActivateCurrentLinkSignalInfo), '("activateLink", Gtk.Label.LabelActivateLinkSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("copyClipboard", Gtk.Label.LabelCopyClipboardSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveCursor", Gtk.Label.LabelMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("populatePopup", Gtk.Label.LabelPopulatePopupSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AccelLabel::new +-- method type : Constructor +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the label string. Must be non-%NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AccelLabel"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_new" gtk_accel_label_new :: + CString -> -- string : TBasicType TUTF8 + IO (Ptr AccelLabel) + +{- | +Creates a new 'GI.Gtk.Objects.AccelLabel.AccelLabel'. +-} +accelLabelNew :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@string@/: the label string. Must be non-'Nothing'. -} + -> m AccelLabel + {- ^ __Returns:__ a new 'GI.Gtk.Objects.AccelLabel.AccelLabel'. -} +accelLabelNew string = liftIO $ do + string' <- textToCString string + result <- gtk_accel_label_new string' + checkUnexpectedReturnNULL "accelLabelNew" result + result' <- (newObject AccelLabel) result + freeMem string' + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AccelLabel::get_accel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_label", argType = TInterface (Name {namespace = "Gtk", name = "AccelLabel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelLabel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the keyval", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_get_accel" gtk_accel_label_get_accel :: + Ptr AccelLabel -> -- accel_label : TInterface (Name {namespace = "Gtk", name = "AccelLabel"}) + Ptr Word32 -> -- accelerator_key : TBasicType TUInt + Ptr CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO () + +{- | +Gets the keyval and modifier mask set with +'GI.Gtk.Objects.AccelLabel.accelLabelSetAccel'. + +/Since: 3.12/ +-} +accelLabelGetAccel :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelLabel a) => + a + {- ^ /@accelLabel@/: a 'GI.Gtk.Objects.AccelLabel.AccelLabel' -} + -> m ((Word32, [Gdk.Flags.ModifierType])) +accelLabelGetAccel accelLabel = liftIO $ do + accelLabel' <- unsafeManagedPtrCastPtr accelLabel + acceleratorKey <- allocMem :: IO (Ptr Word32) + acceleratorMods <- allocMem :: IO (Ptr CUInt) + gtk_accel_label_get_accel accelLabel' acceleratorKey acceleratorMods + acceleratorKey' <- peek acceleratorKey + acceleratorMods' <- peek acceleratorMods + let acceleratorMods'' = wordToGFlags acceleratorMods' + touchManagedPtr accelLabel + freeMem acceleratorKey + freeMem acceleratorMods + return (acceleratorKey', acceleratorMods'') + +#if ENABLE_OVERLOADING +data AccelLabelGetAccelMethodInfo +instance (signature ~ (m ((Word32, [Gdk.Flags.ModifierType]))), MonadIO m, IsAccelLabel a) => O.MethodInfo AccelLabelGetAccelMethodInfo a signature where + overloadedMethod _ = accelLabelGetAccel + +#endif + +-- method AccelLabel::get_accel_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_label", argType = TInterface (Name {namespace = "Gtk", name = "AccelLabel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelLabel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_get_accel_widget" gtk_accel_label_get_accel_widget :: + Ptr AccelLabel -> -- accel_label : TInterface (Name {namespace = "Gtk", name = "AccelLabel"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Fetches the widget monitored by this accelerator label. See +'GI.Gtk.Objects.AccelLabel.accelLabelSetAccelWidget'. +-} +accelLabelGetAccelWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelLabel a) => + a + {- ^ /@accelLabel@/: a 'GI.Gtk.Objects.AccelLabel.AccelLabel' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the object monitored by the accelerator label, or 'Nothing'. -} +accelLabelGetAccelWidget accelLabel = liftIO $ do + accelLabel' <- unsafeManagedPtrCastPtr accelLabel + result <- gtk_accel_label_get_accel_widget accelLabel' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr accelLabel + return maybeResult + +#if ENABLE_OVERLOADING +data AccelLabelGetAccelWidgetMethodInfo +instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsAccelLabel a) => O.MethodInfo AccelLabelGetAccelWidgetMethodInfo a signature where + overloadedMethod _ = accelLabelGetAccelWidget + +#endif + +-- method AccelLabel::get_accel_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_label", argType = TInterface (Name {namespace = "Gtk", name = "AccelLabel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelLabel.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_get_accel_width" gtk_accel_label_get_accel_width :: + Ptr AccelLabel -> -- accel_label : TInterface (Name {namespace = "Gtk", name = "AccelLabel"}) + IO Word32 + +{- | +Returns the width needed to display the accelerator key(s). +This is used by menus to align all of the 'GI.Gtk.Objects.MenuItem.MenuItem' widgets, and shouldn\'t +be needed by applications. +-} +accelLabelGetAccelWidth :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelLabel a) => + a + {- ^ /@accelLabel@/: a 'GI.Gtk.Objects.AccelLabel.AccelLabel'. -} + -> m Word32 + {- ^ __Returns:__ the width needed to display the accelerator key(s). -} +accelLabelGetAccelWidth accelLabel = liftIO $ do + accelLabel' <- unsafeManagedPtrCastPtr accelLabel + result <- gtk_accel_label_get_accel_width accelLabel' + touchManagedPtr accelLabel + return result + +#if ENABLE_OVERLOADING +data AccelLabelGetAccelWidthMethodInfo +instance (signature ~ (m Word32), MonadIO m, IsAccelLabel a) => O.MethodInfo AccelLabelGetAccelWidthMethodInfo a signature where + overloadedMethod _ = accelLabelGetAccelWidth + +#endif + +-- method AccelLabel::refetch +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_label", argType = TInterface (Name {namespace = "Gtk", name = "AccelLabel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelLabel.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_refetch" gtk_accel_label_refetch :: + Ptr AccelLabel -> -- accel_label : TInterface (Name {namespace = "Gtk", name = "AccelLabel"}) + IO CInt + +{- | +Recreates the string representing the accelerator keys. +This should not be needed since the string is automatically updated whenever +accelerators are added or removed from the associated widget. +-} +accelLabelRefetch :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelLabel a) => + a + {- ^ /@accelLabel@/: a 'GI.Gtk.Objects.AccelLabel.AccelLabel'. -} + -> m Bool + {- ^ __Returns:__ always returns 'False'. -} +accelLabelRefetch accelLabel = liftIO $ do + accelLabel' <- unsafeManagedPtrCastPtr accelLabel + result <- gtk_accel_label_refetch accelLabel' + let result' = (/= 0) result + touchManagedPtr accelLabel + return result' + +#if ENABLE_OVERLOADING +data AccelLabelRefetchMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAccelLabel a) => O.MethodInfo AccelLabelRefetchMethodInfo a signature where + overloadedMethod _ = accelLabelRefetch + +#endif + +-- method AccelLabel::set_accel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_label", argType = TInterface (Name {namespace = "Gtk", name = "AccelLabel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelLabel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a keyval, or 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the modifier mask for the accel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_set_accel" gtk_accel_label_set_accel :: + Ptr AccelLabel -> -- accel_label : TInterface (Name {namespace = "Gtk", name = "AccelLabel"}) + Word32 -> -- accelerator_key : TBasicType TUInt + CUInt -> -- accelerator_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO () + +{- | +Manually sets a keyval and modifier mask as the accelerator rendered +by /@accelLabel@/. + +If a keyval and modifier are explicitly set then these values are +used regardless of any associated accel closure or widget. + +Providing an /@acceleratorKey@/ of 0 removes the manual setting. + +/Since: 3.6/ +-} +accelLabelSetAccel :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelLabel a) => + a + {- ^ /@accelLabel@/: a 'GI.Gtk.Objects.AccelLabel.AccelLabel' -} + -> Word32 + {- ^ /@acceleratorKey@/: a keyval, or 0 -} + -> [Gdk.Flags.ModifierType] + {- ^ /@acceleratorMods@/: the modifier mask for the accel -} + -> m () +accelLabelSetAccel accelLabel acceleratorKey acceleratorMods = liftIO $ do + accelLabel' <- unsafeManagedPtrCastPtr accelLabel + let acceleratorMods' = gflagsToWord acceleratorMods + gtk_accel_label_set_accel accelLabel' acceleratorKey acceleratorMods' + touchManagedPtr accelLabel + return () + +#if ENABLE_OVERLOADING +data AccelLabelSetAccelMethodInfo +instance (signature ~ (Word32 -> [Gdk.Flags.ModifierType] -> m ()), MonadIO m, IsAccelLabel a) => O.MethodInfo AccelLabelSetAccelMethodInfo a signature where + overloadedMethod _ = accelLabelSetAccel + +#endif + +-- method AccelLabel::set_accel_closure +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_label", argType = TInterface (Name {namespace = "Gtk", name = "AccelLabel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelLabel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the closure to monitor for accelerator changes,\nor %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_set_accel_closure" gtk_accel_label_set_accel_closure :: + Ptr AccelLabel -> -- accel_label : TInterface (Name {namespace = "Gtk", name = "AccelLabel"}) + Ptr (GClosure ()) -> -- accel_closure : TGClosure Nothing + IO () + +{- | +Sets the closure to be monitored by this accelerator label. The closure +must be connected to an accelerator group; see 'GI.Gtk.Objects.AccelGroup.accelGroupConnect'. +Passing 'Nothing' for /@accelClosure@/ will dissociate /@accelLabel@/ from its +current closure, if any. +-} +accelLabelSetAccelClosure :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelLabel a) => + a + {- ^ /@accelLabel@/: a 'GI.Gtk.Objects.AccelLabel.AccelLabel' -} + -> Maybe (GClosure b) + {- ^ /@accelClosure@/: the closure to monitor for accelerator changes, +or 'Nothing' -} + -> m () +accelLabelSetAccelClosure accelLabel accelClosure = liftIO $ do + accelLabel' <- unsafeManagedPtrCastPtr accelLabel + maybeAccelClosure <- case accelClosure of + Nothing -> return nullPtr + Just jAccelClosure -> do + jAccelClosure' <- unsafeManagedPtrCastPtr jAccelClosure + return jAccelClosure' + gtk_accel_label_set_accel_closure accelLabel' maybeAccelClosure + touchManagedPtr accelLabel + whenJust accelClosure touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data AccelLabelSetAccelClosureMethodInfo +instance (signature ~ (Maybe (GClosure b) -> m ()), MonadIO m, IsAccelLabel a) => O.MethodInfo AccelLabelSetAccelClosureMethodInfo a signature where + overloadedMethod _ = accelLabelSetAccelClosure + +#endif + +-- method AccelLabel::set_accel_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accel_label", argType = TInterface (Name {namespace = "Gtk", name = "AccelLabel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccelLabel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget to be monitored, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_label_set_accel_widget" gtk_accel_label_set_accel_widget :: + Ptr AccelLabel -> -- accel_label : TInterface (Name {namespace = "Gtk", name = "AccelLabel"}) + Ptr Gtk.Widget.Widget -> -- accel_widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Sets the widget to be monitored by this accelerator label. Passing 'Nothing' for +/@accelWidget@/ will dissociate /@accelLabel@/ from its current widget, if any. +-} +accelLabelSetAccelWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsAccelLabel a, Gtk.Widget.IsWidget b) => + a + {- ^ /@accelLabel@/: a 'GI.Gtk.Objects.AccelLabel.AccelLabel' -} + -> Maybe (b) + {- ^ /@accelWidget@/: the widget to be monitored, or 'Nothing' -} + -> m () +accelLabelSetAccelWidget accelLabel accelWidget = liftIO $ do + accelLabel' <- unsafeManagedPtrCastPtr accelLabel + maybeAccelWidget <- case accelWidget of + Nothing -> return nullPtr + Just jAccelWidget -> do + jAccelWidget' <- unsafeManagedPtrCastPtr jAccelWidget + return jAccelWidget' + gtk_accel_label_set_accel_widget accelLabel' maybeAccelWidget + touchManagedPtr accelLabel + whenJust accelWidget touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data AccelLabelSetAccelWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsAccelLabel a, Gtk.Widget.IsWidget b) => O.MethodInfo AccelLabelSetAccelWidgetMethodInfo a signature where + overloadedMethod _ = accelLabelSetAccelWidget + +#endif + + diff --git a/GI/Gtk/Objects/AccelLabel.hs-boot b/GI/Gtk/Objects/AccelLabel.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AccelLabel.hs-boot @@ -0,0 +1,56 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AccelLabel where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AccelLabel = AccelLabel (ManagedPtr AccelLabel) +instance GObject AccelLabel where +class (GObject o, O.IsDescendantOf AccelLabel o) => IsAccelLabel o +instance (GObject o, O.IsDescendantOf AccelLabel o) => IsAccelLabel o +instance O.HasParentTypes AccelLabel +#if ENABLE_OVERLOADING +data AccelLabelAccelClosurePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelAccelWidgetPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelGetAccelMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelGetAccelWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelGetAccelWidthMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelRefetchMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelSetAccelMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelSetAccelClosureMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccelLabelSetAccelWidgetMethodInfo +#endif diff --git a/GI/Gtk/Objects/AccelMap.hs b/GI/Gtk/Objects/AccelMap.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AccelMap.hs @@ -0,0 +1,863 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +Accelerator maps are used to define runtime configurable accelerators. +Functions for manipulating them are are usually used by higher level +convenience mechanisms like 'GI.Gtk.Objects.UIManager.UIManager' and are thus considered +“low-level”. You’ll want to use them if you’re manually creating menus that +should have user-configurable accelerators. + +An accelerator is uniquely defined by: + +* accelerator path +* accelerator key +* accelerator modifiers + + +The accelerator path must consist of +“\\/Category1\/Category2\/...\/Action”, where WINDOWTYPE +should be a unique application-specific identifier that corresponds +to the kind of window the accelerator is being used in, e.g. +“Gimp-Image”, “Abiword-Document” or “Gnumeric-Settings”. +The “Category1\/...\/Action” portion is most appropriately chosen by +the action the accelerator triggers, i.e. for accelerators on menu +items, choose the item’s menu path, e.g. “File\/Save As”, +“Image\/View\/Zoom” or “Edit\/Select All”. So a full valid accelerator +path may look like: “\\/File\/Dialogs\/Tool Options...”. + +All accelerators are stored inside one global 'GI.Gtk.Objects.AccelMap.AccelMap' that can +be obtained using 'GI.Gtk.Objects.AccelMap.accelMapGet'. See +[Monitoring changes][monitoring-changes] for additional +details. + += Manipulating accelerators + +New accelerators can be added using 'GI.Gtk.Objects.AccelMap.accelMapAddEntry'. +To search for specific accelerator, use 'GI.Gtk.Objects.AccelMap.accelMapLookupEntry'. +Modifications of existing accelerators should be done using +'GI.Gtk.Objects.AccelMap.accelMapChangeEntry'. + +In order to avoid having some accelerators changed, they can be +locked using 'GI.Gtk.Objects.AccelMap.accelMapLockPath'. Unlocking is done using +'GI.Gtk.Objects.AccelMap.accelMapUnlockPath'. + += Saving and loading accelerator maps + +Accelerator maps can be saved to and loaded from some external +resource. For simple saving and loading from file, +'GI.Gtk.Objects.AccelMap.accelMapSave' and 'GI.Gtk.Objects.AccelMap.accelMapLoad' are provided. +Saving and loading can also be done by providing file descriptor +to 'GI.Gtk.Objects.AccelMap.accelMapSaveFd' and 'GI.Gtk.Objects.AccelMap.accelMapLoadFd'. + += Monitoring changes + +'GI.Gtk.Objects.AccelMap.AccelMap' object is only useful for monitoring changes of +accelerators. By connecting to 'GI.Gtk.Objects.AccelMap.AccelMap'::@/changed/@ signal, one +can monitor changes of all accelerators. It is also possible to +monitor only single accelerator path by using it as a detail of +the 'GI.Gtk.Objects.AccelMap.AccelMap'::@/changed/@ signal. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AccelMap + ( + +-- * Exported types + AccelMap(..) , + IsAccelMap , + toAccelMap , + noAccelMap , + + + -- * Methods +-- ** addEntry #method:addEntry# + + accelMapAddEntry , + + +-- ** addFilter #method:addFilter# + + accelMapAddFilter , + + +-- ** changeEntry #method:changeEntry# + + accelMapChangeEntry , + + +-- ** foreach #method:foreach# + + accelMapForeach , + + +-- ** foreachUnfiltered #method:foreachUnfiltered# + + accelMapForeachUnfiltered , + + +-- ** get #method:get# + + accelMapGet , + + +-- ** load #method:load# + + accelMapLoad , + + +-- ** loadFd #method:loadFd# + + accelMapLoadFd , + + +-- ** loadScanner #method:loadScanner# + + accelMapLoadScanner , + + +-- ** lockPath #method:lockPath# + + accelMapLockPath , + + +-- ** lookupEntry #method:lookupEntry# + + accelMapLookupEntry , + + +-- ** save #method:save# + + accelMapSave , + + +-- ** saveFd #method:saveFd# + + accelMapSaveFd , + + +-- ** unlockPath #method:unlockPath# + + accelMapUnlockPath , + + + + + -- * Signals +-- ** changed #signal:changed# + + AccelMapChangedCallback , +#if ENABLE_OVERLOADING + AccelMapChangedSignalInfo , +#endif + C_AccelMapChangedCallback , + afterAccelMapChanged , + genClosure_AccelMapChanged , + mk_AccelMapChangedCallback , + noAccelMapChangedCallback , + onAccelMapChanged , + wrap_AccelMapChangedCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Structs.Scanner as GLib.Scanner +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gdk.Flags as Gdk.Flags +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelKey as Gtk.AccelKey + +-- | Memory-managed wrapper type. +newtype AccelMap = AccelMap (ManagedPtr AccelMap) +foreign import ccall "gtk_accel_map_get_type" + c_gtk_accel_map_get_type :: IO GType + +instance GObject AccelMap where + gobjectType = c_gtk_accel_map_get_type + + +-- | Type class for types which can be safely cast to `AccelMap`, for instance with `toAccelMap`. +class (GObject o, O.IsDescendantOf AccelMap o) => IsAccelMap o +instance (GObject o, O.IsDescendantOf AccelMap o) => IsAccelMap o + +instance O.HasParentTypes AccelMap +type instance O.ParentTypes AccelMap = '[GObject.Object.Object] + +-- | Cast to `AccelMap`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAccelMap :: (MonadIO m, IsAccelMap o) => o -> m AccelMap +toAccelMap = liftIO . unsafeCastTo AccelMap + +-- | A convenience alias for `Nothing` :: `Maybe` `AccelMap`. +noAccelMap :: Maybe AccelMap +noAccelMap = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAccelMapMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelMapMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAccelMapMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAccelMapMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAccelMapMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAccelMapMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAccelMapMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAccelMapMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAccelMapMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAccelMapMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAccelMapMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAccelMapMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAccelMapMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAccelMapMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAccelMapMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAccelMapMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAccelMapMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAccelMapMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAccelMapMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAccelMapMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAccelMapMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAccelMapMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAccelMapMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAccelMapMethod t AccelMap, O.MethodInfo info AccelMap p) => OL.IsLabel t (AccelMap -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal AccelMap::changed +{- | +Notifies of a change in the global accelerator map. +The path is also used as the detail for the signal, +so it is possible to connect to +changed::@accel_path@. + +/Since: 2.4/ +-} +type AccelMapChangedCallback = + T.Text + {- ^ /@accelPath@/: the path of the accelerator that changed -} + -> Word32 + {- ^ /@accelKey@/: the key value for the new accelerator -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: the modifier mask for the new accelerator -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AccelMapChangedCallback`@. +noAccelMapChangedCallback :: Maybe AccelMapChangedCallback +noAccelMapChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AccelMapChangedCallback = + Ptr () -> -- object + CString -> + Word32 -> + CUInt -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AccelMapChangedCallback`. +foreign import ccall "wrapper" + mk_AccelMapChangedCallback :: C_AccelMapChangedCallback -> IO (FunPtr C_AccelMapChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AccelMapChanged :: MonadIO m => AccelMapChangedCallback -> m (GClosure C_AccelMapChangedCallback) +genClosure_AccelMapChanged cb = liftIO $ do + let cb' = wrap_AccelMapChangedCallback cb + mk_AccelMapChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AccelMapChangedCallback` into a `C_AccelMapChangedCallback`. +wrap_AccelMapChangedCallback :: + AccelMapChangedCallback -> + C_AccelMapChangedCallback +wrap_AccelMapChangedCallback _cb _ accelPath accelKey accelMods _ = do + accelPath' <- cstringToText accelPath + let accelMods' = wordToGFlags accelMods + _cb accelPath' accelKey accelMods' + + +{- | +Connect a signal handler for the “@changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' accelMap #changed callback +@ +-} +onAccelMapChanged :: (IsAccelMap a, MonadIO m) => a -> AccelMapChangedCallback -> m SignalHandlerId +onAccelMapChanged obj cb = liftIO $ do + let cb' = wrap_AccelMapChangedCallback cb + cb'' <- mk_AccelMapChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' accelMap #changed callback +@ +-} +afterAccelMapChanged :: (IsAccelMap a, MonadIO m) => a -> AccelMapChangedCallback -> m SignalHandlerId +afterAccelMapChanged obj cb = liftIO $ do + let cb' = wrap_AccelMapChangedCallback cb + cb'' <- mk_AccelMapChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' SignalConnectAfter + + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AccelMap +type instance O.AttributeList AccelMap = AccelMapAttributeList +type AccelMapAttributeList = ('[ ] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +data AccelMapChangedSignalInfo +instance SignalInfo AccelMapChangedSignalInfo where + type HaskellCallbackType AccelMapChangedSignalInfo = AccelMapChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AccelMapChangedCallback cb + cb'' <- mk_AccelMapChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' connectMode + +type instance O.SignalList AccelMap = AccelMapSignalList +type AccelMapSignalList = ('[ '("changed", AccelMapChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AccelMap::add_entry +-- method type : MemberFunction +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "valid accelerator path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator modifiers", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_add_entry" gtk_accel_map_add_entry :: + CString -> -- accel_path : TBasicType TUTF8 + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + IO () + +{- | +Registers a new accelerator with the global accelerator map. +This function should only be called once per /@accelPath@/ +with the canonical /@accelKey@/ and /@accelMods@/ for this path. +To change the accelerator during runtime programatically, use +'GI.Gtk.Objects.AccelMap.accelMapChangeEntry'. + +Set /@accelKey@/ and /@accelMods@/ to 0 to request a removal of +the accelerator. + +Note that /@accelPath@/ string will be stored in a @/GQuark/@. Therefore, if you +pass a static string, you can save some memory by interning it first with +'GI.GLib.Functions.internStaticString'. +-} +accelMapAddEntry :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@accelPath@/: valid accelerator path -} + -> Word32 + {- ^ /@accelKey@/: the accelerator key -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: the accelerator modifiers -} + -> m () +accelMapAddEntry accelPath accelKey accelMods = liftIO $ do + accelPath' <- textToCString accelPath + let accelMods' = gflagsToWord accelMods + gtk_accel_map_add_entry accelPath' accelKey accelMods' + freeMem accelPath' + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::add_filter +-- method type : MemberFunction +-- Args : [Arg {argCName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pattern (see #GPatternSpec)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_add_filter" gtk_accel_map_add_filter :: + CString -> -- filter_pattern : TBasicType TUTF8 + IO () + +{- | +Adds a filter to the global list of accel path filters. + +Accel map entries whose accel path matches one of the filters +are skipped by 'GI.Gtk.Objects.AccelMap.accelMapForeach'. + +This function is intended for GTK+ modules that create their own +menus, but don’t want them to be saved into the applications accelerator +map dump. +-} +accelMapAddFilter :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@filterPattern@/: a pattern (see 'GI.GLib.Structs.PatternSpec.PatternSpec') -} + -> m () +accelMapAddFilter filterPattern = liftIO $ do + filterPattern' <- textToCString filterPattern + gtk_accel_map_add_filter filterPattern' + freeMem filterPattern' + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::change_entry +-- method type : MemberFunction +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid accelerator path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new accelerator key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new accelerator modifiers", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if other accelerators may be deleted upon conflicts", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_change_entry" gtk_accel_map_change_entry :: + CString -> -- accel_path : TBasicType TUTF8 + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) + CInt -> -- replace : TBasicType TBoolean + IO CInt + +{- | +Changes the /@accelKey@/ and /@accelMods@/ currently associated with /@accelPath@/. +Due to conflicts with other accelerators, a change may not always be possible, +/@replace@/ indicates whether other accelerators may be deleted to resolve such +conflicts. A change will only occur if all conflicts could be resolved (which +might not be the case if conflicting accelerators are locked). Successful +changes are indicated by a 'True' return value. + +Note that /@accelPath@/ string will be stored in a @/GQuark/@. Therefore, if you +pass a static string, you can save some memory by interning it first with +'GI.GLib.Functions.internStaticString'. +-} +accelMapChangeEntry :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@accelPath@/: a valid accelerator path -} + -> Word32 + {- ^ /@accelKey@/: the new accelerator key -} + -> [Gdk.Flags.ModifierType] + {- ^ /@accelMods@/: the new accelerator modifiers -} + -> Bool + {- ^ /@replace@/: 'True' if other accelerators may be deleted upon conflicts -} + -> m Bool + {- ^ __Returns:__ 'True' if the accelerator could be changed, 'False' otherwise -} +accelMapChangeEntry accelPath accelKey accelMods replace = liftIO $ do + accelPath' <- textToCString accelPath + let accelMods' = gflagsToWord accelMods + let replace' = (fromIntegral . fromEnum) replace + result <- gtk_accel_map_change_entry accelPath' accelKey accelMods' replace' + let result' = (/= 0) result + freeMem accelPath' + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::foreach +-- method type : MemberFunction +-- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to be passed into @foreach_func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface (Name {namespace = "Gtk", name = "AccelMapForeach"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "function to be executed for each accel\n map entry which is not filtered out", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_foreach" gtk_accel_map_foreach :: + Ptr () -> -- data : TBasicType TPtr + FunPtr Gtk.Callbacks.C_AccelMapForeach -> -- foreach_func : TInterface (Name {namespace = "Gtk", name = "AccelMapForeach"}) + IO () + +{- | +Loops over the entries in the accelerator map whose accel path +doesn’t match any of the filters added with 'GI.Gtk.Objects.AccelMap.accelMapAddFilter', +and execute /@foreachFunc@/ on each. The signature of /@foreachFunc@/ is +that of 'GI.Gtk.Callbacks.AccelMapForeach', the /@changed@/ parameter indicates whether +this accelerator was changed during runtime (thus, would need +saving during an accelerator map dump). +-} +accelMapForeach :: + (B.CallStack.HasCallStack, MonadIO m) => + Ptr () + {- ^ /@data@/: data to be passed into /@foreachFunc@/ -} + -> Gtk.Callbacks.AccelMapForeach + {- ^ /@foreachFunc@/: function to be executed for each accel + map entry which is not filtered out -} + -> m () +accelMapForeach data_ foreachFunc = liftIO $ do + foreachFunc' <- Gtk.Callbacks.mk_AccelMapForeach (Gtk.Callbacks.wrap_AccelMapForeach Nothing foreachFunc) + gtk_accel_map_foreach data_ foreachFunc' + safeFreeFunPtr $ castFunPtrToPtr foreachFunc' + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::foreach_unfiltered +-- method type : MemberFunction +-- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to be passed into @foreach_func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface (Name {namespace = "Gtk", name = "AccelMapForeach"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "function to be executed for each accel\n map entry", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_foreach_unfiltered" gtk_accel_map_foreach_unfiltered :: + Ptr () -> -- data : TBasicType TPtr + FunPtr Gtk.Callbacks.C_AccelMapForeach -> -- foreach_func : TInterface (Name {namespace = "Gtk", name = "AccelMapForeach"}) + IO () + +{- | +Loops over all entries in the accelerator map, and execute +/@foreachFunc@/ on each. The signature of /@foreachFunc@/ is that of +'GI.Gtk.Callbacks.AccelMapForeach', the /@changed@/ parameter indicates whether +this accelerator was changed during runtime (thus, would need +saving during an accelerator map dump). +-} +accelMapForeachUnfiltered :: + (B.CallStack.HasCallStack, MonadIO m) => + Ptr () + {- ^ /@data@/: data to be passed into /@foreachFunc@/ -} + -> Gtk.Callbacks.AccelMapForeach + {- ^ /@foreachFunc@/: function to be executed for each accel + map entry -} + -> m () +accelMapForeachUnfiltered data_ foreachFunc = liftIO $ do + foreachFunc' <- Gtk.Callbacks.mk_AccelMapForeach (Gtk.Callbacks.wrap_AccelMapForeach Nothing foreachFunc) + gtk_accel_map_foreach_unfiltered data_ foreachFunc' + safeFreeFunPtr $ castFunPtrToPtr foreachFunc' + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::get +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AccelMap"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_get" gtk_accel_map_get :: + IO (Ptr AccelMap) + +{- | +Gets the singleton global 'GI.Gtk.Objects.AccelMap.AccelMap' object. This object +is useful only for notification of changes to the accelerator +map via the ::changed signal; it isn’t a parameter to the +other accelerator map functions. + +/Since: 2.4/ +-} +accelMapGet :: + (B.CallStack.HasCallStack, MonadIO m) => + m AccelMap + {- ^ __Returns:__ the global 'GI.Gtk.Objects.AccelMap.AccelMap' object -} +accelMapGet = liftIO $ do + result <- gtk_accel_map_get + checkUnexpectedReturnNULL "accelMapGet" result + result' <- (newObject AccelMap) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::load +-- method type : MemberFunction +-- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file containing accelerator specifications,\n in the GLib file name encoding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_load" gtk_accel_map_load :: + CString -> -- file_name : TBasicType TFileName + IO () + +{- | +Parses a file previously saved with 'GI.Gtk.Objects.AccelMap.accelMapSave' for +accelerator specifications, and propagates them accordingly. +-} +accelMapLoad :: + (B.CallStack.HasCallStack, MonadIO m) => + [Char] + {- ^ /@fileName@/: a file containing accelerator specifications, + in the GLib file name encoding -} + -> m () +accelMapLoad fileName = liftIO $ do + fileName' <- stringToCString fileName + gtk_accel_map_load fileName' + freeMem fileName' + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::load_fd +-- method type : MemberFunction +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid readable file descriptor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_load_fd" gtk_accel_map_load_fd :: + Int32 -> -- fd : TBasicType TInt + IO () + +{- | +Filedescriptor variant of 'GI.Gtk.Objects.AccelMap.accelMapLoad'. + +Note that the file descriptor will not be closed by this function. +-} +accelMapLoadFd :: + (B.CallStack.HasCallStack, MonadIO m) => + Int32 + {- ^ /@fd@/: a valid readable file descriptor -} + -> m () +accelMapLoadFd fd = liftIO $ do + gtk_accel_map_load_fd fd + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::load_scanner +-- method type : MemberFunction +-- Args : [Arg {argCName = "scanner", argType = TInterface (Name {namespace = "GLib", name = "Scanner"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GScanner which has already been provided with an input file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_load_scanner" gtk_accel_map_load_scanner :: + Ptr GLib.Scanner.Scanner -> -- scanner : TInterface (Name {namespace = "GLib", name = "Scanner"}) + IO () + +{- | +'GI.GLib.Structs.Scanner.Scanner' variant of 'GI.Gtk.Objects.AccelMap.accelMapLoad'. +-} +accelMapLoadScanner :: + (B.CallStack.HasCallStack, MonadIO m) => + GLib.Scanner.Scanner + {- ^ /@scanner@/: a 'GI.GLib.Structs.Scanner.Scanner' which has already been provided with an input file -} + -> m () +accelMapLoadScanner scanner = liftIO $ do + scanner' <- unsafeManagedPtrGetPtr scanner + gtk_accel_map_load_scanner scanner' + touchManagedPtr scanner + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::lock_path +-- method type : MemberFunction +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid accelerator path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_lock_path" gtk_accel_map_lock_path :: + CString -> -- accel_path : TBasicType TUTF8 + IO () + +{- | +Locks the given accelerator path. If the accelerator map doesn’t yet contain +an entry for /@accelPath@/, a new one is created. + +Locking an accelerator path prevents its accelerator from being changed +during runtime. A locked accelerator path can be unlocked by +'GI.Gtk.Objects.AccelMap.accelMapUnlockPath'. Refer to 'GI.Gtk.Objects.AccelMap.accelMapChangeEntry' +for information about runtime accelerator changes. + +If called more than once, /@accelPath@/ remains locked until +'GI.Gtk.Objects.AccelMap.accelMapUnlockPath' has been called an equivalent number +of times. + +Note that locking of individual accelerator paths is independent from +locking the 'GI.Gtk.Objects.AccelGroup.AccelGroup' containing them. For runtime accelerator +changes to be possible, both the accelerator path and its 'GI.Gtk.Objects.AccelGroup.AccelGroup' +have to be unlocked. + +/Since: 2.4/ +-} +accelMapLockPath :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@accelPath@/: a valid accelerator path -} + -> m () +accelMapLockPath accelPath = liftIO $ do + accelPath' <- textToCString accelPath + gtk_accel_map_lock_path accelPath' + freeMem accelPath' + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::lookup_entry +-- method type : MemberFunction +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid accelerator path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TInterface (Name {namespace = "Gtk", name = "AccelKey"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator key to be filled in (optional)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_lookup_entry" gtk_accel_map_lookup_entry :: + CString -> -- accel_path : TBasicType TUTF8 + Ptr Gtk.AccelKey.AccelKey -> -- key : TInterface (Name {namespace = "Gtk", name = "AccelKey"}) + IO CInt + +{- | +Looks up the accelerator entry for /@accelPath@/ and fills in /@key@/. +-} +accelMapLookupEntry :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@accelPath@/: a valid accelerator path -} + -> m ((Bool, Gtk.AccelKey.AccelKey)) + {- ^ __Returns:__ 'True' if /@accelPath@/ is known, 'False' otherwise -} +accelMapLookupEntry accelPath = liftIO $ do + accelPath' <- textToCString accelPath + key <- callocBytes 12 :: IO (Ptr Gtk.AccelKey.AccelKey) + result <- gtk_accel_map_lookup_entry accelPath' key + let result' = (/= 0) result + key' <- (wrapPtr Gtk.AccelKey.AccelKey) key + freeMem accelPath' + return (result', key') + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::save +-- method type : MemberFunction +-- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the file to contain\n accelerator specifications, in the GLib file name encoding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_save" gtk_accel_map_save :: + CString -> -- file_name : TBasicType TFileName + IO () + +{- | +Saves current accelerator specifications (accelerator path, key +and modifiers) to /@fileName@/. +The file is written in a format suitable to be read back in by +'GI.Gtk.Objects.AccelMap.accelMapLoad'. +-} +accelMapSave :: + (B.CallStack.HasCallStack, MonadIO m) => + [Char] + {- ^ /@fileName@/: the name of the file to contain + accelerator specifications, in the GLib file name encoding -} + -> m () +accelMapSave fileName = liftIO $ do + fileName' <- stringToCString fileName + gtk_accel_map_save fileName' + freeMem fileName' + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::save_fd +-- method type : MemberFunction +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid writable file descriptor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_save_fd" gtk_accel_map_save_fd :: + Int32 -> -- fd : TBasicType TInt + IO () + +{- | +Filedescriptor variant of 'GI.Gtk.Objects.AccelMap.accelMapSave'. + +Note that the file descriptor will not be closed by this function. +-} +accelMapSaveFd :: + (B.CallStack.HasCallStack, MonadIO m) => + Int32 + {- ^ /@fd@/: a valid writable file descriptor -} + -> m () +accelMapSaveFd fd = liftIO $ do + gtk_accel_map_save_fd fd + return () + +#if ENABLE_OVERLOADING +#endif + +-- method AccelMap::unlock_path +-- method type : MemberFunction +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid accelerator path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accel_map_unlock_path" gtk_accel_map_unlock_path :: + CString -> -- accel_path : TBasicType TUTF8 + IO () + +{- | +Undoes the last call to 'GI.Gtk.Objects.AccelMap.accelMapLockPath' on this /@accelPath@/. +Refer to 'GI.Gtk.Objects.AccelMap.accelMapLockPath' for information about accelerator path locking. + +/Since: 2.4/ +-} +accelMapUnlockPath :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@accelPath@/: a valid accelerator path -} + -> m () +accelMapUnlockPath accelPath = liftIO $ do + accelPath' <- textToCString accelPath + gtk_accel_map_unlock_path accelPath' + freeMem accelPath' + return () + +#if ENABLE_OVERLOADING +#endif + + diff --git a/GI/Gtk/Objects/AccelMap.hs-boot b/GI/Gtk/Objects/AccelMap.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AccelMap.hs-boot @@ -0,0 +1,32 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AccelMap where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AccelMap = AccelMap (ManagedPtr AccelMap) +instance GObject AccelMap where +class (GObject o, O.IsDescendantOf AccelMap o) => IsAccelMap o +instance (GObject o, O.IsDescendantOf AccelMap o) => IsAccelMap o +instance O.HasParentTypes AccelMap +#if ENABLE_OVERLOADING +data AccelMapChangedSignalInfo +#endif diff --git a/GI/Gtk/Objects/Accessible.hs b/GI/Gtk/Objects/Accessible.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Accessible.hs @@ -0,0 +1,392 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Objects.Accessible.Accessible' class is the base class for accessible +implementations for 'GI.Gtk.Objects.Widget.Widget' subclasses. It is a thin +wrapper around 'GI.Atk.Objects.Object.Object', which adds facilities for associating +a widget with its accessible object. + +An accessible implementation for a third-party widget should +derive from 'GI.Gtk.Objects.Accessible.Accessible' and implement the suitable interfaces +from ATK, such as 'GI.Atk.Interfaces.Text.Text' or 'GI.Atk.Interfaces.Selection.Selection'. To establish +the connection between the widget class and its corresponding +acccessible implementation, override the get_accessible vfunc +in 'GI.Gtk.Structs.WidgetClass.WidgetClass'. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Accessible + ( + +-- * Exported types + Accessible(..) , + IsAccessible , + toAccessible , + noAccessible , + + + -- * Methods +-- ** connectWidgetDestroyed #method:connectWidgetDestroyed# + +#if ENABLE_OVERLOADING + AccessibleConnectWidgetDestroyedMethodInfo, +#endif + accessibleConnectWidgetDestroyed , + + +-- ** getWidget #method:getWidget# + +#if ENABLE_OVERLOADING + AccessibleGetWidgetMethodInfo , +#endif + accessibleGetWidget , + + +-- ** setWidget #method:setWidget# + +#if ENABLE_OVERLOADING + AccessibleSetWidgetMethodInfo , +#endif + accessibleSetWidget , + + + + + -- * Properties +-- ** widget #attr:widget# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AccessibleWidgetPropertyInfo , +#endif +#if ENABLE_OVERLOADING + accessibleWidget , +#endif + clearAccessibleWidget , + constructAccessibleWidget , + getAccessibleWidget , + setAccessibleWidget , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Objects.Object as Atk.Object +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype Accessible = Accessible (ManagedPtr Accessible) +foreign import ccall "gtk_accessible_get_type" + c_gtk_accessible_get_type :: IO GType + +instance GObject Accessible where + gobjectType = c_gtk_accessible_get_type + + +-- | Type class for types which can be safely cast to `Accessible`, for instance with `toAccessible`. +class (GObject o, O.IsDescendantOf Accessible o) => IsAccessible o +instance (GObject o, O.IsDescendantOf Accessible o) => IsAccessible o + +instance O.HasParentTypes Accessible +type instance O.ParentTypes Accessible = '[Atk.Object.Object, GObject.Object.Object] + +-- | Cast to `Accessible`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAccessible :: (MonadIO m, IsAccessible o) => o -> m Accessible +toAccessible = liftIO . unsafeCastTo Accessible + +-- | A convenience alias for `Nothing` :: `Maybe` `Accessible`. +noAccessible :: Maybe Accessible +noAccessible = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo + ResolveAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo + ResolveAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo + ResolveAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo + ResolveAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo + ResolveAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo + ResolveAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo + ResolveAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo + ResolveAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo + ResolveAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo + ResolveAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo + ResolveAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo + ResolveAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo + ResolveAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo + ResolveAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo + ResolveAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo + ResolveAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo + ResolveAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo + ResolveAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo + ResolveAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo + ResolveAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo + ResolveAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo + ResolveAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveAccessibleMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAccessibleMethod t Accessible, O.MethodInfo info Accessible p) => OL.IsLabel t (Accessible -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- VVV Prop "widget" + -- Type: TInterface (Name {namespace = "Gtk", name = "Widget"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just True) + +{- | +Get the value of the “@widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' accessible #widget +@ +-} +getAccessibleWidget :: (MonadIO m, IsAccessible o) => o -> m (Maybe Gtk.Widget.Widget) +getAccessibleWidget obj = liftIO $ B.Properties.getObjectPropertyObject obj "widget" Gtk.Widget.Widget + +{- | +Set the value of the “@widget@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' accessible [ #widget 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAccessibleWidget :: (MonadIO m, IsAccessible o, Gtk.Widget.IsWidget a) => o -> a -> m () +setAccessibleWidget obj val = liftIO $ B.Properties.setObjectPropertyObject obj "widget" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@widget@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAccessibleWidget :: (IsAccessible o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o) +constructAccessibleWidget val = B.Properties.constructObjectPropertyObject "widget" (Just val) + +{- | +Set the value of the “@widget@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #widget +@ +-} +clearAccessibleWidget :: (MonadIO m, IsAccessible o) => o -> m () +clearAccessibleWidget obj = liftIO $ B.Properties.setObjectPropertyObject obj "widget" (Nothing :: Maybe Gtk.Widget.Widget) + +#if ENABLE_OVERLOADING +data AccessibleWidgetPropertyInfo +instance AttrInfo AccessibleWidgetPropertyInfo where + type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AccessibleWidgetPropertyInfo = Gtk.Widget.IsWidget + type AttrBaseTypeConstraint AccessibleWidgetPropertyInfo = IsAccessible + type AttrGetType AccessibleWidgetPropertyInfo = (Maybe Gtk.Widget.Widget) + type AttrLabel AccessibleWidgetPropertyInfo = "widget" + type AttrOrigin AccessibleWidgetPropertyInfo = Accessible + attrGet _ = getAccessibleWidget + attrSet _ = setAccessibleWidget + attrConstruct _ = constructAccessibleWidget + attrClear _ = clearAccessibleWidget +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Accessible +type instance O.AttributeList Accessible = AccessibleAttributeList +type AccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.Object.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.Object.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.Object.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.Object.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.Object.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.Object.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.Object.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.Object.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.Object.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.Object.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.Object.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.Object.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.Object.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.Object.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.Object.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +accessibleWidget :: AttrLabelProxy "widget" +accessibleWidget = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList Accessible = AccessibleSignalList +type AccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Accessible::connect_widget_destroyed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accessible", argType = TInterface (Name {namespace = "Gtk", name = "Accessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccessible", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accessible_connect_widget_destroyed" gtk_accessible_connect_widget_destroyed :: + Ptr Accessible -> -- accessible : TInterface (Name {namespace = "Gtk", name = "Accessible"}) + IO () + +{-# DEPRECATED accessibleConnectWidgetDestroyed ["(Since version 3.4)","Use 'GI.Gtk.Objects.Accessible.accessibleSetWidget' and its vfuncs."] #-} +{- | +This function specifies the callback function to be called +when the widget corresponding to a GtkAccessible is destroyed. +-} +accessibleConnectWidgetDestroyed :: + (B.CallStack.HasCallStack, MonadIO m, IsAccessible a) => + a + {- ^ /@accessible@/: a 'GI.Gtk.Objects.Accessible.Accessible' -} + -> m () +accessibleConnectWidgetDestroyed accessible = liftIO $ do + accessible' <- unsafeManagedPtrCastPtr accessible + gtk_accessible_connect_widget_destroyed accessible' + touchManagedPtr accessible + return () + +#if ENABLE_OVERLOADING +data AccessibleConnectWidgetDestroyedMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAccessible a) => O.MethodInfo AccessibleConnectWidgetDestroyedMethodInfo a signature where + overloadedMethod _ = accessibleConnectWidgetDestroyed + +#endif + +-- method Accessible::get_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accessible", argType = TInterface (Name {namespace = "Gtk", name = "Accessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccessible", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accessible_get_widget" gtk_accessible_get_widget :: + Ptr Accessible -> -- accessible : TInterface (Name {namespace = "Gtk", name = "Accessible"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Gets the 'GI.Gtk.Objects.Widget.Widget' corresponding to the 'GI.Gtk.Objects.Accessible.Accessible'. +The returned widget does not have a reference added, so +you do not need to unref it. + +/Since: 2.22/ +-} +accessibleGetWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsAccessible a) => + a + {- ^ /@accessible@/: a 'GI.Gtk.Objects.Accessible.Accessible' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ pointer to the 'GI.Gtk.Objects.Widget.Widget' + corresponding to the 'GI.Gtk.Objects.Accessible.Accessible', or 'Nothing'. -} +accessibleGetWidget accessible = liftIO $ do + accessible' <- unsafeManagedPtrCastPtr accessible + result <- gtk_accessible_get_widget accessible' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr accessible + return maybeResult + +#if ENABLE_OVERLOADING +data AccessibleGetWidgetMethodInfo +instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsAccessible a) => O.MethodInfo AccessibleGetWidgetMethodInfo a signature where + overloadedMethod _ = accessibleGetWidget + +#endif + +-- method Accessible::set_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "accessible", argType = TInterface (Name {namespace = "Gtk", name = "Accessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAccessible", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkWidget or %NULL to unset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_accessible_set_widget" gtk_accessible_set_widget :: + Ptr Accessible -> -- accessible : TInterface (Name {namespace = "Gtk", name = "Accessible"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Sets the 'GI.Gtk.Objects.Widget.Widget' corresponding to the 'GI.Gtk.Objects.Accessible.Accessible'. + +/@accessible@/ will not hold a reference to /@widget@/. +It is the caller’s responsibility to ensure that when /@widget@/ +is destroyed, the widget is unset by calling this function +again with /@widget@/ set to 'Nothing'. + +/Since: 2.22/ +-} +accessibleSetWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsAccessible a, Gtk.Widget.IsWidget b) => + a + {- ^ /@accessible@/: a 'GI.Gtk.Objects.Accessible.Accessible' -} + -> Maybe (b) + {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' or 'Nothing' to unset -} + -> m () +accessibleSetWidget accessible widget = liftIO $ do + accessible' <- unsafeManagedPtrCastPtr accessible + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + gtk_accessible_set_widget accessible' maybeWidget + touchManagedPtr accessible + whenJust widget touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data AccessibleSetWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsAccessible a, Gtk.Widget.IsWidget b) => O.MethodInfo AccessibleSetWidgetMethodInfo a signature where + overloadedMethod _ = accessibleSetWidget + +#endif + + diff --git a/GI/Gtk/Objects/Accessible.hs-boot b/GI/Gtk/Objects/Accessible.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Accessible.hs-boot @@ -0,0 +1,41 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Accessible where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Accessible = Accessible (ManagedPtr Accessible) +instance GObject Accessible where +class (GObject o, O.IsDescendantOf Accessible o) => IsAccessible o +instance (GObject o, O.IsDescendantOf Accessible o) => IsAccessible o +instance O.HasParentTypes Accessible +#if ENABLE_OVERLOADING +data AccessibleWidgetPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AccessibleConnectWidgetDestroyedMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccessibleGetWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data AccessibleSetWidgetMethodInfo +#endif diff --git a/GI/Gtk/Objects/Action.hs b/GI/Gtk/Objects/Action.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Action.hs @@ -0,0 +1,3457 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +> In GTK+ 3.10, GtkAction has been deprecated. Use 'GI.Gio.Interfaces.Action.Action' +> instead, and associate actions with 'GI.Gtk.Interfaces.Actionable.Actionable' widgets. Use +> 'GI.Gio.Objects.MenuModel.MenuModel' for creating menus with 'GI.Gtk.Objects.Menu.menuNewFromModel'. + +Actions represent operations that the user can be perform, along with +some information how it should be presented in the interface. Each action +provides methods to create icons, menu items and toolbar items +representing itself. + +As well as the callback that is called when the action gets activated, +the following also gets associated with the action: + +* a name (not translated, for path lookup) +* a label (translated, for display) +* an accelerator +* whether label indicates a stock id +* a tooltip (optional, translated) +* a toolbar label (optional, shorter than label) + + + +The action will also have some state information: + +* visible (shown\/hidden) +* sensitive (enabled\/disabled) + + +Apart from regular actions, there are [toggle actions][GtkToggleAction], +which can be toggled between two states and +[radio actions][GtkRadioAction], of which only one in a group +can be in the “active” state. Other actions can be implemented as 'GI.Gtk.Objects.Action.Action' +subclasses. + +Each action can have one or more proxy widgets. To act as an action proxy, +widget needs to implement 'GI.Gtk.Interfaces.Activatable.Activatable' interface. Proxies mirror the state +of the action and should change when the action’s state changes. Properties +that are always mirrored by proxies are 'GI.Gtk.Objects.Action.Action':@/sensitive/@ and +'GI.Gtk.Objects.Action.Action':@/visible/@. 'GI.Gtk.Objects.Action.Action':@/gicon/@, 'GI.Gtk.Objects.Action.Action':@/icon-name/@, 'GI.Gtk.Objects.Action.Action':@/label/@, +'GI.Gtk.Objects.Action.Action':@/short-label/@ and 'GI.Gtk.Objects.Action.Action':@/stock-id/@ properties are only mirorred +if proxy widget has 'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ property set to +'True'. + +When the proxy is activated, it should activate its action. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Action + ( + +-- * Exported types + Action(..) , + IsAction , + toAction , + noAction , + + + -- * Methods +-- ** activate #method:activate# + +#if ENABLE_OVERLOADING + ActionActivateMethodInfo , +#endif + actionActivate , + + +-- ** blockActivate #method:blockActivate# + +#if ENABLE_OVERLOADING + ActionBlockActivateMethodInfo , +#endif + actionBlockActivate , + + +-- ** connectAccelerator #method:connectAccelerator# + +#if ENABLE_OVERLOADING + ActionConnectAcceleratorMethodInfo , +#endif + actionConnectAccelerator , + + +-- ** createIcon #method:createIcon# + +#if ENABLE_OVERLOADING + ActionCreateIconMethodInfo , +#endif + actionCreateIcon , + + +-- ** createMenu #method:createMenu# + +#if ENABLE_OVERLOADING + ActionCreateMenuMethodInfo , +#endif + actionCreateMenu , + + +-- ** createMenuItem #method:createMenuItem# + +#if ENABLE_OVERLOADING + ActionCreateMenuItemMethodInfo , +#endif + actionCreateMenuItem , + + +-- ** createToolItem #method:createToolItem# + +#if ENABLE_OVERLOADING + ActionCreateToolItemMethodInfo , +#endif + actionCreateToolItem , + + +-- ** disconnectAccelerator #method:disconnectAccelerator# + +#if ENABLE_OVERLOADING + ActionDisconnectAcceleratorMethodInfo , +#endif + actionDisconnectAccelerator , + + +-- ** getAccelClosure #method:getAccelClosure# + +#if ENABLE_OVERLOADING + ActionGetAccelClosureMethodInfo , +#endif + actionGetAccelClosure , + + +-- ** getAccelPath #method:getAccelPath# + +#if ENABLE_OVERLOADING + ActionGetAccelPathMethodInfo , +#endif + actionGetAccelPath , + + +-- ** getAlwaysShowImage #method:getAlwaysShowImage# + +#if ENABLE_OVERLOADING + ActionGetAlwaysShowImageMethodInfo , +#endif + actionGetAlwaysShowImage , + + +-- ** getGicon #method:getGicon# + +#if ENABLE_OVERLOADING + ActionGetGiconMethodInfo , +#endif + actionGetGicon , + + +-- ** getIconName #method:getIconName# + +#if ENABLE_OVERLOADING + ActionGetIconNameMethodInfo , +#endif + actionGetIconName , + + +-- ** getIsImportant #method:getIsImportant# + +#if ENABLE_OVERLOADING + ActionGetIsImportantMethodInfo , +#endif + actionGetIsImportant , + + +-- ** getLabel #method:getLabel# + +#if ENABLE_OVERLOADING + ActionGetLabelMethodInfo , +#endif + actionGetLabel , + + +-- ** getName #method:getName# + +#if ENABLE_OVERLOADING + ActionGetNameMethodInfo , +#endif + actionGetName , + + +-- ** getProxies #method:getProxies# + +#if ENABLE_OVERLOADING + ActionGetProxiesMethodInfo , +#endif + actionGetProxies , + + +-- ** getSensitive #method:getSensitive# + +#if ENABLE_OVERLOADING + ActionGetSensitiveMethodInfo , +#endif + actionGetSensitive , + + +-- ** getShortLabel #method:getShortLabel# + +#if ENABLE_OVERLOADING + ActionGetShortLabelMethodInfo , +#endif + actionGetShortLabel , + + +-- ** getStockId #method:getStockId# + +#if ENABLE_OVERLOADING + ActionGetStockIdMethodInfo , +#endif + actionGetStockId , + + +-- ** getTooltip #method:getTooltip# + +#if ENABLE_OVERLOADING + ActionGetTooltipMethodInfo , +#endif + actionGetTooltip , + + +-- ** getVisible #method:getVisible# + +#if ENABLE_OVERLOADING + ActionGetVisibleMethodInfo , +#endif + actionGetVisible , + + +-- ** getVisibleHorizontal #method:getVisibleHorizontal# + +#if ENABLE_OVERLOADING + ActionGetVisibleHorizontalMethodInfo , +#endif + actionGetVisibleHorizontal , + + +-- ** getVisibleVertical #method:getVisibleVertical# + +#if ENABLE_OVERLOADING + ActionGetVisibleVerticalMethodInfo , +#endif + actionGetVisibleVertical , + + +-- ** isSensitive #method:isSensitive# + +#if ENABLE_OVERLOADING + ActionIsSensitiveMethodInfo , +#endif + actionIsSensitive , + + +-- ** isVisible #method:isVisible# + +#if ENABLE_OVERLOADING + ActionIsVisibleMethodInfo , +#endif + actionIsVisible , + + +-- ** new #method:new# + + actionNew , + + +-- ** setAccelGroup #method:setAccelGroup# + +#if ENABLE_OVERLOADING + ActionSetAccelGroupMethodInfo , +#endif + actionSetAccelGroup , + + +-- ** setAccelPath #method:setAccelPath# + +#if ENABLE_OVERLOADING + ActionSetAccelPathMethodInfo , +#endif + actionSetAccelPath , + + +-- ** setAlwaysShowImage #method:setAlwaysShowImage# + +#if ENABLE_OVERLOADING + ActionSetAlwaysShowImageMethodInfo , +#endif + actionSetAlwaysShowImage , + + +-- ** setGicon #method:setGicon# + +#if ENABLE_OVERLOADING + ActionSetGiconMethodInfo , +#endif + actionSetGicon , + + +-- ** setIconName #method:setIconName# + +#if ENABLE_OVERLOADING + ActionSetIconNameMethodInfo , +#endif + actionSetIconName , + + +-- ** setIsImportant #method:setIsImportant# + +#if ENABLE_OVERLOADING + ActionSetIsImportantMethodInfo , +#endif + actionSetIsImportant , + + +-- ** setLabel #method:setLabel# + +#if ENABLE_OVERLOADING + ActionSetLabelMethodInfo , +#endif + actionSetLabel , + + +-- ** setSensitive #method:setSensitive# + +#if ENABLE_OVERLOADING + ActionSetSensitiveMethodInfo , +#endif + actionSetSensitive , + + +-- ** setShortLabel #method:setShortLabel# + +#if ENABLE_OVERLOADING + ActionSetShortLabelMethodInfo , +#endif + actionSetShortLabel , + + +-- ** setStockId #method:setStockId# + +#if ENABLE_OVERLOADING + ActionSetStockIdMethodInfo , +#endif + actionSetStockId , + + +-- ** setTooltip #method:setTooltip# + +#if ENABLE_OVERLOADING + ActionSetTooltipMethodInfo , +#endif + actionSetTooltip , + + +-- ** setVisible #method:setVisible# + +#if ENABLE_OVERLOADING + ActionSetVisibleMethodInfo , +#endif + actionSetVisible , + + +-- ** setVisibleHorizontal #method:setVisibleHorizontal# + +#if ENABLE_OVERLOADING + ActionSetVisibleHorizontalMethodInfo , +#endif + actionSetVisibleHorizontal , + + +-- ** setVisibleVertical #method:setVisibleVertical# + +#if ENABLE_OVERLOADING + ActionSetVisibleVerticalMethodInfo , +#endif + actionSetVisibleVertical , + + +-- ** unblockActivate #method:unblockActivate# + +#if ENABLE_OVERLOADING + ActionUnblockActivateMethodInfo , +#endif + actionUnblockActivate , + + + + + -- * Properties +-- ** actionGroup #attr:actionGroup# +{- | The GtkActionGroup this GtkAction is associated with, or NULL +(for internal use). +-} +#if ENABLE_OVERLOADING + ActionActionGroupPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionActionGroup , +#endif + clearActionActionGroup , + constructActionActionGroup , + getActionActionGroup , + setActionActionGroup , + + +-- ** alwaysShowImage #attr:alwaysShowImage# +{- | If 'True', the action\'s menu item proxies will ignore the 'GI.Gtk.Objects.Settings.Settings':@/gtk-menu-images/@ +setting and always show their image, if available. + +Use this property if the menu item would be useless or hard to use +without their image. + +/Since: 2.20/ +-} +#if ENABLE_OVERLOADING + ActionAlwaysShowImagePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionAlwaysShowImage , +#endif + constructActionAlwaysShowImage , + getActionAlwaysShowImage , + setActionAlwaysShowImage , + + +-- ** gicon #attr:gicon# +{- | The 'GI.Gio.Interfaces.Icon.Icon' displayed in the 'GI.Gtk.Objects.Action.Action'. + +Note that the stock icon is preferred, if the 'GI.Gtk.Objects.Action.Action':@/stock-id/@ +property holds the id of an existing stock icon. + +This is an appearance property and thus only applies if +'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ is 'True'. + +/Since: 2.16/ +-} +#if ENABLE_OVERLOADING + ActionGiconPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionGicon , +#endif + constructActionGicon , + getActionGicon , + setActionGicon , + + +-- ** hideIfEmpty #attr:hideIfEmpty# +{- | When TRUE, empty menu proxies for this action are hidden. +-} +#if ENABLE_OVERLOADING + ActionHideIfEmptyPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionHideIfEmpty , +#endif + constructActionHideIfEmpty , + getActionHideIfEmpty , + setActionHideIfEmpty , + + +-- ** iconName #attr:iconName# +{- | The name of the icon from the icon theme. + +Note that the stock icon is preferred, if the 'GI.Gtk.Objects.Action.Action':@/stock-id/@ +property holds the id of an existing stock icon, and the 'GI.Gio.Interfaces.Icon.Icon' is +preferred if the 'GI.Gtk.Objects.Action.Action':@/gicon/@ property is set. + +This is an appearance property and thus only applies if +'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ is 'True'. + +/Since: 2.10/ +-} +#if ENABLE_OVERLOADING + ActionIconNamePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionIconName , +#endif + constructActionIconName , + getActionIconName , + setActionIconName , + + +-- ** isImportant #attr:isImportant# +{- | Whether the action is considered important. When TRUE, toolitem +proxies for this action show text in GTK_TOOLBAR_BOTH_HORIZ mode. +-} +#if ENABLE_OVERLOADING + ActionIsImportantPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionIsImportant , +#endif + constructActionIsImportant , + getActionIsImportant , + setActionIsImportant , + + +-- ** label #attr:label# +{- | The label used for menu items and buttons that activate +this action. If the label is 'Nothing', GTK+ uses the stock +label specified via the stock-id property. + +This is an appearance property and thus only applies if +'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ is 'True'. +-} +#if ENABLE_OVERLOADING + ActionLabelPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionLabel , +#endif + constructActionLabel , + getActionLabel , + setActionLabel , + + +-- ** name #attr:name# +{- | A unique name for the action. +-} +#if ENABLE_OVERLOADING + ActionNamePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionName , +#endif + constructActionName , + getActionName , + + +-- ** sensitive #attr:sensitive# +{- | Whether the action is enabled. +-} +#if ENABLE_OVERLOADING + ActionSensitivePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionSensitive , +#endif + constructActionSensitive , + getActionSensitive , + setActionSensitive , + + +-- ** shortLabel #attr:shortLabel# +{- | A shorter label that may be used on toolbar buttons. + +This is an appearance property and thus only applies if +'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ is 'True'. +-} +#if ENABLE_OVERLOADING + ActionShortLabelPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionShortLabel , +#endif + constructActionShortLabel , + getActionShortLabel , + setActionShortLabel , + + +-- ** stockId #attr:stockId# +{- | The stock icon displayed in widgets representing this action. + +This is an appearance property and thus only applies if +'GI.Gtk.Interfaces.Activatable.Activatable':@/use-action-appearance/@ is 'True'. +-} +#if ENABLE_OVERLOADING + ActionStockIdPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionStockId , +#endif + constructActionStockId , + getActionStockId , + setActionStockId , + + +-- ** tooltip #attr:tooltip# +{- | A tooltip for this action. +-} +#if ENABLE_OVERLOADING + ActionTooltipPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionTooltip , +#endif + constructActionTooltip , + getActionTooltip , + setActionTooltip , + + +-- ** visible #attr:visible# +{- | Whether the action is visible. +-} +#if ENABLE_OVERLOADING + ActionVisiblePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionVisible , +#endif + constructActionVisible , + getActionVisible , + setActionVisible , + + +-- ** visibleHorizontal #attr:visibleHorizontal# +{- | Whether the toolbar item is visible when the toolbar is in a horizontal orientation. +-} +#if ENABLE_OVERLOADING + ActionVisibleHorizontalPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionVisibleHorizontal , +#endif + constructActionVisibleHorizontal , + getActionVisibleHorizontal , + setActionVisibleHorizontal , + + +-- ** visibleOverflown #attr:visibleOverflown# +{- | When 'True', toolitem proxies for this action are represented in the +toolbar overflow menu. + +/Since: 2.6/ +-} +#if ENABLE_OVERLOADING + ActionVisibleOverflownPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionVisibleOverflown , +#endif + constructActionVisibleOverflown , + getActionVisibleOverflown , + setActionVisibleOverflown , + + +-- ** visibleVertical #attr:visibleVertical# +{- | Whether the toolbar item is visible when the toolbar is in a vertical orientation. +-} +#if ENABLE_OVERLOADING + ActionVisibleVerticalPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionVisibleVertical , +#endif + constructActionVisibleVertical , + getActionVisibleVertical , + setActionVisibleVertical , + + + + + -- * Signals +-- ** activate #signal:activate# + + ActionActivateCallback , +#if ENABLE_OVERLOADING + ActionActivateSignalInfo , +#endif + C_ActionActivateCallback , + afterActionActivate , + genClosure_ActionActivate , + mk_ActionActivateCallback , + noActionActivateCallback , + onActionActivate , + wrap_ActionActivateCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Interfaces.Icon as Gio.Icon +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup +import {-# SOURCE #-} qualified GI.Gtk.Objects.ActionGroup as Gtk.ActionGroup +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype Action = Action (ManagedPtr Action) +foreign import ccall "gtk_action_get_type" + c_gtk_action_get_type :: IO GType + +instance GObject Action where + gobjectType = c_gtk_action_get_type + + +-- | Type class for types which can be safely cast to `Action`, for instance with `toAction`. +class (GObject o, O.IsDescendantOf Action o) => IsAction o +instance (GObject o, O.IsDescendantOf Action o) => IsAction o + +instance O.HasParentTypes Action +type instance O.ParentTypes Action = '[GObject.Object.Object, Gtk.Buildable.Buildable] + +-- | Cast to `Action`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAction :: (MonadIO m, IsAction o) => o -> m Action +toAction = liftIO . unsafeCastTo Action + +-- | A convenience alias for `Nothing` :: `Maybe` `Action`. +noAction :: Maybe Action +noAction = Nothing + +#if ENABLE_OVERLOADING +type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where + ResolveActionMethod "activate" o = ActionActivateMethodInfo + ResolveActionMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveActionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveActionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveActionMethod "blockActivate" o = ActionBlockActivateMethodInfo + ResolveActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo + ResolveActionMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveActionMethod "createIcon" o = ActionCreateIconMethodInfo + ResolveActionMethod "createMenu" o = ActionCreateMenuMethodInfo + ResolveActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo + ResolveActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo + ResolveActionMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveActionMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveActionMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo + ResolveActionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveActionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveActionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveActionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo + ResolveActionMethod "isVisible" o = ActionIsVisibleMethodInfo + ResolveActionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveActionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveActionMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveActionMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveActionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveActionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveActionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveActionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveActionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo + ResolveActionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveActionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo + ResolveActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo + ResolveActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo + ResolveActionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveActionMethod "getGicon" o = ActionGetGiconMethodInfo + ResolveActionMethod "getIconName" o = ActionGetIconNameMethodInfo + ResolveActionMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo + ResolveActionMethod "getLabel" o = ActionGetLabelMethodInfo + ResolveActionMethod "getName" o = ActionGetNameMethodInfo + ResolveActionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveActionMethod "getProxies" o = ActionGetProxiesMethodInfo + ResolveActionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo + ResolveActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo + ResolveActionMethod "getStockId" o = ActionGetStockIdMethodInfo + ResolveActionMethod "getTooltip" o = ActionGetTooltipMethodInfo + ResolveActionMethod "getVisible" o = ActionGetVisibleMethodInfo + ResolveActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo + ResolveActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo + ResolveActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo + ResolveActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo + ResolveActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo + ResolveActionMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveActionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveActionMethod "setGicon" o = ActionSetGiconMethodInfo + ResolveActionMethod "setIconName" o = ActionSetIconNameMethodInfo + ResolveActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo + ResolveActionMethod "setLabel" o = ActionSetLabelMethodInfo + ResolveActionMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo + ResolveActionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo + ResolveActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo + ResolveActionMethod "setStockId" o = ActionSetStockIdMethodInfo + ResolveActionMethod "setTooltip" o = ActionSetTooltipMethodInfo + ResolveActionMethod "setVisible" o = ActionSetVisibleMethodInfo + ResolveActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo + ResolveActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo + ResolveActionMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveActionMethod t Action, O.MethodInfo info Action p) => OL.IsLabel t (Action -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal Action::activate +{-# DEPRECATED ActionActivateCallback ["(Since version 3.10)","Use 'GI.Gio.Objects.SimpleAction.SimpleAction'::@/activate/@ instead"] #-} +{- | +The \"activate\" signal is emitted when the action is activated. + +/Since: 2.4/ +-} +type ActionActivateCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ActionActivateCallback`@. +noActionActivateCallback :: Maybe ActionActivateCallback +noActionActivateCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ActionActivateCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ActionActivateCallback`. +foreign import ccall "wrapper" + mk_ActionActivateCallback :: C_ActionActivateCallback -> IO (FunPtr C_ActionActivateCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ActionActivate :: MonadIO m => ActionActivateCallback -> m (GClosure C_ActionActivateCallback) +genClosure_ActionActivate cb = liftIO $ do + let cb' = wrap_ActionActivateCallback cb + mk_ActionActivateCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ActionActivateCallback` into a `C_ActionActivateCallback`. +wrap_ActionActivateCallback :: + ActionActivateCallback -> + C_ActionActivateCallback +wrap_ActionActivateCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@activate@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' action #activate callback +@ +-} +onActionActivate :: (IsAction a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId +onActionActivate obj cb = liftIO $ do + let cb' = wrap_ActionActivateCallback cb + cb'' <- mk_ActionActivateCallback cb' + connectSignalFunPtr obj "activate" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@activate@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' action #activate callback +@ +-} +afterActionActivate :: (IsAction a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId +afterActionActivate obj cb = liftIO $ do + let cb' = wrap_ActionActivateCallback cb + cb'' <- mk_ActionActivateCallback cb' + connectSignalFunPtr obj "activate" cb'' SignalConnectAfter + + +-- VVV Prop "action-group" + -- Type: TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@action-group@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #actionGroup +@ +-} +getActionActionGroup :: (MonadIO m, IsAction o) => o -> m (Maybe Gtk.ActionGroup.ActionGroup) +getActionActionGroup obj = liftIO $ B.Properties.getObjectPropertyObject obj "action-group" Gtk.ActionGroup.ActionGroup + +{- | +Set the value of the “@action-group@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #actionGroup 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionActionGroup :: (MonadIO m, IsAction o, Gtk.ActionGroup.IsActionGroup a) => o -> a -> m () +setActionActionGroup obj val = liftIO $ B.Properties.setObjectPropertyObject obj "action-group" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@action-group@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionActionGroup :: (IsAction o, Gtk.ActionGroup.IsActionGroup a) => a -> IO (GValueConstruct o) +constructActionActionGroup val = B.Properties.constructObjectPropertyObject "action-group" (Just val) + +{- | +Set the value of the “@action-group@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #actionGroup +@ +-} +clearActionActionGroup :: (MonadIO m, IsAction o) => o -> m () +clearActionActionGroup obj = liftIO $ B.Properties.setObjectPropertyObject obj "action-group" (Nothing :: Maybe Gtk.ActionGroup.ActionGroup) + +#if ENABLE_OVERLOADING +data ActionActionGroupPropertyInfo +instance AttrInfo ActionActionGroupPropertyInfo where + type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionActionGroupPropertyInfo = Gtk.ActionGroup.IsActionGroup + type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = IsAction + type AttrGetType ActionActionGroupPropertyInfo = (Maybe Gtk.ActionGroup.ActionGroup) + type AttrLabel ActionActionGroupPropertyInfo = "action-group" + type AttrOrigin ActionActionGroupPropertyInfo = Action + attrGet _ = getActionActionGroup + attrSet _ = setActionActionGroup + attrConstruct _ = constructActionActionGroup + attrClear _ = clearActionActionGroup +#endif + +-- VVV Prop "always-show-image" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@always-show-image@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #alwaysShowImage +@ +-} +getActionAlwaysShowImage :: (MonadIO m, IsAction o) => o -> m Bool +getActionAlwaysShowImage obj = liftIO $ B.Properties.getObjectPropertyBool obj "always-show-image" + +{- | +Set the value of the “@always-show-image@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #alwaysShowImage 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionAlwaysShowImage :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionAlwaysShowImage obj val = liftIO $ B.Properties.setObjectPropertyBool obj "always-show-image" val + +{- | +Construct a `GValueConstruct` with valid value for the “@always-show-image@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionAlwaysShowImage :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionAlwaysShowImage val = B.Properties.constructObjectPropertyBool "always-show-image" val + +#if ENABLE_OVERLOADING +data ActionAlwaysShowImagePropertyInfo +instance AttrInfo ActionAlwaysShowImagePropertyInfo where + type AttrAllowedOps ActionAlwaysShowImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionAlwaysShowImagePropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionAlwaysShowImagePropertyInfo = IsAction + type AttrGetType ActionAlwaysShowImagePropertyInfo = Bool + type AttrLabel ActionAlwaysShowImagePropertyInfo = "always-show-image" + type AttrOrigin ActionAlwaysShowImagePropertyInfo = Action + attrGet _ = getActionAlwaysShowImage + attrSet _ = setActionAlwaysShowImage + attrConstruct _ = constructActionAlwaysShowImage + attrClear _ = undefined +#endif + +-- VVV Prop "gicon" + -- Type: TInterface (Name {namespace = "Gio", name = "Icon"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@gicon@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #gicon +@ +-} +getActionGicon :: (MonadIO m, IsAction o) => o -> m Gio.Icon.Icon +getActionGicon obj = liftIO $ checkUnexpectedNothing "getActionGicon" $ B.Properties.getObjectPropertyObject obj "gicon" Gio.Icon.Icon + +{- | +Set the value of the “@gicon@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #gicon 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionGicon :: (MonadIO m, IsAction o, Gio.Icon.IsIcon a) => o -> a -> m () +setActionGicon obj val = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@gicon@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionGicon :: (IsAction o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o) +constructActionGicon val = B.Properties.constructObjectPropertyObject "gicon" (Just val) + +#if ENABLE_OVERLOADING +data ActionGiconPropertyInfo +instance AttrInfo ActionGiconPropertyInfo where + type AttrAllowedOps ActionGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionGiconPropertyInfo = Gio.Icon.IsIcon + type AttrBaseTypeConstraint ActionGiconPropertyInfo = IsAction + type AttrGetType ActionGiconPropertyInfo = Gio.Icon.Icon + type AttrLabel ActionGiconPropertyInfo = "gicon" + type AttrOrigin ActionGiconPropertyInfo = Action + attrGet _ = getActionGicon + attrSet _ = setActionGicon + attrConstruct _ = constructActionGicon + attrClear _ = undefined +#endif + +-- VVV Prop "hide-if-empty" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@hide-if-empty@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #hideIfEmpty +@ +-} +getActionHideIfEmpty :: (MonadIO m, IsAction o) => o -> m Bool +getActionHideIfEmpty obj = liftIO $ B.Properties.getObjectPropertyBool obj "hide-if-empty" + +{- | +Set the value of the “@hide-if-empty@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #hideIfEmpty 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionHideIfEmpty :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionHideIfEmpty obj val = liftIO $ B.Properties.setObjectPropertyBool obj "hide-if-empty" val + +{- | +Construct a `GValueConstruct` with valid value for the “@hide-if-empty@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionHideIfEmpty :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionHideIfEmpty val = B.Properties.constructObjectPropertyBool "hide-if-empty" val + +#if ENABLE_OVERLOADING +data ActionHideIfEmptyPropertyInfo +instance AttrInfo ActionHideIfEmptyPropertyInfo where + type AttrAllowedOps ActionHideIfEmptyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionHideIfEmptyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionHideIfEmptyPropertyInfo = IsAction + type AttrGetType ActionHideIfEmptyPropertyInfo = Bool + type AttrLabel ActionHideIfEmptyPropertyInfo = "hide-if-empty" + type AttrOrigin ActionHideIfEmptyPropertyInfo = Action + attrGet _ = getActionHideIfEmpty + attrSet _ = setActionHideIfEmpty + attrConstruct _ = constructActionHideIfEmpty + attrClear _ = undefined +#endif + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@icon-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #iconName +@ +-} +getActionIconName :: (MonadIO m, IsAction o) => o -> m T.Text +getActionIconName obj = liftIO $ checkUnexpectedNothing "getActionIconName" $ B.Properties.getObjectPropertyString obj "icon-name" + +{- | +Set the value of the “@icon-name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #iconName 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionIconName :: (MonadIO m, IsAction o) => o -> T.Text -> m () +setActionIconName obj val = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@icon-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionIconName :: (IsAction o) => T.Text -> IO (GValueConstruct o) +constructActionIconName val = B.Properties.constructObjectPropertyString "icon-name" (Just val) + +#if ENABLE_OVERLOADING +data ActionIconNamePropertyInfo +instance AttrInfo ActionIconNamePropertyInfo where + type AttrAllowedOps ActionIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionIconNamePropertyInfo = IsAction + type AttrGetType ActionIconNamePropertyInfo = T.Text + type AttrLabel ActionIconNamePropertyInfo = "icon-name" + type AttrOrigin ActionIconNamePropertyInfo = Action + attrGet _ = getActionIconName + attrSet _ = setActionIconName + attrConstruct _ = constructActionIconName + attrClear _ = undefined +#endif + +-- VVV Prop "is-important" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@is-important@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #isImportant +@ +-} +getActionIsImportant :: (MonadIO m, IsAction o) => o -> m Bool +getActionIsImportant obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-important" + +{- | +Set the value of the “@is-important@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #isImportant 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionIsImportant :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionIsImportant obj val = liftIO $ B.Properties.setObjectPropertyBool obj "is-important" val + +{- | +Construct a `GValueConstruct` with valid value for the “@is-important@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionIsImportant :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionIsImportant val = B.Properties.constructObjectPropertyBool "is-important" val + +#if ENABLE_OVERLOADING +data ActionIsImportantPropertyInfo +instance AttrInfo ActionIsImportantPropertyInfo where + type AttrAllowedOps ActionIsImportantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionIsImportantPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionIsImportantPropertyInfo = IsAction + type AttrGetType ActionIsImportantPropertyInfo = Bool + type AttrLabel ActionIsImportantPropertyInfo = "is-important" + type AttrOrigin ActionIsImportantPropertyInfo = Action + attrGet _ = getActionIsImportant + attrSet _ = setActionIsImportant + attrConstruct _ = constructActionIsImportant + attrClear _ = undefined +#endif + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #label +@ +-} +getActionLabel :: (MonadIO m, IsAction o) => o -> m T.Text +getActionLabel obj = liftIO $ checkUnexpectedNothing "getActionLabel" $ B.Properties.getObjectPropertyString obj "label" + +{- | +Set the value of the “@label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #label 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionLabel :: (MonadIO m, IsAction o) => o -> T.Text -> m () +setActionLabel obj val = liftIO $ B.Properties.setObjectPropertyString obj "label" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@label@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionLabel :: (IsAction o) => T.Text -> IO (GValueConstruct o) +constructActionLabel val = B.Properties.constructObjectPropertyString "label" (Just val) + +#if ENABLE_OVERLOADING +data ActionLabelPropertyInfo +instance AttrInfo ActionLabelPropertyInfo where + type AttrAllowedOps ActionLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionLabelPropertyInfo = IsAction + type AttrGetType ActionLabelPropertyInfo = T.Text + type AttrLabel ActionLabelPropertyInfo = "label" + type AttrOrigin ActionLabelPropertyInfo = Action + attrGet _ = getActionLabel + attrSet _ = setActionLabel + attrConstruct _ = constructActionLabel + attrClear _ = undefined +#endif + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) + +{- | +Get the value of the “@name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #name +@ +-} +getActionName :: (MonadIO m, IsAction o) => o -> m T.Text +getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ B.Properties.getObjectPropertyString obj "name" + +{- | +Construct a `GValueConstruct` with valid value for the “@name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionName :: (IsAction o) => T.Text -> IO (GValueConstruct o) +constructActionName val = B.Properties.constructObjectPropertyString "name" (Just val) + +#if ENABLE_OVERLOADING +data ActionNamePropertyInfo +instance AttrInfo ActionNamePropertyInfo where + type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionNamePropertyInfo = IsAction + type AttrGetType ActionNamePropertyInfo = T.Text + type AttrLabel ActionNamePropertyInfo = "name" + type AttrOrigin ActionNamePropertyInfo = Action + attrGet _ = getActionName + attrSet _ = undefined + attrConstruct _ = constructActionName + attrClear _ = undefined +#endif + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@sensitive@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #sensitive +@ +-} +getActionSensitive :: (MonadIO m, IsAction o) => o -> m Bool +getActionSensitive obj = liftIO $ B.Properties.getObjectPropertyBool obj "sensitive" + +{- | +Set the value of the “@sensitive@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #sensitive 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionSensitive :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionSensitive obj val = liftIO $ B.Properties.setObjectPropertyBool obj "sensitive" val + +{- | +Construct a `GValueConstruct` with valid value for the “@sensitive@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionSensitive :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionSensitive val = B.Properties.constructObjectPropertyBool "sensitive" val + +#if ENABLE_OVERLOADING +data ActionSensitivePropertyInfo +instance AttrInfo ActionSensitivePropertyInfo where + type AttrAllowedOps ActionSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionSensitivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionSensitivePropertyInfo = IsAction + type AttrGetType ActionSensitivePropertyInfo = Bool + type AttrLabel ActionSensitivePropertyInfo = "sensitive" + type AttrOrigin ActionSensitivePropertyInfo = Action + attrGet _ = getActionSensitive + attrSet _ = setActionSensitive + attrConstruct _ = constructActionSensitive + attrClear _ = undefined +#endif + +-- VVV Prop "short-label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@short-label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #shortLabel +@ +-} +getActionShortLabel :: (MonadIO m, IsAction o) => o -> m T.Text +getActionShortLabel obj = liftIO $ checkUnexpectedNothing "getActionShortLabel" $ B.Properties.getObjectPropertyString obj "short-label" + +{- | +Set the value of the “@short-label@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #shortLabel 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionShortLabel :: (MonadIO m, IsAction o) => o -> T.Text -> m () +setActionShortLabel obj val = liftIO $ B.Properties.setObjectPropertyString obj "short-label" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@short-label@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionShortLabel :: (IsAction o) => T.Text -> IO (GValueConstruct o) +constructActionShortLabel val = B.Properties.constructObjectPropertyString "short-label" (Just val) + +#if ENABLE_OVERLOADING +data ActionShortLabelPropertyInfo +instance AttrInfo ActionShortLabelPropertyInfo where + type AttrAllowedOps ActionShortLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionShortLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionShortLabelPropertyInfo = IsAction + type AttrGetType ActionShortLabelPropertyInfo = T.Text + type AttrLabel ActionShortLabelPropertyInfo = "short-label" + type AttrOrigin ActionShortLabelPropertyInfo = Action + attrGet _ = getActionShortLabel + attrSet _ = setActionShortLabel + attrConstruct _ = constructActionShortLabel + attrClear _ = undefined +#endif + +-- VVV Prop "stock-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@stock-id@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #stockId +@ +-} +getActionStockId :: (MonadIO m, IsAction o) => o -> m T.Text +getActionStockId obj = liftIO $ checkUnexpectedNothing "getActionStockId" $ B.Properties.getObjectPropertyString obj "stock-id" + +{- | +Set the value of the “@stock-id@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #stockId 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionStockId :: (MonadIO m, IsAction o) => o -> T.Text -> m () +setActionStockId obj val = liftIO $ B.Properties.setObjectPropertyString obj "stock-id" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@stock-id@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionStockId :: (IsAction o) => T.Text -> IO (GValueConstruct o) +constructActionStockId val = B.Properties.constructObjectPropertyString "stock-id" (Just val) + +#if ENABLE_OVERLOADING +data ActionStockIdPropertyInfo +instance AttrInfo ActionStockIdPropertyInfo where + type AttrAllowedOps ActionStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionStockIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionStockIdPropertyInfo = IsAction + type AttrGetType ActionStockIdPropertyInfo = T.Text + type AttrLabel ActionStockIdPropertyInfo = "stock-id" + type AttrOrigin ActionStockIdPropertyInfo = Action + attrGet _ = getActionStockId + attrSet _ = setActionStockId + attrConstruct _ = constructActionStockId + attrClear _ = undefined +#endif + +-- VVV Prop "tooltip" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@tooltip@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #tooltip +@ +-} +getActionTooltip :: (MonadIO m, IsAction o) => o -> m T.Text +getActionTooltip obj = liftIO $ checkUnexpectedNothing "getActionTooltip" $ B.Properties.getObjectPropertyString obj "tooltip" + +{- | +Set the value of the “@tooltip@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #tooltip 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionTooltip :: (MonadIO m, IsAction o) => o -> T.Text -> m () +setActionTooltip obj val = liftIO $ B.Properties.setObjectPropertyString obj "tooltip" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@tooltip@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionTooltip :: (IsAction o) => T.Text -> IO (GValueConstruct o) +constructActionTooltip val = B.Properties.constructObjectPropertyString "tooltip" (Just val) + +#if ENABLE_OVERLOADING +data ActionTooltipPropertyInfo +instance AttrInfo ActionTooltipPropertyInfo where + type AttrAllowedOps ActionTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionTooltipPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionTooltipPropertyInfo = IsAction + type AttrGetType ActionTooltipPropertyInfo = T.Text + type AttrLabel ActionTooltipPropertyInfo = "tooltip" + type AttrOrigin ActionTooltipPropertyInfo = Action + attrGet _ = getActionTooltip + attrSet _ = setActionTooltip + attrConstruct _ = constructActionTooltip + attrClear _ = undefined +#endif + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@visible@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #visible +@ +-} +getActionVisible :: (MonadIO m, IsAction o) => o -> m Bool +getActionVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible" + +{- | +Set the value of the “@visible@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #visible 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionVisible :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionVisible obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible" val + +{- | +Construct a `GValueConstruct` with valid value for the “@visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionVisible :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionVisible val = B.Properties.constructObjectPropertyBool "visible" val + +#if ENABLE_OVERLOADING +data ActionVisiblePropertyInfo +instance AttrInfo ActionVisiblePropertyInfo where + type AttrAllowedOps ActionVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionVisiblePropertyInfo = IsAction + type AttrGetType ActionVisiblePropertyInfo = Bool + type AttrLabel ActionVisiblePropertyInfo = "visible" + type AttrOrigin ActionVisiblePropertyInfo = Action + attrGet _ = getActionVisible + attrSet _ = setActionVisible + attrConstruct _ = constructActionVisible + attrClear _ = undefined +#endif + +-- VVV Prop "visible-horizontal" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@visible-horizontal@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #visibleHorizontal +@ +-} +getActionVisibleHorizontal :: (MonadIO m, IsAction o) => o -> m Bool +getActionVisibleHorizontal obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible-horizontal" + +{- | +Set the value of the “@visible-horizontal@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #visibleHorizontal 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionVisibleHorizontal :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionVisibleHorizontal obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible-horizontal" val + +{- | +Construct a `GValueConstruct` with valid value for the “@visible-horizontal@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionVisibleHorizontal :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionVisibleHorizontal val = B.Properties.constructObjectPropertyBool "visible-horizontal" val + +#if ENABLE_OVERLOADING +data ActionVisibleHorizontalPropertyInfo +instance AttrInfo ActionVisibleHorizontalPropertyInfo where + type AttrAllowedOps ActionVisibleHorizontalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionVisibleHorizontalPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionVisibleHorizontalPropertyInfo = IsAction + type AttrGetType ActionVisibleHorizontalPropertyInfo = Bool + type AttrLabel ActionVisibleHorizontalPropertyInfo = "visible-horizontal" + type AttrOrigin ActionVisibleHorizontalPropertyInfo = Action + attrGet _ = getActionVisibleHorizontal + attrSet _ = setActionVisibleHorizontal + attrConstruct _ = constructActionVisibleHorizontal + attrClear _ = undefined +#endif + +-- VVV Prop "visible-overflown" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@visible-overflown@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #visibleOverflown +@ +-} +getActionVisibleOverflown :: (MonadIO m, IsAction o) => o -> m Bool +getActionVisibleOverflown obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible-overflown" + +{- | +Set the value of the “@visible-overflown@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #visibleOverflown 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionVisibleOverflown :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionVisibleOverflown obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible-overflown" val + +{- | +Construct a `GValueConstruct` with valid value for the “@visible-overflown@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionVisibleOverflown :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionVisibleOverflown val = B.Properties.constructObjectPropertyBool "visible-overflown" val + +#if ENABLE_OVERLOADING +data ActionVisibleOverflownPropertyInfo +instance AttrInfo ActionVisibleOverflownPropertyInfo where + type AttrAllowedOps ActionVisibleOverflownPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionVisibleOverflownPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionVisibleOverflownPropertyInfo = IsAction + type AttrGetType ActionVisibleOverflownPropertyInfo = Bool + type AttrLabel ActionVisibleOverflownPropertyInfo = "visible-overflown" + type AttrOrigin ActionVisibleOverflownPropertyInfo = Action + attrGet _ = getActionVisibleOverflown + attrSet _ = setActionVisibleOverflown + attrConstruct _ = constructActionVisibleOverflown + attrClear _ = undefined +#endif + +-- VVV Prop "visible-vertical" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@visible-vertical@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' action #visibleVertical +@ +-} +getActionVisibleVertical :: (MonadIO m, IsAction o) => o -> m Bool +getActionVisibleVertical obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible-vertical" + +{- | +Set the value of the “@visible-vertical@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' action [ #visibleVertical 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionVisibleVertical :: (MonadIO m, IsAction o) => o -> Bool -> m () +setActionVisibleVertical obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible-vertical" val + +{- | +Construct a `GValueConstruct` with valid value for the “@visible-vertical@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionVisibleVertical :: (IsAction o) => Bool -> IO (GValueConstruct o) +constructActionVisibleVertical val = B.Properties.constructObjectPropertyBool "visible-vertical" val + +#if ENABLE_OVERLOADING +data ActionVisibleVerticalPropertyInfo +instance AttrInfo ActionVisibleVerticalPropertyInfo where + type AttrAllowedOps ActionVisibleVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionVisibleVerticalPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionVisibleVerticalPropertyInfo = IsAction + type AttrGetType ActionVisibleVerticalPropertyInfo = Bool + type AttrLabel ActionVisibleVerticalPropertyInfo = "visible-vertical" + type AttrOrigin ActionVisibleVerticalPropertyInfo = Action + attrGet _ = getActionVisibleVertical + attrSet _ = setActionVisibleVertical + attrConstruct _ = constructActionVisibleVertical + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Action +type instance O.AttributeList Action = ActionAttributeList +type ActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +actionActionGroup :: AttrLabelProxy "actionGroup" +actionActionGroup = AttrLabelProxy + +actionAlwaysShowImage :: AttrLabelProxy "alwaysShowImage" +actionAlwaysShowImage = AttrLabelProxy + +actionGicon :: AttrLabelProxy "gicon" +actionGicon = AttrLabelProxy + +actionHideIfEmpty :: AttrLabelProxy "hideIfEmpty" +actionHideIfEmpty = AttrLabelProxy + +actionIconName :: AttrLabelProxy "iconName" +actionIconName = AttrLabelProxy + +actionIsImportant :: AttrLabelProxy "isImportant" +actionIsImportant = AttrLabelProxy + +actionLabel :: AttrLabelProxy "label" +actionLabel = AttrLabelProxy + +actionName :: AttrLabelProxy "name" +actionName = AttrLabelProxy + +actionSensitive :: AttrLabelProxy "sensitive" +actionSensitive = AttrLabelProxy + +actionShortLabel :: AttrLabelProxy "shortLabel" +actionShortLabel = AttrLabelProxy + +actionStockId :: AttrLabelProxy "stockId" +actionStockId = AttrLabelProxy + +actionTooltip :: AttrLabelProxy "tooltip" +actionTooltip = AttrLabelProxy + +actionVisible :: AttrLabelProxy "visible" +actionVisible = AttrLabelProxy + +actionVisibleHorizontal :: AttrLabelProxy "visibleHorizontal" +actionVisibleHorizontal = AttrLabelProxy + +actionVisibleOverflown :: AttrLabelProxy "visibleOverflown" +actionVisibleOverflown = AttrLabelProxy + +actionVisibleVertical :: AttrLabelProxy "visibleVertical" +actionVisibleVertical = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data ActionActivateSignalInfo +instance SignalInfo ActionActivateSignalInfo where + type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ActionActivateCallback cb + cb'' <- mk_ActionActivateCallback cb' + connectSignalFunPtr obj "activate" cb'' connectMode + +type instance O.SignalList Action = ActionSignalList +type ActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Action::new +-- method type : Constructor +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A unique name for the action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the label displayed in menu items and on buttons,\n or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a tooltip for the action, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the stock icon to display in widgets representing\n the action, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 'GI.Gio.Interfaces.Action.Action' instead, associating it to a widget with","'GI.Gtk.Interfaces.Actionable.Actionable' or creating a 'GI.Gtk.Objects.Menu.Menu' with 'GI.Gtk.Objects.Menu.menuNewFromModel'"] #-} +{- | +Creates a new 'GI.Gtk.Objects.Action.Action' object. To add the action to a +'GI.Gtk.Objects.ActionGroup.ActionGroup' and set the accelerator for the action, +call 'GI.Gtk.Objects.ActionGroup.actionGroupAddActionWithAccel'. +See the [UI Definition section][XML-UI] for information on allowed action +names. + +/Since: 2.4/ +-} +actionNew :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@name@/: A unique name for the action -} + -> Maybe (T.Text) + {- ^ /@label@/: the label displayed in menu items and on buttons, + or 'Nothing' -} + -> Maybe (T.Text) + {- ^ /@tooltip@/: a tooltip for the action, or 'Nothing' -} + -> Maybe (T.Text) + {- ^ /@stockId@/: the stock icon to display in widgets representing + the action, or 'Nothing' -} + -> m Action + {- ^ __Returns:__ a new 'GI.Gtk.Objects.Action.Action' -} +actionNew name label tooltip stockId = liftIO $ do + name' <- textToCString name + maybeLabel <- case label of + Nothing -> return nullPtr + Just jLabel -> do + jLabel' <- textToCString jLabel + return jLabel' + maybeTooltip <- case tooltip of + Nothing -> return nullPtr + Just jTooltip -> do + jTooltip' <- textToCString jTooltip + return jTooltip' + maybeStockId <- case stockId of + Nothing -> return nullPtr + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + result <- gtk_action_new name' maybeLabel maybeTooltip maybeStockId + checkUnexpectedReturnNULL "actionNew" result + result' <- (wrapObject Action) result + freeMem name' + freeMem maybeLabel + freeMem maybeTooltip + freeMem maybeStockId + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method Action::activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_activate" gtk_action_activate :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED actionActivate ["(Since version 3.10)","Use 'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction' on a 'GI.Gio.Interfaces.Action.Action' instead"] #-} +{- | +Emits the “activate” signal on the specified action, if it isn\'t +insensitive. This gets called by the proxy widgets when they get +activated. + +It can also be used to manually activate an action. + +/Since: 2.4/ +-} +actionActivate :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m () +actionActivate action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + gtk_action_activate action' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionActivateMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionActivateMethodInfo a signature where + overloadedMethod _ = actionActivate + +#endif + +-- method Action::block_activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_block_activate" gtk_action_block_activate :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED actionBlockActivate ["(Since version 3.10)","Use 'GI.Gio.Objects.SimpleAction.simpleActionSetEnabled' to disable the","'GI.Gio.Objects.SimpleAction.SimpleAction' instead"] #-} +{- | +Disable activation signals from the action + +This is needed when updating the state of your proxy +'GI.Gtk.Interfaces.Activatable.Activatable' widget could result in calling 'GI.Gtk.Objects.Action.actionActivate', +this is a convenience function to avoid recursing in those +cases (updating toggle state for instance). + +/Since: 2.16/ +-} +actionBlockActivate :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m () +actionBlockActivate action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + gtk_action_block_activate action' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionBlockActivateMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionBlockActivateMethodInfo a signature where + overloadedMethod _ = actionBlockActivate + +#endif + +-- method Action::connect_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_connect_accelerator" gtk_action_connect_accelerator :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED actionConnectAccelerator ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' and the accelerator group on an associated","'GI.Gtk.Objects.Menu.Menu' instead"] #-} +{- | +Installs the accelerator for /@action@/ if /@action@/ has an +accel path and group. See 'GI.Gtk.Objects.Action.actionSetAccelPath' and +'GI.Gtk.Objects.Action.actionSetAccelGroup' + +Since multiple proxies may independently trigger the installation +of the accelerator, the /@action@/ counts the number of times this +function has been called and doesn’t remove the accelerator until +'GI.Gtk.Objects.Action.actionDisconnectAccelerator' has been called as many times. + +/Since: 2.4/ +-} +actionConnectAccelerator :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m () +actionConnectAccelerator action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + gtk_action_connect_accelerator action' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionConnectAcceleratorMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionConnectAcceleratorMethodInfo a signature where + overloadedMethod _ = actionConnectAccelerator + +#endif + +-- method Action::create_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of the icon (#GtkIconSize) that should\n be created.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_create_icon" gtk_action_create_icon :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + Int32 -> -- icon_size : TBasicType TInt + IO (Ptr Gtk.Widget.Widget) + +{-# DEPRECATED actionCreateIcon ["(Since version 3.10)","Use 'GI.Gio.Objects.MenuItem.menuItemSetIcon' to set an icon on a 'GI.Gio.Objects.MenuItem.MenuItem',","or 'GI.Gtk.Objects.Container.containerAdd' to add a 'GI.Gtk.Objects.Image.Image' to a 'GI.Gtk.Objects.Button.Button'"] #-} +{- | +This function is intended for use by action implementations to +create icons displayed in the proxy widgets. + +/Since: 2.4/ +-} +actionCreateIcon :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> Int32 + {- ^ /@iconSize@/: the size of the icon ('GI.Gtk.Enums.IconSize') that should + be created. -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a widget that displays the icon for this action. -} +actionCreateIcon action iconSize = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_create_icon action' iconSize + checkUnexpectedReturnNULL "actionCreateIcon" result + result' <- (newObject Gtk.Widget.Widget) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionCreateIconMethodInfo +instance (signature ~ (Int32 -> m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateIconMethodInfo a signature where + overloadedMethod _ = actionCreateIcon + +#endif + +-- method Action::create_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_create_menu" gtk_action_create_menu :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO (Ptr Gtk.Widget.Widget) + +{-# DEPRECATED actionCreateMenu ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' and 'GI.Gio.Objects.MenuModel.MenuModel' instead, and create a","'GI.Gtk.Objects.Menu.Menu' with 'GI.Gtk.Objects.Menu.menuNewFromModel'"] #-} +{- | +If /@action@/ provides a 'GI.Gtk.Objects.Menu.Menu' widget as a submenu for the menu +item or the toolbar item it creates, this function returns an +instance of that menu. + +/Since: 2.12/ +-} +actionCreateMenu :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ the menu item provided by the + action, or 'Nothing'. -} +actionCreateMenu action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_create_menu action' + checkUnexpectedReturnNULL "actionCreateMenu" result + result' <- (newObject Gtk.Widget.Widget) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionCreateMenuMethodInfo +instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateMenuMethodInfo a signature where + overloadedMethod _ = actionCreateMenu + +#endif + +-- method Action::create_menu_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_create_menu_item" gtk_action_create_menu_item :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO (Ptr Gtk.Widget.Widget) + +{-# DEPRECATED actionCreateMenuItem ["(Since version 3.10)","Use 'GI.Gio.Objects.MenuItem.menuItemNew' and associate it with a 'GI.Gio.Interfaces.Action.Action'","instead."] #-} +{- | +Creates a menu item widget that proxies for the given action. + +/Since: 2.4/ +-} +actionCreateMenuItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a menu item connected to the action. -} +actionCreateMenuItem action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_create_menu_item action' + checkUnexpectedReturnNULL "actionCreateMenuItem" result + result' <- (newObject Gtk.Widget.Widget) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionCreateMenuItemMethodInfo +instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateMenuItemMethodInfo a signature where + overloadedMethod _ = actionCreateMenuItem + +#endif + +-- method Action::create_tool_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_create_tool_item" gtk_action_create_tool_item :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO (Ptr Gtk.Widget.Widget) + +{-# DEPRECATED actionCreateToolItem ["(Since version 3.10)","Use a 'GI.Gtk.Objects.ToolItem.ToolItem' and associate it with a 'GI.Gio.Interfaces.Action.Action' using","'GI.Gtk.Interfaces.Actionable.actionableSetActionName' instead"] #-} +{- | +Creates a toolbar item widget that proxies for the given action. + +/Since: 2.4/ +-} +actionCreateToolItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ a toolbar item connected to the action. -} +actionCreateToolItem action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_create_tool_item action' + checkUnexpectedReturnNULL "actionCreateToolItem" result + result' <- (newObject Gtk.Widget.Widget) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionCreateToolItemMethodInfo +instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateToolItemMethodInfo a signature where + overloadedMethod _ = actionCreateToolItem + +#endif + +-- method Action::disconnect_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_disconnect_accelerator" gtk_action_disconnect_accelerator :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED actionDisconnectAccelerator ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' and the accelerator group on an associated","'GI.Gtk.Objects.Menu.Menu' instead"] #-} +{- | +Undoes the effect of one call to 'GI.Gtk.Objects.Action.actionConnectAccelerator'. + +/Since: 2.4/ +-} +actionDisconnectAccelerator :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m () +actionDisconnectAccelerator action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + gtk_action_disconnect_accelerator action' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionDisconnectAcceleratorMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionDisconnectAcceleratorMethodInfo a signature where + overloadedMethod _ = actionDisconnectAccelerator + +#endif + +-- method Action::get_accel_closure +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGClosure Nothing) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_accel_closure" gtk_action_get_accel_closure :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO (Ptr (GClosure ())) + +{-# DEPRECATED actionGetAccelClosure ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' and 'GI.Gtk.Objects.Menu.Menu' instead, which have no","equivalent for getting the accel closure"] #-} +{- | +Returns the accel closure for this action. + +/Since: 2.8/ +-} +actionGetAccelClosure :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m (GClosure b) + {- ^ __Returns:__ the accel closure for this action. The + returned closure is owned by GTK+ and must not be unreffed + or modified. -} +actionGetAccelClosure action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_accel_closure action' + checkUnexpectedReturnNULL "actionGetAccelClosure" result + result' <- (B.GClosure.newGClosureFromPtr . FP.castPtr) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetAccelClosureMethodInfo +instance (signature ~ (m (GClosure b)), MonadIO m, IsAction a) => O.MethodInfo ActionGetAccelClosureMethodInfo a signature where + overloadedMethod _ = actionGetAccelClosure + +#endif + +-- method Action::get_accel_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_accel_path" gtk_action_get_accel_path :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CString + +{-# DEPRECATED actionGetAccelPath ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' and the accelerator path on an associated","'GI.Gtk.Objects.Menu.Menu' instead"] #-} +{- | +Returns the accel path for this action. + +/Since: 2.6/ +-} +actionGetAccelPath :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m T.Text + {- ^ __Returns:__ the accel path for this action, or 'Nothing' + if none is set. The returned string is owned by GTK+ + and must not be freed or modified. -} +actionGetAccelPath action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_accel_path action' + checkUnexpectedReturnNULL "actionGetAccelPath" result + result' <- cstringToText result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetAccelPathMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetAccelPathMethodInfo a signature where + overloadedMethod _ = actionGetAccelPath + +#endif + +-- method Action::get_always_show_image +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_always_show_image" gtk_action_get_always_show_image :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionGetAlwaysShowImage ["(Since version 3.10)","Use 'GI.Gio.Objects.MenuItem.menuItemGetAttributeValue' on a 'GI.Gio.Objects.MenuItem.MenuItem'","instead"] #-} +{- | +Returns whether /@action@/\'s menu item proxies will always +show their image, if available. + +/Since: 2.20/ +-} +actionGetAlwaysShowImage :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m Bool + {- ^ __Returns:__ 'True' if the menu item proxies will always show their image -} +actionGetAlwaysShowImage action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_always_show_image action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetAlwaysShowImageMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = actionGetAlwaysShowImage + +#endif + +-- method Action::get_gicon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_gicon" gtk_action_get_gicon :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO (Ptr Gio.Icon.Icon) + +{-# DEPRECATED actionGetGicon ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and","'GI.Gio.Objects.MenuItem.menuItemGetAttributeValue' to get an icon from a 'GI.Gio.Objects.MenuItem.MenuItem'","associated with a 'GI.Gio.Interfaces.Action.Action'"] #-} +{- | +Gets the gicon of /@action@/. + +/Since: 2.16/ +-} +actionGetGicon :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m Gio.Icon.Icon + {- ^ __Returns:__ The action’s 'GI.Gio.Interfaces.Icon.Icon' if one is set. -} +actionGetGicon action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_gicon action' + checkUnexpectedReturnNULL "actionGetGicon" result + result' <- (newObject Gio.Icon.Icon) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetGiconMethodInfo +instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsAction a) => O.MethodInfo ActionGetGiconMethodInfo a signature where + overloadedMethod _ = actionGetGicon + +#endif + +-- method Action::get_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_icon_name" gtk_action_get_icon_name :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CString + +{-# DEPRECATED actionGetIconName ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and","'GI.Gio.Objects.MenuItem.menuItemGetAttributeValue' to get an icon from a 'GI.Gio.Objects.MenuItem.MenuItem'","associated with a 'GI.Gio.Interfaces.Action.Action'"] #-} +{- | +Gets the icon name of /@action@/. + +/Since: 2.16/ +-} +actionGetIconName :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m T.Text + {- ^ __Returns:__ the icon name -} +actionGetIconName action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_icon_name action' + checkUnexpectedReturnNULL "actionGetIconName" result + result' <- cstringToText result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetIconNameMethodInfo a signature where + overloadedMethod _ = actionGetIconName + +#endif + +-- method Action::get_is_important +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_is_important" gtk_action_get_is_important :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionGetIsImportant ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor whether","labels are shown directly"] #-} +{- | +Checks whether /@action@/ is important or not + +/Since: 2.16/ +-} +actionGetIsImportant :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m Bool + {- ^ __Returns:__ whether /@action@/ is important -} +actionGetIsImportant action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_is_important action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetIsImportantMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetIsImportantMethodInfo a signature where + overloadedMethod _ = actionGetIsImportant + +#endif + +-- method Action::get_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_label" gtk_action_get_label :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CString + +{-# DEPRECATED actionGetLabel ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and get a label from a menu item","with 'GI.Gio.Objects.MenuItem.menuItemGetAttributeValue'. For 'GI.Gtk.Interfaces.Actionable.Actionable' widgets, use the","widget-specific API to get a label"] #-} +{- | +Gets the label text of /@action@/. + +/Since: 2.16/ +-} +actionGetLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m T.Text + {- ^ __Returns:__ the label text -} +actionGetLabel action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_label action' + checkUnexpectedReturnNULL "actionGetLabel" result + result' <- cstringToText result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetLabelMethodInfo a signature where + overloadedMethod _ = actionGetLabel + +#endif + +-- method Action::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_name" gtk_action_get_name :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CString + +{-# DEPRECATED actionGetName ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.actionGetName' on a 'GI.Gio.Interfaces.Action.Action' instead"] #-} +{- | +Returns the name of the action. + +/Since: 2.4/ +-} +actionGetName :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m T.Text + {- ^ __Returns:__ the name of the action. The string belongs to GTK+ and should not + be freed. -} +actionGetName action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_name action' + checkUnexpectedReturnNULL "actionGetName" result + result' <- cstringToText result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetNameMethodInfo a signature where + overloadedMethod _ = actionGetName + +#endif + +-- method Action::get_proxies +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGSList (TInterface (Name {namespace = "Gtk", name = "Widget"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_proxies" gtk_action_get_proxies :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO (Ptr (GSList (Ptr Gtk.Widget.Widget))) + +{-# DEPRECATED actionGetProxies ["(Since version 3.10)"] #-} +{- | +Returns the proxy widgets for an action. +See also 'GI.Gtk.Interfaces.Activatable.activatableGetRelatedAction'. + +/Since: 2.4/ +-} +actionGetProxies :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m [Gtk.Widget.Widget] + {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList' of proxy widgets. The list is owned by GTK+ +and must not be modified. -} +actionGetProxies action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_proxies action' + result' <- unpackGSList result + result'' <- mapM (newObject Gtk.Widget.Widget) result' + touchManagedPtr action + return result'' + +#if ENABLE_OVERLOADING +data ActionGetProxiesMethodInfo +instance (signature ~ (m [Gtk.Widget.Widget]), MonadIO m, IsAction a) => O.MethodInfo ActionGetProxiesMethodInfo a signature where + overloadedMethod _ = actionGetProxies + +#endif + +-- method Action::get_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_sensitive" gtk_action_get_sensitive :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionGetSensitive ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.actionGetEnabled' on a 'GI.Gio.Interfaces.Action.Action'","instead"] #-} +{- | +Returns whether the action itself is sensitive. Note that this doesn’t +necessarily mean effective sensitivity. See 'GI.Gtk.Objects.Action.actionIsSensitive' +for that. + +/Since: 2.4/ +-} +actionGetSensitive :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m Bool + {- ^ __Returns:__ 'True' if the action itself is sensitive. -} +actionGetSensitive action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_sensitive action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetSensitiveMethodInfo a signature where + overloadedMethod _ = actionGetSensitive + +#endif + +-- method Action::get_short_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_short_label" gtk_action_get_short_label :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CString + +{-# DEPRECATED actionGetShortLabel ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, which has no equivalent of short","labels"] #-} +{- | +Gets the short label text of /@action@/. + +/Since: 2.16/ +-} +actionGetShortLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m T.Text + {- ^ __Returns:__ the short label text. -} +actionGetShortLabel action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_short_label action' + checkUnexpectedReturnNULL "actionGetShortLabel" result + result' <- cstringToText result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetShortLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetShortLabelMethodInfo a signature where + overloadedMethod _ = actionGetShortLabel + +#endif + +-- method Action::get_stock_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_stock_id" gtk_action_get_stock_id :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CString + +{-# DEPRECATED actionGetStockId ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, which has no equivalent of stock","items"] #-} +{- | +Gets the stock id of /@action@/. + +/Since: 2.16/ +-} +actionGetStockId :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m T.Text + {- ^ __Returns:__ the stock id -} +actionGetStockId action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_stock_id action' + checkUnexpectedReturnNULL "actionGetStockId" result + result' <- cstringToText result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetStockIdMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetStockIdMethodInfo a signature where + overloadedMethod _ = actionGetStockId + +#endif + +-- method Action::get_tooltip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_tooltip" gtk_action_get_tooltip :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CString + +{-# DEPRECATED actionGetTooltip ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and get tooltips from associated","'GI.Gtk.Interfaces.Actionable.Actionable' widgets with 'GI.Gtk.Objects.Widget.widgetGetTooltipText'"] #-} +{- | +Gets the tooltip text of /@action@/. + +/Since: 2.16/ +-} +actionGetTooltip :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m T.Text + {- ^ __Returns:__ the tooltip text -} +actionGetTooltip action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_tooltip action' + checkUnexpectedReturnNULL "actionGetTooltip" result + result' <- cstringToText result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetTooltipMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetTooltipMethodInfo a signature where + overloadedMethod _ = actionGetTooltip + +#endif + +-- method Action::get_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_visible" gtk_action_get_visible :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionGetVisible ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor the state of","'GI.Gtk.Interfaces.Actionable.Actionable' widgets directly"] #-} +{- | +Returns whether the action itself is visible. Note that this doesn’t +necessarily mean effective visibility. See 'GI.Gtk.Objects.Action.actionIsSensitive' +for that. + +/Since: 2.4/ +-} +actionGetVisible :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m Bool + {- ^ __Returns:__ 'True' if the action itself is visible. -} +actionGetVisible action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_visible action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetVisibleMethodInfo a signature where + overloadedMethod _ = actionGetVisible + +#endif + +-- method Action::get_visible_horizontal +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_visible_horizontal" gtk_action_get_visible_horizontal :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionGetVisibleHorizontal ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor the","visibility of associated widgets and menu items directly"] #-} +{- | +Checks whether /@action@/ is visible when horizontal + +/Since: 2.16/ +-} +actionGetVisibleHorizontal :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m Bool + {- ^ __Returns:__ whether /@action@/ is visible when horizontal -} +actionGetVisibleHorizontal action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_visible_horizontal action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetVisibleHorizontalMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetVisibleHorizontalMethodInfo a signature where + overloadedMethod _ = actionGetVisibleHorizontal + +#endif + +-- method Action::get_visible_vertical +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_get_visible_vertical" gtk_action_get_visible_vertical :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionGetVisibleVertical ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor the","visibility of associated widgets and menu items directly"] #-} +{- | +Checks whether /@action@/ is visible when horizontal + +/Since: 2.16/ +-} +actionGetVisibleVertical :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m Bool + {- ^ __Returns:__ whether /@action@/ is visible when horizontal -} +actionGetVisibleVertical action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_get_visible_vertical action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionGetVisibleVerticalMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetVisibleVerticalMethodInfo a signature where + overloadedMethod _ = actionGetVisibleVertical + +#endif + +-- method Action::is_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_is_sensitive" gtk_action_is_sensitive :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionIsSensitive ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.actionGetEnabled' on a 'GI.Gio.Interfaces.Action.Action'","instead"] #-} +{- | +Returns whether the action is effectively sensitive. + +/Since: 2.4/ +-} +actionIsSensitive :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m Bool + {- ^ __Returns:__ 'True' if the action and its associated action group +are both sensitive. -} +actionIsSensitive action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_is_sensitive action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionIsSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionIsSensitiveMethodInfo a signature where + overloadedMethod _ = actionIsSensitive + +#endif + +-- method Action::is_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_is_visible" gtk_action_is_visible :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO CInt + +{-# DEPRECATED actionIsVisible ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor the state of","'GI.Gtk.Interfaces.Actionable.Actionable' widgets directly"] #-} +{- | +Returns whether the action is effectively visible. + +/Since: 2.4/ +-} +actionIsVisible :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> m Bool + {- ^ __Returns:__ 'True' if the action and its associated action group +are both visible. -} +actionIsVisible action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + result <- gtk_action_is_visible action' + let result' = (/= 0) result + touchManagedPtr action + return result' + +#if ENABLE_OVERLOADING +data ActionIsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionIsVisibleMethodInfo a signature where + overloadedMethod _ = actionIsVisible + +#endif + +-- method Action::set_accel_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_accel_group" gtk_action_set_accel_group :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + Ptr Gtk.AccelGroup.AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + IO () + +{-# DEPRECATED actionSetAccelGroup ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' and the accelerator group on an associated","'GI.Gtk.Objects.Menu.Menu' instead"] #-} +{- | +Sets the 'GI.Gtk.Objects.AccelGroup.AccelGroup' in which the accelerator for this action +will be installed. + +/Since: 2.4/ +-} +actionSetAccelGroup :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a, Gtk.AccelGroup.IsAccelGroup b) => + a + {- ^ /@action@/: the action object -} + -> Maybe (b) + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' or 'Nothing' -} + -> m () +actionSetAccelGroup action accelGroup = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + maybeAccelGroup <- case accelGroup of + Nothing -> return nullPtr + Just jAccelGroup -> do + jAccelGroup' <- unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + gtk_action_set_accel_group action' maybeAccelGroup + touchManagedPtr action + whenJust accelGroup touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ActionSetAccelGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsAction a, Gtk.AccelGroup.IsAccelGroup b) => O.MethodInfo ActionSetAccelGroupMethodInfo a signature where + overloadedMethod _ = actionSetAccelGroup + +#endif + +-- method Action::set_accel_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the accelerator path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_accel_path" gtk_action_set_accel_path :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CString -> -- accel_path : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionSetAccelPath ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' and the accelerator path on an associated","'GI.Gtk.Objects.Menu.Menu' instead"] #-} +{- | +Sets the accel path for this action. All proxy widgets associated +with the action will have this accel path, so that their +accelerators are consistent. + +Note that /@accelPath@/ string will be stored in a @/GQuark/@. Therefore, if you +pass a static string, you can save some memory by interning it first with +'GI.GLib.Functions.internStaticString'. + +/Since: 2.4/ +-} +actionSetAccelPath :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> T.Text + {- ^ /@accelPath@/: the accelerator path -} + -> m () +actionSetAccelPath action accelPath = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + accelPath' <- textToCString accelPath + gtk_action_set_accel_path action' accelPath' + touchManagedPtr action + freeMem accelPath' + return () + +#if ENABLE_OVERLOADING +data ActionSetAccelPathMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetAccelPathMethodInfo a signature where + overloadedMethod _ = actionSetAccelPath + +#endif + +-- method Action::set_always_show_image +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if menuitem proxies should always show their image", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_always_show_image" gtk_action_set_always_show_image :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CInt -> -- always_show : TBasicType TBoolean + IO () + +{-# DEPRECATED actionSetAlwaysShowImage ["(Since version 3.10)","Use 'GI.Gio.Objects.MenuItem.menuItemSetIcon' on a 'GI.Gio.Objects.MenuItem.MenuItem' instead, if the","item should have an image"] #-} +{- | +Sets whether /@action@/\'s menu item proxies will ignore the +'GI.Gtk.Objects.Settings.Settings':@/gtk-menu-images/@ setting and always show their image, if available. + +Use this if the menu item would be useless or hard to use +without their image. + +/Since: 2.20/ +-} +actionSetAlwaysShowImage :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> Bool + {- ^ /@alwaysShow@/: 'True' if menuitem proxies should always show their image -} + -> m () +actionSetAlwaysShowImage action alwaysShow = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + let alwaysShow' = (fromIntegral . fromEnum) alwaysShow + gtk_action_set_always_show_image action' alwaysShow' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionSetAlwaysShowImageMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = actionSetAlwaysShowImage + +#endif + +-- method Action::set_gicon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GIcon to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_gicon" gtk_action_set_gicon :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + Ptr Gio.Icon.Icon -> -- icon : TInterface (Name {namespace = "Gio", name = "Icon"}) + IO () + +{-# DEPRECATED actionSetGicon ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and 'GI.Gio.Objects.MenuItem.menuItemSetIcon' to set an","icon on a 'GI.Gio.Objects.MenuItem.MenuItem' associated with a 'GI.Gio.Interfaces.Action.Action', or 'GI.Gtk.Objects.Container.containerAdd' to","add a 'GI.Gtk.Objects.Image.Image' to a 'GI.Gtk.Objects.Button.Button'"] #-} +{- | +Sets the icon of /@action@/. + +/Since: 2.16/ +-} +actionSetGicon :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a, Gio.Icon.IsIcon b) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> b + {- ^ /@icon@/: the 'GI.Gio.Interfaces.Icon.Icon' to set -} + -> m () +actionSetGicon action icon = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + icon' <- unsafeManagedPtrCastPtr icon + gtk_action_set_gicon action' icon' + touchManagedPtr action + touchManagedPtr icon + return () + +#if ENABLE_OVERLOADING +data ActionSetGiconMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsAction a, Gio.Icon.IsIcon b) => O.MethodInfo ActionSetGiconMethodInfo a signature where + overloadedMethod _ = actionSetGicon + +#endif + +-- method Action::set_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the icon name to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_icon_name" gtk_action_set_icon_name :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CString -> -- icon_name : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionSetIconName ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and 'GI.Gio.Objects.MenuItem.menuItemSetIcon' to set an","icon on a 'GI.Gio.Objects.MenuItem.MenuItem' associated with a 'GI.Gio.Interfaces.Action.Action', or 'GI.Gtk.Objects.Container.containerAdd' to","add a 'GI.Gtk.Objects.Image.Image' to a 'GI.Gtk.Objects.Button.Button'"] #-} +{- | +Sets the icon name on /@action@/ + +/Since: 2.16/ +-} +actionSetIconName :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> T.Text + {- ^ /@iconName@/: the icon name to set -} + -> m () +actionSetIconName action iconName = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + iconName' <- textToCString iconName + gtk_action_set_icon_name action' iconName' + touchManagedPtr action + freeMem iconName' + return () + +#if ENABLE_OVERLOADING +data ActionSetIconNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetIconNameMethodInfo a signature where + overloadedMethod _ = actionSetIconName + +#endif + +-- method Action::set_is_important +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to make the action important", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_is_important" gtk_action_set_is_important :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CInt -> -- is_important : TBasicType TBoolean + IO () + +{-# DEPRECATED actionSetIsImportant ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor whether","labels are shown directly"] #-} +{- | +Sets whether the action is important, this attribute is used +primarily by toolbar items to decide whether to show a label +or not. + +/Since: 2.16/ +-} +actionSetIsImportant :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> Bool + {- ^ /@isImportant@/: 'True' to make the action important -} + -> m () +actionSetIsImportant action isImportant = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + let isImportant' = (fromIntegral . fromEnum) isImportant + gtk_action_set_is_important action' isImportant' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionSetIsImportantMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetIsImportantMethodInfo a signature where + overloadedMethod _ = actionSetIsImportant + +#endif + +-- method Action::set_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the label text to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_label" gtk_action_set_label :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CString -> -- label : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionSetLabel ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and set a label on a menu item with","'GI.Gio.Objects.MenuItem.menuItemSetLabel'. For 'GI.Gtk.Interfaces.Actionable.Actionable' widgets, use the widget-specific","API to set a label"] #-} +{- | +Sets the label of /@action@/. + +/Since: 2.16/ +-} +actionSetLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> T.Text + {- ^ /@label@/: the label text to set -} + -> m () +actionSetLabel action label = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + label' <- textToCString label + gtk_action_set_label action' label' + touchManagedPtr action + freeMem label' + return () + +#if ENABLE_OVERLOADING +data ActionSetLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetLabelMethodInfo a signature where + overloadedMethod _ = actionSetLabel + +#endif + +-- method Action::set_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to make the action sensitive", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_sensitive" gtk_action_set_sensitive :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CInt -> -- sensitive : TBasicType TBoolean + IO () + +{-# DEPRECATED actionSetSensitive ["(Since version 3.10)","Use 'GI.Gio.Objects.SimpleAction.simpleActionSetEnabled' on a 'GI.Gio.Objects.SimpleAction.SimpleAction'","instead"] #-} +{- | +Sets the :sensitive property of the action to /@sensitive@/. Note that +this doesn’t necessarily mean effective sensitivity. See +'GI.Gtk.Objects.Action.actionIsSensitive' +for that. + +/Since: 2.6/ +-} +actionSetSensitive :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> Bool + {- ^ /@sensitive@/: 'True' to make the action sensitive -} + -> m () +actionSetSensitive action sensitive = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + let sensitive' = (fromIntegral . fromEnum) sensitive + gtk_action_set_sensitive action' sensitive' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionSetSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetSensitiveMethodInfo a signature where + overloadedMethod _ = actionSetSensitive + +#endif + +-- method Action::set_short_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the label text to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_short_label" gtk_action_set_short_label :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CString -> -- short_label : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionSetShortLabel ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, which has no equivalent of short","labels"] #-} +{- | +Sets a shorter label text on /@action@/. + +/Since: 2.16/ +-} +actionSetShortLabel :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> T.Text + {- ^ /@shortLabel@/: the label text to set -} + -> m () +actionSetShortLabel action shortLabel = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + shortLabel' <- textToCString shortLabel + gtk_action_set_short_label action' shortLabel' + touchManagedPtr action + freeMem shortLabel' + return () + +#if ENABLE_OVERLOADING +data ActionSetShortLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetShortLabelMethodInfo a signature where + overloadedMethod _ = actionSetShortLabel + +#endif + +-- method Action::set_stock_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the stock id", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_stock_id" gtk_action_set_stock_id :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CString -> -- stock_id : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionSetStockId ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, which has no equivalent of stock","items"] #-} +{- | +Sets the stock id on /@action@/ + +/Since: 2.16/ +-} +actionSetStockId :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> T.Text + {- ^ /@stockId@/: the stock id -} + -> m () +actionSetStockId action stockId = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + stockId' <- textToCString stockId + gtk_action_set_stock_id action' stockId' + touchManagedPtr action + freeMem stockId' + return () + +#if ENABLE_OVERLOADING +data ActionSetStockIdMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetStockIdMethodInfo a signature where + overloadedMethod _ = actionSetStockId + +#endif + +-- method Action::set_tooltip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the tooltip text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_tooltip" gtk_action_set_tooltip :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CString -> -- tooltip : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionSetTooltip ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and set tooltips on associated","'GI.Gtk.Interfaces.Actionable.Actionable' widgets with 'GI.Gtk.Objects.Widget.widgetSetTooltipText'"] #-} +{- | +Sets the tooltip text on /@action@/ + +/Since: 2.16/ +-} +actionSetTooltip :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> T.Text + {- ^ /@tooltip@/: the tooltip text -} + -> m () +actionSetTooltip action tooltip = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + tooltip' <- textToCString tooltip + gtk_action_set_tooltip action' tooltip' + touchManagedPtr action + freeMem tooltip' + return () + +#if ENABLE_OVERLOADING +data ActionSetTooltipMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetTooltipMethodInfo a signature where + overloadedMethod _ = actionSetTooltip + +#endif + +-- method Action::set_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to make the action visible", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_visible" gtk_action_set_visible :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CInt -> -- visible : TBasicType TBoolean + IO () + +{-# DEPRECATED actionSetVisible ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor the state of","'GI.Gtk.Interfaces.Actionable.Actionable' widgets directly"] #-} +{- | +Sets the :visible property of the action to /@visible@/. Note that +this doesn’t necessarily mean effective visibility. See +'GI.Gtk.Objects.Action.actionIsVisible' +for that. + +/Since: 2.6/ +-} +actionSetVisible :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: the action object -} + -> Bool + {- ^ /@visible@/: 'True' to make the action visible -} + -> m () +actionSetVisible action visible = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + let visible' = (fromIntegral . fromEnum) visible + gtk_action_set_visible action' visible' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetVisibleMethodInfo a signature where + overloadedMethod _ = actionSetVisible + +#endif + +-- method Action::set_visible_horizontal +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the action is visible horizontally", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_visible_horizontal" gtk_action_set_visible_horizontal :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CInt -> -- visible_horizontal : TBasicType TBoolean + IO () + +{-# DEPRECATED actionSetVisibleHorizontal ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor the","visibility of associated widgets and menu items directly"] #-} +{- | +Sets whether /@action@/ is visible when horizontal + +/Since: 2.16/ +-} +actionSetVisibleHorizontal :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> Bool + {- ^ /@visibleHorizontal@/: whether the action is visible horizontally -} + -> m () +actionSetVisibleHorizontal action visibleHorizontal = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + let visibleHorizontal' = (fromIntegral . fromEnum) visibleHorizontal + gtk_action_set_visible_horizontal action' visibleHorizontal' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionSetVisibleHorizontalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetVisibleHorizontalMethodInfo a signature where + overloadedMethod _ = actionSetVisibleHorizontal + +#endif + +-- method Action::set_visible_vertical +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the action is visible vertically", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_set_visible_vertical" gtk_action_set_visible_vertical :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CInt -> -- visible_vertical : TBasicType TBoolean + IO () + +{-# DEPRECATED actionSetVisibleVertical ["(Since version 3.10)","Use 'GI.Gio.Interfaces.Action.Action' instead, and control and monitor the","visibility of associated widgets and menu items directly"] #-} +{- | +Sets whether /@action@/ is visible when vertical + +/Since: 2.16/ +-} +actionSetVisibleVertical :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> Bool + {- ^ /@visibleVertical@/: whether the action is visible vertically -} + -> m () +actionSetVisibleVertical action visibleVertical = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + let visibleVertical' = (fromIntegral . fromEnum) visibleVertical + gtk_action_set_visible_vertical action' visibleVertical' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionSetVisibleVerticalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetVisibleVerticalMethodInfo a signature where + overloadedMethod _ = actionSetVisibleVertical + +#endif + +-- method Action::unblock_activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_unblock_activate" gtk_action_unblock_activate :: + Ptr Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED actionUnblockActivate ["(Since version 3.10)","Use 'GI.Gio.Objects.SimpleAction.simpleActionSetEnabled' to enable the","'GI.Gio.Objects.SimpleAction.SimpleAction' instead"] #-} +{- | +Reenable activation signals from the action + +/Since: 2.16/ +-} +actionUnblockActivate :: + (B.CallStack.HasCallStack, MonadIO m, IsAction a) => + a + {- ^ /@action@/: a 'GI.Gtk.Objects.Action.Action' -} + -> m () +actionUnblockActivate action = liftIO $ do + action' <- unsafeManagedPtrCastPtr action + gtk_action_unblock_activate action' + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionUnblockActivateMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionUnblockActivateMethodInfo a signature where + overloadedMethod _ = actionUnblockActivate + +#endif + + diff --git a/GI/Gtk/Objects/Action.hs-boot b/GI/Gtk/Objects/Action.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Action.hs-boot @@ -0,0 +1,203 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Action where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Action = Action (ManagedPtr Action) +instance GObject Action where +class (GObject o, O.IsDescendantOf Action o) => IsAction o +instance (GObject o, O.IsDescendantOf Action o) => IsAction o +instance O.HasParentTypes Action +#if ENABLE_OVERLOADING +data ActionActionGroupPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionAlwaysShowImagePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionGiconPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionHideIfEmptyPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionIconNamePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionIsImportantPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionLabelPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionNamePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionSensitivePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionShortLabelPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionStockIdPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionTooltipPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionVisiblePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionVisibleHorizontalPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionVisibleOverflownPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionVisibleVerticalPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionActivateSignalInfo +#endif +#if ENABLE_OVERLOADING +data ActionActivateMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionBlockActivateMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionConnectAcceleratorMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionCreateIconMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionCreateMenuMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionCreateMenuItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionCreateToolItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionDisconnectAcceleratorMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetAccelClosureMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetAccelPathMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetAlwaysShowImageMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetGiconMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetIconNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetIsImportantMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetProxiesMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetSensitiveMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetShortLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetStockIdMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetTooltipMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetVisibleMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetVisibleHorizontalMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGetVisibleVerticalMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionIsSensitiveMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionIsVisibleMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetAccelGroupMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetAccelPathMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetAlwaysShowImageMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetGiconMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetIconNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetIsImportantMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetSensitiveMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetShortLabelMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetStockIdMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetTooltipMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetVisibleMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetVisibleHorizontalMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionSetVisibleVerticalMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionUnblockActivateMethodInfo +#endif diff --git a/GI/Gtk/Objects/ActionBar.hs b/GI/Gtk/Objects/ActionBar.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ActionBar.hs @@ -0,0 +1,672 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +GtkActionBar is designed to present contextual actions. It is +expected to be displayed below the content and expand horizontally +to fill the area. + +It allows placing children at the start or the end. In addition, it +contains an internal centered box which is centered with respect to +the full width of the box, even if the children at either side take +up different amounts of space. + += CSS nodes + +GtkActionBar has a single CSS node with name actionbar. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.ActionBar + ( + +-- * Exported types + ActionBar(..) , + IsActionBar , + toActionBar , + noActionBar , + + + -- * Methods +-- ** getCenterWidget #method:getCenterWidget# + +#if ENABLE_OVERLOADING + ActionBarGetCenterWidgetMethodInfo , +#endif + actionBarGetCenterWidget , + + +-- ** new #method:new# + + actionBarNew , + + +-- ** packEnd #method:packEnd# + +#if ENABLE_OVERLOADING + ActionBarPackEndMethodInfo , +#endif + actionBarPackEnd , + + +-- ** packStart #method:packStart# + +#if ENABLE_OVERLOADING + ActionBarPackStartMethodInfo , +#endif + actionBarPackStart , + + +-- ** setCenterWidget #method:setCenterWidget# + +#if ENABLE_OVERLOADING + ActionBarSetCenterWidgetMethodInfo , +#endif + actionBarSetCenterWidget , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype ActionBar = ActionBar (ManagedPtr ActionBar) +foreign import ccall "gtk_action_bar_get_type" + c_gtk_action_bar_get_type :: IO GType + +instance GObject ActionBar where + gobjectType = c_gtk_action_bar_get_type + + +-- | Type class for types which can be safely cast to `ActionBar`, for instance with `toActionBar`. +class (GObject o, O.IsDescendantOf ActionBar o) => IsActionBar o +instance (GObject o, O.IsDescendantOf ActionBar o) => IsActionBar o + +instance O.HasParentTypes ActionBar +type instance O.ParentTypes ActionBar = '[Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `ActionBar`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toActionBar :: (MonadIO m, IsActionBar o) => o -> m ActionBar +toActionBar = liftIO . unsafeCastTo ActionBar + +-- | A convenience alias for `Nothing` :: `Maybe` `ActionBar`. +noActionBar :: Maybe ActionBar +noActionBar = Nothing + +#if ENABLE_OVERLOADING +type family ResolveActionBarMethod (t :: Symbol) (o :: *) :: * where + ResolveActionBarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveActionBarMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveActionBarMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveActionBarMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveActionBarMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveActionBarMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveActionBarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveActionBarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveActionBarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveActionBarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveActionBarMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveActionBarMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveActionBarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveActionBarMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveActionBarMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveActionBarMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveActionBarMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveActionBarMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveActionBarMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveActionBarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveActionBarMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveActionBarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveActionBarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveActionBarMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveActionBarMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveActionBarMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveActionBarMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveActionBarMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveActionBarMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveActionBarMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveActionBarMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveActionBarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveActionBarMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveActionBarMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveActionBarMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveActionBarMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveActionBarMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveActionBarMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveActionBarMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveActionBarMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveActionBarMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveActionBarMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveActionBarMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveActionBarMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveActionBarMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveActionBarMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveActionBarMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveActionBarMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveActionBarMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveActionBarMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveActionBarMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveActionBarMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveActionBarMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveActionBarMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveActionBarMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveActionBarMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveActionBarMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveActionBarMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveActionBarMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveActionBarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveActionBarMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveActionBarMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveActionBarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveActionBarMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveActionBarMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveActionBarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveActionBarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveActionBarMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveActionBarMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveActionBarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveActionBarMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveActionBarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveActionBarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveActionBarMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveActionBarMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveActionBarMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveActionBarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveActionBarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveActionBarMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveActionBarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveActionBarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveActionBarMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveActionBarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveActionBarMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveActionBarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveActionBarMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveActionBarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveActionBarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveActionBarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveActionBarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveActionBarMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveActionBarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveActionBarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveActionBarMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveActionBarMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveActionBarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveActionBarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveActionBarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveActionBarMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveActionBarMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveActionBarMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveActionBarMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveActionBarMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveActionBarMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveActionBarMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveActionBarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveActionBarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveActionBarMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveActionBarMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveActionBarMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveActionBarMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveActionBarMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveActionBarMethod "packEnd" o = ActionBarPackEndMethodInfo + ResolveActionBarMethod "packStart" o = ActionBarPackStartMethodInfo + ResolveActionBarMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveActionBarMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveActionBarMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveActionBarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveActionBarMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveActionBarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveActionBarMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveActionBarMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveActionBarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveActionBarMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveActionBarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveActionBarMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveActionBarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveActionBarMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveActionBarMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveActionBarMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveActionBarMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveActionBarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveActionBarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveActionBarMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveActionBarMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveActionBarMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveActionBarMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveActionBarMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveActionBarMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveActionBarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveActionBarMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveActionBarMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveActionBarMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveActionBarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveActionBarMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveActionBarMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveActionBarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveActionBarMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveActionBarMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveActionBarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveActionBarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveActionBarMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveActionBarMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveActionBarMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveActionBarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveActionBarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveActionBarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveActionBarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveActionBarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveActionBarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveActionBarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveActionBarMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveActionBarMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveActionBarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveActionBarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveActionBarMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveActionBarMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveActionBarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveActionBarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveActionBarMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveActionBarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveActionBarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveActionBarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveActionBarMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveActionBarMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveActionBarMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveActionBarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveActionBarMethod "getCenterWidget" o = ActionBarGetCenterWidgetMethodInfo + ResolveActionBarMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveActionBarMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveActionBarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveActionBarMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveActionBarMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveActionBarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveActionBarMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveActionBarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveActionBarMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveActionBarMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveActionBarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveActionBarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveActionBarMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveActionBarMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveActionBarMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveActionBarMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveActionBarMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveActionBarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveActionBarMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveActionBarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveActionBarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveActionBarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveActionBarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveActionBarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveActionBarMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveActionBarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveActionBarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveActionBarMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveActionBarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveActionBarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveActionBarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveActionBarMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveActionBarMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveActionBarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveActionBarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveActionBarMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveActionBarMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveActionBarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveActionBarMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveActionBarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveActionBarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveActionBarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveActionBarMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveActionBarMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveActionBarMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveActionBarMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveActionBarMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveActionBarMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveActionBarMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveActionBarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveActionBarMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveActionBarMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveActionBarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveActionBarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveActionBarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveActionBarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveActionBarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveActionBarMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveActionBarMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveActionBarMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveActionBarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveActionBarMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveActionBarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveActionBarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveActionBarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveActionBarMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveActionBarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveActionBarMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveActionBarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveActionBarMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveActionBarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveActionBarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveActionBarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveActionBarMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveActionBarMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveActionBarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveActionBarMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveActionBarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveActionBarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveActionBarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveActionBarMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveActionBarMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveActionBarMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveActionBarMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveActionBarMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveActionBarMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveActionBarMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveActionBarMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveActionBarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveActionBarMethod "setCenterWidget" o = ActionBarSetCenterWidgetMethodInfo + ResolveActionBarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveActionBarMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveActionBarMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveActionBarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveActionBarMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveActionBarMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveActionBarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveActionBarMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveActionBarMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveActionBarMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveActionBarMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveActionBarMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveActionBarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveActionBarMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveActionBarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveActionBarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveActionBarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveActionBarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveActionBarMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveActionBarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveActionBarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveActionBarMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveActionBarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveActionBarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveActionBarMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveActionBarMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveActionBarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveActionBarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveActionBarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveActionBarMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveActionBarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveActionBarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveActionBarMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveActionBarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveActionBarMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveActionBarMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveActionBarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveActionBarMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveActionBarMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveActionBarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveActionBarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveActionBarMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveActionBarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveActionBarMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveActionBarMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveActionBarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveActionBarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveActionBarMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveActionBarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveActionBarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveActionBarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveActionBarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveActionBarMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveActionBarMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveActionBarMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveActionBarMethod t ActionBar, O.MethodInfo info ActionBar p) => OL.IsLabel t (ActionBar -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList ActionBar +type instance O.AttributeList ActionBar = ActionBarAttributeList +type ActionBarAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList ActionBar = ActionBarSignalList +type ActionBarSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method ActionBar::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ActionBar"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_bar_new" gtk_action_bar_new :: + IO (Ptr ActionBar) + +{- | +Creates a new 'GI.Gtk.Objects.ActionBar.ActionBar' widget. + +/Since: 3.12/ +-} +actionBarNew :: + (B.CallStack.HasCallStack, MonadIO m) => + m ActionBar + {- ^ __Returns:__ a new 'GI.Gtk.Objects.ActionBar.ActionBar' -} +actionBarNew = liftIO $ do + result <- gtk_action_bar_new + checkUnexpectedReturnNULL "actionBarNew" result + result' <- (newObject ActionBar) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method ActionBar::get_center_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_bar", argType = TInterface (Name {namespace = "Gtk", name = "ActionBar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionBar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_bar_get_center_widget" gtk_action_bar_get_center_widget :: + Ptr ActionBar -> -- action_bar : TInterface (Name {namespace = "Gtk", name = "ActionBar"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Retrieves the center bar widget of the bar. + +/Since: 3.12/ +-} +actionBarGetCenterWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsActionBar a) => + a + {- ^ /@actionBar@/: a 'GI.Gtk.Objects.ActionBar.ActionBar' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the center 'GI.Gtk.Objects.Widget.Widget' or 'Nothing'. -} +actionBarGetCenterWidget actionBar = liftIO $ do + actionBar' <- unsafeManagedPtrCastPtr actionBar + result <- gtk_action_bar_get_center_widget actionBar' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr actionBar + return maybeResult + +#if ENABLE_OVERLOADING +data ActionBarGetCenterWidgetMethodInfo +instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsActionBar a) => O.MethodInfo ActionBarGetCenterWidgetMethodInfo a signature where + overloadedMethod _ = actionBarGetCenterWidget + +#endif + +-- method ActionBar::pack_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_bar", argType = TInterface (Name {namespace = "Gtk", name = "ActionBar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkActionBar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be added to @action_bar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_bar_pack_end" gtk_action_bar_pack_end :: + Ptr ActionBar -> -- action_bar : TInterface (Name {namespace = "Gtk", name = "ActionBar"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Adds /@child@/ to /@actionBar@/, packed with reference to the +end of the /@actionBar@/. + +/Since: 3.12/ +-} +actionBarPackEnd :: + (B.CallStack.HasCallStack, MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => + a + {- ^ /@actionBar@/: A 'GI.Gtk.Objects.ActionBar.ActionBar' -} + -> b + {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to be added to /@actionBar@/ -} + -> m () +actionBarPackEnd actionBar child = liftIO $ do + actionBar' <- unsafeManagedPtrCastPtr actionBar + child' <- unsafeManagedPtrCastPtr child + gtk_action_bar_pack_end actionBar' child' + touchManagedPtr actionBar + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data ActionBarPackEndMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => O.MethodInfo ActionBarPackEndMethodInfo a signature where + overloadedMethod _ = actionBarPackEnd + +#endif + +-- method ActionBar::pack_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_bar", argType = TInterface (Name {namespace = "Gtk", name = "ActionBar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkActionBar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be added to @action_bar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_bar_pack_start" gtk_action_bar_pack_start :: + Ptr ActionBar -> -- action_bar : TInterface (Name {namespace = "Gtk", name = "ActionBar"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Adds /@child@/ to /@actionBar@/, packed with reference to the +start of the /@actionBar@/. + +/Since: 3.12/ +-} +actionBarPackStart :: + (B.CallStack.HasCallStack, MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => + a + {- ^ /@actionBar@/: A 'GI.Gtk.Objects.ActionBar.ActionBar' -} + -> b + {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to be added to /@actionBar@/ -} + -> m () +actionBarPackStart actionBar child = liftIO $ do + actionBar' <- unsafeManagedPtrCastPtr actionBar + child' <- unsafeManagedPtrCastPtr child + gtk_action_bar_pack_start actionBar' child' + touchManagedPtr actionBar + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data ActionBarPackStartMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => O.MethodInfo ActionBarPackStartMethodInfo a signature where + overloadedMethod _ = actionBarPackStart + +#endif + +-- method ActionBar::set_center_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_bar", argType = TInterface (Name {namespace = "Gtk", name = "ActionBar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionBar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "center_widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a widget to use for the center", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_bar_set_center_widget" gtk_action_bar_set_center_widget :: + Ptr ActionBar -> -- action_bar : TInterface (Name {namespace = "Gtk", name = "ActionBar"}) + Ptr Gtk.Widget.Widget -> -- center_widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Sets the center widget for the 'GI.Gtk.Objects.ActionBar.ActionBar'. + +/Since: 3.12/ +-} +actionBarSetCenterWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => + a + {- ^ /@actionBar@/: a 'GI.Gtk.Objects.ActionBar.ActionBar' -} + -> Maybe (b) + {- ^ /@centerWidget@/: a widget to use for the center -} + -> m () +actionBarSetCenterWidget actionBar centerWidget = liftIO $ do + actionBar' <- unsafeManagedPtrCastPtr actionBar + maybeCenterWidget <- case centerWidget of + Nothing -> return nullPtr + Just jCenterWidget -> do + jCenterWidget' <- unsafeManagedPtrCastPtr jCenterWidget + return jCenterWidget' + gtk_action_bar_set_center_widget actionBar' maybeCenterWidget + touchManagedPtr actionBar + whenJust centerWidget touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ActionBarSetCenterWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => O.MethodInfo ActionBarSetCenterWidgetMethodInfo a signature where + overloadedMethod _ = actionBarSetCenterWidget + +#endif + + diff --git a/GI/Gtk/Objects/ActionBar.hs-boot b/GI/Gtk/Objects/ActionBar.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ActionBar.hs-boot @@ -0,0 +1,41 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.ActionBar where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype ActionBar = ActionBar (ManagedPtr ActionBar) +instance GObject ActionBar where +class (GObject o, O.IsDescendantOf ActionBar o) => IsActionBar o +instance (GObject o, O.IsDescendantOf ActionBar o) => IsActionBar o +instance O.HasParentTypes ActionBar +#if ENABLE_OVERLOADING +data ActionBarGetCenterWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionBarPackEndMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionBarPackStartMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionBarSetCenterWidgetMethodInfo +#endif diff --git a/GI/Gtk/Objects/ActionGroup.hs b/GI/Gtk/Objects/ActionGroup.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ActionGroup.hs @@ -0,0 +1,1701 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +Actions are organised into groups. An action group is essentially a +map from names to 'GI.Gtk.Objects.Action.Action' objects. + +All actions that would make sense to use in a particular context +should be in a single group. Multiple action groups may be used for a +particular user interface. In fact, it is expected that most nontrivial +applications will make use of multiple groups. For example, in an +application that can edit multiple documents, one group holding global +actions (e.g. quit, about, new), and one group per document holding +actions that act on that document (eg. save, cut\/copy\/paste, etc). Each +window’s menus would be constructed from a combination of two action +groups. + +## Accelerators ## {@/Action/@-Accel} + +Accelerators are handled by the GTK+ accelerator map. All actions are +assigned an accelerator path (which normally has the form +@\\/group-name\/action-name@) and a shortcut is associated with +this accelerator path. All menuitems and toolitems take on this accelerator +path. The GTK+ accelerator map code makes sure that the correct shortcut +is displayed next to the menu item. + +# GtkActionGroup as GtkBuildable # {'GI.Gtk.Objects.ActionGroup.ActionGroup'-BUILDER-UI} + +The 'GI.Gtk.Objects.ActionGroup.ActionGroup' implementation of the 'GI.Gtk.Interfaces.Buildable.Buildable' interface accepts +'GI.Gtk.Objects.Action.Action' objects as \ elements in UI definitions. + +Note that it is probably more common to define actions and action groups +in the code, since they are directly related to what the code can do. + +The GtkActionGroup implementation of the GtkBuildable interface supports +a custom \ element, which has attributes named “key“ and +“modifiers“ and allows to specify accelerators. This is similar to the +\ element of 'GI.Gtk.Objects.Widget.Widget', the main difference is that +it doesn’t allow you to specify a signal. + +## A 'GI.Gtk.Objects.Dialog.Dialog' UI definition fragment. ## +> +> +> +> +> About +> gtk-about +> +> +> +> +> + +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.ActionGroup + ( + +-- * Exported types + ActionGroup(..) , + IsActionGroup , + toActionGroup , + noActionGroup , + + + -- * Methods +-- ** addAction #method:addAction# + +#if ENABLE_OVERLOADING + ActionGroupAddActionMethodInfo , +#endif + actionGroupAddAction , + + +-- ** addActionWithAccel #method:addActionWithAccel# + +#if ENABLE_OVERLOADING + ActionGroupAddActionWithAccelMethodInfo , +#endif + actionGroupAddActionWithAccel , + + +-- ** getAccelGroup #method:getAccelGroup# + +#if ENABLE_OVERLOADING + ActionGroupGetAccelGroupMethodInfo , +#endif + actionGroupGetAccelGroup , + + +-- ** getAction #method:getAction# + +#if ENABLE_OVERLOADING + ActionGroupGetActionMethodInfo , +#endif + actionGroupGetAction , + + +-- ** getName #method:getName# + +#if ENABLE_OVERLOADING + ActionGroupGetNameMethodInfo , +#endif + actionGroupGetName , + + +-- ** getSensitive #method:getSensitive# + +#if ENABLE_OVERLOADING + ActionGroupGetSensitiveMethodInfo , +#endif + actionGroupGetSensitive , + + +-- ** getVisible #method:getVisible# + +#if ENABLE_OVERLOADING + ActionGroupGetVisibleMethodInfo , +#endif + actionGroupGetVisible , + + +-- ** listActions #method:listActions# + +#if ENABLE_OVERLOADING + ActionGroupListActionsMethodInfo , +#endif + actionGroupListActions , + + +-- ** new #method:new# + + actionGroupNew , + + +-- ** removeAction #method:removeAction# + +#if ENABLE_OVERLOADING + ActionGroupRemoveActionMethodInfo , +#endif + actionGroupRemoveAction , + + +-- ** setAccelGroup #method:setAccelGroup# + +#if ENABLE_OVERLOADING + ActionGroupSetAccelGroupMethodInfo , +#endif + actionGroupSetAccelGroup , + + +-- ** setSensitive #method:setSensitive# + +#if ENABLE_OVERLOADING + ActionGroupSetSensitiveMethodInfo , +#endif + actionGroupSetSensitive , + + +-- ** setTranslateFunc #method:setTranslateFunc# + +#if ENABLE_OVERLOADING + ActionGroupSetTranslateFuncMethodInfo , +#endif + actionGroupSetTranslateFunc , + + +-- ** setTranslationDomain #method:setTranslationDomain# + +#if ENABLE_OVERLOADING + ActionGroupSetTranslationDomainMethodInfo, +#endif + actionGroupSetTranslationDomain , + + +-- ** setVisible #method:setVisible# + +#if ENABLE_OVERLOADING + ActionGroupSetVisibleMethodInfo , +#endif + actionGroupSetVisible , + + +-- ** translateString #method:translateString# + +#if ENABLE_OVERLOADING + ActionGroupTranslateStringMethodInfo , +#endif + actionGroupTranslateString , + + + + + -- * Properties +-- ** accelGroup #attr:accelGroup# +{- | The accelerator group the actions of this group should use. +-} +#if ENABLE_OVERLOADING + ActionGroupAccelGroupPropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionGroupAccelGroup , +#endif + clearActionGroupAccelGroup , + constructActionGroupAccelGroup , + getActionGroupAccelGroup , + setActionGroupAccelGroup , + + +-- ** name #attr:name# +{- | A name for the action. +-} +#if ENABLE_OVERLOADING + ActionGroupNamePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionGroupName , +#endif + constructActionGroupName , + getActionGroupName , + + +-- ** sensitive #attr:sensitive# +{- | Whether the action group is enabled. +-} +#if ENABLE_OVERLOADING + ActionGroupSensitivePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionGroupSensitive , +#endif + constructActionGroupSensitive , + getActionGroupSensitive , + setActionGroupSensitive , + + +-- ** visible #attr:visible# +{- | Whether the action group is visible. +-} +#if ENABLE_OVERLOADING + ActionGroupVisiblePropertyInfo , +#endif +#if ENABLE_OVERLOADING + actionGroupVisible , +#endif + constructActionGroupVisible , + getActionGroupVisible , + setActionGroupVisible , + + + + + -- * Signals +-- ** connectProxy #signal:connectProxy# + + ActionGroupConnectProxyCallback , +#if ENABLE_OVERLOADING + ActionGroupConnectProxySignalInfo , +#endif + C_ActionGroupConnectProxyCallback , + afterActionGroupConnectProxy , + genClosure_ActionGroupConnectProxy , + mk_ActionGroupConnectProxyCallback , + noActionGroupConnectProxyCallback , + onActionGroupConnectProxy , + wrap_ActionGroupConnectProxyCallback , + + +-- ** disconnectProxy #signal:disconnectProxy# + + ActionGroupDisconnectProxyCallback , +#if ENABLE_OVERLOADING + ActionGroupDisconnectProxySignalInfo , +#endif + C_ActionGroupDisconnectProxyCallback , + afterActionGroupDisconnectProxy , + genClosure_ActionGroupDisconnectProxy , + mk_ActionGroupDisconnectProxyCallback , + noActionGroupDisconnectProxyCallback , + onActionGroupDisconnectProxy , + wrap_ActionGroupDisconnectProxyCallback , + + +-- ** postActivate #signal:postActivate# + + ActionGroupPostActivateCallback , +#if ENABLE_OVERLOADING + ActionGroupPostActivateSignalInfo , +#endif + C_ActionGroupPostActivateCallback , + afterActionGroupPostActivate , + genClosure_ActionGroupPostActivate , + mk_ActionGroupPostActivateCallback , + noActionGroupPostActivateCallback , + onActionGroupPostActivate , + wrap_ActionGroupPostActivateCallback , + + +-- ** preActivate #signal:preActivate# + + ActionGroupPreActivateCallback , +#if ENABLE_OVERLOADING + ActionGroupPreActivateSignalInfo , +#endif + C_ActionGroupPreActivateCallback , + afterActionGroupPreActivate , + genClosure_ActionGroupPreActivate , + mk_ActionGroupPreActivateCallback , + noActionGroupPreActivateCallback , + onActionGroupPreActivate , + wrap_ActionGroupPreActivateCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GLib.Callbacks as GLib.Callbacks +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup +import {-# SOURCE #-} qualified GI.Gtk.Objects.Action as Gtk.Action +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype ActionGroup = ActionGroup (ManagedPtr ActionGroup) +foreign import ccall "gtk_action_group_get_type" + c_gtk_action_group_get_type :: IO GType + +instance GObject ActionGroup where + gobjectType = c_gtk_action_group_get_type + + +-- | Type class for types which can be safely cast to `ActionGroup`, for instance with `toActionGroup`. +class (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o +instance (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o + +instance O.HasParentTypes ActionGroup +type instance O.ParentTypes ActionGroup = '[GObject.Object.Object, Gtk.Buildable.Buildable] + +-- | Cast to `ActionGroup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toActionGroup :: (MonadIO m, IsActionGroup o) => o -> m ActionGroup +toActionGroup = liftIO . unsafeCastTo ActionGroup + +-- | A convenience alias for `Nothing` :: `Maybe` `ActionGroup`. +noActionGroup :: Maybe ActionGroup +noActionGroup = Nothing + +#if ENABLE_OVERLOADING +type family ResolveActionGroupMethod (t :: Symbol) (o :: *) :: * where + ResolveActionGroupMethod "addAction" o = ActionGroupAddActionMethodInfo + ResolveActionGroupMethod "addActionWithAccel" o = ActionGroupAddActionWithAccelMethodInfo + ResolveActionGroupMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveActionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveActionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveActionGroupMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveActionGroupMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveActionGroupMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveActionGroupMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveActionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveActionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveActionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveActionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo + ResolveActionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveActionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveActionGroupMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveActionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveActionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveActionGroupMethod "removeAction" o = ActionGroupRemoveActionMethodInfo + ResolveActionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveActionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveActionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveActionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveActionGroupMethod "translateString" o = ActionGroupTranslateStringMethodInfo + ResolveActionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveActionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveActionGroupMethod "getAccelGroup" o = ActionGroupGetAccelGroupMethodInfo + ResolveActionGroupMethod "getAction" o = ActionGroupGetActionMethodInfo + ResolveActionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveActionGroupMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveActionGroupMethod "getName" o = ActionGroupGetNameMethodInfo + ResolveActionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveActionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveActionGroupMethod "getSensitive" o = ActionGroupGetSensitiveMethodInfo + ResolveActionGroupMethod "getVisible" o = ActionGroupGetVisibleMethodInfo + ResolveActionGroupMethod "setAccelGroup" o = ActionGroupSetAccelGroupMethodInfo + ResolveActionGroupMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveActionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveActionGroupMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo + ResolveActionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveActionGroupMethod "setSensitive" o = ActionGroupSetSensitiveMethodInfo + ResolveActionGroupMethod "setTranslateFunc" o = ActionGroupSetTranslateFuncMethodInfo + ResolveActionGroupMethod "setTranslationDomain" o = ActionGroupSetTranslationDomainMethodInfo + ResolveActionGroupMethod "setVisible" o = ActionGroupSetVisibleMethodInfo + ResolveActionGroupMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveActionGroupMethod t ActionGroup, O.MethodInfo info ActionGroup p) => OL.IsLabel t (ActionGroup -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal ActionGroup::connect-proxy +{-# DEPRECATED ActionGroupConnectProxyCallback ["(Since version 3.10)"] #-} +{- | +The ::connect-proxy signal is emitted after connecting a proxy to +an action in the group. Note that the proxy may have been connected +to a different action before. + +This is intended for simple customizations for which a custom action +class would be too clumsy, e.g. showing tooltips for menuitems in the +statusbar. + +'GI.Gtk.Objects.UIManager.UIManager' proxies the signal and provides global notification +just before any action is connected to a proxy, which is probably more +convenient to use. + +/Since: 2.4/ +-} +type ActionGroupConnectProxyCallback = + Gtk.Action.Action + {- ^ /@action@/: the action -} + -> Gtk.Widget.Widget + {- ^ /@proxy@/: the proxy -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupConnectProxyCallback`@. +noActionGroupConnectProxyCallback :: Maybe ActionGroupConnectProxyCallback +noActionGroupConnectProxyCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ActionGroupConnectProxyCallback = + Ptr () -> -- object + Ptr Gtk.Action.Action -> + Ptr Gtk.Widget.Widget -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ActionGroupConnectProxyCallback`. +foreign import ccall "wrapper" + mk_ActionGroupConnectProxyCallback :: C_ActionGroupConnectProxyCallback -> IO (FunPtr C_ActionGroupConnectProxyCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ActionGroupConnectProxy :: MonadIO m => ActionGroupConnectProxyCallback -> m (GClosure C_ActionGroupConnectProxyCallback) +genClosure_ActionGroupConnectProxy cb = liftIO $ do + let cb' = wrap_ActionGroupConnectProxyCallback cb + mk_ActionGroupConnectProxyCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ActionGroupConnectProxyCallback` into a `C_ActionGroupConnectProxyCallback`. +wrap_ActionGroupConnectProxyCallback :: + ActionGroupConnectProxyCallback -> + C_ActionGroupConnectProxyCallback +wrap_ActionGroupConnectProxyCallback _cb _ action proxy _ = do + action' <- (newObject Gtk.Action.Action) action + proxy' <- (newObject Gtk.Widget.Widget) proxy + _cb action' proxy' + + +{- | +Connect a signal handler for the “@connect-proxy@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' actionGroup #connectProxy callback +@ +-} +onActionGroupConnectProxy :: (IsActionGroup a, MonadIO m) => a -> ActionGroupConnectProxyCallback -> m SignalHandlerId +onActionGroupConnectProxy obj cb = liftIO $ do + let cb' = wrap_ActionGroupConnectProxyCallback cb + cb'' <- mk_ActionGroupConnectProxyCallback cb' + connectSignalFunPtr obj "connect-proxy" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@connect-proxy@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' actionGroup #connectProxy callback +@ +-} +afterActionGroupConnectProxy :: (IsActionGroup a, MonadIO m) => a -> ActionGroupConnectProxyCallback -> m SignalHandlerId +afterActionGroupConnectProxy obj cb = liftIO $ do + let cb' = wrap_ActionGroupConnectProxyCallback cb + cb'' <- mk_ActionGroupConnectProxyCallback cb' + connectSignalFunPtr obj "connect-proxy" cb'' SignalConnectAfter + + +-- signal ActionGroup::disconnect-proxy +{-# DEPRECATED ActionGroupDisconnectProxyCallback ["(Since version 3.10)"] #-} +{- | +The ::disconnect-proxy signal is emitted after disconnecting a proxy +from an action in the group. + +'GI.Gtk.Objects.UIManager.UIManager' proxies the signal and provides global notification +just before any action is connected to a proxy, which is probably more +convenient to use. + +/Since: 2.4/ +-} +type ActionGroupDisconnectProxyCallback = + Gtk.Action.Action + {- ^ /@action@/: the action -} + -> Gtk.Widget.Widget + {- ^ /@proxy@/: the proxy -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupDisconnectProxyCallback`@. +noActionGroupDisconnectProxyCallback :: Maybe ActionGroupDisconnectProxyCallback +noActionGroupDisconnectProxyCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ActionGroupDisconnectProxyCallback = + Ptr () -> -- object + Ptr Gtk.Action.Action -> + Ptr Gtk.Widget.Widget -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ActionGroupDisconnectProxyCallback`. +foreign import ccall "wrapper" + mk_ActionGroupDisconnectProxyCallback :: C_ActionGroupDisconnectProxyCallback -> IO (FunPtr C_ActionGroupDisconnectProxyCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ActionGroupDisconnectProxy :: MonadIO m => ActionGroupDisconnectProxyCallback -> m (GClosure C_ActionGroupDisconnectProxyCallback) +genClosure_ActionGroupDisconnectProxy cb = liftIO $ do + let cb' = wrap_ActionGroupDisconnectProxyCallback cb + mk_ActionGroupDisconnectProxyCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ActionGroupDisconnectProxyCallback` into a `C_ActionGroupDisconnectProxyCallback`. +wrap_ActionGroupDisconnectProxyCallback :: + ActionGroupDisconnectProxyCallback -> + C_ActionGroupDisconnectProxyCallback +wrap_ActionGroupDisconnectProxyCallback _cb _ action proxy _ = do + action' <- (newObject Gtk.Action.Action) action + proxy' <- (newObject Gtk.Widget.Widget) proxy + _cb action' proxy' + + +{- | +Connect a signal handler for the “@disconnect-proxy@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' actionGroup #disconnectProxy callback +@ +-} +onActionGroupDisconnectProxy :: (IsActionGroup a, MonadIO m) => a -> ActionGroupDisconnectProxyCallback -> m SignalHandlerId +onActionGroupDisconnectProxy obj cb = liftIO $ do + let cb' = wrap_ActionGroupDisconnectProxyCallback cb + cb'' <- mk_ActionGroupDisconnectProxyCallback cb' + connectSignalFunPtr obj "disconnect-proxy" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@disconnect-proxy@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' actionGroup #disconnectProxy callback +@ +-} +afterActionGroupDisconnectProxy :: (IsActionGroup a, MonadIO m) => a -> ActionGroupDisconnectProxyCallback -> m SignalHandlerId +afterActionGroupDisconnectProxy obj cb = liftIO $ do + let cb' = wrap_ActionGroupDisconnectProxyCallback cb + cb'' <- mk_ActionGroupDisconnectProxyCallback cb' + connectSignalFunPtr obj "disconnect-proxy" cb'' SignalConnectAfter + + +-- signal ActionGroup::post-activate +{-# DEPRECATED ActionGroupPostActivateCallback ["(Since version 3.10)"] #-} +{- | +The ::post-activate signal is emitted just after the /@action@/ in the +/@actionGroup@/ is activated + +This is intended for 'GI.Gtk.Objects.UIManager.UIManager' to proxy the signal and provide global +notification just after any action is activated. + +/Since: 2.4/ +-} +type ActionGroupPostActivateCallback = + Gtk.Action.Action + {- ^ /@action@/: the action -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupPostActivateCallback`@. +noActionGroupPostActivateCallback :: Maybe ActionGroupPostActivateCallback +noActionGroupPostActivateCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ActionGroupPostActivateCallback = + Ptr () -> -- object + Ptr Gtk.Action.Action -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ActionGroupPostActivateCallback`. +foreign import ccall "wrapper" + mk_ActionGroupPostActivateCallback :: C_ActionGroupPostActivateCallback -> IO (FunPtr C_ActionGroupPostActivateCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ActionGroupPostActivate :: MonadIO m => ActionGroupPostActivateCallback -> m (GClosure C_ActionGroupPostActivateCallback) +genClosure_ActionGroupPostActivate cb = liftIO $ do + let cb' = wrap_ActionGroupPostActivateCallback cb + mk_ActionGroupPostActivateCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ActionGroupPostActivateCallback` into a `C_ActionGroupPostActivateCallback`. +wrap_ActionGroupPostActivateCallback :: + ActionGroupPostActivateCallback -> + C_ActionGroupPostActivateCallback +wrap_ActionGroupPostActivateCallback _cb _ action _ = do + action' <- (newObject Gtk.Action.Action) action + _cb action' + + +{- | +Connect a signal handler for the “@post-activate@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' actionGroup #postActivate callback +@ +-} +onActionGroupPostActivate :: (IsActionGroup a, MonadIO m) => a -> ActionGroupPostActivateCallback -> m SignalHandlerId +onActionGroupPostActivate obj cb = liftIO $ do + let cb' = wrap_ActionGroupPostActivateCallback cb + cb'' <- mk_ActionGroupPostActivateCallback cb' + connectSignalFunPtr obj "post-activate" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@post-activate@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' actionGroup #postActivate callback +@ +-} +afterActionGroupPostActivate :: (IsActionGroup a, MonadIO m) => a -> ActionGroupPostActivateCallback -> m SignalHandlerId +afterActionGroupPostActivate obj cb = liftIO $ do + let cb' = wrap_ActionGroupPostActivateCallback cb + cb'' <- mk_ActionGroupPostActivateCallback cb' + connectSignalFunPtr obj "post-activate" cb'' SignalConnectAfter + + +-- signal ActionGroup::pre-activate +{-# DEPRECATED ActionGroupPreActivateCallback ["(Since version 3.10)"] #-} +{- | +The ::pre-activate signal is emitted just before the /@action@/ in the +/@actionGroup@/ is activated + +This is intended for 'GI.Gtk.Objects.UIManager.UIManager' to proxy the signal and provide global +notification just before any action is activated. + +/Since: 2.4/ +-} +type ActionGroupPreActivateCallback = + Gtk.Action.Action + {- ^ /@action@/: the action -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupPreActivateCallback`@. +noActionGroupPreActivateCallback :: Maybe ActionGroupPreActivateCallback +noActionGroupPreActivateCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ActionGroupPreActivateCallback = + Ptr () -> -- object + Ptr Gtk.Action.Action -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ActionGroupPreActivateCallback`. +foreign import ccall "wrapper" + mk_ActionGroupPreActivateCallback :: C_ActionGroupPreActivateCallback -> IO (FunPtr C_ActionGroupPreActivateCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ActionGroupPreActivate :: MonadIO m => ActionGroupPreActivateCallback -> m (GClosure C_ActionGroupPreActivateCallback) +genClosure_ActionGroupPreActivate cb = liftIO $ do + let cb' = wrap_ActionGroupPreActivateCallback cb + mk_ActionGroupPreActivateCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ActionGroupPreActivateCallback` into a `C_ActionGroupPreActivateCallback`. +wrap_ActionGroupPreActivateCallback :: + ActionGroupPreActivateCallback -> + C_ActionGroupPreActivateCallback +wrap_ActionGroupPreActivateCallback _cb _ action _ = do + action' <- (newObject Gtk.Action.Action) action + _cb action' + + +{- | +Connect a signal handler for the “@pre-activate@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' actionGroup #preActivate callback +@ +-} +onActionGroupPreActivate :: (IsActionGroup a, MonadIO m) => a -> ActionGroupPreActivateCallback -> m SignalHandlerId +onActionGroupPreActivate obj cb = liftIO $ do + let cb' = wrap_ActionGroupPreActivateCallback cb + cb'' <- mk_ActionGroupPreActivateCallback cb' + connectSignalFunPtr obj "pre-activate" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@pre-activate@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' actionGroup #preActivate callback +@ +-} +afterActionGroupPreActivate :: (IsActionGroup a, MonadIO m) => a -> ActionGroupPreActivateCallback -> m SignalHandlerId +afterActionGroupPreActivate obj cb = liftIO $ do + let cb' = wrap_ActionGroupPreActivateCallback cb + cb'' <- mk_ActionGroupPreActivateCallback cb' + connectSignalFunPtr obj "pre-activate" cb'' SignalConnectAfter + + +-- VVV Prop "accel-group" + -- Type: TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@accel-group@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' actionGroup #accelGroup +@ +-} +getActionGroupAccelGroup :: (MonadIO m, IsActionGroup o) => o -> m Gtk.AccelGroup.AccelGroup +getActionGroupAccelGroup obj = liftIO $ checkUnexpectedNothing "getActionGroupAccelGroup" $ B.Properties.getObjectPropertyObject obj "accel-group" Gtk.AccelGroup.AccelGroup + +{- | +Set the value of the “@accel-group@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' actionGroup [ #accelGroup 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionGroupAccelGroup :: (MonadIO m, IsActionGroup o, Gtk.AccelGroup.IsAccelGroup a) => o -> a -> m () +setActionGroupAccelGroup obj val = liftIO $ B.Properties.setObjectPropertyObject obj "accel-group" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@accel-group@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionGroupAccelGroup :: (IsActionGroup o, Gtk.AccelGroup.IsAccelGroup a) => a -> IO (GValueConstruct o) +constructActionGroupAccelGroup val = B.Properties.constructObjectPropertyObject "accel-group" (Just val) + +{- | +Set the value of the “@accel-group@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #accelGroup +@ +-} +clearActionGroupAccelGroup :: (MonadIO m, IsActionGroup o) => o -> m () +clearActionGroupAccelGroup obj = liftIO $ B.Properties.setObjectPropertyObject obj "accel-group" (Nothing :: Maybe Gtk.AccelGroup.AccelGroup) + +#if ENABLE_OVERLOADING +data ActionGroupAccelGroupPropertyInfo +instance AttrInfo ActionGroupAccelGroupPropertyInfo where + type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionGroupAccelGroupPropertyInfo = Gtk.AccelGroup.IsAccelGroup + type AttrBaseTypeConstraint ActionGroupAccelGroupPropertyInfo = IsActionGroup + type AttrGetType ActionGroupAccelGroupPropertyInfo = Gtk.AccelGroup.AccelGroup + type AttrLabel ActionGroupAccelGroupPropertyInfo = "accel-group" + type AttrOrigin ActionGroupAccelGroupPropertyInfo = ActionGroup + attrGet _ = getActionGroupAccelGroup + attrSet _ = setActionGroupAccelGroup + attrConstruct _ = constructActionGroupAccelGroup + attrClear _ = clearActionGroupAccelGroup +#endif + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) + +{- | +Get the value of the “@name@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' actionGroup #name +@ +-} +getActionGroupName :: (MonadIO m, IsActionGroup o) => o -> m T.Text +getActionGroupName obj = liftIO $ checkUnexpectedNothing "getActionGroupName" $ B.Properties.getObjectPropertyString obj "name" + +{- | +Construct a `GValueConstruct` with valid value for the “@name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionGroupName :: (IsActionGroup o) => T.Text -> IO (GValueConstruct o) +constructActionGroupName val = B.Properties.constructObjectPropertyString "name" (Just val) + +#if ENABLE_OVERLOADING +data ActionGroupNamePropertyInfo +instance AttrInfo ActionGroupNamePropertyInfo where + type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionGroupNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionGroupNamePropertyInfo = IsActionGroup + type AttrGetType ActionGroupNamePropertyInfo = T.Text + type AttrLabel ActionGroupNamePropertyInfo = "name" + type AttrOrigin ActionGroupNamePropertyInfo = ActionGroup + attrGet _ = getActionGroupName + attrSet _ = undefined + attrConstruct _ = constructActionGroupName + attrClear _ = undefined +#endif + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@sensitive@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' actionGroup #sensitive +@ +-} +getActionGroupSensitive :: (MonadIO m, IsActionGroup o) => o -> m Bool +getActionGroupSensitive obj = liftIO $ B.Properties.getObjectPropertyBool obj "sensitive" + +{- | +Set the value of the “@sensitive@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' actionGroup [ #sensitive 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionGroupSensitive :: (MonadIO m, IsActionGroup o) => o -> Bool -> m () +setActionGroupSensitive obj val = liftIO $ B.Properties.setObjectPropertyBool obj "sensitive" val + +{- | +Construct a `GValueConstruct` with valid value for the “@sensitive@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionGroupSensitive :: (IsActionGroup o) => Bool -> IO (GValueConstruct o) +constructActionGroupSensitive val = B.Properties.constructObjectPropertyBool "sensitive" val + +#if ENABLE_OVERLOADING +data ActionGroupSensitivePropertyInfo +instance AttrInfo ActionGroupSensitivePropertyInfo where + type AttrAllowedOps ActionGroupSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionGroupSensitivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionGroupSensitivePropertyInfo = IsActionGroup + type AttrGetType ActionGroupSensitivePropertyInfo = Bool + type AttrLabel ActionGroupSensitivePropertyInfo = "sensitive" + type AttrOrigin ActionGroupSensitivePropertyInfo = ActionGroup + attrGet _ = getActionGroupSensitive + attrSet _ = setActionGroupSensitive + attrConstruct _ = constructActionGroupSensitive + attrClear _ = undefined +#endif + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@visible@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' actionGroup #visible +@ +-} +getActionGroupVisible :: (MonadIO m, IsActionGroup o) => o -> m Bool +getActionGroupVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible" + +{- | +Set the value of the “@visible@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' actionGroup [ #visible 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setActionGroupVisible :: (MonadIO m, IsActionGroup o) => o -> Bool -> m () +setActionGroupVisible obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible" val + +{- | +Construct a `GValueConstruct` with valid value for the “@visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructActionGroupVisible :: (IsActionGroup o) => Bool -> IO (GValueConstruct o) +constructActionGroupVisible val = B.Properties.constructObjectPropertyBool "visible" val + +#if ENABLE_OVERLOADING +data ActionGroupVisiblePropertyInfo +instance AttrInfo ActionGroupVisiblePropertyInfo where + type AttrAllowedOps ActionGroupVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionGroupVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint ActionGroupVisiblePropertyInfo = IsActionGroup + type AttrGetType ActionGroupVisiblePropertyInfo = Bool + type AttrLabel ActionGroupVisiblePropertyInfo = "visible" + type AttrOrigin ActionGroupVisiblePropertyInfo = ActionGroup + attrGet _ = getActionGroupVisible + attrSet _ = setActionGroupVisible + attrConstruct _ = constructActionGroupVisible + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList ActionGroup +type instance O.AttributeList ActionGroup = ActionGroupAttributeList +type ActionGroupAttributeList = ('[ '("accelGroup", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +actionGroupAccelGroup :: AttrLabelProxy "accelGroup" +actionGroupAccelGroup = AttrLabelProxy + +actionGroupName :: AttrLabelProxy "name" +actionGroupName = AttrLabelProxy + +actionGroupSensitive :: AttrLabelProxy "sensitive" +actionGroupSensitive = AttrLabelProxy + +actionGroupVisible :: AttrLabelProxy "visible" +actionGroupVisible = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data ActionGroupConnectProxySignalInfo +instance SignalInfo ActionGroupConnectProxySignalInfo where + type HaskellCallbackType ActionGroupConnectProxySignalInfo = ActionGroupConnectProxyCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ActionGroupConnectProxyCallback cb + cb'' <- mk_ActionGroupConnectProxyCallback cb' + connectSignalFunPtr obj "connect-proxy" cb'' connectMode + +data ActionGroupDisconnectProxySignalInfo +instance SignalInfo ActionGroupDisconnectProxySignalInfo where + type HaskellCallbackType ActionGroupDisconnectProxySignalInfo = ActionGroupDisconnectProxyCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ActionGroupDisconnectProxyCallback cb + cb'' <- mk_ActionGroupDisconnectProxyCallback cb' + connectSignalFunPtr obj "disconnect-proxy" cb'' connectMode + +data ActionGroupPostActivateSignalInfo +instance SignalInfo ActionGroupPostActivateSignalInfo where + type HaskellCallbackType ActionGroupPostActivateSignalInfo = ActionGroupPostActivateCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ActionGroupPostActivateCallback cb + cb'' <- mk_ActionGroupPostActivateCallback cb' + connectSignalFunPtr obj "post-activate" cb'' connectMode + +data ActionGroupPreActivateSignalInfo +instance SignalInfo ActionGroupPreActivateSignalInfo where + type HaskellCallbackType ActionGroupPreActivateSignalInfo = ActionGroupPreActivateCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ActionGroupPreActivateCallback cb + cb'' <- mk_ActionGroupPreActivateCallback cb' + connectSignalFunPtr obj "pre-activate" cb'' connectMode + +type instance O.SignalList ActionGroup = ActionGroupSignalList +type ActionGroupSignalList = ('[ '("connectProxy", ActionGroupConnectProxySignalInfo), '("disconnectProxy", ActionGroupDisconnectProxySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("postActivate", ActionGroupPostActivateSignalInfo), '("preActivate", ActionGroupPreActivateSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method ActionGroup::new +-- method type : Constructor +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action group.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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)"] #-} +{- | +Creates a new 'GI.Gtk.Objects.ActionGroup.ActionGroup' object. The name of the action group +is used when associating [keybindings][Action-Accel] +with the actions. + +/Since: 2.4/ +-} +actionGroupNew :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@name@/: the name of the action group. -} + -> m ActionGroup + {- ^ __Returns:__ the new 'GI.Gtk.Objects.ActionGroup.ActionGroup' -} +actionGroupNew name = liftIO $ do + name' <- textToCString name + result <- gtk_action_group_new name' + checkUnexpectedReturnNULL "actionGroupNew" result + result' <- (wrapObject ActionGroup) result + freeMem name' + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method ActionGroup::add_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_add_action" gtk_action_group_add_action :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + Ptr Gtk.Action.Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED actionGroupAddAction ["(Since version 3.10)"] #-} +{- | +Adds an action object to the action group. Note that this function +does not set up the accel path of the action, which can lead to problems +if a user tries to modify the accelerator of a menuitem associated with +the action. Therefore you must either set the accel path yourself with +'GI.Gtk.Objects.Action.actionSetAccelPath', or use +@gtk_action_group_add_action_with_accel (..., NULL)@. + +/Since: 2.4/ +-} +actionGroupAddAction :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a, Gtk.Action.IsAction b) => + a + {- ^ /@actionGroup@/: the action group -} + -> b + {- ^ /@action@/: an action -} + -> m () +actionGroupAddAction actionGroup action = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + action' <- unsafeManagedPtrCastPtr action + gtk_action_group_add_action actionGroup' action' + touchManagedPtr actionGroup + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionGroupAddActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsActionGroup a, Gtk.Action.IsAction b) => O.MethodInfo ActionGroupAddActionMethodInfo a signature where + overloadedMethod _ = actionGroupAddAction + +#endif + +-- method ActionGroup::add_action_with_accel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the accelerator for the action, in\n the format understood by gtk_accelerator_parse(), or \"\" for no accelerator, or\n %NULL to use the stock accelerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_add_action_with_accel" gtk_action_group_add_action_with_accel :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + Ptr Gtk.Action.Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + CString -> -- accelerator : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionGroupAddActionWithAccel ["(Since version 3.10)"] #-} +{- | +Adds an action object to the action group and sets up the accelerator. + +If /@accelerator@/ is 'Nothing', attempts to use the accelerator associated +with the stock_id of the action. + +Accel paths are set to @\\/group-name\/action-name@. + +/Since: 2.4/ +-} +actionGroupAddActionWithAccel :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a, Gtk.Action.IsAction b) => + a + {- ^ /@actionGroup@/: the action group -} + -> b + {- ^ /@action@/: the action to add -} + -> Maybe (T.Text) + {- ^ /@accelerator@/: the accelerator for the action, in + the format understood by 'GI.Gtk.Functions.acceleratorParse', or \"\" for no accelerator, or + 'Nothing' to use the stock accelerator -} + -> m () +actionGroupAddActionWithAccel actionGroup action accelerator = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + 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 actionGroup' action' maybeAccelerator + touchManagedPtr actionGroup + touchManagedPtr action + freeMem maybeAccelerator + return () + +#if ENABLE_OVERLOADING +data ActionGroupAddActionWithAccelMethodInfo +instance (signature ~ (b -> Maybe (T.Text) -> m ()), MonadIO m, IsActionGroup a, Gtk.Action.IsAction b) => O.MethodInfo ActionGroupAddActionWithAccelMethodInfo a signature where + overloadedMethod _ = actionGroupAddActionWithAccel + +#endif + +-- method ActionGroup::get_accel_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AccelGroup"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_get_accel_group" gtk_action_group_get_accel_group :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + IO (Ptr Gtk.AccelGroup.AccelGroup) + +{-# DEPRECATED actionGroupGetAccelGroup ["(Since version 3.10)"] #-} +{- | +Gets the accelerator group. + +/Since: 3.6/ +-} +actionGroupGetAccelGroup :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: a 'GI.Gtk.Objects.ActionGroup.ActionGroup' -} + -> m Gtk.AccelGroup.AccelGroup + {- ^ __Returns:__ the accelerator group associated with this action +group or 'Nothing' if there is none. -} +actionGroupGetAccelGroup actionGroup = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + result <- gtk_action_group_get_accel_group actionGroup' + checkUnexpectedReturnNULL "actionGroupGetAccelGroup" result + result' <- (newObject Gtk.AccelGroup.AccelGroup) result + touchManagedPtr actionGroup + return result' + +#if ENABLE_OVERLOADING +data ActionGroupGetAccelGroupMethodInfo +instance (signature ~ (m Gtk.AccelGroup.AccelGroup), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetAccelGroupMethodInfo a signature where + overloadedMethod _ = actionGroupGetAccelGroup + +#endif + +-- method ActionGroup::get_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Action"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_get_action" gtk_action_group_get_action :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + CString -> -- action_name : TBasicType TUTF8 + IO (Ptr Gtk.Action.Action) + +{-# DEPRECATED actionGroupGetAction ["(Since version 3.10)"] #-} +{- | +Looks up an action in the action group by name. + +/Since: 2.4/ +-} +actionGroupGetAction :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: the action group -} + -> T.Text + {- ^ /@actionName@/: the name of the action -} + -> m (Maybe Gtk.Action.Action) + {- ^ __Returns:__ the action, or 'Nothing' if no action by that name exists -} +actionGroupGetAction actionGroup actionName = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + actionName' <- textToCString actionName + result <- gtk_action_group_get_action actionGroup' actionName' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Action.Action) result' + return result'' + touchManagedPtr actionGroup + freeMem actionName' + return maybeResult + +#if ENABLE_OVERLOADING +data ActionGroupGetActionMethodInfo +instance (signature ~ (T.Text -> m (Maybe Gtk.Action.Action)), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetActionMethodInfo a signature where + overloadedMethod _ = actionGroupGetAction + +#endif + +-- method ActionGroup::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_get_name" gtk_action_group_get_name :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + IO CString + +{-# DEPRECATED actionGroupGetName ["(Since version 3.10)"] #-} +{- | +Gets the name of the action group. + +/Since: 2.4/ +-} +actionGroupGetName :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: the action group -} + -> m T.Text + {- ^ __Returns:__ the name of the action group. -} +actionGroupGetName actionGroup = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + result <- gtk_action_group_get_name actionGroup' + checkUnexpectedReturnNULL "actionGroupGetName" result + result' <- cstringToText result + touchManagedPtr actionGroup + return result' + +#if ENABLE_OVERLOADING +data ActionGroupGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetNameMethodInfo a signature where + overloadedMethod _ = actionGroupGetName + +#endif + +-- method ActionGroup::get_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_get_sensitive" gtk_action_group_get_sensitive :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + IO CInt + +{-# DEPRECATED actionGroupGetSensitive ["(Since version 3.10)"] #-} +{- | +Returns 'True' if the group is sensitive. The constituent actions +can only be logically sensitive (see 'GI.Gtk.Objects.Action.actionIsSensitive') if +they are sensitive (see 'GI.Gtk.Objects.Action.actionGetSensitive') and their group +is sensitive. + +/Since: 2.4/ +-} +actionGroupGetSensitive :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: the action group -} + -> m Bool + {- ^ __Returns:__ 'True' if the group is sensitive. -} +actionGroupGetSensitive actionGroup = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + result <- gtk_action_group_get_sensitive actionGroup' + let result' = (/= 0) result + touchManagedPtr actionGroup + return result' + +#if ENABLE_OVERLOADING +data ActionGroupGetSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetSensitiveMethodInfo a signature where + overloadedMethod _ = actionGroupGetSensitive + +#endif + +-- method ActionGroup::get_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_get_visible" gtk_action_group_get_visible :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + IO CInt + +{-# DEPRECATED actionGroupGetVisible ["(Since version 3.10)"] #-} +{- | +Returns 'True' if the group is visible. The constituent actions +can only be logically visible (see 'GI.Gtk.Objects.Action.actionIsVisible') if +they are visible (see 'GI.Gtk.Objects.Action.actionGetVisible') and their group +is visible. + +/Since: 2.4/ +-} +actionGroupGetVisible :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: the action group -} + -> m Bool + {- ^ __Returns:__ 'True' if the group is visible. -} +actionGroupGetVisible actionGroup = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + result <- gtk_action_group_get_visible actionGroup' + let result' = (/= 0) result + touchManagedPtr actionGroup + return result' + +#if ENABLE_OVERLOADING +data ActionGroupGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetVisibleMethodInfo a signature where + overloadedMethod _ = actionGroupGetVisible + +#endif + +-- method ActionGroup::list_actions +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGList (TInterface (Name {namespace = "Gtk", name = "Action"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_list_actions" gtk_action_group_list_actions :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + IO (Ptr (GList (Ptr Gtk.Action.Action))) + +{-# DEPRECATED actionGroupListActions ["(Since version 3.10)"] #-} +{- | +Lists the actions in the action group. + +/Since: 2.4/ +-} +actionGroupListActions :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: the action group -} + -> m [Gtk.Action.Action] + {- ^ __Returns:__ an allocated list of the action objects in the action group -} +actionGroupListActions actionGroup = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + result <- gtk_action_group_list_actions actionGroup' + result' <- unpackGList result + result'' <- mapM (newObject Gtk.Action.Action) result' + g_list_free result + touchManagedPtr actionGroup + return result'' + +#if ENABLE_OVERLOADING +data ActionGroupListActionsMethodInfo +instance (signature ~ (m [Gtk.Action.Action]), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupListActionsMethodInfo a signature where + overloadedMethod _ = actionGroupListActions + +#endif + +-- method ActionGroup::remove_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gtk", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_remove_action" gtk_action_group_remove_action :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + Ptr Gtk.Action.Action -> -- action : TInterface (Name {namespace = "Gtk", name = "Action"}) + IO () + +{-# DEPRECATED actionGroupRemoveAction ["(Since version 3.10)"] #-} +{- | +Removes an action object from the action group. + +/Since: 2.4/ +-} +actionGroupRemoveAction :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a, Gtk.Action.IsAction b) => + a + {- ^ /@actionGroup@/: the action group -} + -> b + {- ^ /@action@/: an action -} + -> m () +actionGroupRemoveAction actionGroup action = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + action' <- unsafeManagedPtrCastPtr action + gtk_action_group_remove_action actionGroup' action' + touchManagedPtr actionGroup + touchManagedPtr action + return () + +#if ENABLE_OVERLOADING +data ActionGroupRemoveActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsActionGroup a, Gtk.Action.IsAction b) => O.MethodInfo ActionGroupRemoveActionMethodInfo a signature where + overloadedMethod _ = actionGroupRemoveAction + +#endif + +-- method ActionGroup::set_accel_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface (Name {namespace = "Gtk", name = "AccelGroup"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkAccelGroup to set or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_set_accel_group" gtk_action_group_set_accel_group :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + Ptr Gtk.AccelGroup.AccelGroup -> -- accel_group : TInterface (Name {namespace = "Gtk", name = "AccelGroup"}) + IO () + +{-# DEPRECATED actionGroupSetAccelGroup ["(Since version 3.10)"] #-} +{- | +Sets the accelerator group to be used by every action in this group. + +/Since: 3.6/ +-} +actionGroupSetAccelGroup :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a, Gtk.AccelGroup.IsAccelGroup b) => + a + {- ^ /@actionGroup@/: a 'GI.Gtk.Objects.ActionGroup.ActionGroup' -} + -> Maybe (b) + {- ^ /@accelGroup@/: a 'GI.Gtk.Objects.AccelGroup.AccelGroup' to set or 'Nothing' -} + -> m () +actionGroupSetAccelGroup actionGroup accelGroup = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + maybeAccelGroup <- case accelGroup of + Nothing -> return nullPtr + Just jAccelGroup -> do + jAccelGroup' <- unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + gtk_action_group_set_accel_group actionGroup' maybeAccelGroup + touchManagedPtr actionGroup + whenJust accelGroup touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ActionGroupSetAccelGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsActionGroup a, Gtk.AccelGroup.IsAccelGroup b) => O.MethodInfo ActionGroupSetAccelGroupMethodInfo a signature where + overloadedMethod _ = actionGroupSetAccelGroup + +#endif + +-- method ActionGroup::set_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new sensitivity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_set_sensitive" gtk_action_group_set_sensitive :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + CInt -> -- sensitive : TBasicType TBoolean + IO () + +{-# DEPRECATED actionGroupSetSensitive ["(Since version 3.10)"] #-} +{- | +Changes the sensitivity of /@actionGroup@/ + +/Since: 2.4/ +-} +actionGroupSetSensitive :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: the action group -} + -> Bool + {- ^ /@sensitive@/: new sensitivity -} + -> m () +actionGroupSetSensitive actionGroup sensitive = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + let sensitive' = (fromIntegral . fromEnum) sensitive + gtk_action_group_set_sensitive actionGroup' sensitive' + touchManagedPtr actionGroup + return () + +#if ENABLE_OVERLOADING +data ActionGroupSetSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupSetSensitiveMethodInfo a signature where + overloadedMethod _ = actionGroupSetSensitive + +#endif + +-- method ActionGroup::set_translate_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "Gtk", name = "TranslateFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTranslateFunc", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to be passed to @func and @notify", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify function to be called when @action_group is\n destroyed and when the translation function is changed again", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_set_translate_func" gtk_action_group_set_translate_func :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + FunPtr Gtk.Callbacks.C_TranslateFunc -> -- func : TInterface (Name {namespace = "Gtk", name = "TranslateFunc"}) + Ptr () -> -- data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{-# DEPRECATED actionGroupSetTranslateFunc ["(Since version 3.10)"] #-} +{- | +Sets a function to be used for translating the /@label@/ and /@tooltip@/ of +@/GtkActionEntrys/@ added by @/gtk_action_group_add_actions()/@. + +If you’re using @/gettext()/@, it is enough to set the translation domain +with 'GI.Gtk.Objects.ActionGroup.actionGroupSetTranslationDomain'. + +/Since: 2.4/ +-} +actionGroupSetTranslateFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: a 'GI.Gtk.Objects.ActionGroup.ActionGroup' -} + -> Gtk.Callbacks.TranslateFunc + {- ^ /@func@/: a 'GI.Gtk.Callbacks.TranslateFunc' -} + -> m () +actionGroupSetTranslateFunc actionGroup func = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + func' <- Gtk.Callbacks.mk_TranslateFunc (Gtk.Callbacks.wrap_TranslateFunc Nothing (Gtk.Callbacks.drop_closures_TranslateFunc func)) + let data_ = castFunPtrToPtr func' + let notify = safeFreeFunPtrPtr + gtk_action_group_set_translate_func actionGroup' func' data_ notify + touchManagedPtr actionGroup + return () + +#if ENABLE_OVERLOADING +data ActionGroupSetTranslateFuncMethodInfo +instance (signature ~ (Gtk.Callbacks.TranslateFunc -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupSetTranslateFuncMethodInfo a signature where + overloadedMethod _ = actionGroupSetTranslateFunc + +#endif + +-- method ActionGroup::set_translation_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the translation domain to use for g_dgettext()\ncalls, or %NULL to use the domain set with textdomain()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_set_translation_domain" gtk_action_group_set_translation_domain :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + CString -> -- domain : TBasicType TUTF8 + IO () + +{-# DEPRECATED actionGroupSetTranslationDomain ["(Since version 3.10)"] #-} +{- | +Sets the translation domain and uses 'GI.GLib.Functions.dgettext' for translating the +/@label@/ and /@tooltip@/ of @/GtkActionEntrys/@ added by +@/gtk_action_group_add_actions()/@. + +If you’re not using @/gettext()/@ for localization, see +'GI.Gtk.Objects.ActionGroup.actionGroupSetTranslateFunc'. + +/Since: 2.4/ +-} +actionGroupSetTranslationDomain :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: a 'GI.Gtk.Objects.ActionGroup.ActionGroup' -} + -> Maybe (T.Text) + {- ^ /@domain@/: the translation domain to use for 'GI.GLib.Functions.dgettext' +calls, or 'Nothing' to use the domain set with @/textdomain()/@ -} + -> m () +actionGroupSetTranslationDomain actionGroup domain = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + maybeDomain <- case domain of + Nothing -> return nullPtr + Just jDomain -> do + jDomain' <- textToCString jDomain + return jDomain' + gtk_action_group_set_translation_domain actionGroup' maybeDomain + touchManagedPtr actionGroup + freeMem maybeDomain + return () + +#if ENABLE_OVERLOADING +data ActionGroupSetTranslationDomainMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupSetTranslationDomainMethodInfo a signature where + overloadedMethod _ = actionGroupSetTranslationDomain + +#endif + +-- method ActionGroup::set_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new visiblity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_set_visible" gtk_action_group_set_visible :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + CInt -> -- visible : TBasicType TBoolean + IO () + +{-# DEPRECATED actionGroupSetVisible ["(Since version 3.10)"] #-} +{- | +Changes the visible of /@actionGroup@/. + +/Since: 2.4/ +-} +actionGroupSetVisible :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: the action group -} + -> Bool + {- ^ /@visible@/: new visiblity -} + -> m () +actionGroupSetVisible actionGroup visible = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + let visible' = (fromIntegral . fromEnum) visible + gtk_action_group_set_visible actionGroup' visible' + touchManagedPtr actionGroup + return () + +#if ENABLE_OVERLOADING +data ActionGroupSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupSetVisibleMethodInfo a signature where + overloadedMethod _ = actionGroupSetVisible + +#endif + +-- method ActionGroup::translate_string +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gtk", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_action_group_translate_string" gtk_action_group_translate_string :: + Ptr ActionGroup -> -- action_group : TInterface (Name {namespace = "Gtk", name = "ActionGroup"}) + CString -> -- string : TBasicType TUTF8 + IO CString + +{-# DEPRECATED actionGroupTranslateString ["(Since version 3.10)"] #-} +{- | +Translates a string using the function set with +'GI.Gtk.Objects.ActionGroup.actionGroupSetTranslateFunc'. This +is mainly intended for language bindings. + +/Since: 2.6/ +-} +actionGroupTranslateString :: + (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) => + a + {- ^ /@actionGroup@/: a 'GI.Gtk.Objects.ActionGroup.ActionGroup' -} + -> T.Text + {- ^ /@string@/: a string -} + -> m T.Text + {- ^ __Returns:__ the translation of /@string@/ -} +actionGroupTranslateString actionGroup string = liftIO $ do + actionGroup' <- unsafeManagedPtrCastPtr actionGroup + string' <- textToCString string + result <- gtk_action_group_translate_string actionGroup' string' + checkUnexpectedReturnNULL "actionGroupTranslateString" result + result' <- cstringToText result + touchManagedPtr actionGroup + freeMem string' + return result' + +#if ENABLE_OVERLOADING +data ActionGroupTranslateStringMethodInfo +instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupTranslateStringMethodInfo a signature where + overloadedMethod _ = actionGroupTranslateString + +#endif + + diff --git a/GI/Gtk/Objects/ActionGroup.hs-boot b/GI/Gtk/Objects/ActionGroup.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ActionGroup.hs-boot @@ -0,0 +1,98 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.ActionGroup where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype ActionGroup = ActionGroup (ManagedPtr ActionGroup) +instance GObject ActionGroup where +class (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o +instance (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o +instance O.HasParentTypes ActionGroup +#if ENABLE_OVERLOADING +data ActionGroupAccelGroupPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupNamePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupSensitivePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupVisiblePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupConnectProxySignalInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupDisconnectProxySignalInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupPostActivateSignalInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupPreActivateSignalInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupAddActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupAddActionWithAccelMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupGetAccelGroupMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupGetActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupGetNameMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupGetSensitiveMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupGetVisibleMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupListActionsMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupRemoveActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupSetAccelGroupMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupSetSensitiveMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupSetTranslateFuncMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupSetTranslationDomainMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupSetVisibleMethodInfo +#endif +#if ENABLE_OVERLOADING +data ActionGroupTranslateStringMethodInfo +#endif diff --git a/GI/Gtk/Objects/Adjustment.hs b/GI/Gtk/Objects/Adjustment.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Adjustment.hs @@ -0,0 +1,1639 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Objects.Adjustment.Adjustment' object represents a value which has an associated lower +and upper bound, together with step and page increments, and a page size. +It is used within several GTK+ widgets, including 'GI.Gtk.Objects.SpinButton.SpinButton', 'GI.Gtk.Objects.Viewport.Viewport', +and 'GI.Gtk.Objects.Range.Range' (which is a base class for 'GI.Gtk.Objects.Scrollbar.Scrollbar' and 'GI.Gtk.Objects.Scale.Scale'). + +The 'GI.Gtk.Objects.Adjustment.Adjustment' object does not update the value itself. Instead +it is left up to the owner of the 'GI.Gtk.Objects.Adjustment.Adjustment' to control the value. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Adjustment + ( + +-- * Exported types + Adjustment(..) , + IsAdjustment , + toAdjustment , + noAdjustment , + + + -- * Methods +-- ** changed #method:changed# + +#if ENABLE_OVERLOADING + AdjustmentChangedMethodInfo , +#endif + adjustmentChanged , + + +-- ** clampPage #method:clampPage# + +#if ENABLE_OVERLOADING + AdjustmentClampPageMethodInfo , +#endif + adjustmentClampPage , + + +-- ** configure #method:configure# + +#if ENABLE_OVERLOADING + AdjustmentConfigureMethodInfo , +#endif + adjustmentConfigure , + + +-- ** getLower #method:getLower# + +#if ENABLE_OVERLOADING + AdjustmentGetLowerMethodInfo , +#endif + adjustmentGetLower , + + +-- ** getMinimumIncrement #method:getMinimumIncrement# + +#if ENABLE_OVERLOADING + AdjustmentGetMinimumIncrementMethodInfo , +#endif + adjustmentGetMinimumIncrement , + + +-- ** getPageIncrement #method:getPageIncrement# + +#if ENABLE_OVERLOADING + AdjustmentGetPageIncrementMethodInfo , +#endif + adjustmentGetPageIncrement , + + +-- ** getPageSize #method:getPageSize# + +#if ENABLE_OVERLOADING + AdjustmentGetPageSizeMethodInfo , +#endif + adjustmentGetPageSize , + + +-- ** getStepIncrement #method:getStepIncrement# + +#if ENABLE_OVERLOADING + AdjustmentGetStepIncrementMethodInfo , +#endif + adjustmentGetStepIncrement , + + +-- ** getUpper #method:getUpper# + +#if ENABLE_OVERLOADING + AdjustmentGetUpperMethodInfo , +#endif + adjustmentGetUpper , + + +-- ** getValue #method:getValue# + +#if ENABLE_OVERLOADING + AdjustmentGetValueMethodInfo , +#endif + adjustmentGetValue , + + +-- ** new #method:new# + + adjustmentNew , + + +-- ** setLower #method:setLower# + +#if ENABLE_OVERLOADING + AdjustmentSetLowerMethodInfo , +#endif + adjustmentSetLower , + + +-- ** setPageIncrement #method:setPageIncrement# + +#if ENABLE_OVERLOADING + AdjustmentSetPageIncrementMethodInfo , +#endif + adjustmentSetPageIncrement , + + +-- ** setPageSize #method:setPageSize# + +#if ENABLE_OVERLOADING + AdjustmentSetPageSizeMethodInfo , +#endif + adjustmentSetPageSize , + + +-- ** setStepIncrement #method:setStepIncrement# + +#if ENABLE_OVERLOADING + AdjustmentSetStepIncrementMethodInfo , +#endif + adjustmentSetStepIncrement , + + +-- ** setUpper #method:setUpper# + +#if ENABLE_OVERLOADING + AdjustmentSetUpperMethodInfo , +#endif + adjustmentSetUpper , + + +-- ** setValue #method:setValue# + +#if ENABLE_OVERLOADING + AdjustmentSetValueMethodInfo , +#endif + adjustmentSetValue , + + +-- ** valueChanged #method:valueChanged# + +#if ENABLE_OVERLOADING + AdjustmentValueChangedMethodInfo , +#endif + adjustmentValueChanged , + + + + + -- * Properties +-- ** lower #attr:lower# +{- | The minimum value of the adjustment. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AdjustmentLowerPropertyInfo , +#endif +#if ENABLE_OVERLOADING + adjustmentLower , +#endif + constructAdjustmentLower , + getAdjustmentLower , + setAdjustmentLower , + + +-- ** pageIncrement #attr:pageIncrement# +{- | The page increment of the adjustment. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AdjustmentPageIncrementPropertyInfo , +#endif +#if ENABLE_OVERLOADING + adjustmentPageIncrement , +#endif + constructAdjustmentPageIncrement , + getAdjustmentPageIncrement , + setAdjustmentPageIncrement , + + +-- ** pageSize #attr:pageSize# +{- | The page size of the adjustment. +Note that the page-size is irrelevant and should be set to zero +if the adjustment is used for a simple scalar value, e.g. in a +'GI.Gtk.Objects.SpinButton.SpinButton'. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AdjustmentPageSizePropertyInfo , +#endif +#if ENABLE_OVERLOADING + adjustmentPageSize , +#endif + constructAdjustmentPageSize , + getAdjustmentPageSize , + setAdjustmentPageSize , + + +-- ** stepIncrement #attr:stepIncrement# +{- | The step increment of the adjustment. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AdjustmentStepIncrementPropertyInfo , +#endif +#if ENABLE_OVERLOADING + adjustmentStepIncrement , +#endif + constructAdjustmentStepIncrement , + getAdjustmentStepIncrement , + setAdjustmentStepIncrement , + + +-- ** upper #attr:upper# +{- | The maximum value of the adjustment. +Note that values will be restricted by +@upper - page-size@ if the page-size +property is nonzero. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AdjustmentUpperPropertyInfo , +#endif +#if ENABLE_OVERLOADING + adjustmentUpper , +#endif + constructAdjustmentUpper , + getAdjustmentUpper , + setAdjustmentUpper , + + +-- ** value #attr:value# +{- | The value of the adjustment. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AdjustmentValuePropertyInfo , +#endif +#if ENABLE_OVERLOADING + adjustmentValue , +#endif + constructAdjustmentValue , + getAdjustmentValue , + setAdjustmentValue , + + + + + -- * Signals +-- ** changed #signal:changed# + + AdjustmentChangedCallback , +#if ENABLE_OVERLOADING + AdjustmentChangedSignalInfo , +#endif + C_AdjustmentChangedCallback , + afterAdjustmentChanged , + genClosure_AdjustmentChanged , + mk_AdjustmentChangedCallback , + noAdjustmentChangedCallback , + onAdjustmentChanged , + wrap_AdjustmentChangedCallback , + + +-- ** valueChanged #signal:valueChanged# + + AdjustmentValueChangedCallback , +#if ENABLE_OVERLOADING + AdjustmentValueChangedSignalInfo , +#endif + C_AdjustmentValueChangedCallback , + afterAdjustmentValueChanged , + genClosure_AdjustmentValueChanged , + mk_AdjustmentValueChangedCallback , + noAdjustmentValueChangedCallback , + onAdjustmentValueChanged , + wrap_AdjustmentValueChangedCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object + +-- | Memory-managed wrapper type. +newtype Adjustment = Adjustment (ManagedPtr Adjustment) +foreign import ccall "gtk_adjustment_get_type" + c_gtk_adjustment_get_type :: IO GType + +instance GObject Adjustment where + gobjectType = c_gtk_adjustment_get_type + + +-- | Type class for types which can be safely cast to `Adjustment`, for instance with `toAdjustment`. +class (GObject o, O.IsDescendantOf Adjustment o) => IsAdjustment o +instance (GObject o, O.IsDescendantOf Adjustment o) => IsAdjustment o + +instance O.HasParentTypes Adjustment +type instance O.ParentTypes Adjustment = '[GObject.Object.Object] + +-- | Cast to `Adjustment`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAdjustment :: (MonadIO m, IsAdjustment o) => o -> m Adjustment +toAdjustment = liftIO . unsafeCastTo Adjustment + +-- | A convenience alias for `Nothing` :: `Maybe` `Adjustment`. +noAdjustment :: Maybe Adjustment +noAdjustment = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAdjustmentMethod (t :: Symbol) (o :: *) :: * where + ResolveAdjustmentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAdjustmentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAdjustmentMethod "changed" o = AdjustmentChangedMethodInfo + ResolveAdjustmentMethod "clampPage" o = AdjustmentClampPageMethodInfo + ResolveAdjustmentMethod "configure" o = AdjustmentConfigureMethodInfo + ResolveAdjustmentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAdjustmentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAdjustmentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAdjustmentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAdjustmentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAdjustmentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAdjustmentMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAdjustmentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAdjustmentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAdjustmentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAdjustmentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAdjustmentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAdjustmentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAdjustmentMethod "valueChanged" o = AdjustmentValueChangedMethodInfo + ResolveAdjustmentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAdjustmentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAdjustmentMethod "getLower" o = AdjustmentGetLowerMethodInfo + ResolveAdjustmentMethod "getMinimumIncrement" o = AdjustmentGetMinimumIncrementMethodInfo + ResolveAdjustmentMethod "getPageIncrement" o = AdjustmentGetPageIncrementMethodInfo + ResolveAdjustmentMethod "getPageSize" o = AdjustmentGetPageSizeMethodInfo + ResolveAdjustmentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAdjustmentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAdjustmentMethod "getStepIncrement" o = AdjustmentGetStepIncrementMethodInfo + ResolveAdjustmentMethod "getUpper" o = AdjustmentGetUpperMethodInfo + ResolveAdjustmentMethod "getValue" o = AdjustmentGetValueMethodInfo + ResolveAdjustmentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAdjustmentMethod "setLower" o = AdjustmentSetLowerMethodInfo + ResolveAdjustmentMethod "setPageIncrement" o = AdjustmentSetPageIncrementMethodInfo + ResolveAdjustmentMethod "setPageSize" o = AdjustmentSetPageSizeMethodInfo + ResolveAdjustmentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAdjustmentMethod "setStepIncrement" o = AdjustmentSetStepIncrementMethodInfo + ResolveAdjustmentMethod "setUpper" o = AdjustmentSetUpperMethodInfo + ResolveAdjustmentMethod "setValue" o = AdjustmentSetValueMethodInfo + ResolveAdjustmentMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAdjustmentMethod t Adjustment, O.MethodInfo info Adjustment p) => OL.IsLabel t (Adjustment -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal Adjustment::changed +{- | +Emitted when one or more of the 'GI.Gtk.Objects.Adjustment.Adjustment' properties have been +changed, other than the 'GI.Gtk.Objects.Adjustment.Adjustment':@/value/@ property. +-} +type AdjustmentChangedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AdjustmentChangedCallback`@. +noAdjustmentChangedCallback :: Maybe AdjustmentChangedCallback +noAdjustmentChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AdjustmentChangedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AdjustmentChangedCallback`. +foreign import ccall "wrapper" + mk_AdjustmentChangedCallback :: C_AdjustmentChangedCallback -> IO (FunPtr C_AdjustmentChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AdjustmentChanged :: MonadIO m => AdjustmentChangedCallback -> m (GClosure C_AdjustmentChangedCallback) +genClosure_AdjustmentChanged cb = liftIO $ do + let cb' = wrap_AdjustmentChangedCallback cb + mk_AdjustmentChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AdjustmentChangedCallback` into a `C_AdjustmentChangedCallback`. +wrap_AdjustmentChangedCallback :: + AdjustmentChangedCallback -> + C_AdjustmentChangedCallback +wrap_AdjustmentChangedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' adjustment #changed callback +@ +-} +onAdjustmentChanged :: (IsAdjustment a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId +onAdjustmentChanged obj cb = liftIO $ do + let cb' = wrap_AdjustmentChangedCallback cb + cb'' <- mk_AdjustmentChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' adjustment #changed callback +@ +-} +afterAdjustmentChanged :: (IsAdjustment a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId +afterAdjustmentChanged obj cb = liftIO $ do + let cb' = wrap_AdjustmentChangedCallback cb + cb'' <- mk_AdjustmentChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' SignalConnectAfter + + +-- signal Adjustment::value-changed +{- | +Emitted when the 'GI.Gtk.Objects.Adjustment.Adjustment':@/value/@ property has been changed. +-} +type AdjustmentValueChangedCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AdjustmentValueChangedCallback`@. +noAdjustmentValueChangedCallback :: Maybe AdjustmentValueChangedCallback +noAdjustmentValueChangedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AdjustmentValueChangedCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AdjustmentValueChangedCallback`. +foreign import ccall "wrapper" + mk_AdjustmentValueChangedCallback :: C_AdjustmentValueChangedCallback -> IO (FunPtr C_AdjustmentValueChangedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AdjustmentValueChanged :: MonadIO m => AdjustmentValueChangedCallback -> m (GClosure C_AdjustmentValueChangedCallback) +genClosure_AdjustmentValueChanged cb = liftIO $ do + let cb' = wrap_AdjustmentValueChangedCallback cb + mk_AdjustmentValueChangedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AdjustmentValueChangedCallback` into a `C_AdjustmentValueChangedCallback`. +wrap_AdjustmentValueChangedCallback :: + AdjustmentValueChangedCallback -> + C_AdjustmentValueChangedCallback +wrap_AdjustmentValueChangedCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@value-changed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' adjustment #valueChanged callback +@ +-} +onAdjustmentValueChanged :: (IsAdjustment a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId +onAdjustmentValueChanged obj cb = liftIO $ do + let cb' = wrap_AdjustmentValueChangedCallback cb + cb'' <- mk_AdjustmentValueChangedCallback cb' + connectSignalFunPtr obj "value-changed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@value-changed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' adjustment #valueChanged callback +@ +-} +afterAdjustmentValueChanged :: (IsAdjustment a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId +afterAdjustmentValueChanged obj cb = liftIO $ do + let cb' = wrap_AdjustmentValueChangedCallback cb + cb'' <- mk_AdjustmentValueChangedCallback cb' + connectSignalFunPtr obj "value-changed" cb'' SignalConnectAfter + + +-- VVV Prop "lower" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@lower@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' adjustment #lower +@ +-} +getAdjustmentLower :: (MonadIO m, IsAdjustment o) => o -> m Double +getAdjustmentLower obj = liftIO $ B.Properties.getObjectPropertyDouble obj "lower" + +{- | +Set the value of the “@lower@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' adjustment [ #lower 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAdjustmentLower :: (MonadIO m, IsAdjustment o) => o -> Double -> m () +setAdjustmentLower obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "lower" val + +{- | +Construct a `GValueConstruct` with valid value for the “@lower@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAdjustmentLower :: (IsAdjustment o) => Double -> IO (GValueConstruct o) +constructAdjustmentLower val = B.Properties.constructObjectPropertyDouble "lower" val + +#if ENABLE_OVERLOADING +data AdjustmentLowerPropertyInfo +instance AttrInfo AdjustmentLowerPropertyInfo where + type AttrAllowedOps AdjustmentLowerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AdjustmentLowerPropertyInfo = (~) Double + type AttrBaseTypeConstraint AdjustmentLowerPropertyInfo = IsAdjustment + type AttrGetType AdjustmentLowerPropertyInfo = Double + type AttrLabel AdjustmentLowerPropertyInfo = "lower" + type AttrOrigin AdjustmentLowerPropertyInfo = Adjustment + attrGet _ = getAdjustmentLower + attrSet _ = setAdjustmentLower + attrConstruct _ = constructAdjustmentLower + attrClear _ = undefined +#endif + +-- VVV Prop "page-increment" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@page-increment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' adjustment #pageIncrement +@ +-} +getAdjustmentPageIncrement :: (MonadIO m, IsAdjustment o) => o -> m Double +getAdjustmentPageIncrement obj = liftIO $ B.Properties.getObjectPropertyDouble obj "page-increment" + +{- | +Set the value of the “@page-increment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' adjustment [ #pageIncrement 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAdjustmentPageIncrement :: (MonadIO m, IsAdjustment o) => o -> Double -> m () +setAdjustmentPageIncrement obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "page-increment" val + +{- | +Construct a `GValueConstruct` with valid value for the “@page-increment@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAdjustmentPageIncrement :: (IsAdjustment o) => Double -> IO (GValueConstruct o) +constructAdjustmentPageIncrement val = B.Properties.constructObjectPropertyDouble "page-increment" val + +#if ENABLE_OVERLOADING +data AdjustmentPageIncrementPropertyInfo +instance AttrInfo AdjustmentPageIncrementPropertyInfo where + type AttrAllowedOps AdjustmentPageIncrementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AdjustmentPageIncrementPropertyInfo = (~) Double + type AttrBaseTypeConstraint AdjustmentPageIncrementPropertyInfo = IsAdjustment + type AttrGetType AdjustmentPageIncrementPropertyInfo = Double + type AttrLabel AdjustmentPageIncrementPropertyInfo = "page-increment" + type AttrOrigin AdjustmentPageIncrementPropertyInfo = Adjustment + attrGet _ = getAdjustmentPageIncrement + attrSet _ = setAdjustmentPageIncrement + attrConstruct _ = constructAdjustmentPageIncrement + attrClear _ = undefined +#endif + +-- VVV Prop "page-size" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@page-size@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' adjustment #pageSize +@ +-} +getAdjustmentPageSize :: (MonadIO m, IsAdjustment o) => o -> m Double +getAdjustmentPageSize obj = liftIO $ B.Properties.getObjectPropertyDouble obj "page-size" + +{- | +Set the value of the “@page-size@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' adjustment [ #pageSize 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAdjustmentPageSize :: (MonadIO m, IsAdjustment o) => o -> Double -> m () +setAdjustmentPageSize obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "page-size" val + +{- | +Construct a `GValueConstruct` with valid value for the “@page-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAdjustmentPageSize :: (IsAdjustment o) => Double -> IO (GValueConstruct o) +constructAdjustmentPageSize val = B.Properties.constructObjectPropertyDouble "page-size" val + +#if ENABLE_OVERLOADING +data AdjustmentPageSizePropertyInfo +instance AttrInfo AdjustmentPageSizePropertyInfo where + type AttrAllowedOps AdjustmentPageSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AdjustmentPageSizePropertyInfo = (~) Double + type AttrBaseTypeConstraint AdjustmentPageSizePropertyInfo = IsAdjustment + type AttrGetType AdjustmentPageSizePropertyInfo = Double + type AttrLabel AdjustmentPageSizePropertyInfo = "page-size" + type AttrOrigin AdjustmentPageSizePropertyInfo = Adjustment + attrGet _ = getAdjustmentPageSize + attrSet _ = setAdjustmentPageSize + attrConstruct _ = constructAdjustmentPageSize + attrClear _ = undefined +#endif + +-- VVV Prop "step-increment" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@step-increment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' adjustment #stepIncrement +@ +-} +getAdjustmentStepIncrement :: (MonadIO m, IsAdjustment o) => o -> m Double +getAdjustmentStepIncrement obj = liftIO $ B.Properties.getObjectPropertyDouble obj "step-increment" + +{- | +Set the value of the “@step-increment@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' adjustment [ #stepIncrement 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAdjustmentStepIncrement :: (MonadIO m, IsAdjustment o) => o -> Double -> m () +setAdjustmentStepIncrement obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "step-increment" val + +{- | +Construct a `GValueConstruct` with valid value for the “@step-increment@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAdjustmentStepIncrement :: (IsAdjustment o) => Double -> IO (GValueConstruct o) +constructAdjustmentStepIncrement val = B.Properties.constructObjectPropertyDouble "step-increment" val + +#if ENABLE_OVERLOADING +data AdjustmentStepIncrementPropertyInfo +instance AttrInfo AdjustmentStepIncrementPropertyInfo where + type AttrAllowedOps AdjustmentStepIncrementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AdjustmentStepIncrementPropertyInfo = (~) Double + type AttrBaseTypeConstraint AdjustmentStepIncrementPropertyInfo = IsAdjustment + type AttrGetType AdjustmentStepIncrementPropertyInfo = Double + type AttrLabel AdjustmentStepIncrementPropertyInfo = "step-increment" + type AttrOrigin AdjustmentStepIncrementPropertyInfo = Adjustment + attrGet _ = getAdjustmentStepIncrement + attrSet _ = setAdjustmentStepIncrement + attrConstruct _ = constructAdjustmentStepIncrement + attrClear _ = undefined +#endif + +-- VVV Prop "upper" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@upper@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' adjustment #upper +@ +-} +getAdjustmentUpper :: (MonadIO m, IsAdjustment o) => o -> m Double +getAdjustmentUpper obj = liftIO $ B.Properties.getObjectPropertyDouble obj "upper" + +{- | +Set the value of the “@upper@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' adjustment [ #upper 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAdjustmentUpper :: (MonadIO m, IsAdjustment o) => o -> Double -> m () +setAdjustmentUpper obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "upper" val + +{- | +Construct a `GValueConstruct` with valid value for the “@upper@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAdjustmentUpper :: (IsAdjustment o) => Double -> IO (GValueConstruct o) +constructAdjustmentUpper val = B.Properties.constructObjectPropertyDouble "upper" val + +#if ENABLE_OVERLOADING +data AdjustmentUpperPropertyInfo +instance AttrInfo AdjustmentUpperPropertyInfo where + type AttrAllowedOps AdjustmentUpperPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AdjustmentUpperPropertyInfo = (~) Double + type AttrBaseTypeConstraint AdjustmentUpperPropertyInfo = IsAdjustment + type AttrGetType AdjustmentUpperPropertyInfo = Double + type AttrLabel AdjustmentUpperPropertyInfo = "upper" + type AttrOrigin AdjustmentUpperPropertyInfo = Adjustment + attrGet _ = getAdjustmentUpper + attrSet _ = setAdjustmentUpper + attrConstruct _ = constructAdjustmentUpper + attrClear _ = undefined +#endif + +-- VVV Prop "value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@value@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' adjustment #value +@ +-} +getAdjustmentValue :: (MonadIO m, IsAdjustment o) => o -> m Double +getAdjustmentValue obj = liftIO $ B.Properties.getObjectPropertyDouble obj "value" + +{- | +Set the value of the “@value@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' adjustment [ #value 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAdjustmentValue :: (MonadIO m, IsAdjustment o) => o -> Double -> m () +setAdjustmentValue obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "value" val + +{- | +Construct a `GValueConstruct` with valid value for the “@value@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAdjustmentValue :: (IsAdjustment o) => Double -> IO (GValueConstruct o) +constructAdjustmentValue val = B.Properties.constructObjectPropertyDouble "value" val + +#if ENABLE_OVERLOADING +data AdjustmentValuePropertyInfo +instance AttrInfo AdjustmentValuePropertyInfo where + type AttrAllowedOps AdjustmentValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AdjustmentValuePropertyInfo = (~) Double + type AttrBaseTypeConstraint AdjustmentValuePropertyInfo = IsAdjustment + type AttrGetType AdjustmentValuePropertyInfo = Double + type AttrLabel AdjustmentValuePropertyInfo = "value" + type AttrOrigin AdjustmentValuePropertyInfo = Adjustment + attrGet _ = getAdjustmentValue + attrSet _ = setAdjustmentValue + attrConstruct _ = constructAdjustmentValue + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Adjustment +type instance O.AttributeList Adjustment = AdjustmentAttributeList +type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("pageIncrement", AdjustmentPageIncrementPropertyInfo), '("pageSize", AdjustmentPageSizePropertyInfo), '("stepIncrement", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +adjustmentLower :: AttrLabelProxy "lower" +adjustmentLower = AttrLabelProxy + +adjustmentPageIncrement :: AttrLabelProxy "pageIncrement" +adjustmentPageIncrement = AttrLabelProxy + +adjustmentPageSize :: AttrLabelProxy "pageSize" +adjustmentPageSize = AttrLabelProxy + +adjustmentStepIncrement :: AttrLabelProxy "stepIncrement" +adjustmentStepIncrement = AttrLabelProxy + +adjustmentUpper :: AttrLabelProxy "upper" +adjustmentUpper = AttrLabelProxy + +adjustmentValue :: AttrLabelProxy "value" +adjustmentValue = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data AdjustmentChangedSignalInfo +instance SignalInfo AdjustmentChangedSignalInfo where + type HaskellCallbackType AdjustmentChangedSignalInfo = AdjustmentChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AdjustmentChangedCallback cb + cb'' <- mk_AdjustmentChangedCallback cb' + connectSignalFunPtr obj "changed" cb'' connectMode + +data AdjustmentValueChangedSignalInfo +instance SignalInfo AdjustmentValueChangedSignalInfo where + type HaskellCallbackType AdjustmentValueChangedSignalInfo = AdjustmentValueChangedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AdjustmentValueChangedCallback cb + cb'' <- mk_AdjustmentValueChangedCallback cb' + connectSignalFunPtr obj "value-changed" cb'' connectMode + +type instance O.SignalList Adjustment = AdjustmentSignalList +type AdjustmentSignalList = ('[ '("changed", AdjustmentChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("valueChanged", AdjustmentValueChangedSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Adjustment::new +-- method type : Constructor +-- Args : [Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the initial value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the minimum value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the step increment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the page increment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the page size", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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) + +{- | +Creates a new 'GI.Gtk.Objects.Adjustment.Adjustment'. +-} +adjustmentNew :: + (B.CallStack.HasCallStack, MonadIO m) => + Double + {- ^ /@value@/: the initial value -} + -> Double + {- ^ /@lower@/: the minimum value -} + -> Double + {- ^ /@upper@/: the maximum value -} + -> Double + {- ^ /@stepIncrement@/: the step increment -} + -> Double + {- ^ /@pageIncrement@/: the page increment -} + -> Double + {- ^ /@pageSize@/: the page size -} + -> m Adjustment + {- ^ __Returns:__ a new 'GI.Gtk.Objects.Adjustment.Adjustment' -} +adjustmentNew value lower upper stepIncrement pageIncrement pageSize = liftIO $ do + let value' = realToFrac value + let lower' = realToFrac lower + let upper' = realToFrac upper + let stepIncrement' = realToFrac stepIncrement + let pageIncrement' = realToFrac pageIncrement + let pageSize' = realToFrac pageSize + result <- gtk_adjustment_new value' lower' upper' stepIncrement' pageIncrement' pageSize' + checkUnexpectedReturnNULL "adjustmentNew" result + result' <- (newObject Adjustment) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method Adjustment::changed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_changed" gtk_adjustment_changed :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO () + +{-# DEPRECATED adjustmentChanged ["(Since version 3.18)","GTK+ emits 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ itself whenever any"," of the properties (other than value) change"] #-} +{- | +Emits a 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ signal from the 'GI.Gtk.Objects.Adjustment.Adjustment'. +This is typically called by the owner of the 'GI.Gtk.Objects.Adjustment.Adjustment' after it has +changed any of the 'GI.Gtk.Objects.Adjustment.Adjustment' properties other than the value. +-} +adjustmentChanged :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m () +adjustmentChanged adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + gtk_adjustment_changed adjustment' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentChangedMethodInfo a signature where + overloadedMethod _ = adjustmentChanged + +#endif + +-- method Adjustment::clamp_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the lower value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the upper value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_clamp_page" gtk_adjustment_clamp_page :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + CDouble -> -- lower : TBasicType TDouble + CDouble -> -- upper : TBasicType TDouble + IO () + +{- | +Updates the 'GI.Gtk.Objects.Adjustment.Adjustment':@/value/@ property to ensure that the range +between /@lower@/ and /@upper@/ is in the current page (i.e. between +'GI.Gtk.Objects.Adjustment.Adjustment':@/value/@ and 'GI.Gtk.Objects.Adjustment.Adjustment':@/value/@ + 'GI.Gtk.Objects.Adjustment.Adjustment':@/page-size/@). +If the range is larger than the page size, then only the start of it will +be in the current page. + +A 'GI.Gtk.Objects.Adjustment.Adjustment'::@/value-changed/@ signal will be emitted if the value is changed. +-} +adjustmentClampPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@lower@/: the lower value -} + -> Double + {- ^ /@upper@/: the upper value -} + -> m () +adjustmentClampPage adjustment lower upper = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let lower' = realToFrac lower + let upper' = realToFrac upper + gtk_adjustment_clamp_page adjustment' lower' upper' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentClampPageMethodInfo +instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentClampPageMethodInfo a signature where + overloadedMethod _ = adjustmentClampPage + +#endif + +-- method Adjustment::configure +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new minimum value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new maximum value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new step increment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new page increment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new page size", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_configure" gtk_adjustment_configure :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "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 () + +{- | +Sets all properties of the adjustment at once. + +Use this function to avoid multiple emissions of the +'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ signal. See 'GI.Gtk.Objects.Adjustment.adjustmentSetLower' +for an alternative way of compressing multiple emissions of +'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ into one. + +/Since: 2.14/ +-} +adjustmentConfigure :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@value@/: the new value -} + -> Double + {- ^ /@lower@/: the new minimum value -} + -> Double + {- ^ /@upper@/: the new maximum value -} + -> Double + {- ^ /@stepIncrement@/: the new step increment -} + -> Double + {- ^ /@pageIncrement@/: the new page increment -} + -> Double + {- ^ /@pageSize@/: the new page size -} + -> m () +adjustmentConfigure adjustment value lower upper stepIncrement pageIncrement pageSize = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let value' = realToFrac value + let lower' = realToFrac lower + let upper' = realToFrac upper + let stepIncrement' = realToFrac stepIncrement + let pageIncrement' = realToFrac pageIncrement + let pageSize' = realToFrac pageSize + gtk_adjustment_configure adjustment' value' lower' upper' stepIncrement' pageIncrement' pageSize' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentConfigureMethodInfo +instance (signature ~ (Double -> Double -> Double -> Double -> Double -> Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentConfigureMethodInfo a signature where + overloadedMethod _ = adjustmentConfigure + +#endif + +-- method Adjustment::get_lower +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_get_lower" gtk_adjustment_get_lower :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO CDouble + +{- | +Retrieves the minimum value of the adjustment. + +/Since: 2.14/ +-} +adjustmentGetLower :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m Double + {- ^ __Returns:__ The current minimum value of the adjustment -} +adjustmentGetLower adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + result <- gtk_adjustment_get_lower adjustment' + let result' = realToFrac result + touchManagedPtr adjustment + return result' + +#if ENABLE_OVERLOADING +data AdjustmentGetLowerMethodInfo +instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetLowerMethodInfo a signature where + overloadedMethod _ = adjustmentGetLower + +#endif + +-- method Adjustment::get_minimum_increment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_get_minimum_increment" gtk_adjustment_get_minimum_increment :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO CDouble + +{- | +Gets the smaller of step increment and page increment. + +/Since: 3.2/ +-} +adjustmentGetMinimumIncrement :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m Double + {- ^ __Returns:__ the minimum increment of /@adjustment@/ -} +adjustmentGetMinimumIncrement adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + result <- gtk_adjustment_get_minimum_increment adjustment' + let result' = realToFrac result + touchManagedPtr adjustment + return result' + +#if ENABLE_OVERLOADING +data AdjustmentGetMinimumIncrementMethodInfo +instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetMinimumIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentGetMinimumIncrement + +#endif + +-- method Adjustment::get_page_increment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_get_page_increment" gtk_adjustment_get_page_increment :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO CDouble + +{- | +Retrieves the page increment of the adjustment. + +/Since: 2.14/ +-} +adjustmentGetPageIncrement :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m Double + {- ^ __Returns:__ The current page increment of the adjustment -} +adjustmentGetPageIncrement adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + result <- gtk_adjustment_get_page_increment adjustment' + let result' = realToFrac result + touchManagedPtr adjustment + return result' + +#if ENABLE_OVERLOADING +data AdjustmentGetPageIncrementMethodInfo +instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetPageIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentGetPageIncrement + +#endif + +-- method Adjustment::get_page_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_get_page_size" gtk_adjustment_get_page_size :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO CDouble + +{- | +Retrieves the page size of the adjustment. + +/Since: 2.14/ +-} +adjustmentGetPageSize :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m Double + {- ^ __Returns:__ The current page size of the adjustment -} +adjustmentGetPageSize adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + result <- gtk_adjustment_get_page_size adjustment' + let result' = realToFrac result + touchManagedPtr adjustment + return result' + +#if ENABLE_OVERLOADING +data AdjustmentGetPageSizeMethodInfo +instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetPageSizeMethodInfo a signature where + overloadedMethod _ = adjustmentGetPageSize + +#endif + +-- method Adjustment::get_step_increment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_get_step_increment" gtk_adjustment_get_step_increment :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO CDouble + +{- | +Retrieves the step increment of the adjustment. + +/Since: 2.14/ +-} +adjustmentGetStepIncrement :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m Double + {- ^ __Returns:__ The current step increment of the adjustment. -} +adjustmentGetStepIncrement adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + result <- gtk_adjustment_get_step_increment adjustment' + let result' = realToFrac result + touchManagedPtr adjustment + return result' + +#if ENABLE_OVERLOADING +data AdjustmentGetStepIncrementMethodInfo +instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetStepIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentGetStepIncrement + +#endif + +-- method Adjustment::get_upper +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_get_upper" gtk_adjustment_get_upper :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO CDouble + +{- | +Retrieves the maximum value of the adjustment. + +/Since: 2.14/ +-} +adjustmentGetUpper :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m Double + {- ^ __Returns:__ The current maximum value of the adjustment -} +adjustmentGetUpper adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + result <- gtk_adjustment_get_upper adjustment' + let result' = realToFrac result + touchManagedPtr adjustment + return result' + +#if ENABLE_OVERLOADING +data AdjustmentGetUpperMethodInfo +instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetUpperMethodInfo a signature where + overloadedMethod _ = adjustmentGetUpper + +#endif + +-- method Adjustment::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TDouble) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_get_value" gtk_adjustment_get_value :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO CDouble + +{- | +Gets the current value of the adjustment. +See 'GI.Gtk.Objects.Adjustment.adjustmentSetValue'. +-} +adjustmentGetValue :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m Double + {- ^ __Returns:__ The current value of the adjustment -} +adjustmentGetValue adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + result <- gtk_adjustment_get_value adjustment' + let result' = realToFrac result + touchManagedPtr adjustment + return result' + +#if ENABLE_OVERLOADING +data AdjustmentGetValueMethodInfo +instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetValueMethodInfo a signature where + overloadedMethod _ = adjustmentGetValue + +#endif + +-- method Adjustment::set_lower +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new minimum value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_set_lower" gtk_adjustment_set_lower :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + CDouble -> -- lower : TBasicType TDouble + IO () + +{- | +Sets the minimum value of the adjustment. + +When setting multiple adjustment properties via their individual +setters, multiple 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ signals will be emitted. +However, since the emission of the 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ signal +is tied to the emission of the 'GI.GObject.Objects.Object.Object'::@/notify/@ signals of the changed +properties, it’s possible to compress the 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ +signals into one by calling 'GI.GObject.Objects.Object.objectFreezeNotify' and +'GI.GObject.Objects.Object.objectThawNotify' around the calls to the individual setters. + +Alternatively, using a single @/g_object_set()/@ for all the properties +to change, or using 'GI.Gtk.Objects.Adjustment.adjustmentConfigure' has the same effect +of compressing 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ emissions. + +/Since: 2.14/ +-} +adjustmentSetLower :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@lower@/: the new minimum value -} + -> m () +adjustmentSetLower adjustment lower = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let lower' = realToFrac lower + gtk_adjustment_set_lower adjustment' lower' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentSetLowerMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetLowerMethodInfo a signature where + overloadedMethod _ = adjustmentSetLower + +#endif + +-- method Adjustment::set_page_increment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new page increment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_set_page_increment" gtk_adjustment_set_page_increment :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + CDouble -> -- page_increment : TBasicType TDouble + IO () + +{- | +Sets the page increment of the adjustment. + +See 'GI.Gtk.Objects.Adjustment.adjustmentSetLower' about how to compress multiple +emissions of the 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ signal when setting +multiple adjustment properties. + +/Since: 2.14/ +-} +adjustmentSetPageIncrement :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@pageIncrement@/: the new page increment -} + -> m () +adjustmentSetPageIncrement adjustment pageIncrement = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let pageIncrement' = realToFrac pageIncrement + gtk_adjustment_set_page_increment adjustment' pageIncrement' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentSetPageIncrementMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetPageIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentSetPageIncrement + +#endif + +-- method Adjustment::set_page_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new page size", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_set_page_size" gtk_adjustment_set_page_size :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + CDouble -> -- page_size : TBasicType TDouble + IO () + +{- | +Sets the page size of the adjustment. + +See 'GI.Gtk.Objects.Adjustment.adjustmentSetLower' about how to compress multiple +emissions of the GtkAdjustment::changed signal when setting +multiple adjustment properties. + +/Since: 2.14/ +-} +adjustmentSetPageSize :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@pageSize@/: the new page size -} + -> m () +adjustmentSetPageSize adjustment pageSize = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let pageSize' = realToFrac pageSize + gtk_adjustment_set_page_size adjustment' pageSize' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentSetPageSizeMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetPageSizeMethodInfo a signature where + overloadedMethod _ = adjustmentSetPageSize + +#endif + +-- method Adjustment::set_step_increment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new step increment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_set_step_increment" gtk_adjustment_set_step_increment :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + CDouble -> -- step_increment : TBasicType TDouble + IO () + +{- | +Sets the step increment of the adjustment. + +See 'GI.Gtk.Objects.Adjustment.adjustmentSetLower' about how to compress multiple +emissions of the 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ signal when setting +multiple adjustment properties. + +/Since: 2.14/ +-} +adjustmentSetStepIncrement :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@stepIncrement@/: the new step increment -} + -> m () +adjustmentSetStepIncrement adjustment stepIncrement = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let stepIncrement' = realToFrac stepIncrement + gtk_adjustment_set_step_increment adjustment' stepIncrement' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentSetStepIncrementMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetStepIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentSetStepIncrement + +#endif + +-- method Adjustment::set_upper +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new maximum value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_set_upper" gtk_adjustment_set_upper :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + CDouble -> -- upper : TBasicType TDouble + IO () + +{- | +Sets the maximum value of the adjustment. + +Note that values will be restricted by @upper - page-size@ +if the page-size property is nonzero. + +See 'GI.Gtk.Objects.Adjustment.adjustmentSetLower' about how to compress multiple +emissions of the 'GI.Gtk.Objects.Adjustment.Adjustment'::@/changed/@ signal when setting +multiple adjustment properties. + +/Since: 2.14/ +-} +adjustmentSetUpper :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@upper@/: the new maximum value -} + -> m () +adjustmentSetUpper adjustment upper = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let upper' = realToFrac upper + gtk_adjustment_set_upper adjustment' upper' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentSetUpperMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetUpperMethodInfo a signature where + overloadedMethod _ = adjustmentSetUpper + +#endif + +-- method Adjustment::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_set_value" gtk_adjustment_set_value :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + CDouble -> -- value : TBasicType TDouble + IO () + +{- | +Sets the 'GI.Gtk.Objects.Adjustment.Adjustment' value. The value is clamped to lie between +'GI.Gtk.Objects.Adjustment.Adjustment':@/lower/@ and 'GI.Gtk.Objects.Adjustment.Adjustment':@/upper/@. + +Note that for adjustments which are used in a 'GI.Gtk.Objects.Scrollbar.Scrollbar', the +effective range of allowed values goes from 'GI.Gtk.Objects.Adjustment.Adjustment':@/lower/@ to +'GI.Gtk.Objects.Adjustment.Adjustment':@/upper/@ - 'GI.Gtk.Objects.Adjustment.Adjustment':@/page-size/@. +-} +adjustmentSetValue :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> Double + {- ^ /@value@/: the new value -} + -> m () +adjustmentSetValue adjustment value = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + let value' = realToFrac value + gtk_adjustment_set_value adjustment' value' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentSetValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetValueMethodInfo a signature where + overloadedMethod _ = adjustmentSetValue + +#endif + +-- method Adjustment::value_changed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "adjustment", argType = TInterface (Name {namespace = "Gtk", name = "Adjustment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAdjustment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_adjustment_value_changed" gtk_adjustment_value_changed :: + Ptr Adjustment -> -- adjustment : TInterface (Name {namespace = "Gtk", name = "Adjustment"}) + IO () + +{-# DEPRECATED adjustmentValueChanged ["(Since version 3.18)","GTK+ emits 'GI.Gtk.Objects.Adjustment.Adjustment'::@/value-changed/@ itself whenever"," the value changes"] #-} +{- | +Emits a 'GI.Gtk.Objects.Adjustment.Adjustment'::@/value-changed/@ signal from the 'GI.Gtk.Objects.Adjustment.Adjustment'. +This is typically called by the owner of the 'GI.Gtk.Objects.Adjustment.Adjustment' after it has +changed the 'GI.Gtk.Objects.Adjustment.Adjustment':@/value/@ property. +-} +adjustmentValueChanged :: + (B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) => + a + {- ^ /@adjustment@/: a 'GI.Gtk.Objects.Adjustment.Adjustment' -} + -> m () +adjustmentValueChanged adjustment = liftIO $ do + adjustment' <- unsafeManagedPtrCastPtr adjustment + gtk_adjustment_value_changed adjustment' + touchManagedPtr adjustment + return () + +#if ENABLE_OVERLOADING +data AdjustmentValueChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentValueChangedMethodInfo a signature where + overloadedMethod _ = adjustmentValueChanged + +#endif + + diff --git a/GI/Gtk/Objects/Adjustment.hs-boot b/GI/Gtk/Objects/Adjustment.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Adjustment.hs-boot @@ -0,0 +1,104 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Adjustment where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Adjustment = Adjustment (ManagedPtr Adjustment) +instance GObject Adjustment where +class (GObject o, O.IsDescendantOf Adjustment o) => IsAdjustment o +instance (GObject o, O.IsDescendantOf Adjustment o) => IsAdjustment o +instance O.HasParentTypes Adjustment +#if ENABLE_OVERLOADING +data AdjustmentLowerPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentPageIncrementPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentPageSizePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentStepIncrementPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentUpperPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentValuePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentChangedSignalInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentValueChangedSignalInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentChangedMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentClampPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentConfigureMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentGetLowerMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentGetMinimumIncrementMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentGetPageIncrementMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentGetPageSizeMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentGetStepIncrementMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentGetUpperMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentGetValueMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentSetLowerMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentSetPageIncrementMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentSetPageSizeMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentSetStepIncrementMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentSetUpperMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentSetValueMethodInfo +#endif +#if ENABLE_OVERLOADING +data AdjustmentValueChangedMethodInfo +#endif diff --git a/GI/Gtk/Objects/Alignment.hs b/GI/Gtk/Objects/Alignment.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Alignment.hs @@ -0,0 +1,1225 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Objects.Alignment.Alignment' widget controls the alignment and size of its child widget. +It has four settings: xscale, yscale, xalign, and yalign. + +The scale settings are used to specify how much the child widget should +expand to fill the space allocated to the 'GI.Gtk.Objects.Alignment.Alignment'. +The values can range from 0 (meaning the child doesn’t expand at all) to +1 (meaning the child expands to fill all of the available space). + +The align settings are used to place the child widget within the available +area. The values range from 0 (top or left) to 1 (bottom or right). +Of course, if the scale settings are both set to 1, the alignment settings +have no effect. + +GtkAlignment has been deprecated in 3.14 and should not be used in +newly-written code. The desired effect can be achieved by using the +'GI.Gtk.Objects.Widget.Widget':@/halign/@, 'GI.Gtk.Objects.Widget.Widget':@/valign/@ and 'GI.Gtk.Objects.Widget.Widget':@/margin/@ properties on the +child widget. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Alignment + ( + +-- * Exported types + Alignment(..) , + IsAlignment , + toAlignment , + noAlignment , + + + -- * Methods +-- ** getPadding #method:getPadding# + +#if ENABLE_OVERLOADING + AlignmentGetPaddingMethodInfo , +#endif + alignmentGetPadding , + + +-- ** new #method:new# + + alignmentNew , + + +-- ** set #method:set# + +#if ENABLE_OVERLOADING + AlignmentSetMethodInfo , +#endif + alignmentSet , + + +-- ** setPadding #method:setPadding# + +#if ENABLE_OVERLOADING + AlignmentSetPaddingMethodInfo , +#endif + alignmentSetPadding , + + + + + -- * Properties +-- ** bottomPadding #attr:bottomPadding# +{- | The padding to insert at the bottom of the widget. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AlignmentBottomPaddingPropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentBottomPadding , +#endif + constructAlignmentBottomPadding , + getAlignmentBottomPadding , + setAlignmentBottomPadding , + + +-- ** leftPadding #attr:leftPadding# +{- | The padding to insert at the left of the widget. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AlignmentLeftPaddingPropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentLeftPadding , +#endif + constructAlignmentLeftPadding , + getAlignmentLeftPadding , + setAlignmentLeftPadding , + + +-- ** rightPadding #attr:rightPadding# +{- | The padding to insert at the right of the widget. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AlignmentRightPaddingPropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentRightPadding , +#endif + constructAlignmentRightPadding , + getAlignmentRightPadding , + setAlignmentRightPadding , + + +-- ** topPadding #attr:topPadding# +{- | The padding to insert at the top of the widget. + +/Since: 2.4/ +-} +#if ENABLE_OVERLOADING + AlignmentTopPaddingPropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentTopPadding , +#endif + constructAlignmentTopPadding , + getAlignmentTopPadding , + setAlignmentTopPadding , + + +-- ** xalign #attr:xalign# +{- | Horizontal position of child in available space. A value of 0.0 +will flush the child left (or right, in RTL locales); a value +of 1.0 will flush the child right (or left, in RTL locales). +-} +#if ENABLE_OVERLOADING + AlignmentXalignPropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentXalign , +#endif + constructAlignmentXalign , + getAlignmentXalign , + setAlignmentXalign , + + +-- ** xscale #attr:xscale# +{- | If available horizontal space is bigger than needed, how much +of it to use for the child. A value of 0.0 means none; a value +of 1.0 means all. +-} +#if ENABLE_OVERLOADING + AlignmentXscalePropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentXscale , +#endif + constructAlignmentXscale , + getAlignmentXscale , + setAlignmentXscale , + + +-- ** yalign #attr:yalign# +{- | Vertical position of child in available space. A value of 0.0 +will flush the child to the top; a value of 1.0 will flush the +child to the bottom. +-} +#if ENABLE_OVERLOADING + AlignmentYalignPropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentYalign , +#endif + constructAlignmentYalign , + getAlignmentYalign , + setAlignmentYalign , + + +-- ** yscale #attr:yscale# +{- | If available vertical space is bigger than needed, how much +of it to use for the child. A value of 0.0 means none; a value +of 1.0 means all. +-} +#if ENABLE_OVERLOADING + AlignmentYscalePropertyInfo , +#endif +#if ENABLE_OVERLOADING + alignmentYscale , +#endif + constructAlignmentYscale , + getAlignmentYscale , + setAlignmentYscale , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype Alignment = Alignment (ManagedPtr Alignment) +foreign import ccall "gtk_alignment_get_type" + c_gtk_alignment_get_type :: IO GType + +instance GObject Alignment where + gobjectType = c_gtk_alignment_get_type + + +-- | Type class for types which can be safely cast to `Alignment`, for instance with `toAlignment`. +class (GObject o, O.IsDescendantOf Alignment o) => IsAlignment o +instance (GObject o, O.IsDescendantOf Alignment o) => IsAlignment o + +instance O.HasParentTypes Alignment +type instance O.ParentTypes Alignment = '[Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `Alignment`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAlignment :: (MonadIO m, IsAlignment o) => o -> m Alignment +toAlignment = liftIO . unsafeCastTo Alignment + +-- | A convenience alias for `Nothing` :: `Maybe` `Alignment`. +noAlignment :: Maybe Alignment +noAlignment = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAlignmentMethod (t :: Symbol) (o :: *) :: * where + ResolveAlignmentMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAlignmentMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveAlignmentMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAlignmentMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAlignmentMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAlignmentMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAlignmentMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAlignmentMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAlignmentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAlignmentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAlignmentMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAlignmentMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveAlignmentMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAlignmentMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveAlignmentMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveAlignmentMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveAlignmentMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveAlignmentMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveAlignmentMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAlignmentMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAlignmentMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAlignmentMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAlignmentMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAlignmentMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAlignmentMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAlignmentMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAlignmentMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAlignmentMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAlignmentMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAlignmentMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAlignmentMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAlignmentMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAlignmentMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAlignmentMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAlignmentMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAlignmentMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAlignmentMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAlignmentMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAlignmentMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAlignmentMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAlignmentMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAlignmentMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAlignmentMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAlignmentMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAlignmentMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAlignmentMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAlignmentMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAlignmentMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAlignmentMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAlignmentMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAlignmentMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAlignmentMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAlignmentMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAlignmentMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAlignmentMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAlignmentMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAlignmentMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAlignmentMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAlignmentMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAlignmentMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAlignmentMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAlignmentMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveAlignmentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAlignmentMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveAlignmentMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAlignmentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAlignmentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAlignmentMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAlignmentMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAlignmentMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAlignmentMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAlignmentMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAlignmentMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAlignmentMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAlignmentMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAlignmentMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAlignmentMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAlignmentMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAlignmentMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAlignmentMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAlignmentMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAlignmentMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAlignmentMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAlignmentMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAlignmentMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAlignmentMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAlignmentMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAlignmentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAlignmentMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAlignmentMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAlignmentMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAlignmentMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAlignmentMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAlignmentMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAlignmentMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAlignmentMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAlignmentMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAlignmentMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveAlignmentMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAlignmentMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAlignmentMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAlignmentMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAlignmentMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAlignmentMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAlignmentMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAlignmentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAlignmentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAlignmentMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAlignmentMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAlignmentMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAlignmentMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAlignmentMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAlignmentMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAlignmentMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAlignmentMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveAlignmentMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAlignmentMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAlignmentMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAlignmentMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAlignmentMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAlignmentMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAlignmentMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAlignmentMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAlignmentMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAlignmentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAlignmentMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAlignmentMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAlignmentMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveAlignmentMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAlignmentMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAlignmentMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAlignmentMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAlignmentMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAlignmentMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAlignmentMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAlignmentMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAlignmentMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveAlignmentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAlignmentMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAlignmentMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAlignmentMethod "set" o = AlignmentSetMethodInfo + ResolveAlignmentMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAlignmentMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAlignmentMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAlignmentMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAlignmentMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAlignmentMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAlignmentMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAlignmentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAlignmentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAlignmentMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAlignmentMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAlignmentMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAlignmentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAlignmentMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAlignmentMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAlignmentMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAlignmentMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAlignmentMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAlignmentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAlignmentMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAlignmentMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveAlignmentMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAlignmentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAlignmentMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAlignmentMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAlignmentMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAlignmentMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAlignmentMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAlignmentMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAlignmentMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAlignmentMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAlignmentMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAlignmentMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveAlignmentMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAlignmentMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAlignmentMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveAlignmentMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAlignmentMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAlignmentMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveAlignmentMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAlignmentMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAlignmentMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAlignmentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAlignmentMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAlignmentMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAlignmentMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAlignmentMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAlignmentMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAlignmentMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAlignmentMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveAlignmentMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveAlignmentMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveAlignmentMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAlignmentMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveAlignmentMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAlignmentMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAlignmentMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAlignmentMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAlignmentMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAlignmentMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAlignmentMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAlignmentMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAlignmentMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAlignmentMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAlignmentMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAlignmentMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAlignmentMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAlignmentMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAlignmentMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAlignmentMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAlignmentMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAlignmentMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAlignmentMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAlignmentMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAlignmentMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveAlignmentMethod "getPadding" o = AlignmentGetPaddingMethodInfo + ResolveAlignmentMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAlignmentMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAlignmentMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAlignmentMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAlignmentMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveAlignmentMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAlignmentMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAlignmentMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAlignmentMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAlignmentMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAlignmentMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAlignmentMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAlignmentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAlignmentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAlignmentMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAlignmentMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAlignmentMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAlignmentMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAlignmentMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveAlignmentMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAlignmentMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAlignmentMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveAlignmentMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAlignmentMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAlignmentMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAlignmentMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAlignmentMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAlignmentMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAlignmentMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAlignmentMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAlignmentMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAlignmentMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAlignmentMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAlignmentMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAlignmentMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAlignmentMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAlignmentMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAlignmentMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAlignmentMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAlignmentMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAlignmentMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAlignmentMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAlignmentMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAlignmentMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAlignmentMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAlignmentMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveAlignmentMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAlignmentMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAlignmentMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAlignmentMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAlignmentMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAlignmentMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAlignmentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAlignmentMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAlignmentMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAlignmentMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAlignmentMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAlignmentMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAlignmentMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveAlignmentMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveAlignmentMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveAlignmentMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAlignmentMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveAlignmentMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAlignmentMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAlignmentMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAlignmentMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAlignmentMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAlignmentMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAlignmentMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAlignmentMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAlignmentMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAlignmentMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAlignmentMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAlignmentMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAlignmentMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAlignmentMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAlignmentMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAlignmentMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAlignmentMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveAlignmentMethod "setPadding" o = AlignmentSetPaddingMethodInfo + ResolveAlignmentMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAlignmentMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAlignmentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAlignmentMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAlignmentMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveAlignmentMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAlignmentMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAlignmentMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveAlignmentMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAlignmentMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAlignmentMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAlignmentMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAlignmentMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAlignmentMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAlignmentMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAlignmentMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAlignmentMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAlignmentMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAlignmentMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAlignmentMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAlignmentMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAlignmentMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAlignmentMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAlignmentMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAlignmentMethod t Alignment, O.MethodInfo info Alignment p) => OL.IsLabel t (Alignment -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- VVV Prop "bottom-padding" + -- Type: TBasicType TUInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@bottom-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #bottomPadding +@ +-} +getAlignmentBottomPadding :: (MonadIO m, IsAlignment o) => o -> m Word32 +getAlignmentBottomPadding obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "bottom-padding" + +{- | +Set the value of the “@bottom-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #bottomPadding 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentBottomPadding :: (MonadIO m, IsAlignment o) => o -> Word32 -> m () +setAlignmentBottomPadding obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "bottom-padding" val + +{- | +Construct a `GValueConstruct` with valid value for the “@bottom-padding@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentBottomPadding :: (IsAlignment o) => Word32 -> IO (GValueConstruct o) +constructAlignmentBottomPadding val = B.Properties.constructObjectPropertyUInt32 "bottom-padding" val + +#if ENABLE_OVERLOADING +data AlignmentBottomPaddingPropertyInfo +instance AttrInfo AlignmentBottomPaddingPropertyInfo where + type AttrAllowedOps AlignmentBottomPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentBottomPaddingPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint AlignmentBottomPaddingPropertyInfo = IsAlignment + type AttrGetType AlignmentBottomPaddingPropertyInfo = Word32 + type AttrLabel AlignmentBottomPaddingPropertyInfo = "bottom-padding" + type AttrOrigin AlignmentBottomPaddingPropertyInfo = Alignment + attrGet _ = getAlignmentBottomPadding + attrSet _ = setAlignmentBottomPadding + attrConstruct _ = constructAlignmentBottomPadding + attrClear _ = undefined +#endif + +-- VVV Prop "left-padding" + -- Type: TBasicType TUInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@left-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #leftPadding +@ +-} +getAlignmentLeftPadding :: (MonadIO m, IsAlignment o) => o -> m Word32 +getAlignmentLeftPadding obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "left-padding" + +{- | +Set the value of the “@left-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #leftPadding 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentLeftPadding :: (MonadIO m, IsAlignment o) => o -> Word32 -> m () +setAlignmentLeftPadding obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "left-padding" val + +{- | +Construct a `GValueConstruct` with valid value for the “@left-padding@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentLeftPadding :: (IsAlignment o) => Word32 -> IO (GValueConstruct o) +constructAlignmentLeftPadding val = B.Properties.constructObjectPropertyUInt32 "left-padding" val + +#if ENABLE_OVERLOADING +data AlignmentLeftPaddingPropertyInfo +instance AttrInfo AlignmentLeftPaddingPropertyInfo where + type AttrAllowedOps AlignmentLeftPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentLeftPaddingPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint AlignmentLeftPaddingPropertyInfo = IsAlignment + type AttrGetType AlignmentLeftPaddingPropertyInfo = Word32 + type AttrLabel AlignmentLeftPaddingPropertyInfo = "left-padding" + type AttrOrigin AlignmentLeftPaddingPropertyInfo = Alignment + attrGet _ = getAlignmentLeftPadding + attrSet _ = setAlignmentLeftPadding + attrConstruct _ = constructAlignmentLeftPadding + attrClear _ = undefined +#endif + +-- VVV Prop "right-padding" + -- Type: TBasicType TUInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@right-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #rightPadding +@ +-} +getAlignmentRightPadding :: (MonadIO m, IsAlignment o) => o -> m Word32 +getAlignmentRightPadding obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "right-padding" + +{- | +Set the value of the “@right-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #rightPadding 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentRightPadding :: (MonadIO m, IsAlignment o) => o -> Word32 -> m () +setAlignmentRightPadding obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "right-padding" val + +{- | +Construct a `GValueConstruct` with valid value for the “@right-padding@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentRightPadding :: (IsAlignment o) => Word32 -> IO (GValueConstruct o) +constructAlignmentRightPadding val = B.Properties.constructObjectPropertyUInt32 "right-padding" val + +#if ENABLE_OVERLOADING +data AlignmentRightPaddingPropertyInfo +instance AttrInfo AlignmentRightPaddingPropertyInfo where + type AttrAllowedOps AlignmentRightPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentRightPaddingPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint AlignmentRightPaddingPropertyInfo = IsAlignment + type AttrGetType AlignmentRightPaddingPropertyInfo = Word32 + type AttrLabel AlignmentRightPaddingPropertyInfo = "right-padding" + type AttrOrigin AlignmentRightPaddingPropertyInfo = Alignment + attrGet _ = getAlignmentRightPadding + attrSet _ = setAlignmentRightPadding + attrConstruct _ = constructAlignmentRightPadding + attrClear _ = undefined +#endif + +-- VVV Prop "top-padding" + -- Type: TBasicType TUInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@top-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #topPadding +@ +-} +getAlignmentTopPadding :: (MonadIO m, IsAlignment o) => o -> m Word32 +getAlignmentTopPadding obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "top-padding" + +{- | +Set the value of the “@top-padding@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #topPadding 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentTopPadding :: (MonadIO m, IsAlignment o) => o -> Word32 -> m () +setAlignmentTopPadding obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "top-padding" val + +{- | +Construct a `GValueConstruct` with valid value for the “@top-padding@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentTopPadding :: (IsAlignment o) => Word32 -> IO (GValueConstruct o) +constructAlignmentTopPadding val = B.Properties.constructObjectPropertyUInt32 "top-padding" val + +#if ENABLE_OVERLOADING +data AlignmentTopPaddingPropertyInfo +instance AttrInfo AlignmentTopPaddingPropertyInfo where + type AttrAllowedOps AlignmentTopPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentTopPaddingPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint AlignmentTopPaddingPropertyInfo = IsAlignment + type AttrGetType AlignmentTopPaddingPropertyInfo = Word32 + type AttrLabel AlignmentTopPaddingPropertyInfo = "top-padding" + type AttrOrigin AlignmentTopPaddingPropertyInfo = Alignment + attrGet _ = getAlignmentTopPadding + attrSet _ = setAlignmentTopPadding + attrConstruct _ = constructAlignmentTopPadding + attrClear _ = undefined +#endif + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@xalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #xalign +@ +-} +getAlignmentXalign :: (MonadIO m, IsAlignment o) => o -> m Float +getAlignmentXalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "xalign" + +{- | +Set the value of the “@xalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #xalign 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentXalign :: (MonadIO m, IsAlignment o) => o -> Float -> m () +setAlignmentXalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "xalign" val + +{- | +Construct a `GValueConstruct` with valid value for the “@xalign@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentXalign :: (IsAlignment o) => Float -> IO (GValueConstruct o) +constructAlignmentXalign val = B.Properties.constructObjectPropertyFloat "xalign" val + +#if ENABLE_OVERLOADING +data AlignmentXalignPropertyInfo +instance AttrInfo AlignmentXalignPropertyInfo where + type AttrAllowedOps AlignmentXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentXalignPropertyInfo = (~) Float + type AttrBaseTypeConstraint AlignmentXalignPropertyInfo = IsAlignment + type AttrGetType AlignmentXalignPropertyInfo = Float + type AttrLabel AlignmentXalignPropertyInfo = "xalign" + type AttrOrigin AlignmentXalignPropertyInfo = Alignment + attrGet _ = getAlignmentXalign + attrSet _ = setAlignmentXalign + attrConstruct _ = constructAlignmentXalign + attrClear _ = undefined +#endif + +-- VVV Prop "xscale" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@xscale@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #xscale +@ +-} +getAlignmentXscale :: (MonadIO m, IsAlignment o) => o -> m Float +getAlignmentXscale obj = liftIO $ B.Properties.getObjectPropertyFloat obj "xscale" + +{- | +Set the value of the “@xscale@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #xscale 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentXscale :: (MonadIO m, IsAlignment o) => o -> Float -> m () +setAlignmentXscale obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "xscale" val + +{- | +Construct a `GValueConstruct` with valid value for the “@xscale@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentXscale :: (IsAlignment o) => Float -> IO (GValueConstruct o) +constructAlignmentXscale val = B.Properties.constructObjectPropertyFloat "xscale" val + +#if ENABLE_OVERLOADING +data AlignmentXscalePropertyInfo +instance AttrInfo AlignmentXscalePropertyInfo where + type AttrAllowedOps AlignmentXscalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentXscalePropertyInfo = (~) Float + type AttrBaseTypeConstraint AlignmentXscalePropertyInfo = IsAlignment + type AttrGetType AlignmentXscalePropertyInfo = Float + type AttrLabel AlignmentXscalePropertyInfo = "xscale" + type AttrOrigin AlignmentXscalePropertyInfo = Alignment + attrGet _ = getAlignmentXscale + attrSet _ = setAlignmentXscale + attrConstruct _ = constructAlignmentXscale + attrClear _ = undefined +#endif + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@yalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #yalign +@ +-} +getAlignmentYalign :: (MonadIO m, IsAlignment o) => o -> m Float +getAlignmentYalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "yalign" + +{- | +Set the value of the “@yalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #yalign 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentYalign :: (MonadIO m, IsAlignment o) => o -> Float -> m () +setAlignmentYalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "yalign" val + +{- | +Construct a `GValueConstruct` with valid value for the “@yalign@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentYalign :: (IsAlignment o) => Float -> IO (GValueConstruct o) +constructAlignmentYalign val = B.Properties.constructObjectPropertyFloat "yalign" val + +#if ENABLE_OVERLOADING +data AlignmentYalignPropertyInfo +instance AttrInfo AlignmentYalignPropertyInfo where + type AttrAllowedOps AlignmentYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentYalignPropertyInfo = (~) Float + type AttrBaseTypeConstraint AlignmentYalignPropertyInfo = IsAlignment + type AttrGetType AlignmentYalignPropertyInfo = Float + type AttrLabel AlignmentYalignPropertyInfo = "yalign" + type AttrOrigin AlignmentYalignPropertyInfo = Alignment + attrGet _ = getAlignmentYalign + attrSet _ = setAlignmentYalign + attrConstruct _ = constructAlignmentYalign + attrClear _ = undefined +#endif + +-- VVV Prop "yscale" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@yscale@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' alignment #yscale +@ +-} +getAlignmentYscale :: (MonadIO m, IsAlignment o) => o -> m Float +getAlignmentYscale obj = liftIO $ B.Properties.getObjectPropertyFloat obj "yscale" + +{- | +Set the value of the “@yscale@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' alignment [ #yscale 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAlignmentYscale :: (MonadIO m, IsAlignment o) => o -> Float -> m () +setAlignmentYscale obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "yscale" val + +{- | +Construct a `GValueConstruct` with valid value for the “@yscale@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAlignmentYscale :: (IsAlignment o) => Float -> IO (GValueConstruct o) +constructAlignmentYscale val = B.Properties.constructObjectPropertyFloat "yscale" val + +#if ENABLE_OVERLOADING +data AlignmentYscalePropertyInfo +instance AttrInfo AlignmentYscalePropertyInfo where + type AttrAllowedOps AlignmentYscalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AlignmentYscalePropertyInfo = (~) Float + type AttrBaseTypeConstraint AlignmentYscalePropertyInfo = IsAlignment + type AttrGetType AlignmentYscalePropertyInfo = Float + type AttrLabel AlignmentYscalePropertyInfo = "yscale" + type AttrOrigin AlignmentYscalePropertyInfo = Alignment + attrGet _ = getAlignmentYscale + attrSet _ = setAlignmentYscale + attrConstruct _ = constructAlignmentYscale + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Alignment +type instance O.AttributeList Alignment = AlignmentAttributeList +type AlignmentAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("bottomPadding", AlignmentBottomPaddingPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("leftPadding", AlignmentLeftPaddingPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("rightPadding", AlignmentRightPaddingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("topPadding", AlignmentTopPaddingPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +alignmentBottomPadding :: AttrLabelProxy "bottomPadding" +alignmentBottomPadding = AttrLabelProxy + +alignmentLeftPadding :: AttrLabelProxy "leftPadding" +alignmentLeftPadding = AttrLabelProxy + +alignmentRightPadding :: AttrLabelProxy "rightPadding" +alignmentRightPadding = AttrLabelProxy + +alignmentTopPadding :: AttrLabelProxy "topPadding" +alignmentTopPadding = AttrLabelProxy + +alignmentXalign :: AttrLabelProxy "xalign" +alignmentXalign = AttrLabelProxy + +alignmentXscale :: AttrLabelProxy "xscale" +alignmentXscale = AttrLabelProxy + +alignmentYalign :: AttrLabelProxy "yalign" +alignmentYalign = AttrLabelProxy + +alignmentYscale :: AttrLabelProxy "yscale" +alignmentYscale = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList Alignment = AlignmentSignalList +type AlignmentSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Alignment::new +-- method type : Constructor +-- Args : [Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the horizontal alignment of the child widget, from 0 (left) to 1\n (right).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the vertical alignment of the child widget, from 0 (top) to 1\n (bottom).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the amount that the child widget expands horizontally to fill up\n unused space, from 0 to 1.\n A value of 0 indicates that the child widget should never expand.\n A value of 1 indicates that the child widget will expand to fill all of the\n space allocated for the #GtkAlignment.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the amount that the child widget expands vertically to fill up\n unused space, from 0 to 1. The values are similar to @xscale.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 'GI.Gtk.Objects.Widget.Widget' alignment and margin properties"] #-} +{- | +Creates a new 'GI.Gtk.Objects.Alignment.Alignment'. +-} +alignmentNew :: + (B.CallStack.HasCallStack, MonadIO m) => + Float + {- ^ /@xalign@/: the horizontal alignment of the child widget, from 0 (left) to 1 + (right). -} + -> Float + {- ^ /@yalign@/: the vertical alignment of the child widget, from 0 (top) to 1 + (bottom). -} + -> Float + {- ^ /@xscale@/: the amount that the child widget expands horizontally to fill up + unused space, from 0 to 1. + A value of 0 indicates that the child widget should never expand. + A value of 1 indicates that the child widget will expand to fill all of the + space allocated for the 'GI.Gtk.Objects.Alignment.Alignment'. -} + -> Float + {- ^ /@yscale@/: the amount that the child widget expands vertically to fill up + unused space, from 0 to 1. The values are similar to /@xscale@/. -} + -> m Alignment + {- ^ __Returns:__ the new 'GI.Gtk.Objects.Alignment.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 "alignmentNew" result + result' <- (newObject Alignment) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method Alignment::get_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "alignment", argType = TInterface (Name {namespace = "Gtk", name = "Alignment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAlignment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the padding for\n the top of the widget, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the padding\n for the bottom of the widget, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the padding\n for the left of the widget, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_right", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the padding\n for the right of the widget, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_alignment_get_padding" gtk_alignment_get_padding :: + Ptr Alignment -> -- alignment : TInterface (Name {namespace = "Gtk", name = "Alignment"}) + Ptr Word32 -> -- padding_top : TBasicType TUInt + Ptr Word32 -> -- padding_bottom : TBasicType TUInt + Ptr Word32 -> -- padding_left : TBasicType TUInt + Ptr Word32 -> -- padding_right : TBasicType TUInt + IO () + +{-# DEPRECATED alignmentGetPadding ["(Since version 3.14)","Use 'GI.Gtk.Objects.Widget.Widget' alignment and margin properties"] #-} +{- | +Gets the padding on the different sides of the widget. +See gtk_alignment_set_padding (). + +/Since: 2.4/ +-} +alignmentGetPadding :: + (B.CallStack.HasCallStack, MonadIO m, IsAlignment a) => + a + {- ^ /@alignment@/: a 'GI.Gtk.Objects.Alignment.Alignment' -} + -> m ((Word32, Word32, Word32, Word32)) +alignmentGetPadding alignment = liftIO $ do + alignment' <- unsafeManagedPtrCastPtr alignment + paddingTop <- allocMem :: IO (Ptr Word32) + paddingBottom <- allocMem :: IO (Ptr Word32) + paddingLeft <- allocMem :: IO (Ptr Word32) + paddingRight <- allocMem :: IO (Ptr Word32) + gtk_alignment_get_padding alignment' paddingTop paddingBottom paddingLeft paddingRight + paddingTop' <- peek paddingTop + paddingBottom' <- peek paddingBottom + paddingLeft' <- peek paddingLeft + paddingRight' <- peek paddingRight + touchManagedPtr alignment + freeMem paddingTop + freeMem paddingBottom + freeMem paddingLeft + freeMem paddingRight + return (paddingTop', paddingBottom', paddingLeft', paddingRight') + +#if ENABLE_OVERLOADING +data AlignmentGetPaddingMethodInfo +instance (signature ~ (m ((Word32, Word32, Word32, Word32))), MonadIO m, IsAlignment a) => O.MethodInfo AlignmentGetPaddingMethodInfo a signature where + overloadedMethod _ = alignmentGetPadding + +#endif + +-- method Alignment::set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "alignment", argType = TInterface (Name {namespace = "Gtk", name = "Alignment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAlignment.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the horizontal alignment of the child widget, from 0 (left) to 1\n (right).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the vertical alignment of the child widget, from 0 (top) to 1\n (bottom).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the amount that the child widget expands horizontally to fill up\n unused space, from 0 to 1.\n A value of 0 indicates that the child widget should never expand.\n A value of 1 indicates that the child widget will expand to fill all of the\n space allocated for the #GtkAlignment.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the amount that the child widget expands vertically to fill up\n unused space, from 0 to 1. The values are similar to @xscale.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_alignment_set" gtk_alignment_set :: + Ptr Alignment -> -- alignment : TInterface (Name {namespace = "Gtk", name = "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 'GI.Gtk.Objects.Widget.Widget' alignment and margin properties"] #-} +{- | +Sets the 'GI.Gtk.Objects.Alignment.Alignment' values. +-} +alignmentSet :: + (B.CallStack.HasCallStack, MonadIO m, IsAlignment a) => + a + {- ^ /@alignment@/: a 'GI.Gtk.Objects.Alignment.Alignment'. -} + -> Float + {- ^ /@xalign@/: the horizontal alignment of the child widget, from 0 (left) to 1 + (right). -} + -> Float + {- ^ /@yalign@/: the vertical alignment of the child widget, from 0 (top) to 1 + (bottom). -} + -> Float + {- ^ /@xscale@/: the amount that the child widget expands horizontally to fill up + unused space, from 0 to 1. + A value of 0 indicates that the child widget should never expand. + A value of 1 indicates that the child widget will expand to fill all of the + space allocated for the 'GI.Gtk.Objects.Alignment.Alignment'. -} + -> Float + {- ^ /@yscale@/: the amount that the child widget expands vertically to fill up + unused space, from 0 to 1. The values are similar to /@xscale@/. -} + -> m () +alignmentSet alignment xalign yalign xscale yscale = liftIO $ do + alignment' <- unsafeManagedPtrCastPtr alignment + let xalign' = realToFrac xalign + let yalign' = realToFrac yalign + let xscale' = realToFrac xscale + let yscale' = realToFrac yscale + gtk_alignment_set alignment' xalign' yalign' xscale' yscale' + touchManagedPtr alignment + return () + +#if ENABLE_OVERLOADING +data AlignmentSetMethodInfo +instance (signature ~ (Float -> Float -> Float -> Float -> m ()), MonadIO m, IsAlignment a) => O.MethodInfo AlignmentSetMethodInfo a signature where + overloadedMethod _ = alignmentSet + +#endif + +-- method Alignment::set_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "alignment", argType = TInterface (Name {namespace = "Gtk", name = "Alignment"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAlignment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the padding at the top of the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the padding at the bottom of the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the padding at the left of the widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_right", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the padding at the right of the widget.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_alignment_set_padding" gtk_alignment_set_padding :: + Ptr Alignment -> -- alignment : TInterface (Name {namespace = "Gtk", name = "Alignment"}) + Word32 -> -- padding_top : TBasicType TUInt + Word32 -> -- padding_bottom : TBasicType TUInt + Word32 -> -- padding_left : TBasicType TUInt + Word32 -> -- padding_right : TBasicType TUInt + IO () + +{-# DEPRECATED alignmentSetPadding ["(Since version 3.14)","Use 'GI.Gtk.Objects.Widget.Widget' alignment and margin properties"] #-} +{- | +Sets the padding on the different sides of the widget. +The padding adds blank space to the sides of the widget. For instance, +this can be used to indent the child widget towards the right by adding +padding on the left. + +/Since: 2.4/ +-} +alignmentSetPadding :: + (B.CallStack.HasCallStack, MonadIO m, IsAlignment a) => + a + {- ^ /@alignment@/: a 'GI.Gtk.Objects.Alignment.Alignment' -} + -> Word32 + {- ^ /@paddingTop@/: the padding at the top of the widget -} + -> Word32 + {- ^ /@paddingBottom@/: the padding at the bottom of the widget -} + -> Word32 + {- ^ /@paddingLeft@/: the padding at the left of the widget -} + -> Word32 + {- ^ /@paddingRight@/: the padding at the right of the widget. -} + -> m () +alignmentSetPadding alignment paddingTop paddingBottom paddingLeft paddingRight = liftIO $ do + alignment' <- unsafeManagedPtrCastPtr alignment + gtk_alignment_set_padding alignment' paddingTop paddingBottom paddingLeft paddingRight + touchManagedPtr alignment + return () + +#if ENABLE_OVERLOADING +data AlignmentSetPaddingMethodInfo +instance (signature ~ (Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, IsAlignment a) => O.MethodInfo AlignmentSetPaddingMethodInfo a signature where + overloadedMethod _ = alignmentSetPadding + +#endif + + diff --git a/GI/Gtk/Objects/Alignment.hs-boot b/GI/Gtk/Objects/Alignment.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Alignment.hs-boot @@ -0,0 +1,62 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Alignment where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Alignment = Alignment (ManagedPtr Alignment) +instance GObject Alignment where +class (GObject o, O.IsDescendantOf Alignment o) => IsAlignment o +instance (GObject o, O.IsDescendantOf Alignment o) => IsAlignment o +instance O.HasParentTypes Alignment +#if ENABLE_OVERLOADING +data AlignmentBottomPaddingPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentLeftPaddingPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentRightPaddingPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentTopPaddingPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentXalignPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentXscalePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentYalignPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentYscalePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentGetPaddingMethodInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentSetMethodInfo +#endif +#if ENABLE_OVERLOADING +data AlignmentSetPaddingMethodInfo +#endif diff --git a/GI/Gtk/Objects/AppChooserButton.hs b/GI/Gtk/Objects/AppChooserButton.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AppChooserButton.hs @@ -0,0 +1,1290 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' is a widget that lets the user select +an application. It implements the 'GI.Gtk.Interfaces.AppChooser.AppChooser' interface. + +Initially, a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' selects the first application +in its list, which will either be the most-recently used application +or, if 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-default-item/@ is 'True', the +default application. + +The list of applications shown in a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' includes +the recommended applications for the given content type. When +'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-default-item/@ is set, the default application +is also included. To let the user chooser other applications, +you can set the 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-dialog-item/@ property, +which allows to open a full 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog'. + +It is possible to add custom items to the list, using +'GI.Gtk.Objects.AppChooserButton.appChooserButtonAppendCustomItem'. These items cause +the 'GI.Gtk.Objects.AppChooserButton.AppChooserButton'::@/custom-item-activated/@ signal to be +emitted when they are selected. + +To track changes in the selected application, use the +'GI.Gtk.Objects.ComboBox.ComboBox'::@/changed/@ signal. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AppChooserButton + ( + +-- * Exported types + AppChooserButton(..) , + IsAppChooserButton , + toAppChooserButton , + noAppChooserButton , + + + -- * Methods +-- ** appendCustomItem #method:appendCustomItem# + +#if ENABLE_OVERLOADING + AppChooserButtonAppendCustomItemMethodInfo, +#endif + appChooserButtonAppendCustomItem , + + +-- ** appendSeparator #method:appendSeparator# + +#if ENABLE_OVERLOADING + AppChooserButtonAppendSeparatorMethodInfo, +#endif + appChooserButtonAppendSeparator , + + +-- ** getHeading #method:getHeading# + +#if ENABLE_OVERLOADING + AppChooserButtonGetHeadingMethodInfo , +#endif + appChooserButtonGetHeading , + + +-- ** getShowDefaultItem #method:getShowDefaultItem# + +#if ENABLE_OVERLOADING + AppChooserButtonGetShowDefaultItemMethodInfo, +#endif + appChooserButtonGetShowDefaultItem , + + +-- ** getShowDialogItem #method:getShowDialogItem# + +#if ENABLE_OVERLOADING + AppChooserButtonGetShowDialogItemMethodInfo, +#endif + appChooserButtonGetShowDialogItem , + + +-- ** new #method:new# + + appChooserButtonNew , + + +-- ** setActiveCustomItem #method:setActiveCustomItem# + +#if ENABLE_OVERLOADING + AppChooserButtonSetActiveCustomItemMethodInfo, +#endif + appChooserButtonSetActiveCustomItem , + + +-- ** setHeading #method:setHeading# + +#if ENABLE_OVERLOADING + AppChooserButtonSetHeadingMethodInfo , +#endif + appChooserButtonSetHeading , + + +-- ** setShowDefaultItem #method:setShowDefaultItem# + +#if ENABLE_OVERLOADING + AppChooserButtonSetShowDefaultItemMethodInfo, +#endif + appChooserButtonSetShowDefaultItem , + + +-- ** setShowDialogItem #method:setShowDialogItem# + +#if ENABLE_OVERLOADING + AppChooserButtonSetShowDialogItemMethodInfo, +#endif + appChooserButtonSetShowDialogItem , + + + + + -- * Properties +-- ** heading #attr:heading# +{- | The text to show at the top of the dialog that can be +opened from the button. The string may contain Pango markup. +-} +#if ENABLE_OVERLOADING + AppChooserButtonHeadingPropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserButtonHeading , +#endif + constructAppChooserButtonHeading , + getAppChooserButtonHeading , + setAppChooserButtonHeading , + + +-- ** showDefaultItem #attr:showDefaultItem# +{- | The 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-default-item/@ property determines +whether the dropdown menu should show the default application +on top for the provided content type. + +/Since: 3.2/ +-} +#if ENABLE_OVERLOADING + AppChooserButtonShowDefaultItemPropertyInfo, +#endif +#if ENABLE_OVERLOADING + appChooserButtonShowDefaultItem , +#endif + constructAppChooserButtonShowDefaultItem, + getAppChooserButtonShowDefaultItem , + setAppChooserButtonShowDefaultItem , + + +-- ** showDialogItem #attr:showDialogItem# +{- | The 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-dialog-item/@ property determines +whether the dropdown menu should show an item that triggers +a 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' when clicked. +-} +#if ENABLE_OVERLOADING + AppChooserButtonShowDialogItemPropertyInfo, +#endif +#if ENABLE_OVERLOADING + appChooserButtonShowDialogItem , +#endif + constructAppChooserButtonShowDialogItem , + getAppChooserButtonShowDialogItem , + setAppChooserButtonShowDialogItem , + + + + + -- * Signals +-- ** customItemActivated #signal:customItemActivated# + + AppChooserButtonCustomItemActivatedCallback, +#if ENABLE_OVERLOADING + AppChooserButtonCustomItemActivatedSignalInfo, +#endif + C_AppChooserButtonCustomItemActivatedCallback, + afterAppChooserButtonCustomItemActivated, + genClosure_AppChooserButtonCustomItemActivated, + mk_AppChooserButtonCustomItemActivatedCallback, + noAppChooserButtonCustomItemActivatedCallback, + onAppChooserButtonCustomItemActivated , + wrap_AppChooserButtonCustomItemActivatedCallback, + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Interfaces.Icon as Gio.Icon +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AppChooser as Gtk.AppChooser +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellEditable as Gtk.CellEditable +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.ComboBox as Gtk.ComboBox +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype AppChooserButton = AppChooserButton (ManagedPtr AppChooserButton) +foreign import ccall "gtk_app_chooser_button_get_type" + c_gtk_app_chooser_button_get_type :: IO GType + +instance GObject AppChooserButton where + gobjectType = c_gtk_app_chooser_button_get_type + + +-- | Type class for types which can be safely cast to `AppChooserButton`, for instance with `toAppChooserButton`. +class (GObject o, O.IsDescendantOf AppChooserButton o) => IsAppChooserButton o +instance (GObject o, O.IsDescendantOf AppChooserButton o) => IsAppChooserButton o + +instance O.HasParentTypes AppChooserButton +type instance O.ParentTypes AppChooserButton = '[Gtk.ComboBox.ComboBox, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.AppChooser.AppChooser, Gtk.Buildable.Buildable, Gtk.CellEditable.CellEditable, Gtk.CellLayout.CellLayout] + +-- | Cast to `AppChooserButton`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAppChooserButton :: (MonadIO m, IsAppChooserButton o) => o -> m AppChooserButton +toAppChooserButton = liftIO . unsafeCastTo AppChooserButton + +-- | A convenience alias for `Nothing` :: `Maybe` `AppChooserButton`. +noAppChooserButton :: Maybe AppChooserButton +noAppChooserButton = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAppChooserButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAppChooserButtonMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveAppChooserButtonMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAppChooserButtonMethod "addAttribute" o = Gtk.CellLayout.CellLayoutAddAttributeMethodInfo + ResolveAppChooserButtonMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAppChooserButtonMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAppChooserButtonMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAppChooserButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAppChooserButtonMethod "appendCustomItem" o = AppChooserButtonAppendCustomItemMethodInfo + ResolveAppChooserButtonMethod "appendSeparator" o = AppChooserButtonAppendSeparatorMethodInfo + ResolveAppChooserButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAppChooserButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAppChooserButtonMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAppChooserButtonMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveAppChooserButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAppChooserButtonMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveAppChooserButtonMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveAppChooserButtonMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveAppChooserButtonMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveAppChooserButtonMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveAppChooserButtonMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAppChooserButtonMethod "clear" o = Gtk.CellLayout.CellLayoutClearMethodInfo + ResolveAppChooserButtonMethod "clearAttributes" o = Gtk.CellLayout.CellLayoutClearAttributesMethodInfo + ResolveAppChooserButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAppChooserButtonMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAppChooserButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAppChooserButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserButtonMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAppChooserButtonMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAppChooserButtonMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAppChooserButtonMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAppChooserButtonMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAppChooserButtonMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserButtonMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAppChooserButtonMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAppChooserButtonMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserButtonMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserButtonMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserButtonMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAppChooserButtonMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserButtonMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAppChooserButtonMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAppChooserButtonMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserButtonMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAppChooserButtonMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAppChooserButtonMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAppChooserButtonMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserButtonMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserButtonMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserButtonMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAppChooserButtonMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAppChooserButtonMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAppChooserButtonMethod "editingDone" o = Gtk.CellEditable.CellEditableEditingDoneMethodInfo + ResolveAppChooserButtonMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAppChooserButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAppChooserButtonMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAppChooserButtonMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveAppChooserButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAppChooserButtonMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveAppChooserButtonMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAppChooserButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAppChooserButtonMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAppChooserButtonMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAppChooserButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAppChooserButtonMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAppChooserButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAppChooserButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAppChooserButtonMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAppChooserButtonMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAppChooserButtonMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAppChooserButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAppChooserButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAppChooserButtonMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAppChooserButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAppChooserButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAppChooserButtonMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAppChooserButtonMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAppChooserButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAppChooserButtonMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAppChooserButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAppChooserButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAppChooserButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAppChooserButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAppChooserButtonMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAppChooserButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAppChooserButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAppChooserButtonMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAppChooserButtonMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAppChooserButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAppChooserButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveAppChooserButtonMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAppChooserButtonMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAppChooserButtonMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAppChooserButtonMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAppChooserButtonMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAppChooserButtonMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAppChooserButtonMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAppChooserButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAppChooserButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAppChooserButtonMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserButtonMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAppChooserButtonMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAppChooserButtonMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAppChooserButtonMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserButtonMethod "packEnd" o = Gtk.CellLayout.CellLayoutPackEndMethodInfo + ResolveAppChooserButtonMethod "packStart" o = Gtk.CellLayout.CellLayoutPackStartMethodInfo + ResolveAppChooserButtonMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAppChooserButtonMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAppChooserButtonMethod "popdown" o = Gtk.ComboBox.ComboBoxPopdownMethodInfo + ResolveAppChooserButtonMethod "popup" o = Gtk.ComboBox.ComboBoxPopupMethodInfo + ResolveAppChooserButtonMethod "popupForDevice" o = Gtk.ComboBox.ComboBoxPopupForDeviceMethodInfo + ResolveAppChooserButtonMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveAppChooserButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAppChooserButtonMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAppChooserButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAppChooserButtonMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAppChooserButtonMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAppChooserButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAppChooserButtonMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAppChooserButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAppChooserButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAppChooserButtonMethod "refresh" o = Gtk.AppChooser.AppChooserRefreshMethodInfo + ResolveAppChooserButtonMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAppChooserButtonMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAppChooserButtonMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveAppChooserButtonMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserButtonMethod "removeWidget" o = Gtk.CellEditable.CellEditableRemoveWidgetMethodInfo + ResolveAppChooserButtonMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAppChooserButtonMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAppChooserButtonMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo + ResolveAppChooserButtonMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAppChooserButtonMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAppChooserButtonMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAppChooserButtonMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveAppChooserButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAppChooserButtonMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAppChooserButtonMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAppChooserButtonMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAppChooserButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAppChooserButtonMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAppChooserButtonMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAppChooserButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAppChooserButtonMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserButtonMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAppChooserButtonMethod "startEditing" o = Gtk.CellEditable.CellEditableStartEditingMethodInfo + ResolveAppChooserButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAppChooserButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAppChooserButtonMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAppChooserButtonMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAppChooserButtonMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAppChooserButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAppChooserButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAppChooserButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAppChooserButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAppChooserButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAppChooserButtonMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAppChooserButtonMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveAppChooserButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAppChooserButtonMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAppChooserButtonMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAppChooserButtonMethod "getActive" o = Gtk.ComboBox.ComboBoxGetActiveMethodInfo + ResolveAppChooserButtonMethod "getActiveId" o = Gtk.ComboBox.ComboBoxGetActiveIdMethodInfo + ResolveAppChooserButtonMethod "getActiveIter" o = Gtk.ComboBox.ComboBoxGetActiveIterMethodInfo + ResolveAppChooserButtonMethod "getAddTearoffs" o = Gtk.ComboBox.ComboBoxGetAddTearoffsMethodInfo + ResolveAppChooserButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserButtonMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAppChooserButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAppChooserButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAppChooserButtonMethod "getAppInfo" o = Gtk.AppChooser.AppChooserGetAppInfoMethodInfo + ResolveAppChooserButtonMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAppChooserButtonMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo + ResolveAppChooserButtonMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveAppChooserButtonMethod "getButtonSensitivity" o = Gtk.ComboBox.ComboBoxGetButtonSensitivityMethodInfo + ResolveAppChooserButtonMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAppChooserButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAppChooserButtonMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo + ResolveAppChooserButtonMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveAppChooserButtonMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAppChooserButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAppChooserButtonMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveAppChooserButtonMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAppChooserButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAppChooserButtonMethod "getColumnSpanColumn" o = Gtk.ComboBox.ComboBoxGetColumnSpanColumnMethodInfo + ResolveAppChooserButtonMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAppChooserButtonMethod "getContentType" o = Gtk.AppChooser.AppChooserGetContentTypeMethodInfo + ResolveAppChooserButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAppChooserButtonMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserButtonMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAppChooserButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAppChooserButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAppChooserButtonMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserButtonMethod "getEntryTextColumn" o = Gtk.ComboBox.ComboBoxGetEntryTextColumnMethodInfo + ResolveAppChooserButtonMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAppChooserButtonMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveAppChooserButtonMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveAppChooserButtonMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveAppChooserButtonMethod "getFocusOnClick" o = Gtk.ComboBox.ComboBoxGetFocusOnClickMethodInfo + ResolveAppChooserButtonMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveAppChooserButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAppChooserButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAppChooserButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAppChooserButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAppChooserButtonMethod "getHasEntry" o = Gtk.ComboBox.ComboBoxGetHasEntryMethodInfo + ResolveAppChooserButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAppChooserButtonMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAppChooserButtonMethod "getHeading" o = AppChooserButtonGetHeadingMethodInfo + ResolveAppChooserButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAppChooserButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAppChooserButtonMethod "getIdColumn" o = Gtk.ComboBox.ComboBoxGetIdColumnMethodInfo + ResolveAppChooserButtonMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAppChooserButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAppChooserButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAppChooserButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAppChooserButtonMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAppChooserButtonMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAppChooserButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAppChooserButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAppChooserButtonMethod "getModel" o = Gtk.ComboBox.ComboBoxGetModelMethodInfo + ResolveAppChooserButtonMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAppChooserButtonMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAppChooserButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAppChooserButtonMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAppChooserButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveAppChooserButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAppChooserButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAppChooserButtonMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAppChooserButtonMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAppChooserButtonMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveAppChooserButtonMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAppChooserButtonMethod "getPopupAccessible" o = Gtk.ComboBox.ComboBoxGetPopupAccessibleMethodInfo + ResolveAppChooserButtonMethod "getPopupFixedWidth" o = Gtk.ComboBox.ComboBoxGetPopupFixedWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAppChooserButtonMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAppChooserButtonMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAppChooserButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAppChooserButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAppChooserButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAppChooserButtonMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAppChooserButtonMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveAppChooserButtonMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAppChooserButtonMethod "getRowSpanColumn" o = Gtk.ComboBox.ComboBoxGetRowSpanColumnMethodInfo + ResolveAppChooserButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAppChooserButtonMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveAppChooserButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAppChooserButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAppChooserButtonMethod "getShowDefaultItem" o = AppChooserButtonGetShowDefaultItemMethodInfo + ResolveAppChooserButtonMethod "getShowDialogItem" o = AppChooserButtonGetShowDialogItemMethodInfo + ResolveAppChooserButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAppChooserButtonMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAppChooserButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAppChooserButtonMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAppChooserButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAppChooserButtonMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAppChooserButtonMethod "getTitle" o = Gtk.ComboBox.ComboBoxGetTitleMethodInfo + ResolveAppChooserButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAppChooserButtonMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAppChooserButtonMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAppChooserButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAppChooserButtonMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAppChooserButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAppChooserButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAppChooserButtonMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAppChooserButtonMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAppChooserButtonMethod "getWrapWidth" o = Gtk.ComboBox.ComboBoxGetWrapWidthMethodInfo + ResolveAppChooserButtonMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAppChooserButtonMethod "setActive" o = Gtk.ComboBox.ComboBoxSetActiveMethodInfo + ResolveAppChooserButtonMethod "setActiveCustomItem" o = AppChooserButtonSetActiveCustomItemMethodInfo + ResolveAppChooserButtonMethod "setActiveId" o = Gtk.ComboBox.ComboBoxSetActiveIdMethodInfo + ResolveAppChooserButtonMethod "setActiveIter" o = Gtk.ComboBox.ComboBoxSetActiveIterMethodInfo + ResolveAppChooserButtonMethod "setAddTearoffs" o = Gtk.ComboBox.ComboBoxSetAddTearoffsMethodInfo + ResolveAppChooserButtonMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAppChooserButtonMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAppChooserButtonMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveAppChooserButtonMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserButtonMethod "setButtonSensitivity" o = Gtk.ComboBox.ComboBoxSetButtonSensitivityMethodInfo + ResolveAppChooserButtonMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAppChooserButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAppChooserButtonMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo + ResolveAppChooserButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAppChooserButtonMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAppChooserButtonMethod "setColumnSpanColumn" o = Gtk.ComboBox.ComboBoxSetColumnSpanColumnMethodInfo + ResolveAppChooserButtonMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAppChooserButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAppChooserButtonMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserButtonMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAppChooserButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAppChooserButtonMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserButtonMethod "setEntryTextColumn" o = Gtk.ComboBox.ComboBoxSetEntryTextColumnMethodInfo + ResolveAppChooserButtonMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAppChooserButtonMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveAppChooserButtonMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveAppChooserButtonMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveAppChooserButtonMethod "setFocusOnClick" o = Gtk.ComboBox.ComboBoxSetFocusOnClickMethodInfo + ResolveAppChooserButtonMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveAppChooserButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAppChooserButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAppChooserButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAppChooserButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAppChooserButtonMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAppChooserButtonMethod "setHeading" o = AppChooserButtonSetHeadingMethodInfo + ResolveAppChooserButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAppChooserButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAppChooserButtonMethod "setIdColumn" o = Gtk.ComboBox.ComboBoxSetIdColumnMethodInfo + ResolveAppChooserButtonMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAppChooserButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAppChooserButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAppChooserButtonMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAppChooserButtonMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAppChooserButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAppChooserButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAppChooserButtonMethod "setModel" o = Gtk.ComboBox.ComboBoxSetModelMethodInfo + ResolveAppChooserButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAppChooserButtonMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAppChooserButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveAppChooserButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAppChooserButtonMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAppChooserButtonMethod "setPopupFixedWidth" o = Gtk.ComboBox.ComboBoxSetPopupFixedWidthMethodInfo + ResolveAppChooserButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAppChooserButtonMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAppChooserButtonMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveAppChooserButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserButtonMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserButtonMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveAppChooserButtonMethod "setRowSeparatorFunc" o = Gtk.ComboBox.ComboBoxSetRowSeparatorFuncMethodInfo + ResolveAppChooserButtonMethod "setRowSpanColumn" o = Gtk.ComboBox.ComboBoxSetRowSpanColumnMethodInfo + ResolveAppChooserButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAppChooserButtonMethod "setShowDefaultItem" o = AppChooserButtonSetShowDefaultItemMethodInfo + ResolveAppChooserButtonMethod "setShowDialogItem" o = AppChooserButtonSetShowDialogItemMethodInfo + ResolveAppChooserButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAppChooserButtonMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAppChooserButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAppChooserButtonMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAppChooserButtonMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserButtonMethod "setTitle" o = Gtk.ComboBox.ComboBoxSetTitleMethodInfo + ResolveAppChooserButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAppChooserButtonMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAppChooserButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAppChooserButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAppChooserButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAppChooserButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAppChooserButtonMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAppChooserButtonMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAppChooserButtonMethod "setWrapWidth" o = Gtk.ComboBox.ComboBoxSetWrapWidthMethodInfo + ResolveAppChooserButtonMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserButtonMethod t AppChooserButton, O.MethodInfo info AppChooserButton p) => OL.IsLabel t (AppChooserButton -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal AppChooserButton::custom-item-activated +{- | +Emitted when a custom item, previously added with +'GI.Gtk.Objects.AppChooserButton.appChooserButtonAppendCustomItem', is activated from the +dropdown menu. +-} +type AppChooserButtonCustomItemActivatedCallback = + T.Text + {- ^ /@itemName@/: the name of the activated item -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AppChooserButtonCustomItemActivatedCallback`@. +noAppChooserButtonCustomItemActivatedCallback :: Maybe AppChooserButtonCustomItemActivatedCallback +noAppChooserButtonCustomItemActivatedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AppChooserButtonCustomItemActivatedCallback = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AppChooserButtonCustomItemActivatedCallback`. +foreign import ccall "wrapper" + mk_AppChooserButtonCustomItemActivatedCallback :: C_AppChooserButtonCustomItemActivatedCallback -> IO (FunPtr C_AppChooserButtonCustomItemActivatedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AppChooserButtonCustomItemActivated :: MonadIO m => AppChooserButtonCustomItemActivatedCallback -> m (GClosure C_AppChooserButtonCustomItemActivatedCallback) +genClosure_AppChooserButtonCustomItemActivated cb = liftIO $ do + let cb' = wrap_AppChooserButtonCustomItemActivatedCallback cb + mk_AppChooserButtonCustomItemActivatedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AppChooserButtonCustomItemActivatedCallback` into a `C_AppChooserButtonCustomItemActivatedCallback`. +wrap_AppChooserButtonCustomItemActivatedCallback :: + AppChooserButtonCustomItemActivatedCallback -> + C_AppChooserButtonCustomItemActivatedCallback +wrap_AppChooserButtonCustomItemActivatedCallback _cb _ itemName _ = do + itemName' <- cstringToText itemName + _cb itemName' + + +{- | +Connect a signal handler for the “@custom-item-activated@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' appChooserButton #customItemActivated callback +@ +-} +onAppChooserButtonCustomItemActivated :: (IsAppChooserButton a, MonadIO m) => a -> AppChooserButtonCustomItemActivatedCallback -> m SignalHandlerId +onAppChooserButtonCustomItemActivated obj cb = liftIO $ do + let cb' = wrap_AppChooserButtonCustomItemActivatedCallback cb + cb'' <- mk_AppChooserButtonCustomItemActivatedCallback cb' + connectSignalFunPtr obj "custom-item-activated" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@custom-item-activated@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' appChooserButton #customItemActivated callback +@ +-} +afterAppChooserButtonCustomItemActivated :: (IsAppChooserButton a, MonadIO m) => a -> AppChooserButtonCustomItemActivatedCallback -> m SignalHandlerId +afterAppChooserButtonCustomItemActivated obj cb = liftIO $ do + let cb' = wrap_AppChooserButtonCustomItemActivatedCallback cb + cb'' <- mk_AppChooserButtonCustomItemActivatedCallback cb' + connectSignalFunPtr obj "custom-item-activated" cb'' SignalConnectAfter + + +-- VVV Prop "heading" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just False) + +{- | +Get the value of the “@heading@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserButton #heading +@ +-} +getAppChooserButtonHeading :: (MonadIO m, IsAppChooserButton o) => o -> m (Maybe T.Text) +getAppChooserButtonHeading obj = liftIO $ B.Properties.getObjectPropertyString obj "heading" + +{- | +Set the value of the “@heading@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserButton [ #heading 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserButtonHeading :: (MonadIO m, IsAppChooserButton o) => o -> T.Text -> m () +setAppChooserButtonHeading obj val = liftIO $ B.Properties.setObjectPropertyString obj "heading" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@heading@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserButtonHeading :: (IsAppChooserButton o) => T.Text -> IO (GValueConstruct o) +constructAppChooserButtonHeading val = B.Properties.constructObjectPropertyString "heading" (Just val) + +#if ENABLE_OVERLOADING +data AppChooserButtonHeadingPropertyInfo +instance AttrInfo AppChooserButtonHeadingPropertyInfo where + type AttrAllowedOps AppChooserButtonHeadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserButtonHeadingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AppChooserButtonHeadingPropertyInfo = IsAppChooserButton + type AttrGetType AppChooserButtonHeadingPropertyInfo = (Maybe T.Text) + type AttrLabel AppChooserButtonHeadingPropertyInfo = "heading" + type AttrOrigin AppChooserButtonHeadingPropertyInfo = AppChooserButton + attrGet _ = getAppChooserButtonHeading + attrSet _ = setAppChooserButtonHeading + attrConstruct _ = constructAppChooserButtonHeading + attrClear _ = undefined +#endif + +-- VVV Prop "show-default-item" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-default-item@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserButton #showDefaultItem +@ +-} +getAppChooserButtonShowDefaultItem :: (MonadIO m, IsAppChooserButton o) => o -> m Bool +getAppChooserButtonShowDefaultItem obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-default-item" + +{- | +Set the value of the “@show-default-item@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserButton [ #showDefaultItem 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserButtonShowDefaultItem :: (MonadIO m, IsAppChooserButton o) => o -> Bool -> m () +setAppChooserButtonShowDefaultItem obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-default-item" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-default-item@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserButtonShowDefaultItem :: (IsAppChooserButton o) => Bool -> IO (GValueConstruct o) +constructAppChooserButtonShowDefaultItem val = B.Properties.constructObjectPropertyBool "show-default-item" val + +#if ENABLE_OVERLOADING +data AppChooserButtonShowDefaultItemPropertyInfo +instance AttrInfo AppChooserButtonShowDefaultItemPropertyInfo where + type AttrAllowedOps AppChooserButtonShowDefaultItemPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserButtonShowDefaultItemPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AppChooserButtonShowDefaultItemPropertyInfo = IsAppChooserButton + type AttrGetType AppChooserButtonShowDefaultItemPropertyInfo = Bool + type AttrLabel AppChooserButtonShowDefaultItemPropertyInfo = "show-default-item" + type AttrOrigin AppChooserButtonShowDefaultItemPropertyInfo = AppChooserButton + attrGet _ = getAppChooserButtonShowDefaultItem + attrSet _ = setAppChooserButtonShowDefaultItem + attrConstruct _ = constructAppChooserButtonShowDefaultItem + attrClear _ = undefined +#endif + +-- VVV Prop "show-dialog-item" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-dialog-item@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserButton #showDialogItem +@ +-} +getAppChooserButtonShowDialogItem :: (MonadIO m, IsAppChooserButton o) => o -> m Bool +getAppChooserButtonShowDialogItem obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-dialog-item" + +{- | +Set the value of the “@show-dialog-item@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserButton [ #showDialogItem 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserButtonShowDialogItem :: (MonadIO m, IsAppChooserButton o) => o -> Bool -> m () +setAppChooserButtonShowDialogItem obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-dialog-item" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-dialog-item@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserButtonShowDialogItem :: (IsAppChooserButton o) => Bool -> IO (GValueConstruct o) +constructAppChooserButtonShowDialogItem val = B.Properties.constructObjectPropertyBool "show-dialog-item" val + +#if ENABLE_OVERLOADING +data AppChooserButtonShowDialogItemPropertyInfo +instance AttrInfo AppChooserButtonShowDialogItemPropertyInfo where + type AttrAllowedOps AppChooserButtonShowDialogItemPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserButtonShowDialogItemPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AppChooserButtonShowDialogItemPropertyInfo = IsAppChooserButton + type AttrGetType AppChooserButtonShowDialogItemPropertyInfo = Bool + type AttrLabel AppChooserButtonShowDialogItemPropertyInfo = "show-dialog-item" + type AttrOrigin AppChooserButtonShowDialogItemPropertyInfo = AppChooserButton + attrGet _ = getAppChooserButtonShowDialogItem + attrSet _ = setAppChooserButtonShowDialogItem + attrConstruct _ = constructAppChooserButtonShowDialogItem + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AppChooserButton +type instance O.AttributeList AppChooserButton = AppChooserButtonAttributeList +type AppChooserButtonAttributeList = ('[ '("active", Gtk.ComboBox.ComboBoxActivePropertyInfo), '("activeId", Gtk.ComboBox.ComboBoxActiveIdPropertyInfo), '("addTearoffs", Gtk.ComboBox.ComboBoxAddTearoffsPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("buttonSensitivity", Gtk.ComboBox.ComboBoxButtonSensitivityPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("cellArea", Gtk.ComboBox.ComboBoxCellAreaPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("columnSpanColumn", Gtk.ComboBox.ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("contentType", Gtk.AppChooser.AppChooserContentTypePropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("editingCanceled", Gtk.CellEditable.CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", Gtk.ComboBox.ComboBoxEntryTextColumnPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasEntry", Gtk.ComboBox.ComboBoxHasEntryPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasFrame", Gtk.ComboBox.ComboBoxHasFramePropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("idColumn", Gtk.ComboBox.ComboBoxIdColumnPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("model", Gtk.ComboBox.ComboBoxModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("popupFixedWidth", Gtk.ComboBox.ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", Gtk.ComboBox.ComboBoxPopupShownPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("rowSpanColumn", Gtk.ComboBox.ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showDefaultItem", AppChooserButtonShowDefaultItemPropertyInfo), '("showDialogItem", AppChooserButtonShowDialogItemPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tearoffTitle", Gtk.ComboBox.ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("wrapWidth", Gtk.ComboBox.ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +appChooserButtonHeading :: AttrLabelProxy "heading" +appChooserButtonHeading = AttrLabelProxy + +appChooserButtonShowDefaultItem :: AttrLabelProxy "showDefaultItem" +appChooserButtonShowDefaultItem = AttrLabelProxy + +appChooserButtonShowDialogItem :: AttrLabelProxy "showDialogItem" +appChooserButtonShowDialogItem = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data AppChooserButtonCustomItemActivatedSignalInfo +instance SignalInfo AppChooserButtonCustomItemActivatedSignalInfo where + type HaskellCallbackType AppChooserButtonCustomItemActivatedSignalInfo = AppChooserButtonCustomItemActivatedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AppChooserButtonCustomItemActivatedCallback cb + cb'' <- mk_AppChooserButtonCustomItemActivatedCallback cb' + connectSignalFunPtr obj "custom-item-activated" cb'' connectMode + +type instance O.SignalList AppChooserButton = AppChooserButtonSignalList +type AppChooserButtonSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("changed", Gtk.ComboBox.ComboBoxChangedSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("customItemActivated", AppChooserButtonCustomItemActivatedSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("editingDone", Gtk.CellEditable.CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("formatEntryText", Gtk.ComboBox.ComboBoxFormatEntryTextSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveActive", Gtk.ComboBox.ComboBoxMoveActiveSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popdown", Gtk.ComboBox.ComboBoxPopdownSignalInfo), '("popup", Gtk.ComboBox.ComboBoxPopupSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("removeWidget", Gtk.CellEditable.CellEditableRemoveWidgetSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AppChooserButton::new +-- method type : Constructor +-- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type to show applications for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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) + +{- | +Creates a new 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' for applications +that can handle content of the given type. + +/Since: 3.0/ +-} +appChooserButtonNew :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@contentType@/: the content type to show applications for -} + -> m AppChooserButton + {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} +appChooserButtonNew contentType = liftIO $ do + contentType' <- textToCString contentType + result <- gtk_app_chooser_button_new contentType' + checkUnexpectedReturnNULL "appChooserButtonNew" result + result' <- (newObject AppChooserButton) result + freeMem contentType' + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AppChooserButton::append_custom_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the custom item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the label for the custom item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the icon for the custom item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_append_custom_item" gtk_app_chooser_button_append_custom_item :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + CString -> -- name : TBasicType TUTF8 + CString -> -- label : TBasicType TUTF8 + Ptr Gio.Icon.Icon -> -- icon : TInterface (Name {namespace = "Gio", name = "Icon"}) + IO () + +{- | +Appends a custom item to the list of applications that is shown +in the popup; the item name must be unique per-widget. +Clients can use the provided name as a detail for the +'GI.Gtk.Objects.AppChooserButton.AppChooserButton'::@/custom-item-activated/@ signal, to add a +callback for the activation of a particular custom item in the list. +See also 'GI.Gtk.Objects.AppChooserButton.appChooserButtonAppendSeparator'. + +/Since: 3.0/ +-} +appChooserButtonAppendCustomItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a, Gio.Icon.IsIcon b) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> T.Text + {- ^ /@name@/: the name of the custom item -} + -> T.Text + {- ^ /@label@/: the label for the custom item -} + -> b + {- ^ /@icon@/: the icon for the custom item -} + -> m () +appChooserButtonAppendCustomItem self name label icon = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + name' <- textToCString name + label' <- textToCString label + icon' <- unsafeManagedPtrCastPtr icon + gtk_app_chooser_button_append_custom_item self' name' label' icon' + touchManagedPtr self + touchManagedPtr icon + freeMem name' + freeMem label' + return () + +#if ENABLE_OVERLOADING +data AppChooserButtonAppendCustomItemMethodInfo +instance (signature ~ (T.Text -> T.Text -> b -> m ()), MonadIO m, IsAppChooserButton a, Gio.Icon.IsIcon b) => O.MethodInfo AppChooserButtonAppendCustomItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonAppendCustomItem + +#endif + +-- method AppChooserButton::append_separator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_append_separator" gtk_app_chooser_button_append_separator :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + IO () + +{- | +Appends a separator to the list of applications that is shown +in the popup. + +/Since: 3.0/ +-} +appChooserButtonAppendSeparator :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> m () +appChooserButtonAppendSeparator self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + gtk_app_chooser_button_append_separator self' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserButtonAppendSeparatorMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonAppendSeparatorMethodInfo a signature where + overloadedMethod _ = appChooserButtonAppendSeparator + +#endif + +-- method AppChooserButton::get_heading +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_get_heading" gtk_app_chooser_button_get_heading :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + IO CString + +{- | +Returns the text to display at the top of the dialog. +-} +appChooserButtonGetHeading :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> m (Maybe T.Text) + {- ^ __Returns:__ the text to display at the top of the dialog, + or 'Nothing', in which case a default text is displayed -} +appChooserButtonGetHeading self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_button_get_heading self' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + return result'' + touchManagedPtr self + return maybeResult + +#if ENABLE_OVERLOADING +data AppChooserButtonGetHeadingMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonGetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserButtonGetHeading + +#endif + +-- method AppChooserButton::get_show_default_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_get_show_default_item" gtk_app_chooser_button_get_show_default_item :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + IO CInt + +{- | +Returns the current value of the 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-default-item/@ +property. + +/Since: 3.2/ +-} +appChooserButtonGetShowDefaultItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> m Bool + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-default-item/@ -} +appChooserButtonGetShowDefaultItem self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_button_get_show_default_item self' + let result' = (/= 0) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserButtonGetShowDefaultItemMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonGetShowDefaultItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonGetShowDefaultItem + +#endif + +-- method AppChooserButton::get_show_dialog_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_get_show_dialog_item" gtk_app_chooser_button_get_show_dialog_item :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + IO CInt + +{- | +Returns the current value of the 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-dialog-item/@ +property. + +/Since: 3.0/ +-} +appChooserButtonGetShowDialogItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> m Bool + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-dialog-item/@ -} +appChooserButtonGetShowDialogItem self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_button_get_show_dialog_item self' + let result' = (/= 0) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserButtonGetShowDialogItemMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonGetShowDialogItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonGetShowDialogItem + +#endif + +-- method AppChooserButton::set_active_custom_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the custom item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_set_active_custom_item" gtk_app_chooser_button_set_active_custom_item :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + CString -> -- name : TBasicType TUTF8 + IO () + +{- | +Selects a custom item previously added with +'GI.Gtk.Objects.AppChooserButton.appChooserButtonAppendCustomItem'. + +Use 'GI.Gtk.Interfaces.AppChooser.appChooserRefresh' to bring the selection +to its initial state. + +/Since: 3.0/ +-} +appChooserButtonSetActiveCustomItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> T.Text + {- ^ /@name@/: the name of the custom item -} + -> m () +appChooserButtonSetActiveCustomItem self name = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + name' <- textToCString name + gtk_app_chooser_button_set_active_custom_item self' name' + touchManagedPtr self + freeMem name' + return () + +#if ENABLE_OVERLOADING +data AppChooserButtonSetActiveCustomItemMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonSetActiveCustomItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetActiveCustomItem + +#endif + +-- method AppChooserButton::set_heading +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing Pango markup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_set_heading" gtk_app_chooser_button_set_heading :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + CString -> -- heading : TBasicType TUTF8 + IO () + +{- | +Sets the text to display at the top of the dialog. +If the heading is not set, the dialog displays a default text. +-} +appChooserButtonSetHeading :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> T.Text + {- ^ /@heading@/: a string containing Pango markup -} + -> m () +appChooserButtonSetHeading self heading = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + heading' <- textToCString heading + gtk_app_chooser_button_set_heading self' heading' + touchManagedPtr self + freeMem heading' + return () + +#if ENABLE_OVERLOADING +data AppChooserButtonSetHeadingMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonSetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetHeading + +#endif + +-- method AppChooserButton::set_show_default_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserButton:show-default-item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_set_show_default_item" gtk_app_chooser_button_set_show_default_item :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + CInt -> -- setting : TBasicType TBoolean + IO () + +{- | +Sets whether the dropdown menu of this button should show the +default application for the given content type at top. + +/Since: 3.2/ +-} +appChooserButtonSetShowDefaultItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> Bool + {- ^ /@setting@/: the new value for 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-default-item/@ -} + -> m () +appChooserButtonSetShowDefaultItem self setting = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + let setting' = (fromIntegral . fromEnum) setting + gtk_app_chooser_button_set_show_default_item self' setting' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserButtonSetShowDefaultItemMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonSetShowDefaultItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetShowDefaultItem + +#endif + +-- method AppChooserButton::set_show_dialog_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserButton", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserButton:show-dialog-item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_button_set_show_dialog_item" gtk_app_chooser_button_set_show_dialog_item :: + Ptr AppChooserButton -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserButton"}) + CInt -> -- setting : TBasicType TBoolean + IO () + +{- | +Sets whether the dropdown menu of this button should show an +entry to trigger a 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog'. + +/Since: 3.0/ +-} +appChooserButtonSetShowDialogItem :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserButton a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserButton.AppChooserButton' -} + -> Bool + {- ^ /@setting@/: the new value for 'GI.Gtk.Objects.AppChooserButton.AppChooserButton':@/show-dialog-item/@ -} + -> m () +appChooserButtonSetShowDialogItem self setting = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + let setting' = (fromIntegral . fromEnum) setting + gtk_app_chooser_button_set_show_dialog_item self' setting' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserButtonSetShowDialogItemMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserButton a) => O.MethodInfo AppChooserButtonSetShowDialogItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetShowDialogItem + +#endif + + diff --git a/GI/Gtk/Objects/AppChooserButton.hs-boot b/GI/Gtk/Objects/AppChooserButton.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AppChooserButton.hs-boot @@ -0,0 +1,68 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AppChooserButton where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AppChooserButton = AppChooserButton (ManagedPtr AppChooserButton) +instance GObject AppChooserButton where +class (GObject o, O.IsDescendantOf AppChooserButton o) => IsAppChooserButton o +instance (GObject o, O.IsDescendantOf AppChooserButton o) => IsAppChooserButton o +instance O.HasParentTypes AppChooserButton +#if ENABLE_OVERLOADING +data AppChooserButtonHeadingPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonShowDefaultItemPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonShowDialogItemPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonCustomItemActivatedSignalInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonAppendCustomItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonAppendSeparatorMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonGetHeadingMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonGetShowDefaultItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonGetShowDialogItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonSetActiveCustomItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonSetHeadingMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonSetShowDefaultItemMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserButtonSetShowDialogItemMethodInfo +#endif diff --git a/GI/Gtk/Objects/AppChooserDialog.hs b/GI/Gtk/Objects/AppChooserDialog.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AppChooserDialog.hs @@ -0,0 +1,931 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' shows a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' inside a 'GI.Gtk.Objects.Dialog.Dialog'. + +Note that 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' does not have any interesting methods +of its own. Instead, you should get the embedded 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' +using 'GI.Gtk.Objects.AppChooserDialog.appChooserDialogGetWidget' and call its methods if +the generic 'GI.Gtk.Interfaces.AppChooser.AppChooser' interface is not sufficient for your needs. + +To set the heading that is shown above the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget', +use 'GI.Gtk.Objects.AppChooserDialog.appChooserDialogSetHeading'. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AppChooserDialog + ( + +-- * Exported types + AppChooserDialog(..) , + IsAppChooserDialog , + toAppChooserDialog , + noAppChooserDialog , + + + -- * Methods +-- ** getHeading #method:getHeading# + +#if ENABLE_OVERLOADING + AppChooserDialogGetHeadingMethodInfo , +#endif + appChooserDialogGetHeading , + + +-- ** getWidget #method:getWidget# + +#if ENABLE_OVERLOADING + AppChooserDialogGetWidgetMethodInfo , +#endif + appChooserDialogGetWidget , + + +-- ** new #method:new# + + appChooserDialogNew , + + +-- ** newForContentType #method:newForContentType# + + appChooserDialogNewForContentType , + + +-- ** setHeading #method:setHeading# + +#if ENABLE_OVERLOADING + AppChooserDialogSetHeadingMethodInfo , +#endif + appChooserDialogSetHeading , + + + + + -- * Properties +-- ** gfile #attr:gfile# +{- | The GFile used by the 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog'. +The dialog\'s 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' content type will be guessed from the +file, if present. +-} +#if ENABLE_OVERLOADING + AppChooserDialogGfilePropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserDialogGfile , +#endif + constructAppChooserDialogGfile , + getAppChooserDialogGfile , + + +-- ** heading #attr:heading# +{- | The text to show at the top of the dialog. +The string may contain Pango markup. +-} +#if ENABLE_OVERLOADING + AppChooserDialogHeadingPropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserDialogHeading , +#endif + constructAppChooserDialogHeading , + getAppChooserDialogHeading , + setAppChooserDialogHeading , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Interfaces.File as Gio.File +import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AppChooser as Gtk.AppChooser +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Dialog as Gtk.Dialog +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget +import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window + +-- | Memory-managed wrapper type. +newtype AppChooserDialog = AppChooserDialog (ManagedPtr AppChooserDialog) +foreign import ccall "gtk_app_chooser_dialog_get_type" + c_gtk_app_chooser_dialog_get_type :: IO GType + +instance GObject AppChooserDialog where + gobjectType = c_gtk_app_chooser_dialog_get_type + + +-- | Type class for types which can be safely cast to `AppChooserDialog`, for instance with `toAppChooserDialog`. +class (GObject o, O.IsDescendantOf AppChooserDialog o) => IsAppChooserDialog o +instance (GObject o, O.IsDescendantOf AppChooserDialog o) => IsAppChooserDialog o + +instance O.HasParentTypes AppChooserDialog +type instance O.ParentTypes AppChooserDialog = '[Gtk.Dialog.Dialog, Gtk.Window.Window, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.AppChooser.AppChooser, Gtk.Buildable.Buildable] + +-- | Cast to `AppChooserDialog`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAppChooserDialog :: (MonadIO m, IsAppChooserDialog o) => o -> m AppChooserDialog +toAppChooserDialog = liftIO . unsafeCastTo AppChooserDialog + +-- | A convenience alias for `Nothing` :: `Maybe` `AppChooserDialog`. +noAppChooserDialog :: Maybe AppChooserDialog +noAppChooserDialog = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAppChooserDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserDialogMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAppChooserDialogMethod "activateDefault" o = Gtk.Window.WindowActivateDefaultMethodInfo + ResolveAppChooserDialogMethod "activateFocus" o = Gtk.Window.WindowActivateFocusMethodInfo + ResolveAppChooserDialogMethod "activateKey" o = Gtk.Window.WindowActivateKeyMethodInfo + ResolveAppChooserDialogMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveAppChooserDialogMethod "addAccelGroup" o = Gtk.Window.WindowAddAccelGroupMethodInfo + ResolveAppChooserDialogMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAppChooserDialogMethod "addActionWidget" o = Gtk.Dialog.DialogAddActionWidgetMethodInfo + ResolveAppChooserDialogMethod "addButton" o = Gtk.Dialog.DialogAddButtonMethodInfo + ResolveAppChooserDialogMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAppChooserDialogMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAppChooserDialogMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAppChooserDialogMethod "addMnemonic" o = Gtk.Window.WindowAddMnemonicMethodInfo + ResolveAppChooserDialogMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserDialogMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAppChooserDialogMethod "beginMoveDrag" o = Gtk.Window.WindowBeginMoveDragMethodInfo + ResolveAppChooserDialogMethod "beginResizeDrag" o = Gtk.Window.WindowBeginResizeDragMethodInfo + ResolveAppChooserDialogMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAppChooserDialogMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAppChooserDialogMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAppChooserDialogMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveAppChooserDialogMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAppChooserDialogMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveAppChooserDialogMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveAppChooserDialogMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveAppChooserDialogMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveAppChooserDialogMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveAppChooserDialogMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAppChooserDialogMethod "close" o = Gtk.Window.WindowCloseMethodInfo + ResolveAppChooserDialogMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAppChooserDialogMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAppChooserDialogMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAppChooserDialogMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserDialogMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAppChooserDialogMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAppChooserDialogMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAppChooserDialogMethod "deiconify" o = Gtk.Window.WindowDeiconifyMethodInfo + ResolveAppChooserDialogMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAppChooserDialogMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAppChooserDialogMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserDialogMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAppChooserDialogMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserDialogMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAppChooserDialogMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserDialogMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserDialogMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserDialogMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAppChooserDialogMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserDialogMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAppChooserDialogMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAppChooserDialogMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserDialogMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAppChooserDialogMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAppChooserDialogMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAppChooserDialogMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserDialogMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserDialogMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserDialogMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAppChooserDialogMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAppChooserDialogMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAppChooserDialogMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAppChooserDialogMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAppChooserDialogMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAppChooserDialogMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveAppChooserDialogMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAppChooserDialogMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveAppChooserDialogMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserDialogMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAppChooserDialogMethod "fullscreen" o = Gtk.Window.WindowFullscreenMethodInfo + ResolveAppChooserDialogMethod "fullscreenOnMonitor" o = Gtk.Window.WindowFullscreenOnMonitorMethodInfo + ResolveAppChooserDialogMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAppChooserDialogMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAppChooserDialogMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAppChooserDialogMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAppChooserDialogMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAppChooserDialogMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAppChooserDialogMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAppChooserDialogMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAppChooserDialogMethod "hasGroup" o = Gtk.Window.WindowHasGroupMethodInfo + ResolveAppChooserDialogMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAppChooserDialogMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAppChooserDialogMethod "hasToplevelFocus" o = Gtk.Window.WindowHasToplevelFocusMethodInfo + ResolveAppChooserDialogMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAppChooserDialogMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAppChooserDialogMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAppChooserDialogMethod "iconify" o = Gtk.Window.WindowIconifyMethodInfo + ResolveAppChooserDialogMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAppChooserDialogMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAppChooserDialogMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserDialogMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAppChooserDialogMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAppChooserDialogMethod "isActive" o = Gtk.Window.WindowIsActiveMethodInfo + ResolveAppChooserDialogMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAppChooserDialogMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAppChooserDialogMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAppChooserDialogMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAppChooserDialogMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAppChooserDialogMethod "isMaximized" o = Gtk.Window.WindowIsMaximizedMethodInfo + ResolveAppChooserDialogMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAppChooserDialogMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAppChooserDialogMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAppChooserDialogMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAppChooserDialogMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAppChooserDialogMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAppChooserDialogMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserDialogMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAppChooserDialogMethod "maximize" o = Gtk.Window.WindowMaximizeMethodInfo + ResolveAppChooserDialogMethod "mnemonicActivate" o = Gtk.Window.WindowMnemonicActivateMethodInfo + ResolveAppChooserDialogMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAppChooserDialogMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAppChooserDialogMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAppChooserDialogMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAppChooserDialogMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAppChooserDialogMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAppChooserDialogMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAppChooserDialogMethod "move" o = Gtk.Window.WindowMoveMethodInfo + ResolveAppChooserDialogMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAppChooserDialogMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAppChooserDialogMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserDialogMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAppChooserDialogMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAppChooserDialogMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAppChooserDialogMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserDialogMethod "parseGeometry" o = Gtk.Window.WindowParseGeometryMethodInfo + ResolveAppChooserDialogMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAppChooserDialogMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAppChooserDialogMethod "present" o = Gtk.Window.WindowPresentMethodInfo + ResolveAppChooserDialogMethod "presentWithTime" o = Gtk.Window.WindowPresentWithTimeMethodInfo + ResolveAppChooserDialogMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveAppChooserDialogMethod "propagateKeyEvent" o = Gtk.Window.WindowPropagateKeyEventMethodInfo + ResolveAppChooserDialogMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAppChooserDialogMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAppChooserDialogMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAppChooserDialogMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAppChooserDialogMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAppChooserDialogMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAppChooserDialogMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserDialogMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAppChooserDialogMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAppChooserDialogMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAppChooserDialogMethod "refresh" o = Gtk.AppChooser.AppChooserRefreshMethodInfo + ResolveAppChooserDialogMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAppChooserDialogMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAppChooserDialogMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveAppChooserDialogMethod "removeAccelGroup" o = Gtk.Window.WindowRemoveAccelGroupMethodInfo + ResolveAppChooserDialogMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserDialogMethod "removeMnemonic" o = Gtk.Window.WindowRemoveMnemonicMethodInfo + ResolveAppChooserDialogMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserDialogMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserDialogMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAppChooserDialogMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAppChooserDialogMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAppChooserDialogMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAppChooserDialogMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAppChooserDialogMethod "reshowWithInitialSize" o = Gtk.Window.WindowReshowWithInitialSizeMethodInfo + ResolveAppChooserDialogMethod "resize" o = Gtk.Window.WindowResizeMethodInfo + ResolveAppChooserDialogMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveAppChooserDialogMethod "resizeGripIsVisible" o = Gtk.Window.WindowResizeGripIsVisibleMethodInfo + ResolveAppChooserDialogMethod "resizeToGeometry" o = Gtk.Window.WindowResizeToGeometryMethodInfo + ResolveAppChooserDialogMethod "response" o = Gtk.Dialog.DialogResponseMethodInfo + ResolveAppChooserDialogMethod "run" o = Gtk.Dialog.DialogRunMethodInfo + ResolveAppChooserDialogMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAppChooserDialogMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAppChooserDialogMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAppChooserDialogMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAppChooserDialogMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAppChooserDialogMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAppChooserDialogMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAppChooserDialogMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAppChooserDialogMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserDialogMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAppChooserDialogMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAppChooserDialogMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAppChooserDialogMethod "stick" o = Gtk.Window.WindowStickMethodInfo + ResolveAppChooserDialogMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAppChooserDialogMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAppChooserDialogMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAppChooserDialogMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAppChooserDialogMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserDialogMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserDialogMethod "unfullscreen" o = Gtk.Window.WindowUnfullscreenMethodInfo + ResolveAppChooserDialogMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAppChooserDialogMethod "unmaximize" o = Gtk.Window.WindowUnmaximizeMethodInfo + ResolveAppChooserDialogMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAppChooserDialogMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAppChooserDialogMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAppChooserDialogMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAppChooserDialogMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveAppChooserDialogMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserDialogMethod "unstick" o = Gtk.Window.WindowUnstickMethodInfo + ResolveAppChooserDialogMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAppChooserDialogMethod "getAcceptFocus" o = Gtk.Window.WindowGetAcceptFocusMethodInfo + ResolveAppChooserDialogMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAppChooserDialogMethod "getActionArea" o = Gtk.Dialog.DialogGetActionAreaMethodInfo + ResolveAppChooserDialogMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAppChooserDialogMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserDialogMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserDialogMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAppChooserDialogMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserDialogMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAppChooserDialogMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAppChooserDialogMethod "getAppInfo" o = Gtk.AppChooser.AppChooserGetAppInfoMethodInfo + ResolveAppChooserDialogMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAppChooserDialogMethod "getApplication" o = Gtk.Window.WindowGetApplicationMethodInfo + ResolveAppChooserDialogMethod "getAttachedTo" o = Gtk.Window.WindowGetAttachedToMethodInfo + ResolveAppChooserDialogMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveAppChooserDialogMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAppChooserDialogMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAppChooserDialogMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveAppChooserDialogMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAppChooserDialogMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAppChooserDialogMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveAppChooserDialogMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAppChooserDialogMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAppChooserDialogMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAppChooserDialogMethod "getContentArea" o = Gtk.Dialog.DialogGetContentAreaMethodInfo + ResolveAppChooserDialogMethod "getContentType" o = Gtk.AppChooser.AppChooserGetContentTypeMethodInfo + ResolveAppChooserDialogMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAppChooserDialogMethod "getDecorated" o = Gtk.Window.WindowGetDecoratedMethodInfo + ResolveAppChooserDialogMethod "getDefaultSize" o = Gtk.Window.WindowGetDefaultSizeMethodInfo + ResolveAppChooserDialogMethod "getDefaultWidget" o = Gtk.Window.WindowGetDefaultWidgetMethodInfo + ResolveAppChooserDialogMethod "getDeletable" o = Gtk.Window.WindowGetDeletableMethodInfo + ResolveAppChooserDialogMethod "getDestroyWithParent" o = Gtk.Window.WindowGetDestroyWithParentMethodInfo + ResolveAppChooserDialogMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserDialogMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAppChooserDialogMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAppChooserDialogMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAppChooserDialogMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserDialogMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAppChooserDialogMethod "getFocus" o = Gtk.Window.WindowGetFocusMethodInfo + ResolveAppChooserDialogMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveAppChooserDialogMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveAppChooserDialogMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveAppChooserDialogMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAppChooserDialogMethod "getFocusOnMap" o = Gtk.Window.WindowGetFocusOnMapMethodInfo + ResolveAppChooserDialogMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveAppChooserDialogMethod "getFocusVisible" o = Gtk.Window.WindowGetFocusVisibleMethodInfo + ResolveAppChooserDialogMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAppChooserDialogMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAppChooserDialogMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAppChooserDialogMethod "getGravity" o = Gtk.Window.WindowGetGravityMethodInfo + ResolveAppChooserDialogMethod "getGroup" o = Gtk.Window.WindowGetGroupMethodInfo + ResolveAppChooserDialogMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAppChooserDialogMethod "getHasResizeGrip" o = Gtk.Window.WindowGetHasResizeGripMethodInfo + ResolveAppChooserDialogMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAppChooserDialogMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAppChooserDialogMethod "getHeaderBar" o = Gtk.Dialog.DialogGetHeaderBarMethodInfo + ResolveAppChooserDialogMethod "getHeading" o = AppChooserDialogGetHeadingMethodInfo + ResolveAppChooserDialogMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAppChooserDialogMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAppChooserDialogMethod "getHideTitlebarWhenMaximized" o = Gtk.Window.WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveAppChooserDialogMethod "getIcon" o = Gtk.Window.WindowGetIconMethodInfo + ResolveAppChooserDialogMethod "getIconList" o = Gtk.Window.WindowGetIconListMethodInfo + ResolveAppChooserDialogMethod "getIconName" o = Gtk.Window.WindowGetIconNameMethodInfo + ResolveAppChooserDialogMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAppChooserDialogMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAppChooserDialogMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAppChooserDialogMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAppChooserDialogMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAppChooserDialogMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAppChooserDialogMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAppChooserDialogMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAppChooserDialogMethod "getMnemonicModifier" o = Gtk.Window.WindowGetMnemonicModifierMethodInfo + ResolveAppChooserDialogMethod "getMnemonicsVisible" o = Gtk.Window.WindowGetMnemonicsVisibleMethodInfo + ResolveAppChooserDialogMethod "getModal" o = Gtk.Window.WindowGetModalMethodInfo + ResolveAppChooserDialogMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAppChooserDialogMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAppChooserDialogMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAppChooserDialogMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAppChooserDialogMethod "getOpacity" o = Gtk.Window.WindowGetOpacityMethodInfo + ResolveAppChooserDialogMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAppChooserDialogMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAppChooserDialogMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAppChooserDialogMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAppChooserDialogMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveAppChooserDialogMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAppChooserDialogMethod "getPosition" o = Gtk.Window.WindowGetPositionMethodInfo + ResolveAppChooserDialogMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAppChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserDialogMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserDialogMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAppChooserDialogMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAppChooserDialogMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserDialogMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAppChooserDialogMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAppChooserDialogMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAppChooserDialogMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserDialogMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAppChooserDialogMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAppChooserDialogMethod "getResizable" o = Gtk.Window.WindowGetResizableMethodInfo + ResolveAppChooserDialogMethod "getResizeGripArea" o = Gtk.Window.WindowGetResizeGripAreaMethodInfo + ResolveAppChooserDialogMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveAppChooserDialogMethod "getResponseForWidget" o = Gtk.Dialog.DialogGetResponseForWidgetMethodInfo + ResolveAppChooserDialogMethod "getRole" o = Gtk.Window.WindowGetRoleMethodInfo + ResolveAppChooserDialogMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAppChooserDialogMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAppChooserDialogMethod "getScreen" o = Gtk.Window.WindowGetScreenMethodInfo + ResolveAppChooserDialogMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAppChooserDialogMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAppChooserDialogMethod "getSize" o = Gtk.Window.WindowGetSizeMethodInfo + ResolveAppChooserDialogMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAppChooserDialogMethod "getSkipPagerHint" o = Gtk.Window.WindowGetSkipPagerHintMethodInfo + ResolveAppChooserDialogMethod "getSkipTaskbarHint" o = Gtk.Window.WindowGetSkipTaskbarHintMethodInfo + ResolveAppChooserDialogMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAppChooserDialogMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAppChooserDialogMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAppChooserDialogMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAppChooserDialogMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserDialogMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAppChooserDialogMethod "getTitle" o = Gtk.Window.WindowGetTitleMethodInfo + ResolveAppChooserDialogMethod "getTitlebar" o = Gtk.Window.WindowGetTitlebarMethodInfo + ResolveAppChooserDialogMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserDialogMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAppChooserDialogMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAppChooserDialogMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAppChooserDialogMethod "getTransientFor" o = Gtk.Window.WindowGetTransientForMethodInfo + ResolveAppChooserDialogMethod "getTypeHint" o = Gtk.Window.WindowGetTypeHintMethodInfo + ResolveAppChooserDialogMethod "getUrgencyHint" o = Gtk.Window.WindowGetUrgencyHintMethodInfo + ResolveAppChooserDialogMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAppChooserDialogMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserDialogMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAppChooserDialogMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAppChooserDialogMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAppChooserDialogMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAppChooserDialogMethod "getWidget" o = AppChooserDialogGetWidgetMethodInfo + ResolveAppChooserDialogMethod "getWidgetForResponse" o = Gtk.Dialog.DialogGetWidgetForResponseMethodInfo + ResolveAppChooserDialogMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAppChooserDialogMethod "getWindowType" o = Gtk.Window.WindowGetWindowTypeMethodInfo + ResolveAppChooserDialogMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAppChooserDialogMethod "setAcceptFocus" o = Gtk.Window.WindowSetAcceptFocusMethodInfo + ResolveAppChooserDialogMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAppChooserDialogMethod "setAlternativeButtonOrderFromArray" o = Gtk.Dialog.DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveAppChooserDialogMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAppChooserDialogMethod "setApplication" o = Gtk.Window.WindowSetApplicationMethodInfo + ResolveAppChooserDialogMethod "setAttachedTo" o = Gtk.Window.WindowSetAttachedToMethodInfo + ResolveAppChooserDialogMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveAppChooserDialogMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserDialogMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAppChooserDialogMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAppChooserDialogMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAppChooserDialogMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAppChooserDialogMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAppChooserDialogMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAppChooserDialogMethod "setDecorated" o = Gtk.Window.WindowSetDecoratedMethodInfo + ResolveAppChooserDialogMethod "setDefault" o = Gtk.Window.WindowSetDefaultMethodInfo + ResolveAppChooserDialogMethod "setDefaultGeometry" o = Gtk.Window.WindowSetDefaultGeometryMethodInfo + ResolveAppChooserDialogMethod "setDefaultResponse" o = Gtk.Dialog.DialogSetDefaultResponseMethodInfo + ResolveAppChooserDialogMethod "setDefaultSize" o = Gtk.Window.WindowSetDefaultSizeMethodInfo + ResolveAppChooserDialogMethod "setDeletable" o = Gtk.Window.WindowSetDeletableMethodInfo + ResolveAppChooserDialogMethod "setDestroyWithParent" o = Gtk.Window.WindowSetDestroyWithParentMethodInfo + ResolveAppChooserDialogMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserDialogMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAppChooserDialogMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAppChooserDialogMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserDialogMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAppChooserDialogMethod "setFocus" o = Gtk.Window.WindowSetFocusMethodInfo + ResolveAppChooserDialogMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveAppChooserDialogMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveAppChooserDialogMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveAppChooserDialogMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAppChooserDialogMethod "setFocusOnMap" o = Gtk.Window.WindowSetFocusOnMapMethodInfo + ResolveAppChooserDialogMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveAppChooserDialogMethod "setFocusVisible" o = Gtk.Window.WindowSetFocusVisibleMethodInfo + ResolveAppChooserDialogMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAppChooserDialogMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAppChooserDialogMethod "setGeometryHints" o = Gtk.Window.WindowSetGeometryHintsMethodInfo + ResolveAppChooserDialogMethod "setGravity" o = Gtk.Window.WindowSetGravityMethodInfo + ResolveAppChooserDialogMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAppChooserDialogMethod "setHasResizeGrip" o = Gtk.Window.WindowSetHasResizeGripMethodInfo + ResolveAppChooserDialogMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAppChooserDialogMethod "setHasUserRefCount" o = Gtk.Window.WindowSetHasUserRefCountMethodInfo + ResolveAppChooserDialogMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAppChooserDialogMethod "setHeading" o = AppChooserDialogSetHeadingMethodInfo + ResolveAppChooserDialogMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAppChooserDialogMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAppChooserDialogMethod "setHideTitlebarWhenMaximized" o = Gtk.Window.WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveAppChooserDialogMethod "setIcon" o = Gtk.Window.WindowSetIconMethodInfo + ResolveAppChooserDialogMethod "setIconFromFile" o = Gtk.Window.WindowSetIconFromFileMethodInfo + ResolveAppChooserDialogMethod "setIconList" o = Gtk.Window.WindowSetIconListMethodInfo + ResolveAppChooserDialogMethod "setIconName" o = Gtk.Window.WindowSetIconNameMethodInfo + ResolveAppChooserDialogMethod "setKeepAbove" o = Gtk.Window.WindowSetKeepAboveMethodInfo + ResolveAppChooserDialogMethod "setKeepBelow" o = Gtk.Window.WindowSetKeepBelowMethodInfo + ResolveAppChooserDialogMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAppChooserDialogMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAppChooserDialogMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAppChooserDialogMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAppChooserDialogMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAppChooserDialogMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAppChooserDialogMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAppChooserDialogMethod "setMnemonicModifier" o = Gtk.Window.WindowSetMnemonicModifierMethodInfo + ResolveAppChooserDialogMethod "setMnemonicsVisible" o = Gtk.Window.WindowSetMnemonicsVisibleMethodInfo + ResolveAppChooserDialogMethod "setModal" o = Gtk.Window.WindowSetModalMethodInfo + ResolveAppChooserDialogMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAppChooserDialogMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAppChooserDialogMethod "setOpacity" o = Gtk.Window.WindowSetOpacityMethodInfo + ResolveAppChooserDialogMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAppChooserDialogMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAppChooserDialogMethod "setPosition" o = Gtk.Window.WindowSetPositionMethodInfo + ResolveAppChooserDialogMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAppChooserDialogMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAppChooserDialogMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveAppChooserDialogMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserDialogMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserDialogMethod "setResizable" o = Gtk.Window.WindowSetResizableMethodInfo + ResolveAppChooserDialogMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveAppChooserDialogMethod "setResponseSensitive" o = Gtk.Dialog.DialogSetResponseSensitiveMethodInfo + ResolveAppChooserDialogMethod "setRole" o = Gtk.Window.WindowSetRoleMethodInfo + ResolveAppChooserDialogMethod "setScreen" o = Gtk.Window.WindowSetScreenMethodInfo + ResolveAppChooserDialogMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAppChooserDialogMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAppChooserDialogMethod "setSkipPagerHint" o = Gtk.Window.WindowSetSkipPagerHintMethodInfo + ResolveAppChooserDialogMethod "setSkipTaskbarHint" o = Gtk.Window.WindowSetSkipTaskbarHintMethodInfo + ResolveAppChooserDialogMethod "setStartupId" o = Gtk.Window.WindowSetStartupIdMethodInfo + ResolveAppChooserDialogMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAppChooserDialogMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAppChooserDialogMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAppChooserDialogMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserDialogMethod "setTitle" o = Gtk.Window.WindowSetTitleMethodInfo + ResolveAppChooserDialogMethod "setTitlebar" o = Gtk.Window.WindowSetTitlebarMethodInfo + ResolveAppChooserDialogMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserDialogMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAppChooserDialogMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAppChooserDialogMethod "setTransientFor" o = Gtk.Window.WindowSetTransientForMethodInfo + ResolveAppChooserDialogMethod "setTypeHint" o = Gtk.Window.WindowSetTypeHintMethodInfo + ResolveAppChooserDialogMethod "setUrgencyHint" o = Gtk.Window.WindowSetUrgencyHintMethodInfo + ResolveAppChooserDialogMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAppChooserDialogMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAppChooserDialogMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAppChooserDialogMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAppChooserDialogMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAppChooserDialogMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAppChooserDialogMethod "setWmclass" o = Gtk.Window.WindowSetWmclassMethodInfo + ResolveAppChooserDialogMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserDialogMethod t AppChooserDialog, O.MethodInfo info AppChooserDialog p) => OL.IsLabel t (AppChooserDialog -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- VVV Prop "gfile" + -- Type: TInterface (Name {namespace = "Gio", name = "File"}) + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@gfile@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserDialog #gfile +@ +-} +getAppChooserDialogGfile :: (MonadIO m, IsAppChooserDialog o) => o -> m (Maybe Gio.File.File) +getAppChooserDialogGfile obj = liftIO $ B.Properties.getObjectPropertyObject obj "gfile" Gio.File.File + +{- | +Construct a `GValueConstruct` with valid value for the “@gfile@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserDialogGfile :: (IsAppChooserDialog o, Gio.File.IsFile a) => a -> IO (GValueConstruct o) +constructAppChooserDialogGfile val = B.Properties.constructObjectPropertyObject "gfile" (Just val) + +#if ENABLE_OVERLOADING +data AppChooserDialogGfilePropertyInfo +instance AttrInfo AppChooserDialogGfilePropertyInfo where + type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AppChooserDialogGfilePropertyInfo = Gio.File.IsFile + type AttrBaseTypeConstraint AppChooserDialogGfilePropertyInfo = IsAppChooserDialog + type AttrGetType AppChooserDialogGfilePropertyInfo = (Maybe Gio.File.File) + type AttrLabel AppChooserDialogGfilePropertyInfo = "gfile" + type AttrOrigin AppChooserDialogGfilePropertyInfo = AppChooserDialog + attrGet _ = getAppChooserDialogGfile + attrSet _ = undefined + attrConstruct _ = constructAppChooserDialogGfile + attrClear _ = undefined +#endif + +-- VVV Prop "heading" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just False) + +{- | +Get the value of the “@heading@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserDialog #heading +@ +-} +getAppChooserDialogHeading :: (MonadIO m, IsAppChooserDialog o) => o -> m (Maybe T.Text) +getAppChooserDialogHeading obj = liftIO $ B.Properties.getObjectPropertyString obj "heading" + +{- | +Set the value of the “@heading@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserDialog [ #heading 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserDialogHeading :: (MonadIO m, IsAppChooserDialog o) => o -> T.Text -> m () +setAppChooserDialogHeading obj val = liftIO $ B.Properties.setObjectPropertyString obj "heading" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@heading@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserDialogHeading :: (IsAppChooserDialog o) => T.Text -> IO (GValueConstruct o) +constructAppChooserDialogHeading val = B.Properties.constructObjectPropertyString "heading" (Just val) + +#if ENABLE_OVERLOADING +data AppChooserDialogHeadingPropertyInfo +instance AttrInfo AppChooserDialogHeadingPropertyInfo where + type AttrAllowedOps AppChooserDialogHeadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserDialogHeadingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AppChooserDialogHeadingPropertyInfo = IsAppChooserDialog + type AttrGetType AppChooserDialogHeadingPropertyInfo = (Maybe T.Text) + type AttrLabel AppChooserDialogHeadingPropertyInfo = "heading" + type AttrOrigin AppChooserDialogHeadingPropertyInfo = AppChooserDialog + attrGet _ = getAppChooserDialogHeading + attrSet _ = setAppChooserDialogHeading + attrConstruct _ = constructAppChooserDialogHeading + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AppChooserDialog +type instance O.AttributeList AppChooserDialog = AppChooserDialogAttributeList +type AppChooserDialogAttributeList = ('[ '("acceptFocus", Gtk.Window.WindowAcceptFocusPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("application", Gtk.Window.WindowApplicationPropertyInfo), '("attachedTo", Gtk.Window.WindowAttachedToPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("contentType", Gtk.AppChooser.AppChooserContentTypePropertyInfo), '("decorated", Gtk.Window.WindowDecoratedPropertyInfo), '("defaultHeight", Gtk.Window.WindowDefaultHeightPropertyInfo), '("defaultWidth", Gtk.Window.WindowDefaultWidthPropertyInfo), '("deletable", Gtk.Window.WindowDeletablePropertyInfo), '("destroyWithParent", Gtk.Window.WindowDestroyWithParentPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusOnMap", Gtk.Window.WindowFocusOnMapPropertyInfo), '("focusVisible", Gtk.Window.WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", Gtk.Window.WindowGravityPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasResizeGrip", Gtk.Window.WindowHasResizeGripPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", Gtk.Window.WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", Gtk.Window.WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", Gtk.Window.WindowIconPropertyInfo), '("iconName", Gtk.Window.WindowIconNamePropertyInfo), '("isActive", Gtk.Window.WindowIsActivePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isMaximized", Gtk.Window.WindowIsMaximizedPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mnemonicsVisible", Gtk.Window.WindowMnemonicsVisiblePropertyInfo), '("modal", Gtk.Window.WindowModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizable", Gtk.Window.WindowResizablePropertyInfo), '("resizeGripVisible", Gtk.Window.WindowResizeGripVisiblePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("role", Gtk.Window.WindowRolePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("screen", Gtk.Window.WindowScreenPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("skipPagerHint", Gtk.Window.WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", Gtk.Window.WindowSkipTaskbarHintPropertyInfo), '("startupId", Gtk.Window.WindowStartupIdPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("title", Gtk.Window.WindowTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", Gtk.Window.WindowTransientForPropertyInfo), '("type", Gtk.Window.WindowTypePropertyInfo), '("typeHint", Gtk.Window.WindowTypeHintPropertyInfo), '("urgencyHint", Gtk.Window.WindowUrgencyHintPropertyInfo), '("useHeaderBar", Gtk.Dialog.DialogUseHeaderBarPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowPosition", Gtk.Window.WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +appChooserDialogGfile :: AttrLabelProxy "gfile" +appChooserDialogGfile = AttrLabelProxy + +appChooserDialogHeading :: AttrLabelProxy "heading" +appChooserDialogHeading = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList AppChooserDialog = AppChooserDialogSignalList +type AppChooserDialogSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateDefault", Gtk.Window.WindowActivateDefaultSignalInfo), '("activateFocus", Gtk.Window.WindowActivateFocusSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("close", Gtk.Dialog.DialogCloseSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enableDebugging", Gtk.Window.WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("keysChanged", Gtk.Window.WindowKeysChangedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("response", Gtk.Dialog.DialogResponseSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocus", Gtk.Window.WindowSetFocusSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AppChooserDialog::new +-- method type : Constructor +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkWindow, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gtk", name = "DialogFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags for this dialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AppChooserDialog"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_dialog_new" gtk_app_chooser_dialog_new :: + Ptr Gtk.Window.Window -> -- parent : TInterface (Name {namespace = "Gtk", name = "Window"}) + CUInt -> -- flags : TInterface (Name {namespace = "Gtk", name = "DialogFlags"}) + Ptr Gio.File.File -> -- file : TInterface (Name {namespace = "Gio", name = "File"}) + IO (Ptr AppChooserDialog) + +{- | +Creates a new 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' for the provided 'GI.Gio.Interfaces.File.File', +to allow the user to select an application for it. + +/Since: 3.0/ +-} +appChooserDialogNew :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a, Gio.File.IsFile b) => + Maybe (a) + {- ^ /@parent@/: a 'GI.Gtk.Objects.Window.Window', or 'Nothing' -} + -> [Gtk.Flags.DialogFlags] + {- ^ /@flags@/: flags for this dialog -} + -> b + {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -} + -> m AppChooserDialog + {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' -} +appChooserDialogNew parent flags file = liftIO $ do + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + jParent' <- unsafeManagedPtrCastPtr jParent + return jParent' + let flags' = gflagsToWord flags + file' <- unsafeManagedPtrCastPtr file + result <- gtk_app_chooser_dialog_new maybeParent flags' file' + checkUnexpectedReturnNULL "appChooserDialogNew" result + result' <- (newObject AppChooserDialog) result + whenJust parent touchManagedPtr + touchManagedPtr file + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AppChooserDialog::new_for_content_type +-- method type : Constructor +-- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkWindow, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gtk", name = "DialogFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags for this dialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 Gtk.Window.Window -> -- parent : TInterface (Name {namespace = "Gtk", name = "Window"}) + CUInt -> -- flags : TInterface (Name {namespace = "Gtk", name = "DialogFlags"}) + CString -> -- content_type : TBasicType TUTF8 + IO (Ptr AppChooserDialog) + +{- | +Creates a new 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' for the provided content type, +to allow the user to select an application for it. + +/Since: 3.0/ +-} +appChooserDialogNewForContentType :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) => + Maybe (a) + {- ^ /@parent@/: a 'GI.Gtk.Objects.Window.Window', or 'Nothing' -} + -> [Gtk.Flags.DialogFlags] + {- ^ /@flags@/: flags for this dialog -} + -> T.Text + {- ^ /@contentType@/: a content type string -} + -> m AppChooserDialog + {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' -} +appChooserDialogNewForContentType parent flags contentType = liftIO $ do + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + jParent' <- unsafeManagedPtrCastPtr jParent + return jParent' + let flags' = gflagsToWord flags + contentType' <- textToCString contentType + result <- gtk_app_chooser_dialog_new_for_content_type maybeParent flags' contentType' + checkUnexpectedReturnNULL "appChooserDialogNewForContentType" result + result' <- (newObject AppChooserDialog) result + whenJust parent touchManagedPtr + freeMem contentType' + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AppChooserDialog::get_heading +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_dialog_get_heading" gtk_app_chooser_dialog_get_heading :: + Ptr AppChooserDialog -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserDialog"}) + IO CString + +{- | +Returns the text to display at the top of the dialog. +-} +appChooserDialogGetHeading :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserDialog a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' -} + -> m (Maybe T.Text) + {- ^ __Returns:__ the text to display at the top of the dialog, or 'Nothing', in which + case a default text is displayed -} +appChooserDialogGetHeading self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_dialog_get_heading self' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + return result'' + touchManagedPtr self + return maybeResult + +#if ENABLE_OVERLOADING +data AppChooserDialogGetHeadingMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsAppChooserDialog a) => O.MethodInfo AppChooserDialogGetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserDialogGetHeading + +#endif + +-- method AppChooserDialog::get_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_dialog_get_widget" gtk_app_chooser_dialog_get_widget :: + Ptr AppChooserDialog -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserDialog"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Returns the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' of this dialog. + +/Since: 3.0/ +-} +appChooserDialogGetWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserDialog a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' -} + -> m Gtk.Widget.Widget + {- ^ __Returns:__ the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' of /@self@/ -} +appChooserDialogGetWidget self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_dialog_get_widget self' + checkUnexpectedReturnNULL "appChooserDialogGetWidget" result + result' <- (newObject Gtk.Widget.Widget) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserDialogGetWidgetMethodInfo +instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsAppChooserDialog a) => O.MethodInfo AppChooserDialogGetWidgetMethodInfo a signature where + overloadedMethod _ = appChooserDialogGetWidget + +#endif + +-- method AppChooserDialog::set_heading +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserDialog"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserDialog", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing Pango markup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_dialog_set_heading" gtk_app_chooser_dialog_set_heading :: + Ptr AppChooserDialog -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserDialog"}) + CString -> -- heading : TBasicType TUTF8 + IO () + +{- | +Sets the text to display at the top of the dialog. +If the heading is not set, the dialog displays a default text. +-} +appChooserDialogSetHeading :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserDialog a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog' -} + -> T.Text + {- ^ /@heading@/: a string containing Pango markup -} + -> m () +appChooserDialogSetHeading self heading = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + heading' <- textToCString heading + gtk_app_chooser_dialog_set_heading self' heading' + touchManagedPtr self + freeMem heading' + return () + +#if ENABLE_OVERLOADING +data AppChooserDialogSetHeadingMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppChooserDialog a) => O.MethodInfo AppChooserDialogSetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserDialogSetHeading + +#endif + + diff --git a/GI/Gtk/Objects/AppChooserDialog.hs-boot b/GI/Gtk/Objects/AppChooserDialog.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AppChooserDialog.hs-boot @@ -0,0 +1,44 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AppChooserDialog where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AppChooserDialog = AppChooserDialog (ManagedPtr AppChooserDialog) +instance GObject AppChooserDialog where +class (GObject o, O.IsDescendantOf AppChooserDialog o) => IsAppChooserDialog o +instance (GObject o, O.IsDescendantOf AppChooserDialog o) => IsAppChooserDialog o +instance O.HasParentTypes AppChooserDialog +#if ENABLE_OVERLOADING +data AppChooserDialogGfilePropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserDialogHeadingPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserDialogGetHeadingMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserDialogGetWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserDialogSetHeadingMethodInfo +#endif diff --git a/GI/Gtk/Objects/AppChooserWidget.hs b/GI/Gtk/Objects/AppChooserWidget.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AppChooserWidget.hs @@ -0,0 +1,1781 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' is a widget for selecting applications. +It is the main building block for 'GI.Gtk.Objects.AppChooserDialog.AppChooserDialog'. Most +applications only need to use the latter; but you can use +this widget as part of a larger widget if you have special needs. + +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' offers detailed control over what applications +are shown, using the +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-default/@, +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-recommended/@, +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-fallback/@, +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-other/@ and +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-all/@ +properties. See the 'GI.Gtk.Interfaces.AppChooser.AppChooser' documentation for more information +about these groups of applications. + +To keep track of the selected application, use the +'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget'::@/application-selected/@ and 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget'::@/application-activated/@ signals. + += CSS nodes + +GtkAppChooserWidget has a single CSS node with name appchooser. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AppChooserWidget + ( + +-- * Exported types + AppChooserWidget(..) , + IsAppChooserWidget , + toAppChooserWidget , + noAppChooserWidget , + + + -- * Methods +-- ** getDefaultText #method:getDefaultText# + +#if ENABLE_OVERLOADING + AppChooserWidgetGetDefaultTextMethodInfo, +#endif + appChooserWidgetGetDefaultText , + + +-- ** getShowAll #method:getShowAll# + +#if ENABLE_OVERLOADING + AppChooserWidgetGetShowAllMethodInfo , +#endif + appChooserWidgetGetShowAll , + + +-- ** getShowDefault #method:getShowDefault# + +#if ENABLE_OVERLOADING + AppChooserWidgetGetShowDefaultMethodInfo, +#endif + appChooserWidgetGetShowDefault , + + +-- ** getShowFallback #method:getShowFallback# + +#if ENABLE_OVERLOADING + AppChooserWidgetGetShowFallbackMethodInfo, +#endif + appChooserWidgetGetShowFallback , + + +-- ** getShowOther #method:getShowOther# + +#if ENABLE_OVERLOADING + AppChooserWidgetGetShowOtherMethodInfo , +#endif + appChooserWidgetGetShowOther , + + +-- ** getShowRecommended #method:getShowRecommended# + +#if ENABLE_OVERLOADING + AppChooserWidgetGetShowRecommendedMethodInfo, +#endif + appChooserWidgetGetShowRecommended , + + +-- ** new #method:new# + + appChooserWidgetNew , + + +-- ** setDefaultText #method:setDefaultText# + +#if ENABLE_OVERLOADING + AppChooserWidgetSetDefaultTextMethodInfo, +#endif + appChooserWidgetSetDefaultText , + + +-- ** setShowAll #method:setShowAll# + +#if ENABLE_OVERLOADING + AppChooserWidgetSetShowAllMethodInfo , +#endif + appChooserWidgetSetShowAll , + + +-- ** setShowDefault #method:setShowDefault# + +#if ENABLE_OVERLOADING + AppChooserWidgetSetShowDefaultMethodInfo, +#endif + appChooserWidgetSetShowDefault , + + +-- ** setShowFallback #method:setShowFallback# + +#if ENABLE_OVERLOADING + AppChooserWidgetSetShowFallbackMethodInfo, +#endif + appChooserWidgetSetShowFallback , + + +-- ** setShowOther #method:setShowOther# + +#if ENABLE_OVERLOADING + AppChooserWidgetSetShowOtherMethodInfo , +#endif + appChooserWidgetSetShowOther , + + +-- ** setShowRecommended #method:setShowRecommended# + +#if ENABLE_OVERLOADING + AppChooserWidgetSetShowRecommendedMethodInfo, +#endif + appChooserWidgetSetShowRecommended , + + + + + -- * Properties +-- ** defaultText #attr:defaultText# +{- | The 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/default-text/@ property determines the text +that appears in the widget when there are no applications for the +given content type. +See also 'GI.Gtk.Objects.AppChooserWidget.appChooserWidgetSetDefaultText'. +-} +#if ENABLE_OVERLOADING + AppChooserWidgetDefaultTextPropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserWidgetDefaultText , +#endif + constructAppChooserWidgetDefaultText , + getAppChooserWidgetDefaultText , + setAppChooserWidgetDefaultText , + + +-- ** showAll #attr:showAll# +{- | If the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-all/@ property is 'True', the app +chooser presents all applications in a single list, without +subsections for default, recommended or related applications. +-} +#if ENABLE_OVERLOADING + AppChooserWidgetShowAllPropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserWidgetShowAll , +#endif + constructAppChooserWidgetShowAll , + getAppChooserWidgetShowAll , + setAppChooserWidgetShowAll , + + +-- ** showDefault #attr:showDefault# +{- | The ::show-default property determines whether the app chooser +should show the default handler for the content type in a +separate section. If 'False', the default handler is listed +among the recommended applications. +-} +#if ENABLE_OVERLOADING + AppChooserWidgetShowDefaultPropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserWidgetShowDefault , +#endif + constructAppChooserWidgetShowDefault , + getAppChooserWidgetShowDefault , + setAppChooserWidgetShowDefault , + + +-- ** showFallback #attr:showFallback# +{- | The 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-fallback/@ property determines whether +the app chooser should show a section for fallback applications. +If 'False', the fallback applications are listed among the other +applications. +-} +#if ENABLE_OVERLOADING + AppChooserWidgetShowFallbackPropertyInfo, +#endif +#if ENABLE_OVERLOADING + appChooserWidgetShowFallback , +#endif + constructAppChooserWidgetShowFallback , + getAppChooserWidgetShowFallback , + setAppChooserWidgetShowFallback , + + +-- ** showOther #attr:showOther# +{- | The 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-other/@ property determines whether +the app chooser should show a section for other applications. +-} +#if ENABLE_OVERLOADING + AppChooserWidgetShowOtherPropertyInfo , +#endif +#if ENABLE_OVERLOADING + appChooserWidgetShowOther , +#endif + constructAppChooserWidgetShowOther , + getAppChooserWidgetShowOther , + setAppChooserWidgetShowOther , + + +-- ** showRecommended #attr:showRecommended# +{- | The 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-recommended/@ property determines +whether the app chooser should show a section for recommended +applications. If 'False', the recommended applications are listed +among the other applications. +-} +#if ENABLE_OVERLOADING + AppChooserWidgetShowRecommendedPropertyInfo, +#endif +#if ENABLE_OVERLOADING + appChooserWidgetShowRecommended , +#endif + constructAppChooserWidgetShowRecommended, + getAppChooserWidgetShowRecommended , + setAppChooserWidgetShowRecommended , + + + + + -- * Signals +-- ** applicationActivated #signal:applicationActivated# + + AppChooserWidgetApplicationActivatedCallback, +#if ENABLE_OVERLOADING + AppChooserWidgetApplicationActivatedSignalInfo, +#endif + C_AppChooserWidgetApplicationActivatedCallback, + afterAppChooserWidgetApplicationActivated, + genClosure_AppChooserWidgetApplicationActivated, + mk_AppChooserWidgetApplicationActivatedCallback, + noAppChooserWidgetApplicationActivatedCallback, + onAppChooserWidgetApplicationActivated , + wrap_AppChooserWidgetApplicationActivatedCallback, + + +-- ** applicationSelected #signal:applicationSelected# + + AppChooserWidgetApplicationSelectedCallback, +#if ENABLE_OVERLOADING + AppChooserWidgetApplicationSelectedSignalInfo, +#endif + C_AppChooserWidgetApplicationSelectedCallback, + afterAppChooserWidgetApplicationSelected, + genClosure_AppChooserWidgetApplicationSelected, + mk_AppChooserWidgetApplicationSelectedCallback, + noAppChooserWidgetApplicationSelectedCallback, + onAppChooserWidgetApplicationSelected , + wrap_AppChooserWidgetApplicationSelectedCallback, + + +-- ** populatePopup #signal:populatePopup# + + AppChooserWidgetPopulatePopupCallback , +#if ENABLE_OVERLOADING + AppChooserWidgetPopulatePopupSignalInfo , +#endif + C_AppChooserWidgetPopulatePopupCallback , + afterAppChooserWidgetPopulatePopup , + genClosure_AppChooserWidgetPopulatePopup, + mk_AppChooserWidgetPopulatePopupCallback, + noAppChooserWidgetPopulatePopupCallback , + onAppChooserWidgetPopulatePopup , + wrap_AppChooserWidgetPopulatePopupCallback, + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AppChooser as Gtk.AppChooser +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Box as Gtk.Box +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Menu as Gtk.Menu +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype AppChooserWidget = AppChooserWidget (ManagedPtr AppChooserWidget) +foreign import ccall "gtk_app_chooser_widget_get_type" + c_gtk_app_chooser_widget_get_type :: IO GType + +instance GObject AppChooserWidget where + gobjectType = c_gtk_app_chooser_widget_get_type + + +-- | Type class for types which can be safely cast to `AppChooserWidget`, for instance with `toAppChooserWidget`. +class (GObject o, O.IsDescendantOf AppChooserWidget o) => IsAppChooserWidget o +instance (GObject o, O.IsDescendantOf AppChooserWidget o) => IsAppChooserWidget o + +instance O.HasParentTypes AppChooserWidget +type instance O.ParentTypes AppChooserWidget = '[Gtk.Box.Box, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.AppChooser.AppChooser, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable] + +-- | Cast to `AppChooserWidget`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAppChooserWidget :: (MonadIO m, IsAppChooserWidget o) => o -> m AppChooserWidget +toAppChooserWidget = liftIO . unsafeCastTo AppChooserWidget + +-- | A convenience alias for `Nothing` :: `Maybe` `AppChooserWidget`. +noAppChooserWidget :: Maybe AppChooserWidget +noAppChooserWidget = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAppChooserWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserWidgetMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAppChooserWidgetMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveAppChooserWidgetMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAppChooserWidgetMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAppChooserWidgetMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAppChooserWidgetMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAppChooserWidgetMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserWidgetMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAppChooserWidgetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAppChooserWidgetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAppChooserWidgetMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAppChooserWidgetMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveAppChooserWidgetMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAppChooserWidgetMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveAppChooserWidgetMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveAppChooserWidgetMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveAppChooserWidgetMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveAppChooserWidgetMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveAppChooserWidgetMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAppChooserWidgetMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAppChooserWidgetMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAppChooserWidgetMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAppChooserWidgetMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserWidgetMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAppChooserWidgetMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAppChooserWidgetMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAppChooserWidgetMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAppChooserWidgetMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAppChooserWidgetMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserWidgetMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAppChooserWidgetMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserWidgetMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAppChooserWidgetMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAppChooserWidgetMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserWidgetMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAppChooserWidgetMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAppChooserWidgetMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserWidgetMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAppChooserWidgetMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAppChooserWidgetMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAppChooserWidgetMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAppChooserWidgetMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAppChooserWidgetMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAppChooserWidgetMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAppChooserWidgetMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAppChooserWidgetMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAppChooserWidgetMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveAppChooserWidgetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAppChooserWidgetMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveAppChooserWidgetMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserWidgetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAppChooserWidgetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAppChooserWidgetMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAppChooserWidgetMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAppChooserWidgetMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAppChooserWidgetMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAppChooserWidgetMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAppChooserWidgetMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAppChooserWidgetMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAppChooserWidgetMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAppChooserWidgetMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAppChooserWidgetMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAppChooserWidgetMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAppChooserWidgetMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAppChooserWidgetMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAppChooserWidgetMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAppChooserWidgetMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserWidgetMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAppChooserWidgetMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAppChooserWidgetMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAppChooserWidgetMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAppChooserWidgetMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAppChooserWidgetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAppChooserWidgetMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAppChooserWidgetMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAppChooserWidgetMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAppChooserWidgetMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAppChooserWidgetMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAppChooserWidgetMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAppChooserWidgetMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAppChooserWidgetMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserWidgetMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAppChooserWidgetMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveAppChooserWidgetMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAppChooserWidgetMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAppChooserWidgetMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAppChooserWidgetMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAppChooserWidgetMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAppChooserWidgetMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAppChooserWidgetMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAppChooserWidgetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAppChooserWidgetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAppChooserWidgetMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserWidgetMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAppChooserWidgetMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAppChooserWidgetMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAppChooserWidgetMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserWidgetMethod "packEnd" o = Gtk.Box.BoxPackEndMethodInfo + ResolveAppChooserWidgetMethod "packStart" o = Gtk.Box.BoxPackStartMethodInfo + ResolveAppChooserWidgetMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAppChooserWidgetMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAppChooserWidgetMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveAppChooserWidgetMethod "queryChildPacking" o = Gtk.Box.BoxQueryChildPackingMethodInfo + ResolveAppChooserWidgetMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAppChooserWidgetMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAppChooserWidgetMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAppChooserWidgetMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAppChooserWidgetMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAppChooserWidgetMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAppChooserWidgetMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserWidgetMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAppChooserWidgetMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAppChooserWidgetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAppChooserWidgetMethod "refresh" o = Gtk.AppChooser.AppChooserRefreshMethodInfo + ResolveAppChooserWidgetMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAppChooserWidgetMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAppChooserWidgetMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveAppChooserWidgetMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserWidgetMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserWidgetMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserWidgetMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAppChooserWidgetMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAppChooserWidgetMethod "reorderChild" o = Gtk.Box.BoxReorderChildMethodInfo + ResolveAppChooserWidgetMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAppChooserWidgetMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAppChooserWidgetMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAppChooserWidgetMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveAppChooserWidgetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAppChooserWidgetMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAppChooserWidgetMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAppChooserWidgetMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAppChooserWidgetMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAppChooserWidgetMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAppChooserWidgetMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAppChooserWidgetMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAppChooserWidgetMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserWidgetMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAppChooserWidgetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAppChooserWidgetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAppChooserWidgetMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAppChooserWidgetMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAppChooserWidgetMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAppChooserWidgetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAppChooserWidgetMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserWidgetMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserWidgetMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAppChooserWidgetMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAppChooserWidgetMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAppChooserWidgetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAppChooserWidgetMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAppChooserWidgetMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveAppChooserWidgetMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserWidgetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAppChooserWidgetMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAppChooserWidgetMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAppChooserWidgetMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserWidgetMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserWidgetMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAppChooserWidgetMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserWidgetMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAppChooserWidgetMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAppChooserWidgetMethod "getAppInfo" o = Gtk.AppChooser.AppChooserGetAppInfoMethodInfo + ResolveAppChooserWidgetMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAppChooserWidgetMethod "getBaselinePosition" o = Gtk.Box.BoxGetBaselinePositionMethodInfo + ResolveAppChooserWidgetMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveAppChooserWidgetMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAppChooserWidgetMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAppChooserWidgetMethod "getCenterWidget" o = Gtk.Box.BoxGetCenterWidgetMethodInfo + ResolveAppChooserWidgetMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAppChooserWidgetMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAppChooserWidgetMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveAppChooserWidgetMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAppChooserWidgetMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAppChooserWidgetMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAppChooserWidgetMethod "getContentType" o = Gtk.AppChooser.AppChooserGetContentTypeMethodInfo + ResolveAppChooserWidgetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAppChooserWidgetMethod "getDefaultText" o = AppChooserWidgetGetDefaultTextMethodInfo + ResolveAppChooserWidgetMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserWidgetMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAppChooserWidgetMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAppChooserWidgetMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAppChooserWidgetMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserWidgetMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAppChooserWidgetMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveAppChooserWidgetMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveAppChooserWidgetMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveAppChooserWidgetMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAppChooserWidgetMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveAppChooserWidgetMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAppChooserWidgetMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAppChooserWidgetMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAppChooserWidgetMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAppChooserWidgetMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAppChooserWidgetMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAppChooserWidgetMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAppChooserWidgetMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAppChooserWidgetMethod "getHomogeneous" o = Gtk.Box.BoxGetHomogeneousMethodInfo + ResolveAppChooserWidgetMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAppChooserWidgetMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAppChooserWidgetMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAppChooserWidgetMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAppChooserWidgetMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAppChooserWidgetMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAppChooserWidgetMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAppChooserWidgetMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAppChooserWidgetMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAppChooserWidgetMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAppChooserWidgetMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAppChooserWidgetMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAppChooserWidgetMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveAppChooserWidgetMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo + ResolveAppChooserWidgetMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAppChooserWidgetMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAppChooserWidgetMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAppChooserWidgetMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAppChooserWidgetMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveAppChooserWidgetMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAppChooserWidgetMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAppChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserWidgetMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserWidgetMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAppChooserWidgetMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAppChooserWidgetMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserWidgetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAppChooserWidgetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAppChooserWidgetMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAppChooserWidgetMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserWidgetMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAppChooserWidgetMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAppChooserWidgetMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveAppChooserWidgetMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAppChooserWidgetMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAppChooserWidgetMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveAppChooserWidgetMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAppChooserWidgetMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAppChooserWidgetMethod "getShowAll" o = AppChooserWidgetGetShowAllMethodInfo + ResolveAppChooserWidgetMethod "getShowDefault" o = AppChooserWidgetGetShowDefaultMethodInfo + ResolveAppChooserWidgetMethod "getShowFallback" o = AppChooserWidgetGetShowFallbackMethodInfo + ResolveAppChooserWidgetMethod "getShowOther" o = AppChooserWidgetGetShowOtherMethodInfo + ResolveAppChooserWidgetMethod "getShowRecommended" o = AppChooserWidgetGetShowRecommendedMethodInfo + ResolveAppChooserWidgetMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAppChooserWidgetMethod "getSpacing" o = Gtk.Box.BoxGetSpacingMethodInfo + ResolveAppChooserWidgetMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAppChooserWidgetMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAppChooserWidgetMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAppChooserWidgetMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAppChooserWidgetMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserWidgetMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAppChooserWidgetMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserWidgetMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAppChooserWidgetMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAppChooserWidgetMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAppChooserWidgetMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAppChooserWidgetMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserWidgetMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAppChooserWidgetMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAppChooserWidgetMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAppChooserWidgetMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAppChooserWidgetMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAppChooserWidgetMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAppChooserWidgetMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAppChooserWidgetMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAppChooserWidgetMethod "setBaselinePosition" o = Gtk.Box.BoxSetBaselinePositionMethodInfo + ResolveAppChooserWidgetMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveAppChooserWidgetMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserWidgetMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAppChooserWidgetMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAppChooserWidgetMethod "setCenterWidget" o = Gtk.Box.BoxSetCenterWidgetMethodInfo + ResolveAppChooserWidgetMethod "setChildPacking" o = Gtk.Box.BoxSetChildPackingMethodInfo + ResolveAppChooserWidgetMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAppChooserWidgetMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAppChooserWidgetMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAppChooserWidgetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAppChooserWidgetMethod "setDefaultText" o = AppChooserWidgetSetDefaultTextMethodInfo + ResolveAppChooserWidgetMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserWidgetMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAppChooserWidgetMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAppChooserWidgetMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserWidgetMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAppChooserWidgetMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveAppChooserWidgetMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveAppChooserWidgetMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveAppChooserWidgetMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAppChooserWidgetMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveAppChooserWidgetMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAppChooserWidgetMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAppChooserWidgetMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAppChooserWidgetMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAppChooserWidgetMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAppChooserWidgetMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAppChooserWidgetMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAppChooserWidgetMethod "setHomogeneous" o = Gtk.Box.BoxSetHomogeneousMethodInfo + ResolveAppChooserWidgetMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAppChooserWidgetMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAppChooserWidgetMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAppChooserWidgetMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAppChooserWidgetMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAppChooserWidgetMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAppChooserWidgetMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAppChooserWidgetMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAppChooserWidgetMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAppChooserWidgetMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveAppChooserWidgetMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo + ResolveAppChooserWidgetMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAppChooserWidgetMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAppChooserWidgetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAppChooserWidgetMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAppChooserWidgetMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveAppChooserWidgetMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserWidgetMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserWidgetMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveAppChooserWidgetMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAppChooserWidgetMethod "setShowAll" o = AppChooserWidgetSetShowAllMethodInfo + ResolveAppChooserWidgetMethod "setShowDefault" o = AppChooserWidgetSetShowDefaultMethodInfo + ResolveAppChooserWidgetMethod "setShowFallback" o = AppChooserWidgetSetShowFallbackMethodInfo + ResolveAppChooserWidgetMethod "setShowOther" o = AppChooserWidgetSetShowOtherMethodInfo + ResolveAppChooserWidgetMethod "setShowRecommended" o = AppChooserWidgetSetShowRecommendedMethodInfo + ResolveAppChooserWidgetMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAppChooserWidgetMethod "setSpacing" o = Gtk.Box.BoxSetSpacingMethodInfo + ResolveAppChooserWidgetMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAppChooserWidgetMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAppChooserWidgetMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAppChooserWidgetMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserWidgetMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserWidgetMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAppChooserWidgetMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAppChooserWidgetMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAppChooserWidgetMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAppChooserWidgetMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAppChooserWidgetMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAppChooserWidgetMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAppChooserWidgetMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAppChooserWidgetMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, O.MethodInfo info AppChooserWidget p) => OL.IsLabel t (AppChooserWidget -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal AppChooserWidget::application-activated +{- | +Emitted when an application item is activated from the widget\'s list. + +This usually happens when the user double clicks an item, or an item +is selected and the user presses one of the keys Space, Shift+Space, +Return or Enter. +-} +type AppChooserWidgetApplicationActivatedCallback = + Gio.AppInfo.AppInfo + {- ^ /@application@/: the activated 'GI.Gio.Interfaces.AppInfo.AppInfo' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AppChooserWidgetApplicationActivatedCallback`@. +noAppChooserWidgetApplicationActivatedCallback :: Maybe AppChooserWidgetApplicationActivatedCallback +noAppChooserWidgetApplicationActivatedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AppChooserWidgetApplicationActivatedCallback = + Ptr () -> -- object + Ptr Gio.AppInfo.AppInfo -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AppChooserWidgetApplicationActivatedCallback`. +foreign import ccall "wrapper" + mk_AppChooserWidgetApplicationActivatedCallback :: C_AppChooserWidgetApplicationActivatedCallback -> IO (FunPtr C_AppChooserWidgetApplicationActivatedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AppChooserWidgetApplicationActivated :: MonadIO m => AppChooserWidgetApplicationActivatedCallback -> m (GClosure C_AppChooserWidgetApplicationActivatedCallback) +genClosure_AppChooserWidgetApplicationActivated cb = liftIO $ do + let cb' = wrap_AppChooserWidgetApplicationActivatedCallback cb + mk_AppChooserWidgetApplicationActivatedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AppChooserWidgetApplicationActivatedCallback` into a `C_AppChooserWidgetApplicationActivatedCallback`. +wrap_AppChooserWidgetApplicationActivatedCallback :: + AppChooserWidgetApplicationActivatedCallback -> + C_AppChooserWidgetApplicationActivatedCallback +wrap_AppChooserWidgetApplicationActivatedCallback _cb _ application _ = do + application' <- (newObject Gio.AppInfo.AppInfo) application + _cb application' + + +{- | +Connect a signal handler for the “@application-activated@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' appChooserWidget #applicationActivated callback +@ +-} +onAppChooserWidgetApplicationActivated :: (IsAppChooserWidget a, MonadIO m) => a -> AppChooserWidgetApplicationActivatedCallback -> m SignalHandlerId +onAppChooserWidgetApplicationActivated obj cb = liftIO $ do + let cb' = wrap_AppChooserWidgetApplicationActivatedCallback cb + cb'' <- mk_AppChooserWidgetApplicationActivatedCallback cb' + connectSignalFunPtr obj "application-activated" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@application-activated@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' appChooserWidget #applicationActivated callback +@ +-} +afterAppChooserWidgetApplicationActivated :: (IsAppChooserWidget a, MonadIO m) => a -> AppChooserWidgetApplicationActivatedCallback -> m SignalHandlerId +afterAppChooserWidgetApplicationActivated obj cb = liftIO $ do + let cb' = wrap_AppChooserWidgetApplicationActivatedCallback cb + cb'' <- mk_AppChooserWidgetApplicationActivatedCallback cb' + connectSignalFunPtr obj "application-activated" cb'' SignalConnectAfter + + +-- signal AppChooserWidget::application-selected +{- | +Emitted when an application item is selected from the widget\'s list. +-} +type AppChooserWidgetApplicationSelectedCallback = + Gio.AppInfo.AppInfo + {- ^ /@application@/: the selected 'GI.Gio.Interfaces.AppInfo.AppInfo' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AppChooserWidgetApplicationSelectedCallback`@. +noAppChooserWidgetApplicationSelectedCallback :: Maybe AppChooserWidgetApplicationSelectedCallback +noAppChooserWidgetApplicationSelectedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AppChooserWidgetApplicationSelectedCallback = + Ptr () -> -- object + Ptr Gio.AppInfo.AppInfo -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AppChooserWidgetApplicationSelectedCallback`. +foreign import ccall "wrapper" + mk_AppChooserWidgetApplicationSelectedCallback :: C_AppChooserWidgetApplicationSelectedCallback -> IO (FunPtr C_AppChooserWidgetApplicationSelectedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AppChooserWidgetApplicationSelected :: MonadIO m => AppChooserWidgetApplicationSelectedCallback -> m (GClosure C_AppChooserWidgetApplicationSelectedCallback) +genClosure_AppChooserWidgetApplicationSelected cb = liftIO $ do + let cb' = wrap_AppChooserWidgetApplicationSelectedCallback cb + mk_AppChooserWidgetApplicationSelectedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AppChooserWidgetApplicationSelectedCallback` into a `C_AppChooserWidgetApplicationSelectedCallback`. +wrap_AppChooserWidgetApplicationSelectedCallback :: + AppChooserWidgetApplicationSelectedCallback -> + C_AppChooserWidgetApplicationSelectedCallback +wrap_AppChooserWidgetApplicationSelectedCallback _cb _ application _ = do + application' <- (newObject Gio.AppInfo.AppInfo) application + _cb application' + + +{- | +Connect a signal handler for the “@application-selected@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' appChooserWidget #applicationSelected callback +@ +-} +onAppChooserWidgetApplicationSelected :: (IsAppChooserWidget a, MonadIO m) => a -> AppChooserWidgetApplicationSelectedCallback -> m SignalHandlerId +onAppChooserWidgetApplicationSelected obj cb = liftIO $ do + let cb' = wrap_AppChooserWidgetApplicationSelectedCallback cb + cb'' <- mk_AppChooserWidgetApplicationSelectedCallback cb' + connectSignalFunPtr obj "application-selected" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@application-selected@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' appChooserWidget #applicationSelected callback +@ +-} +afterAppChooserWidgetApplicationSelected :: (IsAppChooserWidget a, MonadIO m) => a -> AppChooserWidgetApplicationSelectedCallback -> m SignalHandlerId +afterAppChooserWidgetApplicationSelected obj cb = liftIO $ do + let cb' = wrap_AppChooserWidgetApplicationSelectedCallback cb + cb'' <- mk_AppChooserWidgetApplicationSelectedCallback cb' + connectSignalFunPtr obj "application-selected" cb'' SignalConnectAfter + + +-- signal AppChooserWidget::populate-popup +{- | +Emitted when a context menu is about to popup over an application item. +Clients can insert menu items into the provided 'GI.Gtk.Objects.Menu.Menu' object in the +callback of this signal; the context menu will be shown over the item +if at least one item has been added to the menu. +-} +type AppChooserWidgetPopulatePopupCallback = + Gtk.Menu.Menu + {- ^ /@menu@/: the 'GI.Gtk.Objects.Menu.Menu' to populate -} + -> Gio.AppInfo.AppInfo + {- ^ /@application@/: the current 'GI.Gio.Interfaces.AppInfo.AppInfo' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AppChooserWidgetPopulatePopupCallback`@. +noAppChooserWidgetPopulatePopupCallback :: Maybe AppChooserWidgetPopulatePopupCallback +noAppChooserWidgetPopulatePopupCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AppChooserWidgetPopulatePopupCallback = + Ptr () -> -- object + Ptr Gtk.Menu.Menu -> + Ptr Gio.AppInfo.AppInfo -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AppChooserWidgetPopulatePopupCallback`. +foreign import ccall "wrapper" + mk_AppChooserWidgetPopulatePopupCallback :: C_AppChooserWidgetPopulatePopupCallback -> IO (FunPtr C_AppChooserWidgetPopulatePopupCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AppChooserWidgetPopulatePopup :: MonadIO m => AppChooserWidgetPopulatePopupCallback -> m (GClosure C_AppChooserWidgetPopulatePopupCallback) +genClosure_AppChooserWidgetPopulatePopup cb = liftIO $ do + let cb' = wrap_AppChooserWidgetPopulatePopupCallback cb + mk_AppChooserWidgetPopulatePopupCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AppChooserWidgetPopulatePopupCallback` into a `C_AppChooserWidgetPopulatePopupCallback`. +wrap_AppChooserWidgetPopulatePopupCallback :: + AppChooserWidgetPopulatePopupCallback -> + C_AppChooserWidgetPopulatePopupCallback +wrap_AppChooserWidgetPopulatePopupCallback _cb _ menu application _ = do + menu' <- (newObject Gtk.Menu.Menu) menu + application' <- (newObject Gio.AppInfo.AppInfo) application + _cb menu' application' + + +{- | +Connect a signal handler for the “@populate-popup@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' appChooserWidget #populatePopup callback +@ +-} +onAppChooserWidgetPopulatePopup :: (IsAppChooserWidget a, MonadIO m) => a -> AppChooserWidgetPopulatePopupCallback -> m SignalHandlerId +onAppChooserWidgetPopulatePopup obj cb = liftIO $ do + let cb' = wrap_AppChooserWidgetPopulatePopupCallback cb + cb'' <- mk_AppChooserWidgetPopulatePopupCallback cb' + connectSignalFunPtr obj "populate-popup" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@populate-popup@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' appChooserWidget #populatePopup callback +@ +-} +afterAppChooserWidgetPopulatePopup :: (IsAppChooserWidget a, MonadIO m) => a -> AppChooserWidgetPopulatePopupCallback -> m SignalHandlerId +afterAppChooserWidgetPopulatePopup obj cb = liftIO $ do + let cb' = wrap_AppChooserWidgetPopulatePopupCallback cb + cb'' <- mk_AppChooserWidgetPopulatePopupCallback cb' + connectSignalFunPtr obj "populate-popup" cb'' SignalConnectAfter + + +-- VVV Prop "default-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@default-text@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserWidget #defaultText +@ +-} +getAppChooserWidgetDefaultText :: (MonadIO m, IsAppChooserWidget o) => o -> m T.Text +getAppChooserWidgetDefaultText obj = liftIO $ checkUnexpectedNothing "getAppChooserWidgetDefaultText" $ B.Properties.getObjectPropertyString obj "default-text" + +{- | +Set the value of the “@default-text@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserWidget [ #defaultText 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserWidgetDefaultText :: (MonadIO m, IsAppChooserWidget o) => o -> T.Text -> m () +setAppChooserWidgetDefaultText obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-text" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@default-text@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserWidgetDefaultText :: (IsAppChooserWidget o) => T.Text -> IO (GValueConstruct o) +constructAppChooserWidgetDefaultText val = B.Properties.constructObjectPropertyString "default-text" (Just val) + +#if ENABLE_OVERLOADING +data AppChooserWidgetDefaultTextPropertyInfo +instance AttrInfo AppChooserWidgetDefaultTextPropertyInfo where + type AttrAllowedOps AppChooserWidgetDefaultTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = IsAppChooserWidget + type AttrGetType AppChooserWidgetDefaultTextPropertyInfo = T.Text + type AttrLabel AppChooserWidgetDefaultTextPropertyInfo = "default-text" + type AttrOrigin AppChooserWidgetDefaultTextPropertyInfo = AppChooserWidget + attrGet _ = getAppChooserWidgetDefaultText + attrSet _ = setAppChooserWidgetDefaultText + attrConstruct _ = constructAppChooserWidgetDefaultText + attrClear _ = undefined +#endif + +-- VVV Prop "show-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-all@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserWidget #showAll +@ +-} +getAppChooserWidgetShowAll :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool +getAppChooserWidgetShowAll obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-all" + +{- | +Set the value of the “@show-all@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserWidget [ #showAll 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserWidgetShowAll :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m () +setAppChooserWidgetShowAll obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-all" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-all@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserWidgetShowAll :: (IsAppChooserWidget o) => Bool -> IO (GValueConstruct o) +constructAppChooserWidgetShowAll val = B.Properties.constructObjectPropertyBool "show-all" val + +#if ENABLE_OVERLOADING +data AppChooserWidgetShowAllPropertyInfo +instance AttrInfo AppChooserWidgetShowAllPropertyInfo where + type AttrAllowedOps AppChooserWidgetShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserWidgetShowAllPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AppChooserWidgetShowAllPropertyInfo = IsAppChooserWidget + type AttrGetType AppChooserWidgetShowAllPropertyInfo = Bool + type AttrLabel AppChooserWidgetShowAllPropertyInfo = "show-all" + type AttrOrigin AppChooserWidgetShowAllPropertyInfo = AppChooserWidget + attrGet _ = getAppChooserWidgetShowAll + attrSet _ = setAppChooserWidgetShowAll + attrConstruct _ = constructAppChooserWidgetShowAll + attrClear _ = undefined +#endif + +-- VVV Prop "show-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-default@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserWidget #showDefault +@ +-} +getAppChooserWidgetShowDefault :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool +getAppChooserWidgetShowDefault obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-default" + +{- | +Set the value of the “@show-default@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserWidget [ #showDefault 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserWidgetShowDefault :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m () +setAppChooserWidgetShowDefault obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-default" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-default@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserWidgetShowDefault :: (IsAppChooserWidget o) => Bool -> IO (GValueConstruct o) +constructAppChooserWidgetShowDefault val = B.Properties.constructObjectPropertyBool "show-default" val + +#if ENABLE_OVERLOADING +data AppChooserWidgetShowDefaultPropertyInfo +instance AttrInfo AppChooserWidgetShowDefaultPropertyInfo where + type AttrAllowedOps AppChooserWidgetShowDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = IsAppChooserWidget + type AttrGetType AppChooserWidgetShowDefaultPropertyInfo = Bool + type AttrLabel AppChooserWidgetShowDefaultPropertyInfo = "show-default" + type AttrOrigin AppChooserWidgetShowDefaultPropertyInfo = AppChooserWidget + attrGet _ = getAppChooserWidgetShowDefault + attrSet _ = setAppChooserWidgetShowDefault + attrConstruct _ = constructAppChooserWidgetShowDefault + attrClear _ = undefined +#endif + +-- VVV Prop "show-fallback" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-fallback@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserWidget #showFallback +@ +-} +getAppChooserWidgetShowFallback :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool +getAppChooserWidgetShowFallback obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-fallback" + +{- | +Set the value of the “@show-fallback@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserWidget [ #showFallback 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserWidgetShowFallback :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m () +setAppChooserWidgetShowFallback obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-fallback" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-fallback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserWidgetShowFallback :: (IsAppChooserWidget o) => Bool -> IO (GValueConstruct o) +constructAppChooserWidgetShowFallback val = B.Properties.constructObjectPropertyBool "show-fallback" val + +#if ENABLE_OVERLOADING +data AppChooserWidgetShowFallbackPropertyInfo +instance AttrInfo AppChooserWidgetShowFallbackPropertyInfo where + type AttrAllowedOps AppChooserWidgetShowFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = IsAppChooserWidget + type AttrGetType AppChooserWidgetShowFallbackPropertyInfo = Bool + type AttrLabel AppChooserWidgetShowFallbackPropertyInfo = "show-fallback" + type AttrOrigin AppChooserWidgetShowFallbackPropertyInfo = AppChooserWidget + attrGet _ = getAppChooserWidgetShowFallback + attrSet _ = setAppChooserWidgetShowFallback + attrConstruct _ = constructAppChooserWidgetShowFallback + attrClear _ = undefined +#endif + +-- VVV Prop "show-other" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-other@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserWidget #showOther +@ +-} +getAppChooserWidgetShowOther :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool +getAppChooserWidgetShowOther obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-other" + +{- | +Set the value of the “@show-other@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserWidget [ #showOther 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserWidgetShowOther :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m () +setAppChooserWidgetShowOther obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-other" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-other@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserWidgetShowOther :: (IsAppChooserWidget o) => Bool -> IO (GValueConstruct o) +constructAppChooserWidgetShowOther val = B.Properties.constructObjectPropertyBool "show-other" val + +#if ENABLE_OVERLOADING +data AppChooserWidgetShowOtherPropertyInfo +instance AttrInfo AppChooserWidgetShowOtherPropertyInfo where + type AttrAllowedOps AppChooserWidgetShowOtherPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserWidgetShowOtherPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AppChooserWidgetShowOtherPropertyInfo = IsAppChooserWidget + type AttrGetType AppChooserWidgetShowOtherPropertyInfo = Bool + type AttrLabel AppChooserWidgetShowOtherPropertyInfo = "show-other" + type AttrOrigin AppChooserWidgetShowOtherPropertyInfo = AppChooserWidget + attrGet _ = getAppChooserWidgetShowOther + attrSet _ = setAppChooserWidgetShowOther + attrConstruct _ = constructAppChooserWidgetShowOther + attrClear _ = undefined +#endif + +-- VVV Prop "show-recommended" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-recommended@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' appChooserWidget #showRecommended +@ +-} +getAppChooserWidgetShowRecommended :: (MonadIO m, IsAppChooserWidget o) => o -> m Bool +getAppChooserWidgetShowRecommended obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-recommended" + +{- | +Set the value of the “@show-recommended@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' appChooserWidget [ #showRecommended 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAppChooserWidgetShowRecommended :: (MonadIO m, IsAppChooserWidget o) => o -> Bool -> m () +setAppChooserWidgetShowRecommended obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-recommended" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-recommended@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAppChooserWidgetShowRecommended :: (IsAppChooserWidget o) => Bool -> IO (GValueConstruct o) +constructAppChooserWidgetShowRecommended val = B.Properties.constructObjectPropertyBool "show-recommended" val + +#if ENABLE_OVERLOADING +data AppChooserWidgetShowRecommendedPropertyInfo +instance AttrInfo AppChooserWidgetShowRecommendedPropertyInfo where + type AttrAllowedOps AppChooserWidgetShowRecommendedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = IsAppChooserWidget + type AttrGetType AppChooserWidgetShowRecommendedPropertyInfo = Bool + type AttrLabel AppChooserWidgetShowRecommendedPropertyInfo = "show-recommended" + type AttrOrigin AppChooserWidgetShowRecommendedPropertyInfo = AppChooserWidget + attrGet _ = getAppChooserWidgetShowRecommended + attrSet _ = setAppChooserWidgetShowRecommended + attrConstruct _ = constructAppChooserWidgetShowRecommended + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AppChooserWidget +type instance O.AttributeList AppChooserWidget = AppChooserWidgetAttributeList +type AppChooserWidgetAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("baselinePosition", Gtk.Box.BoxBaselinePositionPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("contentType", Gtk.AppChooser.AppChooserContentTypePropertyInfo), '("defaultText", AppChooserWidgetDefaultTextPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("homogeneous", Gtk.Box.BoxHomogeneousPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showAll", AppChooserWidgetShowAllPropertyInfo), '("showDefault", AppChooserWidgetShowDefaultPropertyInfo), '("showFallback", AppChooserWidgetShowFallbackPropertyInfo), '("showOther", AppChooserWidgetShowOtherPropertyInfo), '("showRecommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", Gtk.Box.BoxSpacingPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +appChooserWidgetDefaultText :: AttrLabelProxy "defaultText" +appChooserWidgetDefaultText = AttrLabelProxy + +appChooserWidgetShowAll :: AttrLabelProxy "showAll" +appChooserWidgetShowAll = AttrLabelProxy + +appChooserWidgetShowDefault :: AttrLabelProxy "showDefault" +appChooserWidgetShowDefault = AttrLabelProxy + +appChooserWidgetShowFallback :: AttrLabelProxy "showFallback" +appChooserWidgetShowFallback = AttrLabelProxy + +appChooserWidgetShowOther :: AttrLabelProxy "showOther" +appChooserWidgetShowOther = AttrLabelProxy + +appChooserWidgetShowRecommended :: AttrLabelProxy "showRecommended" +appChooserWidgetShowRecommended = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data AppChooserWidgetApplicationActivatedSignalInfo +instance SignalInfo AppChooserWidgetApplicationActivatedSignalInfo where + type HaskellCallbackType AppChooserWidgetApplicationActivatedSignalInfo = AppChooserWidgetApplicationActivatedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AppChooserWidgetApplicationActivatedCallback cb + cb'' <- mk_AppChooserWidgetApplicationActivatedCallback cb' + connectSignalFunPtr obj "application-activated" cb'' connectMode + +data AppChooserWidgetApplicationSelectedSignalInfo +instance SignalInfo AppChooserWidgetApplicationSelectedSignalInfo where + type HaskellCallbackType AppChooserWidgetApplicationSelectedSignalInfo = AppChooserWidgetApplicationSelectedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AppChooserWidgetApplicationSelectedCallback cb + cb'' <- mk_AppChooserWidgetApplicationSelectedCallback cb' + connectSignalFunPtr obj "application-selected" cb'' connectMode + +data AppChooserWidgetPopulatePopupSignalInfo +instance SignalInfo AppChooserWidgetPopulatePopupSignalInfo where + type HaskellCallbackType AppChooserWidgetPopulatePopupSignalInfo = AppChooserWidgetPopulatePopupCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AppChooserWidgetPopulatePopupCallback cb + cb'' <- mk_AppChooserWidgetPopulatePopupCallback cb' + connectSignalFunPtr obj "populate-popup" cb'' connectMode + +type instance O.SignalList AppChooserWidget = AppChooserWidgetSignalList +type AppChooserWidgetSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("applicationActivated", AppChooserWidgetApplicationActivatedSignalInfo), '("applicationSelected", AppChooserWidgetApplicationSelectedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("populatePopup", AppChooserWidgetPopulatePopupSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AppChooserWidget::new +-- method type : Constructor +-- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type to show applications for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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) + +{- | +Creates a new 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' for applications +that can handle content of the given type. + +/Since: 3.0/ +-} +appChooserWidgetNew :: + (B.CallStack.HasCallStack, MonadIO m) => + T.Text + {- ^ /@contentType@/: the content type to show applications for -} + -> m AppChooserWidget + {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} +appChooserWidgetNew contentType = liftIO $ do + contentType' <- textToCString contentType + result <- gtk_app_chooser_widget_new contentType' + checkUnexpectedReturnNULL "appChooserWidgetNew" result + result' <- (newObject AppChooserWidget) result + freeMem contentType' + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AppChooserWidget::get_default_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_get_default_text" gtk_app_chooser_widget_get_default_text :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + IO CString + +{- | +Returns the text that is shown if there are not applications +that can handle the content type. + +/Since: 3.0/ +-} +appChooserWidgetGetDefaultText :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> m T.Text + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/default-text/@ -} +appChooserWidgetGetDefaultText self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_widget_get_default_text self' + checkUnexpectedReturnNULL "appChooserWidgetGetDefaultText" result + result' <- cstringToText result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserWidgetGetDefaultTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetGetDefaultTextMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetDefaultText + +#endif + +-- method AppChooserWidget::get_show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_get_show_all" gtk_app_chooser_widget_get_show_all :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + IO CInt + +{- | +Returns the current value of the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-all/@ +property. + +/Since: 3.0/ +-} +appChooserWidgetGetShowAll :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> m Bool + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-all/@ -} +appChooserWidgetGetShowAll self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_widget_get_show_all self' + let result' = (/= 0) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowAllMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetGetShowAllMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowAll + +#endif + +-- method AppChooserWidget::get_show_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_get_show_default" gtk_app_chooser_widget_get_show_default :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + IO CInt + +{- | +Returns the current value of the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-default/@ +property. + +/Since: 3.0/ +-} +appChooserWidgetGetShowDefault :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> m Bool + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-default/@ -} +appChooserWidgetGetShowDefault self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_widget_get_show_default self' + let result' = (/= 0) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetGetShowDefaultMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowDefault + +#endif + +-- method AppChooserWidget::get_show_fallback +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_get_show_fallback" gtk_app_chooser_widget_get_show_fallback :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + IO CInt + +{- | +Returns the current value of the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-fallback/@ +property. + +/Since: 3.0/ +-} +appChooserWidgetGetShowFallback :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> m Bool + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-fallback/@ -} +appChooserWidgetGetShowFallback self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_widget_get_show_fallback self' + let result' = (/= 0) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowFallbackMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetGetShowFallbackMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowFallback + +#endif + +-- method AppChooserWidget::get_show_other +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_get_show_other" gtk_app_chooser_widget_get_show_other :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + IO CInt + +{- | +Returns the current value of the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-other/@ +property. + +/Since: 3.0/ +-} +appChooserWidgetGetShowOther :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> m Bool + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-other/@ -} +appChooserWidgetGetShowOther self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_widget_get_show_other self' + let result' = (/= 0) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowOtherMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetGetShowOtherMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowOther + +#endif + +-- method AppChooserWidget::get_show_recommended +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_get_show_recommended" gtk_app_chooser_widget_get_show_recommended :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + IO CInt + +{- | +Returns the current value of the 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-recommended/@ +property. + +/Since: 3.0/ +-} +appChooserWidgetGetShowRecommended :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> m Bool + {- ^ __Returns:__ the value of 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-recommended/@ -} +appChooserWidgetGetShowRecommended self = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + result <- gtk_app_chooser_widget_get_show_recommended self' + let result' = (/= 0) result + touchManagedPtr self + return result' + +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowRecommendedMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetGetShowRecommendedMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowRecommended + +#endif + +-- method AppChooserWidget::set_default_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserWidget:default-text", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_set_default_text" gtk_app_chooser_widget_set_default_text :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + CString -> -- text : TBasicType TUTF8 + IO () + +{- | +Sets the text that is shown if there are not applications +that can handle the content type. +-} +appChooserWidgetSetDefaultText :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> T.Text + {- ^ /@text@/: the new value for 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/default-text/@ -} + -> m () +appChooserWidgetSetDefaultText self text = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + text' <- textToCString text + gtk_app_chooser_widget_set_default_text self' text' + touchManagedPtr self + freeMem text' + return () + +#if ENABLE_OVERLOADING +data AppChooserWidgetSetDefaultTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetSetDefaultTextMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetDefaultText + +#endif + +-- method AppChooserWidget::set_show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserWidget:show-all", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_set_show_all" gtk_app_chooser_widget_set_show_all :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + CInt -> -- setting : TBasicType TBoolean + IO () + +{- | +Sets whether the app chooser should show all applications +in a flat list. + +/Since: 3.0/ +-} +appChooserWidgetSetShowAll :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> Bool + {- ^ /@setting@/: the new value for 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-all/@ -} + -> m () +appChooserWidgetSetShowAll self setting = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + let setting' = (fromIntegral . fromEnum) setting + gtk_app_chooser_widget_set_show_all self' setting' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowAllMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetSetShowAllMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowAll + +#endif + +-- method AppChooserWidget::set_show_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserWidget:show-default", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_set_show_default" gtk_app_chooser_widget_set_show_default :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + CInt -> -- setting : TBasicType TBoolean + IO () + +{- | +Sets whether the app chooser should show the default handler +for the content type in a separate section. + +/Since: 3.0/ +-} +appChooserWidgetSetShowDefault :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> Bool + {- ^ /@setting@/: the new value for 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-default/@ -} + -> m () +appChooserWidgetSetShowDefault self setting = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + let setting' = (fromIntegral . fromEnum) setting + gtk_app_chooser_widget_set_show_default self' setting' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowDefaultMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetSetShowDefaultMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowDefault + +#endif + +-- method AppChooserWidget::set_show_fallback +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserWidget:show-fallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_set_show_fallback" gtk_app_chooser_widget_set_show_fallback :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + CInt -> -- setting : TBasicType TBoolean + IO () + +{- | +Sets whether the app chooser should show related applications +for the content type in a separate section. + +/Since: 3.0/ +-} +appChooserWidgetSetShowFallback :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> Bool + {- ^ /@setting@/: the new value for 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-fallback/@ -} + -> m () +appChooserWidgetSetShowFallback self setting = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + let setting' = (fromIntegral . fromEnum) setting + gtk_app_chooser_widget_set_show_fallback self' setting' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowFallbackMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetSetShowFallbackMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowFallback + +#endif + +-- method AppChooserWidget::set_show_other +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserWidget:show-other", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_set_show_other" gtk_app_chooser_widget_set_show_other :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + CInt -> -- setting : TBasicType TBoolean + IO () + +{- | +Sets whether the app chooser should show applications +which are unrelated to the content type. + +/Since: 3.0/ +-} +appChooserWidgetSetShowOther :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> Bool + {- ^ /@setting@/: the new value for 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-other/@ -} + -> m () +appChooserWidgetSetShowOther self setting = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + let setting' = (fromIntegral . fromEnum) setting + gtk_app_chooser_widget_set_show_other self' setting' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowOtherMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetSetShowOtherMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowOther + +#endif + +-- method AppChooserWidget::set_show_recommended +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAppChooserWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for #GtkAppChooserWidget:show-recommended", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_app_chooser_widget_set_show_recommended" gtk_app_chooser_widget_set_show_recommended :: + Ptr AppChooserWidget -> -- self : TInterface (Name {namespace = "Gtk", name = "AppChooserWidget"}) + CInt -> -- setting : TBasicType TBoolean + IO () + +{- | +Sets whether the app chooser should show recommended applications +for the content type in a separate section. + +/Since: 3.0/ +-} +appChooserWidgetSetShowRecommended :: + (B.CallStack.HasCallStack, MonadIO m, IsAppChooserWidget a) => + a + {- ^ /@self@/: a 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget' -} + -> Bool + {- ^ /@setting@/: the new value for 'GI.Gtk.Objects.AppChooserWidget.AppChooserWidget':@/show-recommended/@ -} + -> m () +appChooserWidgetSetShowRecommended self setting = liftIO $ do + self' <- unsafeManagedPtrCastPtr self + let setting' = (fromIntegral . fromEnum) setting + gtk_app_chooser_widget_set_show_recommended self' setting' + touchManagedPtr self + return () + +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowRecommendedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsAppChooserWidget a) => O.MethodInfo AppChooserWidgetSetShowRecommendedMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowRecommended + +#endif + + diff --git a/GI/Gtk/Objects/AppChooserWidget.hs-boot b/GI/Gtk/Objects/AppChooserWidget.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AppChooserWidget.hs-boot @@ -0,0 +1,92 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AppChooserWidget where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AppChooserWidget = AppChooserWidget (ManagedPtr AppChooserWidget) +instance GObject AppChooserWidget where +class (GObject o, O.IsDescendantOf AppChooserWidget o) => IsAppChooserWidget o +instance (GObject o, O.IsDescendantOf AppChooserWidget o) => IsAppChooserWidget o +instance O.HasParentTypes AppChooserWidget +#if ENABLE_OVERLOADING +data AppChooserWidgetDefaultTextPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetShowAllPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetShowDefaultPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetShowFallbackPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetShowOtherPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetShowRecommendedPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetApplicationActivatedSignalInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetApplicationSelectedSignalInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetPopulatePopupSignalInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetGetDefaultTextMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowAllMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowDefaultMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowFallbackMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowOtherMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetGetShowRecommendedMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetSetDefaultTextMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowAllMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowDefaultMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowFallbackMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowOtherMethodInfo +#endif +#if ENABLE_OVERLOADING +data AppChooserWidgetSetShowRecommendedMethodInfo +#endif diff --git a/GI/Gtk/Objects/Application.hs b/GI/Gtk/Objects/Application.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Application.hs @@ -0,0 +1,2169 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Objects.Application.Application' is a class that handles many important aspects +of a GTK+ application in a convenient fashion, without enforcing +a one-size-fits-all application model. + +Currently, GtkApplication handles GTK+ initialization, application +uniqueness, session management, provides some basic scriptability and +desktop shell integration by exporting actions and menus and manages a +list of toplevel windows whose life-cycle is automatically tied to the +life-cycle of your application. + +While GtkApplication works fine with plain @/GtkWindows/@, it is recommended +to use it together with 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow'. + +When GDK threads are enabled, GtkApplication will acquire the GDK +lock when invoking actions that arrive from other processes. The GDK +lock is not touched for local action invocations. In order to have +actions invoked in a predictable context it is therefore recommended +that the GDK lock be held while invoking actions locally with +'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction'. The same applies to actions +associated with 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' and to the “activate” and +“open” 'GI.Gio.Objects.Application.Application' methods. + +## Automatic resources ## {@/automatic/@-resources} + +'GI.Gtk.Objects.Application.Application' will automatically load menus from the 'GI.Gtk.Objects.Builder.Builder' +resource located at \"gtk\/menus.ui\", relative to the application\'s +resource base path (see 'GI.Gio.Objects.Application.applicationSetResourceBasePath'). The +menu with the ID \"app-menu\" is taken as the application\'s app menu +and the menu with the ID \"menubar\" is taken as the application\'s +menubar. Additional menus (most interesting submenus) can be named +and accessed via 'GI.Gtk.Objects.Application.applicationGetMenuById' which allows for +dynamic population of a part of the menu structure. + +If the resources \"gtk\/menus-appmenu.ui\" or \"gtk\/menus-traditional.ui\" are +present then these files will be used in preference, depending on the value +of 'GI.Gtk.Objects.Application.applicationPrefersAppMenu'. If the resource \"gtk\/menus-common.ui\" +is present it will be loaded as well. This is useful for storing items that +are referenced from both \"gtk\/menus-appmenu.ui\" and +\"gtk\/menus-traditional.ui\". + +It is also possible to provide the menus manually using +'GI.Gtk.Objects.Application.applicationSetAppMenu' and 'GI.Gtk.Objects.Application.applicationSetMenubar'. + +'GI.Gtk.Objects.Application.Application' will also automatically setup an icon search path for +the default icon theme by appending \"icons\" to the resource base +path. This allows your application to easily store its icons as +resources. See 'GI.Gtk.Objects.IconTheme.iconThemeAddResourcePath' for more +information. + +If there is a resource located at \"gtk\/help-overlay.ui\" which +defines a 'GI.Gtk.Objects.ShortcutsWindow.ShortcutsWindow' with ID \"help_overlay\" then GtkApplication +associates an instance of this shortcuts window with each +'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' and sets up keyboard accelerators (Control-F1 +and Control-?) to open it. To create a menu item that displays the +shortcuts window, associate the item with the action win.show-help-overlay. + +## A simple application ## {@/gtkapplication/@} + + + +GtkApplication optionally registers with a session manager +of the users session (if you set the 'GI.Gtk.Objects.Application.Application':@/register-session/@ +property) and offers various functionality related to the session +life-cycle. + +An application can block various ways to end the session with +the 'GI.Gtk.Objects.Application.applicationInhibit' function. Typical use cases for +this kind of inhibiting are long-running, uninterruptible operations, +such as burning a CD or performing a disk backup. The session +manager may not honor the inhibitor, but it can be expected to +inform the user about the negative consequences of ending the +session while inhibitors are present. + +## See Also ## {@/seealso/@} +, + +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Application + ( + +-- * Exported types + Application(..) , + IsApplication , + toApplication , + noApplication , + + + -- * Methods +-- ** addAccelerator #method:addAccelerator# + +#if ENABLE_OVERLOADING + ApplicationAddAcceleratorMethodInfo , +#endif + applicationAddAccelerator , + + +-- ** addWindow #method:addWindow# + +#if ENABLE_OVERLOADING + ApplicationAddWindowMethodInfo , +#endif + applicationAddWindow , + + +-- ** getAccelsForAction #method:getAccelsForAction# + +#if ENABLE_OVERLOADING + ApplicationGetAccelsForActionMethodInfo , +#endif + applicationGetAccelsForAction , + + +-- ** getActionsForAccel #method:getActionsForAccel# + +#if ENABLE_OVERLOADING + ApplicationGetActionsForAccelMethodInfo , +#endif + applicationGetActionsForAccel , + + +-- ** getActiveWindow #method:getActiveWindow# + +#if ENABLE_OVERLOADING + ApplicationGetActiveWindowMethodInfo , +#endif + applicationGetActiveWindow , + + +-- ** getAppMenu #method:getAppMenu# + +#if ENABLE_OVERLOADING + ApplicationGetAppMenuMethodInfo , +#endif + applicationGetAppMenu , + + +-- ** getMenuById #method:getMenuById# + +#if ENABLE_OVERLOADING + ApplicationGetMenuByIdMethodInfo , +#endif + applicationGetMenuById , + + +-- ** getMenubar #method:getMenubar# + +#if ENABLE_OVERLOADING + ApplicationGetMenubarMethodInfo , +#endif + applicationGetMenubar , + + +-- ** getWindowById #method:getWindowById# + +#if ENABLE_OVERLOADING + ApplicationGetWindowByIdMethodInfo , +#endif + applicationGetWindowById , + + +-- ** getWindows #method:getWindows# + +#if ENABLE_OVERLOADING + ApplicationGetWindowsMethodInfo , +#endif + applicationGetWindows , + + +-- ** inhibit #method:inhibit# + +#if ENABLE_OVERLOADING + ApplicationInhibitMethodInfo , +#endif + applicationInhibit , + + +-- ** isInhibited #method:isInhibited# + +#if ENABLE_OVERLOADING + ApplicationIsInhibitedMethodInfo , +#endif + applicationIsInhibited , + + +-- ** listActionDescriptions #method:listActionDescriptions# + +#if ENABLE_OVERLOADING + ApplicationListActionDescriptionsMethodInfo, +#endif + applicationListActionDescriptions , + + +-- ** new #method:new# + + applicationNew , + + +-- ** prefersAppMenu #method:prefersAppMenu# + +#if ENABLE_OVERLOADING + ApplicationPrefersAppMenuMethodInfo , +#endif + applicationPrefersAppMenu , + + +-- ** removeAccelerator #method:removeAccelerator# + +#if ENABLE_OVERLOADING + ApplicationRemoveAcceleratorMethodInfo , +#endif + applicationRemoveAccelerator , + + +-- ** removeWindow #method:removeWindow# + +#if ENABLE_OVERLOADING + ApplicationRemoveWindowMethodInfo , +#endif + applicationRemoveWindow , + + +-- ** setAccelsForAction #method:setAccelsForAction# + +#if ENABLE_OVERLOADING + ApplicationSetAccelsForActionMethodInfo , +#endif + applicationSetAccelsForAction , + + +-- ** setAppMenu #method:setAppMenu# + +#if ENABLE_OVERLOADING + ApplicationSetAppMenuMethodInfo , +#endif + applicationSetAppMenu , + + +-- ** setMenubar #method:setMenubar# + +#if ENABLE_OVERLOADING + ApplicationSetMenubarMethodInfo , +#endif + applicationSetMenubar , + + +-- ** uninhibit #method:uninhibit# + +#if ENABLE_OVERLOADING + ApplicationUninhibitMethodInfo , +#endif + applicationUninhibit , + + + + + -- * Properties +-- ** activeWindow #attr:activeWindow# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + ApplicationActiveWindowPropertyInfo , +#endif +#if ENABLE_OVERLOADING + applicationActiveWindow , +#endif + getApplicationActiveWindow , + + +-- ** appMenu #attr:appMenu# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + ApplicationAppMenuPropertyInfo , +#endif +#if ENABLE_OVERLOADING + applicationAppMenu , +#endif + clearApplicationAppMenu , + constructApplicationAppMenu , + getApplicationAppMenu , + setApplicationAppMenu , + + +-- ** menubar #attr:menubar# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + ApplicationMenubarPropertyInfo , +#endif +#if ENABLE_OVERLOADING + applicationMenubar , +#endif + clearApplicationMenubar , + constructApplicationMenubar , + getApplicationMenubar , + setApplicationMenubar , + + +-- ** registerSession #attr:registerSession# +{- | Set this property to 'True' to register with the session manager. + +/Since: 3.4/ +-} +#if ENABLE_OVERLOADING + ApplicationRegisterSessionPropertyInfo , +#endif +#if ENABLE_OVERLOADING + applicationRegisterSession , +#endif + constructApplicationRegisterSession , + getApplicationRegisterSession , + setApplicationRegisterSession , + + +-- ** screensaverActive #attr:screensaverActive# +{- | This property is 'True' if GTK+ believes that the screensaver is +currently active. GTK+ only tracks session state (including this) +when 'GI.Gtk.Objects.Application.Application'::@/register-session/@ is set to 'True'. + +Tracking the screensaver state is supported on Linux. + +/Since: 3.24/ +-} +#if ENABLE_OVERLOADING + ApplicationScreensaverActivePropertyInfo, +#endif +#if ENABLE_OVERLOADING + applicationScreensaverActive , +#endif + getApplicationScreensaverActive , + + + + + -- * Signals +-- ** queryEnd #signal:queryEnd# + + ApplicationQueryEndCallback , +#if ENABLE_OVERLOADING + ApplicationQueryEndSignalInfo , +#endif + C_ApplicationQueryEndCallback , + afterApplicationQueryEnd , + genClosure_ApplicationQueryEnd , + mk_ApplicationQueryEndCallback , + noApplicationQueryEndCallback , + onApplicationQueryEnd , + wrap_ApplicationQueryEndCallback , + + +-- ** windowAdded #signal:windowAdded# + + ApplicationWindowAddedCallback , +#if ENABLE_OVERLOADING + ApplicationWindowAddedSignalInfo , +#endif + C_ApplicationWindowAddedCallback , + afterApplicationWindowAdded , + genClosure_ApplicationWindowAdded , + mk_ApplicationWindowAddedCallback , + noApplicationWindowAddedCallback , + onApplicationWindowAdded , + wrap_ApplicationWindowAddedCallback , + + +-- ** windowRemoved #signal:windowRemoved# + + ApplicationWindowRemovedCallback , +#if ENABLE_OVERLOADING + ApplicationWindowRemovedSignalInfo , +#endif + C_ApplicationWindowRemovedCallback , + afterApplicationWindowRemoved , + genClosure_ApplicationWindowRemoved , + mk_ApplicationWindowRemovedCallback , + noApplicationWindowRemovedCallback , + onApplicationWindowRemoved , + wrap_ApplicationWindowRemovedCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Flags as Gio.Flags +import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup +import qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap +import qualified GI.Gio.Objects.Application as Gio.Application +import qualified GI.Gio.Objects.Menu as Gio.Menu +import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel +import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags +import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window + +-- | Memory-managed wrapper type. +newtype Application = Application (ManagedPtr Application) +foreign import ccall "gtk_application_get_type" + c_gtk_application_get_type :: IO GType + +instance GObject Application where + gobjectType = c_gtk_application_get_type + + +-- | Type class for types which can be safely cast to `Application`, for instance with `toApplication`. +class (GObject o, O.IsDescendantOf Application o) => IsApplication o +instance (GObject o, O.IsDescendantOf Application o) => IsApplication o + +instance O.HasParentTypes Application +type instance O.ParentTypes Application = '[Gio.Application.Application, GObject.Object.Object, Gio.ActionGroup.ActionGroup, Gio.ActionMap.ActionMap] + +-- | Cast to `Application`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toApplication :: (MonadIO m, IsApplication o) => o -> m Application +toApplication = liftIO . unsafeCastTo Application + +-- | A convenience alias for `Nothing` :: `Maybe` `Application`. +noApplication :: Maybe Application +noApplication = Nothing + +#if ENABLE_OVERLOADING +type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where + ResolveApplicationMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo + ResolveApplicationMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo + ResolveApplicationMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo + ResolveApplicationMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo + ResolveApplicationMethod "activate" o = Gio.Application.ApplicationActivateMethodInfo + ResolveApplicationMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo + ResolveApplicationMethod "addAccelerator" o = ApplicationAddAcceleratorMethodInfo + ResolveApplicationMethod "addAction" o = Gio.ActionMap.ActionMapAddActionMethodInfo + ResolveApplicationMethod "addActionEntries" o = Gio.ActionMap.ActionMapAddActionEntriesMethodInfo + ResolveApplicationMethod "addMainOption" o = Gio.Application.ApplicationAddMainOptionMethodInfo + ResolveApplicationMethod "addMainOptionEntries" o = Gio.Application.ApplicationAddMainOptionEntriesMethodInfo + ResolveApplicationMethod "addOptionGroup" o = Gio.Application.ApplicationAddOptionGroupMethodInfo + ResolveApplicationMethod "addWindow" o = ApplicationAddWindowMethodInfo + ResolveApplicationMethod "bindBusyProperty" o = Gio.Application.ApplicationBindBusyPropertyMethodInfo + ResolveApplicationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveApplicationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveApplicationMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo + ResolveApplicationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveApplicationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveApplicationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveApplicationMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo + ResolveApplicationMethod "hold" o = Gio.Application.ApplicationHoldMethodInfo + ResolveApplicationMethod "inhibit" o = ApplicationInhibitMethodInfo + ResolveApplicationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveApplicationMethod "isInhibited" o = ApplicationIsInhibitedMethodInfo + ResolveApplicationMethod "listActionDescriptions" o = ApplicationListActionDescriptionsMethodInfo + ResolveApplicationMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo + ResolveApplicationMethod "lookupAction" o = Gio.ActionMap.ActionMapLookupActionMethodInfo + ResolveApplicationMethod "markBusy" o = Gio.Application.ApplicationMarkBusyMethodInfo + ResolveApplicationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveApplicationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveApplicationMethod "open" o = Gio.Application.ApplicationOpenMethodInfo + ResolveApplicationMethod "prefersAppMenu" o = ApplicationPrefersAppMenuMethodInfo + ResolveApplicationMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo + ResolveApplicationMethod "quit" o = Gio.Application.ApplicationQuitMethodInfo + ResolveApplicationMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveApplicationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveApplicationMethod "register" o = Gio.Application.ApplicationRegisterMethodInfo + ResolveApplicationMethod "release" o = Gio.Application.ApplicationReleaseMethodInfo + ResolveApplicationMethod "removeAccelerator" o = ApplicationRemoveAcceleratorMethodInfo + ResolveApplicationMethod "removeAction" o = Gio.ActionMap.ActionMapRemoveActionMethodInfo + ResolveApplicationMethod "removeWindow" o = ApplicationRemoveWindowMethodInfo + ResolveApplicationMethod "run" o = Gio.Application.ApplicationRunMethodInfo + ResolveApplicationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveApplicationMethod "sendNotification" o = Gio.Application.ApplicationSendNotificationMethodInfo + ResolveApplicationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveApplicationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveApplicationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveApplicationMethod "unbindBusyProperty" o = Gio.Application.ApplicationUnbindBusyPropertyMethodInfo + ResolveApplicationMethod "uninhibit" o = ApplicationUninhibitMethodInfo + ResolveApplicationMethod "unmarkBusy" o = Gio.Application.ApplicationUnmarkBusyMethodInfo + ResolveApplicationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveApplicationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveApplicationMethod "withdrawNotification" o = Gio.Application.ApplicationWithdrawNotificationMethodInfo + ResolveApplicationMethod "getAccelsForAction" o = ApplicationGetAccelsForActionMethodInfo + ResolveApplicationMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo + ResolveApplicationMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo + ResolveApplicationMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo + ResolveApplicationMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo + ResolveApplicationMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo + ResolveApplicationMethod "getActionsForAccel" o = ApplicationGetActionsForAccelMethodInfo + ResolveApplicationMethod "getActiveWindow" o = ApplicationGetActiveWindowMethodInfo + ResolveApplicationMethod "getAppMenu" o = ApplicationGetAppMenuMethodInfo + ResolveApplicationMethod "getApplicationId" o = Gio.Application.ApplicationGetApplicationIdMethodInfo + ResolveApplicationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveApplicationMethod "getDbusConnection" o = Gio.Application.ApplicationGetDbusConnectionMethodInfo + ResolveApplicationMethod "getDbusObjectPath" o = Gio.Application.ApplicationGetDbusObjectPathMethodInfo + ResolveApplicationMethod "getFlags" o = Gio.Application.ApplicationGetFlagsMethodInfo + ResolveApplicationMethod "getInactivityTimeout" o = Gio.Application.ApplicationGetInactivityTimeoutMethodInfo + ResolveApplicationMethod "getIsBusy" o = Gio.Application.ApplicationGetIsBusyMethodInfo + ResolveApplicationMethod "getIsRegistered" o = Gio.Application.ApplicationGetIsRegisteredMethodInfo + ResolveApplicationMethod "getIsRemote" o = Gio.Application.ApplicationGetIsRemoteMethodInfo + ResolveApplicationMethod "getMenuById" o = ApplicationGetMenuByIdMethodInfo + ResolveApplicationMethod "getMenubar" o = ApplicationGetMenubarMethodInfo + ResolveApplicationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveApplicationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveApplicationMethod "getResourceBasePath" o = Gio.Application.ApplicationGetResourceBasePathMethodInfo + ResolveApplicationMethod "getWindowById" o = ApplicationGetWindowByIdMethodInfo + ResolveApplicationMethod "getWindows" o = ApplicationGetWindowsMethodInfo + ResolveApplicationMethod "setAccelsForAction" o = ApplicationSetAccelsForActionMethodInfo + ResolveApplicationMethod "setActionGroup" o = Gio.Application.ApplicationSetActionGroupMethodInfo + ResolveApplicationMethod "setAppMenu" o = ApplicationSetAppMenuMethodInfo + ResolveApplicationMethod "setApplicationId" o = Gio.Application.ApplicationSetApplicationIdMethodInfo + ResolveApplicationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveApplicationMethod "setDefault" o = Gio.Application.ApplicationSetDefaultMethodInfo + ResolveApplicationMethod "setFlags" o = Gio.Application.ApplicationSetFlagsMethodInfo + ResolveApplicationMethod "setInactivityTimeout" o = Gio.Application.ApplicationSetInactivityTimeoutMethodInfo + ResolveApplicationMethod "setMenubar" o = ApplicationSetMenubarMethodInfo + ResolveApplicationMethod "setOptionContextDescription" o = Gio.Application.ApplicationSetOptionContextDescriptionMethodInfo + ResolveApplicationMethod "setOptionContextParameterString" o = Gio.Application.ApplicationSetOptionContextParameterStringMethodInfo + ResolveApplicationMethod "setOptionContextSummary" o = Gio.Application.ApplicationSetOptionContextSummaryMethodInfo + ResolveApplicationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveApplicationMethod "setResourceBasePath" o = Gio.Application.ApplicationSetResourceBasePathMethodInfo + ResolveApplicationMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveApplicationMethod t Application, O.MethodInfo info Application p) => OL.IsLabel t (Application -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal Application::query-end +{- | +Emitted when the session manager is about to end the session, only +if 'GI.Gtk.Objects.Application.Application'::@/register-session/@ is 'True'. Applications can +connect to this signal and call 'GI.Gtk.Objects.Application.applicationInhibit' with +'GI.Gtk.Flags.ApplicationInhibitFlagsLogout' to delay the end of the session +until state has been saved. + +/Since: 3.24.8/ +-} +type ApplicationQueryEndCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationQueryEndCallback`@. +noApplicationQueryEndCallback :: Maybe ApplicationQueryEndCallback +noApplicationQueryEndCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ApplicationQueryEndCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ApplicationQueryEndCallback`. +foreign import ccall "wrapper" + mk_ApplicationQueryEndCallback :: C_ApplicationQueryEndCallback -> IO (FunPtr C_ApplicationQueryEndCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ApplicationQueryEnd :: MonadIO m => ApplicationQueryEndCallback -> m (GClosure C_ApplicationQueryEndCallback) +genClosure_ApplicationQueryEnd cb = liftIO $ do + let cb' = wrap_ApplicationQueryEndCallback cb + mk_ApplicationQueryEndCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ApplicationQueryEndCallback` into a `C_ApplicationQueryEndCallback`. +wrap_ApplicationQueryEndCallback :: + ApplicationQueryEndCallback -> + C_ApplicationQueryEndCallback +wrap_ApplicationQueryEndCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@query-end@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' application #queryEnd callback +@ +-} +onApplicationQueryEnd :: (IsApplication a, MonadIO m) => a -> ApplicationQueryEndCallback -> m SignalHandlerId +onApplicationQueryEnd obj cb = liftIO $ do + let cb' = wrap_ApplicationQueryEndCallback cb + cb'' <- mk_ApplicationQueryEndCallback cb' + connectSignalFunPtr obj "query-end" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@query-end@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' application #queryEnd callback +@ +-} +afterApplicationQueryEnd :: (IsApplication a, MonadIO m) => a -> ApplicationQueryEndCallback -> m SignalHandlerId +afterApplicationQueryEnd obj cb = liftIO $ do + let cb' = wrap_ApplicationQueryEndCallback cb + cb'' <- mk_ApplicationQueryEndCallback cb' + connectSignalFunPtr obj "query-end" cb'' SignalConnectAfter + + +-- signal Application::window-added +{- | +Emitted when a 'GI.Gtk.Objects.Window.Window' is added to /@application@/ through +'GI.Gtk.Objects.Application.applicationAddWindow'. + +/Since: 3.2/ +-} +type ApplicationWindowAddedCallback = + Gtk.Window.Window + {- ^ /@window@/: the newly-added 'GI.Gtk.Objects.Window.Window' -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationWindowAddedCallback`@. +noApplicationWindowAddedCallback :: Maybe ApplicationWindowAddedCallback +noApplicationWindowAddedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ApplicationWindowAddedCallback = + Ptr () -> -- object + Ptr Gtk.Window.Window -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ApplicationWindowAddedCallback`. +foreign import ccall "wrapper" + mk_ApplicationWindowAddedCallback :: C_ApplicationWindowAddedCallback -> IO (FunPtr C_ApplicationWindowAddedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ApplicationWindowAdded :: MonadIO m => ApplicationWindowAddedCallback -> m (GClosure C_ApplicationWindowAddedCallback) +genClosure_ApplicationWindowAdded cb = liftIO $ do + let cb' = wrap_ApplicationWindowAddedCallback cb + mk_ApplicationWindowAddedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ApplicationWindowAddedCallback` into a `C_ApplicationWindowAddedCallback`. +wrap_ApplicationWindowAddedCallback :: + ApplicationWindowAddedCallback -> + C_ApplicationWindowAddedCallback +wrap_ApplicationWindowAddedCallback _cb _ window _ = do + window' <- (newObject Gtk.Window.Window) window + _cb window' + + +{- | +Connect a signal handler for the “@window-added@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' application #windowAdded callback +@ +-} +onApplicationWindowAdded :: (IsApplication a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId +onApplicationWindowAdded obj cb = liftIO $ do + let cb' = wrap_ApplicationWindowAddedCallback cb + cb'' <- mk_ApplicationWindowAddedCallback cb' + connectSignalFunPtr obj "window-added" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@window-added@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' application #windowAdded callback +@ +-} +afterApplicationWindowAdded :: (IsApplication a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId +afterApplicationWindowAdded obj cb = liftIO $ do + let cb' = wrap_ApplicationWindowAddedCallback cb + cb'' <- mk_ApplicationWindowAddedCallback cb' + connectSignalFunPtr obj "window-added" cb'' SignalConnectAfter + + +-- signal Application::window-removed +{- | +Emitted when a 'GI.Gtk.Objects.Window.Window' is removed from /@application@/, +either as a side-effect of being destroyed or explicitly +through 'GI.Gtk.Objects.Application.applicationRemoveWindow'. + +/Since: 3.2/ +-} +type ApplicationWindowRemovedCallback = + Gtk.Window.Window + {- ^ /@window@/: the 'GI.Gtk.Objects.Window.Window' that is being removed -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationWindowRemovedCallback`@. +noApplicationWindowRemovedCallback :: Maybe ApplicationWindowRemovedCallback +noApplicationWindowRemovedCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_ApplicationWindowRemovedCallback = + Ptr () -> -- object + Ptr Gtk.Window.Window -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_ApplicationWindowRemovedCallback`. +foreign import ccall "wrapper" + mk_ApplicationWindowRemovedCallback :: C_ApplicationWindowRemovedCallback -> IO (FunPtr C_ApplicationWindowRemovedCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_ApplicationWindowRemoved :: MonadIO m => ApplicationWindowRemovedCallback -> m (GClosure C_ApplicationWindowRemovedCallback) +genClosure_ApplicationWindowRemoved cb = liftIO $ do + let cb' = wrap_ApplicationWindowRemovedCallback cb + mk_ApplicationWindowRemovedCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `ApplicationWindowRemovedCallback` into a `C_ApplicationWindowRemovedCallback`. +wrap_ApplicationWindowRemovedCallback :: + ApplicationWindowRemovedCallback -> + C_ApplicationWindowRemovedCallback +wrap_ApplicationWindowRemovedCallback _cb _ window _ = do + window' <- (newObject Gtk.Window.Window) window + _cb window' + + +{- | +Connect a signal handler for the “@window-removed@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' application #windowRemoved callback +@ +-} +onApplicationWindowRemoved :: (IsApplication a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId +onApplicationWindowRemoved obj cb = liftIO $ do + let cb' = wrap_ApplicationWindowRemovedCallback cb + cb'' <- mk_ApplicationWindowRemovedCallback cb' + connectSignalFunPtr obj "window-removed" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@window-removed@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' application #windowRemoved callback +@ +-} +afterApplicationWindowRemoved :: (IsApplication a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId +afterApplicationWindowRemoved obj cb = liftIO $ do + let cb' = wrap_ApplicationWindowRemovedCallback cb + cb'' <- mk_ApplicationWindowRemovedCallback cb' + connectSignalFunPtr obj "window-removed" cb'' SignalConnectAfter + + +-- VVV Prop "active-window" + -- Type: TInterface (Name {namespace = "Gtk", name = "Window"}) + -- Flags: [PropertyReadable] + -- Nullable: (Just True,Nothing) + +{- | +Get the value of the “@active-window@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' application #activeWindow +@ +-} +getApplicationActiveWindow :: (MonadIO m, IsApplication o) => o -> m (Maybe Gtk.Window.Window) +getApplicationActiveWindow obj = liftIO $ B.Properties.getObjectPropertyObject obj "active-window" Gtk.Window.Window + +#if ENABLE_OVERLOADING +data ApplicationActiveWindowPropertyInfo +instance AttrInfo ApplicationActiveWindowPropertyInfo where + type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = IsApplication + type AttrGetType ApplicationActiveWindowPropertyInfo = (Maybe Gtk.Window.Window) + type AttrLabel ApplicationActiveWindowPropertyInfo = "active-window" + type AttrOrigin ApplicationActiveWindowPropertyInfo = Application + attrGet _ = getApplicationActiveWindow + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined +#endif + +-- VVV Prop "app-menu" + -- Type: TInterface (Name {namespace = "Gio", name = "MenuModel"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just True) + +{- | +Get the value of the “@app-menu@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' application #appMenu +@ +-} +getApplicationAppMenu :: (MonadIO m, IsApplication o) => o -> m (Maybe Gio.MenuModel.MenuModel) +getApplicationAppMenu obj = liftIO $ B.Properties.getObjectPropertyObject obj "app-menu" Gio.MenuModel.MenuModel + +{- | +Set the value of the “@app-menu@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' application [ #appMenu 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setApplicationAppMenu :: (MonadIO m, IsApplication o, Gio.MenuModel.IsMenuModel a) => o -> a -> m () +setApplicationAppMenu obj val = liftIO $ B.Properties.setObjectPropertyObject obj "app-menu" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@app-menu@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructApplicationAppMenu :: (IsApplication o, Gio.MenuModel.IsMenuModel a) => a -> IO (GValueConstruct o) +constructApplicationAppMenu val = B.Properties.constructObjectPropertyObject "app-menu" (Just val) + +{- | +Set the value of the “@app-menu@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #appMenu +@ +-} +clearApplicationAppMenu :: (MonadIO m, IsApplication o) => o -> m () +clearApplicationAppMenu obj = liftIO $ B.Properties.setObjectPropertyObject obj "app-menu" (Nothing :: Maybe Gio.MenuModel.MenuModel) + +#if ENABLE_OVERLOADING +data ApplicationAppMenuPropertyInfo +instance AttrInfo ApplicationAppMenuPropertyInfo where + type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModel.IsMenuModel + type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = IsApplication + type AttrGetType ApplicationAppMenuPropertyInfo = (Maybe Gio.MenuModel.MenuModel) + type AttrLabel ApplicationAppMenuPropertyInfo = "app-menu" + type AttrOrigin ApplicationAppMenuPropertyInfo = Application + attrGet _ = getApplicationAppMenu + attrSet _ = setApplicationAppMenu + attrConstruct _ = constructApplicationAppMenu + attrClear _ = clearApplicationAppMenu +#endif + +-- VVV Prop "menubar" + -- Type: TInterface (Name {namespace = "Gio", name = "MenuModel"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +{- | +Get the value of the “@menubar@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' application #menubar +@ +-} +getApplicationMenubar :: (MonadIO m, IsApplication o) => o -> m Gio.MenuModel.MenuModel +getApplicationMenubar obj = liftIO $ checkUnexpectedNothing "getApplicationMenubar" $ B.Properties.getObjectPropertyObject obj "menubar" Gio.MenuModel.MenuModel + +{- | +Set the value of the “@menubar@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' application [ #menubar 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setApplicationMenubar :: (MonadIO m, IsApplication o, Gio.MenuModel.IsMenuModel a) => o -> a -> m () +setApplicationMenubar obj val = liftIO $ B.Properties.setObjectPropertyObject obj "menubar" (Just val) + +{- | +Construct a `GValueConstruct` with valid value for the “@menubar@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructApplicationMenubar :: (IsApplication o, Gio.MenuModel.IsMenuModel a) => a -> IO (GValueConstruct o) +constructApplicationMenubar val = B.Properties.constructObjectPropertyObject "menubar" (Just val) + +{- | +Set the value of the “@menubar@” property to `Nothing`. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.clear' #menubar +@ +-} +clearApplicationMenubar :: (MonadIO m, IsApplication o) => o -> m () +clearApplicationMenubar obj = liftIO $ B.Properties.setObjectPropertyObject obj "menubar" (Nothing :: Maybe Gio.MenuModel.MenuModel) + +#if ENABLE_OVERLOADING +data ApplicationMenubarPropertyInfo +instance AttrInfo ApplicationMenubarPropertyInfo where + type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModel.IsMenuModel + type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = IsApplication + type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel.MenuModel + type AttrLabel ApplicationMenubarPropertyInfo = "menubar" + type AttrOrigin ApplicationMenubarPropertyInfo = Application + attrGet _ = getApplicationMenubar + attrSet _ = setApplicationMenubar + attrConstruct _ = constructApplicationMenubar + attrClear _ = clearApplicationMenubar +#endif + +-- VVV Prop "register-session" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@register-session@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' application #registerSession +@ +-} +getApplicationRegisterSession :: (MonadIO m, IsApplication o) => o -> m Bool +getApplicationRegisterSession obj = liftIO $ B.Properties.getObjectPropertyBool obj "register-session" + +{- | +Set the value of the “@register-session@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' application [ #registerSession 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setApplicationRegisterSession :: (MonadIO m, IsApplication o) => o -> Bool -> m () +setApplicationRegisterSession obj val = liftIO $ B.Properties.setObjectPropertyBool obj "register-session" val + +{- | +Construct a `GValueConstruct` with valid value for the “@register-session@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructApplicationRegisterSession :: (IsApplication o) => Bool -> IO (GValueConstruct o) +constructApplicationRegisterSession val = B.Properties.constructObjectPropertyBool "register-session" val + +#if ENABLE_OVERLOADING +data ApplicationRegisterSessionPropertyInfo +instance AttrInfo ApplicationRegisterSessionPropertyInfo where + type AttrAllowedOps ApplicationRegisterSessionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ApplicationRegisterSessionPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ApplicationRegisterSessionPropertyInfo = IsApplication + type AttrGetType ApplicationRegisterSessionPropertyInfo = Bool + type AttrLabel ApplicationRegisterSessionPropertyInfo = "register-session" + type AttrOrigin ApplicationRegisterSessionPropertyInfo = Application + attrGet _ = getApplicationRegisterSession + attrSet _ = setApplicationRegisterSession + attrConstruct _ = constructApplicationRegisterSession + attrClear _ = undefined +#endif + +-- VVV Prop "screensaver-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@screensaver-active@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' application #screensaverActive +@ +-} +getApplicationScreensaverActive :: (MonadIO m, IsApplication o) => o -> m Bool +getApplicationScreensaverActive obj = liftIO $ B.Properties.getObjectPropertyBool obj "screensaver-active" + +#if ENABLE_OVERLOADING +data ApplicationScreensaverActivePropertyInfo +instance AttrInfo ApplicationScreensaverActivePropertyInfo where + type AttrAllowedOps ApplicationScreensaverActivePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ApplicationScreensaverActivePropertyInfo = (~) () + type AttrBaseTypeConstraint ApplicationScreensaverActivePropertyInfo = IsApplication + type AttrGetType ApplicationScreensaverActivePropertyInfo = Bool + type AttrLabel ApplicationScreensaverActivePropertyInfo = "screensaver-active" + type AttrOrigin ApplicationScreensaverActivePropertyInfo = Application + attrGet _ = getApplicationScreensaverActive + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Application +type instance O.AttributeList Application = ApplicationAttributeList +type ApplicationAttributeList = ('[ '("actionGroup", Gio.Application.ApplicationActionGroupPropertyInfo), '("activeWindow", ApplicationActiveWindowPropertyInfo), '("appMenu", ApplicationAppMenuPropertyInfo), '("applicationId", Gio.Application.ApplicationApplicationIdPropertyInfo), '("flags", Gio.Application.ApplicationFlagsPropertyInfo), '("inactivityTimeout", Gio.Application.ApplicationInactivityTimeoutPropertyInfo), '("isBusy", Gio.Application.ApplicationIsBusyPropertyInfo), '("isRegistered", Gio.Application.ApplicationIsRegisteredPropertyInfo), '("isRemote", Gio.Application.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("registerSession", ApplicationRegisterSessionPropertyInfo), '("resourceBasePath", Gio.Application.ApplicationResourceBasePathPropertyInfo), '("screensaverActive", ApplicationScreensaverActivePropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +applicationActiveWindow :: AttrLabelProxy "activeWindow" +applicationActiveWindow = AttrLabelProxy + +applicationAppMenu :: AttrLabelProxy "appMenu" +applicationAppMenu = AttrLabelProxy + +applicationMenubar :: AttrLabelProxy "menubar" +applicationMenubar = AttrLabelProxy + +applicationRegisterSession :: AttrLabelProxy "registerSession" +applicationRegisterSession = AttrLabelProxy + +applicationScreensaverActive :: AttrLabelProxy "screensaverActive" +applicationScreensaverActive = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data ApplicationQueryEndSignalInfo +instance SignalInfo ApplicationQueryEndSignalInfo where + type HaskellCallbackType ApplicationQueryEndSignalInfo = ApplicationQueryEndCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ApplicationQueryEndCallback cb + cb'' <- mk_ApplicationQueryEndCallback cb' + connectSignalFunPtr obj "query-end" cb'' connectMode + +data ApplicationWindowAddedSignalInfo +instance SignalInfo ApplicationWindowAddedSignalInfo where + type HaskellCallbackType ApplicationWindowAddedSignalInfo = ApplicationWindowAddedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ApplicationWindowAddedCallback cb + cb'' <- mk_ApplicationWindowAddedCallback cb' + connectSignalFunPtr obj "window-added" cb'' connectMode + +data ApplicationWindowRemovedSignalInfo +instance SignalInfo ApplicationWindowRemovedSignalInfo where + type HaskellCallbackType ApplicationWindowRemovedSignalInfo = ApplicationWindowRemovedCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_ApplicationWindowRemovedCallback cb + cb'' <- mk_ApplicationWindowRemovedCallback cb' + connectSignalFunPtr obj "window-removed" cb'' connectMode + +type instance O.SignalList Application = ApplicationSignalList +type ApplicationSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("activate", Gio.Application.ApplicationActivateSignalInfo), '("commandLine", Gio.Application.ApplicationCommandLineSignalInfo), '("handleLocalOptions", Gio.Application.ApplicationHandleLocalOptionsSignalInfo), '("nameLost", Gio.Application.ApplicationNameLostSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("open", Gio.Application.ApplicationOpenSignalInfo), '("queryEnd", ApplicationQueryEndSignalInfo), '("shutdown", Gio.Application.ApplicationShutdownSignalInfo), '("startup", Gio.Application.ApplicationStartupSignalInfo), '("windowAdded", ApplicationWindowAddedSignalInfo), '("windowRemoved", ApplicationWindowRemovedSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Application::new +-- method type : Constructor +-- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The application ID.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "ApplicationFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the application flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Application"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_new" gtk_application_new :: + CString -> -- application_id : TBasicType TUTF8 + CUInt -> -- flags : TInterface (Name {namespace = "Gio", name = "ApplicationFlags"}) + IO (Ptr Application) + +{- | +Creates a new 'GI.Gtk.Objects.Application.Application' instance. + +When using 'GI.Gtk.Objects.Application.Application', it is not necessary to call 'GI.Gtk.Functions.init' +manually. It is called as soon as the application gets registered as +the primary instance. + +Concretely, 'GI.Gtk.Functions.init' is called in the default handler for the +'GI.Gio.Objects.Application.Application'::@/startup/@ signal. Therefore, 'GI.Gtk.Objects.Application.Application' subclasses should +chain up in their 'GI.Gio.Objects.Application.Application'::@/startup/@ handler before using any GTK+ API. + +Note that commandline arguments are not passed to 'GI.Gtk.Functions.init'. +All GTK+ functionality that is available via commandline arguments +can also be achieved by setting suitable environment variables +such as @G_DEBUG@, so this should not be a big +problem. If you absolutely must support GTK+ commandline arguments, +you can explicitly call 'GI.Gtk.Functions.init' before creating the application +instance. + +If non-'Nothing', the application ID must be valid. See +'GI.Gio.Objects.Application.applicationIdIsValid'. + +If no application ID is given then some features (most notably application +uniqueness) will be disabled. A null application ID is only allowed with +GTK+ 3.6 or later. + +/Since: 3.0/ +-} +applicationNew :: + (B.CallStack.HasCallStack, MonadIO m) => + Maybe (T.Text) + {- ^ /@applicationId@/: The application ID. -} + -> [Gio.Flags.ApplicationFlags] + {- ^ /@flags@/: the application flags -} + -> m (Maybe Application) + {- ^ __Returns:__ a new 'GI.Gtk.Objects.Application.Application' instance -} +applicationNew applicationId flags = liftIO $ do + maybeApplicationId <- case applicationId of + Nothing -> return nullPtr + Just jApplicationId -> do + jApplicationId' <- textToCString jApplicationId + return jApplicationId' + let flags' = gflagsToWord flags + result <- gtk_application_new maybeApplicationId flags' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject Application) result' + return result'' + freeMem maybeApplicationId + return maybeResult + +#if ENABLE_OVERLOADING +#endif + +-- method Application::add_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "accelerator string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to activate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "parameter to pass when activating the action,\n or %NULL if the action does not accept an activation parameter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_add_accelerator" gtk_application_add_accelerator :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + CString -> -- accelerator : TBasicType TUTF8 + CString -> -- action_name : TBasicType TUTF8 + Ptr GVariant -> -- parameter : TVariant + IO () + +{-# DEPRECATED applicationAddAccelerator ["(Since version 3.14)","Use 'GI.Gtk.Objects.Application.applicationSetAccelsForAction' instead"] #-} +{- | +Installs an accelerator that will cause the named action +to be activated when the key combination specificed by /@accelerator@/ +is pressed. + +/@accelerator@/ must be a string that can be parsed by 'GI.Gtk.Functions.acceleratorParse', +e.g. \"\q\" or “\\p”. + +/@actionName@/ must be the name of an action as it would be used +in the app menu, i.e. actions that have been added to the application +are referred to with an “app.” prefix, and window-specific actions +with a “win.” prefix. + +GtkApplication also extracts accelerators out of “accel” attributes +in the @/GMenuModels/@ passed to 'GI.Gtk.Objects.Application.applicationSetAppMenu' and +'GI.Gtk.Objects.Application.applicationSetMenubar', which is usually more convenient +than calling this function for each accelerator. + +/Since: 3.4/ +-} +applicationAddAccelerator :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> T.Text + {- ^ /@accelerator@/: accelerator string -} + -> T.Text + {- ^ /@actionName@/: the name of the action to activate -} + -> Maybe (GVariant) + {- ^ /@parameter@/: parameter to pass when activating the action, + or 'Nothing' if the action does not accept an activation parameter -} + -> m () +applicationAddAccelerator application accelerator actionName parameter = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + accelerator' <- textToCString accelerator + actionName' <- textToCString actionName + maybeParameter <- case parameter of + Nothing -> return nullPtr + Just jParameter -> do + jParameter' <- unsafeManagedPtrGetPtr jParameter + return jParameter' + gtk_application_add_accelerator application' accelerator' actionName' maybeParameter + touchManagedPtr application + whenJust parameter touchManagedPtr + freeMem accelerator' + freeMem actionName' + return () + +#if ENABLE_OVERLOADING +data ApplicationAddAcceleratorMethodInfo +instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationAddAcceleratorMethodInfo a signature where + overloadedMethod _ = applicationAddAccelerator + +#endif + +-- method Application::add_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_add_window" gtk_application_add_window :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + Ptr Gtk.Window.Window -> -- window : TInterface (Name {namespace = "Gtk", name = "Window"}) + IO () + +{- | +Adds a window to /@application@/. + +This call can only happen after the /@application@/ has started; +typically, you should add new application windows in response +to the emission of the 'GI.Gio.Objects.Application.Application'::@/activate/@ signal. + +This call is equivalent to setting the 'GI.Gtk.Objects.Window.Window':@/application/@ +property of /@window@/ to /@application@/. + +Normally, the connection between the application and the window +will remain until the window is destroyed, but you can explicitly +remove it with 'GI.Gtk.Objects.Application.applicationRemoveWindow'. + +GTK+ will keep the /@application@/ running as long as it has +any windows. + +/Since: 3.0/ +-} +applicationAddWindow :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> b + {- ^ /@window@/: a 'GI.Gtk.Objects.Window.Window' -} + -> m () +applicationAddWindow application window = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + window' <- unsafeManagedPtrCastPtr window + gtk_application_add_window application' window' + touchManagedPtr application + touchManagedPtr window + return () + +#if ENABLE_OVERLOADING +data ApplicationAddWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.MethodInfo ApplicationAddWindowMethodInfo a signature where + overloadedMethod _ = applicationAddWindow + +#endif + +-- method Application::get_accels_for_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a detailed action name, specifying an action\n and target to obtain accelerators for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_accels_for_action" gtk_application_get_accels_for_action :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + CString -> -- detailed_action_name : TBasicType TUTF8 + IO (Ptr CString) + +{- | +Gets the accelerators that are currently associated with +the given action. + +/Since: 3.12/ +-} +applicationGetAccelsForAction :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> T.Text + {- ^ /@detailedActionName@/: a detailed action name, specifying an action + and target to obtain accelerators for -} + -> m [T.Text] + {- ^ __Returns:__ accelerators for /@detailedActionName@/, as + a 'Nothing'-terminated array. Free with 'GI.GLib.Functions.strfreev' when no longer needed -} +applicationGetAccelsForAction application detailedActionName = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + detailedActionName' <- textToCString detailedActionName + result <- gtk_application_get_accels_for_action application' detailedActionName' + checkUnexpectedReturnNULL "applicationGetAccelsForAction" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr application + freeMem detailedActionName' + return result' + +#if ENABLE_OVERLOADING +data ApplicationGetAccelsForActionMethodInfo +instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetAccelsForActionMethodInfo a signature where + overloadedMethod _ = applicationGetAccelsForAction + +#endif + +-- method Application::get_actions_for_accel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an accelerator that can be parsed by gtk_accelerator_parse()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_actions_for_accel" gtk_application_get_actions_for_accel :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + CString -> -- accel : TBasicType TUTF8 + IO (Ptr CString) + +{- | +Returns the list of actions (possibly empty) that /@accel@/ maps to. +Each item in the list is a detailed action name in the usual form. + +This might be useful to discover if an accel already exists in +order to prevent installation of a conflicting accelerator (from +an accelerator editor or a plugin system, for example). Note that +having more than one action per accelerator may not be a bad thing +and might make sense in cases where the actions never appear in the +same context. + +In case there are no actions for a given accelerator, an empty array +is returned. 'Nothing' is never returned. + +It is a programmer error to pass an invalid accelerator string. +If you are unsure, check it with 'GI.Gtk.Functions.acceleratorParse' first. + +/Since: 3.14/ +-} +applicationGetActionsForAccel :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> T.Text + {- ^ /@accel@/: an accelerator that can be parsed by 'GI.Gtk.Functions.acceleratorParse' -} + -> m [T.Text] + {- ^ __Returns:__ a 'Nothing'-terminated array of actions for /@accel@/ -} +applicationGetActionsForAccel application accel = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + accel' <- textToCString accel + result <- gtk_application_get_actions_for_accel application' accel' + checkUnexpectedReturnNULL "applicationGetActionsForAccel" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr application + freeMem accel' + return result' + +#if ENABLE_OVERLOADING +data ApplicationGetActionsForAccelMethodInfo +instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetActionsForAccelMethodInfo a signature where + overloadedMethod _ = applicationGetActionsForAccel + +#endif + +-- method Application::get_active_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Window"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_active_window" gtk_application_get_active_window :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + IO (Ptr Gtk.Window.Window) + +{- | +Gets the “active” window for the application. + +The active window is the one that was most recently focused (within +the application). This window may not have the focus at the moment +if another application has it — this is just the most +recently-focused window within this application. + +/Since: 3.6/ +-} +applicationGetActiveWindow :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> m (Maybe Gtk.Window.Window) + {- ^ __Returns:__ the active window, or 'Nothing' if + there isn\'t one. -} +applicationGetActiveWindow application = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_get_active_window application' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Window.Window) result' + return result'' + touchManagedPtr application + return maybeResult + +#if ENABLE_OVERLOADING +data ApplicationGetActiveWindowMethodInfo +instance (signature ~ (m (Maybe Gtk.Window.Window)), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetActiveWindowMethodInfo a signature where + overloadedMethod _ = applicationGetActiveWindow + +#endif + +-- method Application::get_app_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuModel"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_app_menu" gtk_application_get_app_menu :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + IO (Ptr Gio.MenuModel.MenuModel) + +{- | +Returns the menu model that has been set with +'GI.Gtk.Objects.Application.applicationSetAppMenu'. + +/Since: 3.4/ +-} +applicationGetAppMenu :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> m (Maybe Gio.MenuModel.MenuModel) + {- ^ __Returns:__ the application menu of /@application@/ + or 'Nothing' if no application menu has been set. -} +applicationGetAppMenu application = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_get_app_menu application' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gio.MenuModel.MenuModel) result' + return result'' + touchManagedPtr application + return maybeResult + +#if ENABLE_OVERLOADING +data ApplicationGetAppMenuMethodInfo +instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetAppMenuMethodInfo a signature where + overloadedMethod _ = applicationGetAppMenu + +#endif + +-- method Application::get_menu_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the id of the menu to look up", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "Menu"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_menu_by_id" gtk_application_get_menu_by_id :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + CString -> -- id : TBasicType TUTF8 + IO (Ptr Gio.Menu.Menu) + +{- | +Gets a menu from automatically loaded resources. +See [Automatic resources][automatic-resources] +for more information. + +/Since: 3.14/ +-} +applicationGetMenuById :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> T.Text + {- ^ /@id@/: the id of the menu to look up -} + -> m Gio.Menu.Menu + {- ^ __Returns:__ Gets the menu with the + given id from the automatically loaded resources -} +applicationGetMenuById application id = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + id' <- textToCString id + result <- gtk_application_get_menu_by_id application' id' + checkUnexpectedReturnNULL "applicationGetMenuById" result + result' <- (newObject Gio.Menu.Menu) result + touchManagedPtr application + freeMem id' + return result' + +#if ENABLE_OVERLOADING +data ApplicationGetMenuByIdMethodInfo +instance (signature ~ (T.Text -> m Gio.Menu.Menu), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetMenuByIdMethodInfo a signature where + overloadedMethod _ = applicationGetMenuById + +#endif + +-- method Application::get_menubar +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuModel"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_menubar" gtk_application_get_menubar :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + IO (Ptr Gio.MenuModel.MenuModel) + +{- | +Returns the menu model that has been set with +'GI.Gtk.Objects.Application.applicationSetMenubar'. + +/Since: 3.4/ +-} +applicationGetMenubar :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> m Gio.MenuModel.MenuModel + {- ^ __Returns:__ the menubar for windows of /@application@/ -} +applicationGetMenubar application = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_get_menubar application' + checkUnexpectedReturnNULL "applicationGetMenubar" result + result' <- (newObject Gio.MenuModel.MenuModel) result + touchManagedPtr application + return result' + +#if ENABLE_OVERLOADING +data ApplicationGetMenubarMethodInfo +instance (signature ~ (m Gio.MenuModel.MenuModel), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetMenubarMethodInfo a signature where + overloadedMethod _ = applicationGetMenubar + +#endif + +-- method Application::get_window_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an identifier number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Window"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_window_by_id" gtk_application_get_window_by_id :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + Word32 -> -- id : TBasicType TUInt + IO (Ptr Gtk.Window.Window) + +{- | +Returns the 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' with the given ID. + +The ID of a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' can be retrieved with +'GI.Gtk.Objects.ApplicationWindow.applicationWindowGetId'. + +/Since: 3.6/ +-} +applicationGetWindowById :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> Word32 + {- ^ /@id@/: an identifier number -} + -> m (Maybe Gtk.Window.Window) + {- ^ __Returns:__ the window with ID /@id@/, or + 'Nothing' if there is no window with this ID -} +applicationGetWindowById application id = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_get_window_by_id application' id + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Window.Window) result' + return result'' + touchManagedPtr application + return maybeResult + +#if ENABLE_OVERLOADING +data ApplicationGetWindowByIdMethodInfo +instance (signature ~ (Word32 -> m (Maybe Gtk.Window.Window)), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetWindowByIdMethodInfo a signature where + overloadedMethod _ = applicationGetWindowById + +#endif + +-- method Application::get_windows +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGList (TInterface (Name {namespace = "Gtk", name = "Window"}))) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_get_windows" gtk_application_get_windows :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + IO (Ptr (GList (Ptr Gtk.Window.Window))) + +{- | +Gets a list of the @/GtkWindows/@ associated with /@application@/. + +The list is sorted by most recently focused window, such that the first +element is the currently focused window. (Useful for choosing a parent +for a transient window.) + +The list that is returned should not be modified in any way. It will +only remain valid until the next focus change or window creation or +deletion. + +/Since: 3.0/ +-} +applicationGetWindows :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> m [Gtk.Window.Window] + {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of 'GI.Gtk.Objects.Window.Window' -} +applicationGetWindows application = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_get_windows application' + result' <- unpackGList result + result'' <- mapM (newObject Gtk.Window.Window) result' + touchManagedPtr application + return result'' + +#if ENABLE_OVERLOADING +data ApplicationGetWindowsMethodInfo +instance (signature ~ (m [Gtk.Window.Window]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetWindowsMethodInfo a signature where + overloadedMethod _ = applicationGetWindows + +#endif + +-- method Application::inhibit +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkWindow, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gtk", name = "ApplicationInhibitFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "what types of actions should be inhibited", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a short, human-readable string that explains\n why these operations are inhibited", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_inhibit" gtk_application_inhibit :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + Ptr Gtk.Window.Window -> -- window : TInterface (Name {namespace = "Gtk", name = "Window"}) + CUInt -> -- flags : TInterface (Name {namespace = "Gtk", name = "ApplicationInhibitFlags"}) + CString -> -- reason : TBasicType TUTF8 + IO Word32 + +{- | +Inform the session manager that certain types of actions should be +inhibited. This is not guaranteed to work on all platforms and for +all types of actions. + +Applications should invoke this method when they begin an operation +that should not be interrupted, such as creating a CD or DVD. The +types of actions that may be blocked are specified by the /@flags@/ +parameter. When the application completes the operation it should +call 'GI.Gtk.Objects.Application.applicationUninhibit' to remove the inhibitor. Note that +an application can have multiple inhibitors, and all of them must +be individually removed. Inhibitors are also cleared when the +application exits. + +Applications should not expect that they will always be able to block +the action. In most cases, users will be given the option to force +the action to take place. + +Reasons should be short and to the point. + +If /@window@/ is given, the session manager may point the user to +this window to find out more about why the action is inhibited. + +/Since: 3.4/ +-} +applicationInhibit :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => + a + {- ^ /@application@/: the 'GI.Gtk.Objects.Application.Application' -} + -> Maybe (b) + {- ^ /@window@/: a 'GI.Gtk.Objects.Window.Window', or 'Nothing' -} + -> [Gtk.Flags.ApplicationInhibitFlags] + {- ^ /@flags@/: what types of actions should be inhibited -} + -> Maybe (T.Text) + {- ^ /@reason@/: a short, human-readable string that explains + why these operations are inhibited -} + -> m Word32 + {- ^ __Returns:__ A non-zero cookie that is used to uniquely identify this + request. It should be used as an argument to 'GI.Gtk.Objects.Application.applicationUninhibit' + in order to remove the request. If the platform does not support + inhibiting or the request failed for some reason, 0 is returned. -} +applicationInhibit application window flags reason = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + maybeWindow <- case window of + Nothing -> return nullPtr + Just jWindow -> do + 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 application' maybeWindow flags' maybeReason + touchManagedPtr application + whenJust window touchManagedPtr + freeMem maybeReason + return result + +#if ENABLE_OVERLOADING +data ApplicationInhibitMethodInfo +instance (signature ~ (Maybe (b) -> [Gtk.Flags.ApplicationInhibitFlags] -> Maybe (T.Text) -> m Word32), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.MethodInfo ApplicationInhibitMethodInfo a signature where + overloadedMethod _ = applicationInhibit + +#endif + +-- method Application::is_inhibited +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gtk", name = "ApplicationInhibitFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "what types of actions should be queried", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_is_inhibited" gtk_application_is_inhibited :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + CUInt -> -- flags : TInterface (Name {namespace = "Gtk", name = "ApplicationInhibitFlags"}) + IO CInt + +{- | +Determines if any of the actions specified in /@flags@/ are +currently inhibited (possibly by another application). + +Note that this information may not be available (for example +when the application is running in a sandbox). + +/Since: 3.4/ +-} +applicationIsInhibited :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: the 'GI.Gtk.Objects.Application.Application' -} + -> [Gtk.Flags.ApplicationInhibitFlags] + {- ^ /@flags@/: what types of actions should be queried -} + -> m Bool + {- ^ __Returns:__ 'True' if any of the actions specified in /@flags@/ are inhibited -} +applicationIsInhibited application flags = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + let flags' = gflagsToWord flags + result <- gtk_application_is_inhibited application' flags' + let result' = (/= 0) result + touchManagedPtr application + return result' + +#if ENABLE_OVERLOADING +data ApplicationIsInhibitedMethodInfo +instance (signature ~ ([Gtk.Flags.ApplicationInhibitFlags] -> m Bool), MonadIO m, IsApplication a) => O.MethodInfo ApplicationIsInhibitedMethodInfo a signature where + overloadedMethod _ = applicationIsInhibited + +#endif + +-- method Application::list_action_descriptions +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_list_action_descriptions" gtk_application_list_action_descriptions :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + IO (Ptr CString) + +{- | +Lists the detailed action names which have associated accelerators. +See 'GI.Gtk.Objects.Application.applicationSetAccelsForAction'. + +/Since: 3.12/ +-} +applicationListActionDescriptions :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> m [T.Text] + {- ^ __Returns:__ a 'Nothing'-terminated array of strings, + free with 'GI.GLib.Functions.strfreev' when done -} +applicationListActionDescriptions application = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_list_action_descriptions application' + checkUnexpectedReturnNULL "applicationListActionDescriptions" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr application + return result' + +#if ENABLE_OVERLOADING +data ApplicationListActionDescriptionsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationListActionDescriptionsMethodInfo a signature where + overloadedMethod _ = applicationListActionDescriptions + +#endif + +-- method Application::prefers_app_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_prefers_app_menu" gtk_application_prefers_app_menu :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + IO CInt + +{- | +Determines if the desktop environment in which the application is +running would prefer an application menu be shown. + +If this function returns 'True' then the application should call +'GI.Gtk.Objects.Application.applicationSetAppMenu' with the contents of an application +menu, which will be shown by the desktop environment. If it returns +'False' then you should consider using an alternate approach, such as +a menubar. + +The value returned by this function is purely advisory and you are +free to ignore it. If you call 'GI.Gtk.Objects.Application.applicationSetAppMenu' even +if the desktop environment doesn\'t support app menus, then a fallback +will be provided. + +Applications are similarly free not to set an app menu even if the +desktop environment wants to show one. In that case, a fallback will +also be created by the desktop environment (GNOME, for example, uses +a menu with only a \"Quit\" item in it). + +The value returned by this function never changes. Once it returns a +particular value, it is guaranteed to always return the same value. + +You may only call this function after the application has been +registered and after the base startup handler has run. You\'re most +likely to want to use this from your own startup handler. It may +also make sense to consult this function while constructing UI (in +activate, open or an action activation handler) in order to determine +if you should show a gear menu or not. + +This function will return 'False' on Mac OS and a default app menu +will be created automatically with the \"usual\" contents of that menu +typical to most Mac OS applications. If you call +'GI.Gtk.Objects.Application.applicationSetAppMenu' anyway, then this menu will be +replaced with your own. + +/Since: 3.14/ +-} +applicationPrefersAppMenu :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> m Bool + {- ^ __Returns:__ 'True' if you should set an app menu -} +applicationPrefersAppMenu application = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_prefers_app_menu application' + let result' = (/= 0) result + touchManagedPtr application + return result' + +#if ENABLE_OVERLOADING +data ApplicationPrefersAppMenuMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.MethodInfo ApplicationPrefersAppMenuMethodInfo a signature where + overloadedMethod _ = applicationPrefersAppMenu + +#endif + +-- method Application::remove_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to activate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "parameter to pass when activating the action,\n or %NULL if the action does not accept an activation parameter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_remove_accelerator" gtk_application_remove_accelerator :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + CString -> -- action_name : TBasicType TUTF8 + Ptr GVariant -> -- parameter : TVariant + IO () + +{-# DEPRECATED applicationRemoveAccelerator ["(Since version 3.14)","Use 'GI.Gtk.Objects.Application.applicationSetAccelsForAction' instead"] #-} +{- | +Removes an accelerator that has been previously added +with 'GI.Gtk.Objects.Application.applicationAddAccelerator'. + +/Since: 3.4/ +-} +applicationRemoveAccelerator :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> T.Text + {- ^ /@actionName@/: the name of the action to activate -} + -> Maybe (GVariant) + {- ^ /@parameter@/: parameter to pass when activating the action, + or 'Nothing' if the action does not accept an activation parameter -} + -> m () +applicationRemoveAccelerator application actionName parameter = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + actionName' <- textToCString actionName + maybeParameter <- case parameter of + Nothing -> return nullPtr + Just jParameter -> do + jParameter' <- unsafeManagedPtrGetPtr jParameter + return jParameter' + gtk_application_remove_accelerator application' actionName' maybeParameter + touchManagedPtr application + whenJust parameter touchManagedPtr + freeMem actionName' + return () + +#if ENABLE_OVERLOADING +data ApplicationRemoveAcceleratorMethodInfo +instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationRemoveAcceleratorMethodInfo a signature where + overloadedMethod _ = applicationRemoveAccelerator + +#endif + +-- method Application::remove_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_remove_window" gtk_application_remove_window :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + Ptr Gtk.Window.Window -> -- window : TInterface (Name {namespace = "Gtk", name = "Window"}) + IO () + +{- | +Remove a window from /@application@/. + +If /@window@/ belongs to /@application@/ then this call is equivalent to +setting the 'GI.Gtk.Objects.Window.Window':@/application/@ property of /@window@/ to +'Nothing'. + +The application may stop running as a result of a call to this +function. + +/Since: 3.0/ +-} +applicationRemoveWindow :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> b + {- ^ /@window@/: a 'GI.Gtk.Objects.Window.Window' -} + -> m () +applicationRemoveWindow application window = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + window' <- unsafeManagedPtrCastPtr window + gtk_application_remove_window application' window' + touchManagedPtr application + touchManagedPtr window + return () + +#if ENABLE_OVERLOADING +data ApplicationRemoveWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.MethodInfo ApplicationRemoveWindowMethodInfo a signature where + overloadedMethod _ = applicationRemoveWindow + +#endif + +-- method Application::set_accels_for_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a detailed action name, specifying an action\n and target to associate accelerators with", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a list of accelerators in the format\n understood by gtk_accelerator_parse()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_set_accels_for_action" gtk_application_set_accels_for_action :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + CString -> -- detailed_action_name : TBasicType TUTF8 + Ptr CString -> -- accels : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + +{- | +Sets zero or more keyboard accelerators that will trigger the +given action. The first item in /@accels@/ will be the primary +accelerator, which may be displayed in the UI. + +To remove all accelerators for an action, use an empty, zero-terminated +array for /@accels@/. + +For the /@detailedActionName@/, see 'GI.Gio.Functions.actionParseDetailedName' and +'GI.Gio.Functions.actionPrintDetailedName'. + +/Since: 3.12/ +-} +applicationSetAccelsForAction :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> T.Text + {- ^ /@detailedActionName@/: a detailed action name, specifying an action + and target to associate accelerators with -} + -> [T.Text] + {- ^ /@accels@/: a list of accelerators in the format + understood by 'GI.Gtk.Functions.acceleratorParse' -} + -> m () +applicationSetAccelsForAction application detailedActionName accels = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + detailedActionName' <- textToCString detailedActionName + accels' <- packZeroTerminatedUTF8CArray accels + gtk_application_set_accels_for_action application' detailedActionName' accels' + touchManagedPtr application + freeMem detailedActionName' + mapZeroTerminatedCArray freeMem accels' + freeMem accels' + return () + +#if ENABLE_OVERLOADING +data ApplicationSetAccelsForActionMethodInfo +instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetAccelsForActionMethodInfo a signature where + overloadedMethod _ = applicationSetAccelsForAction + +#endif + +-- method Application::set_app_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_menu", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMenuModel, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_set_app_menu" gtk_application_set_app_menu :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + Ptr Gio.MenuModel.MenuModel -> -- app_menu : TInterface (Name {namespace = "Gio", name = "MenuModel"}) + IO () + +{- | +Sets or unsets the application menu for /@application@/. + +This can only be done in the primary instance of the application, +after it has been registered. 'GI.Gio.Objects.Application.Application'::@/startup/@ is a good place +to call this. + +The application menu is a single menu containing items that typically +impact the application as a whole, rather than acting on a specific +window or document. For example, you would expect to see +“Preferences” or “Quit” in an application menu, but not “Save” or +“Print”. + +If supported, the application menu will be rendered by the desktop +environment. + +Use the base 'GI.Gio.Interfaces.ActionMap.ActionMap' interface to add actions, to respond to the user +selecting these menu items. + +/Since: 3.4/ +-} +applicationSetAppMenu :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> Maybe (b) + {- ^ /@appMenu@/: a 'GI.Gio.Objects.MenuModel.MenuModel', or 'Nothing' -} + -> m () +applicationSetAppMenu application appMenu = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + maybeAppMenu <- case appMenu of + Nothing -> return nullPtr + Just jAppMenu -> do + jAppMenu' <- unsafeManagedPtrCastPtr jAppMenu + return jAppMenu' + gtk_application_set_app_menu application' maybeAppMenu + touchManagedPtr application + whenJust appMenu touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ApplicationSetAppMenuMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo ApplicationSetAppMenuMethodInfo a signature where + overloadedMethod _ = applicationSetAppMenu + +#endif + +-- method Application::set_menubar +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menubar", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMenuModel, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_set_menubar" gtk_application_set_menubar :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + Ptr Gio.MenuModel.MenuModel -> -- menubar : TInterface (Name {namespace = "Gio", name = "MenuModel"}) + IO () + +{- | +Sets or unsets the menubar for windows of /@application@/. + +This is a menubar in the traditional sense. + +This can only be done in the primary instance of the application, +after it has been registered. 'GI.Gio.Objects.Application.Application'::@/startup/@ is a good place +to call this. + +Depending on the desktop environment, this may appear at the top of +each window, or at the top of the screen. In some environments, if +both the application menu and the menubar are set, the application +menu will be presented as if it were the first item of the menubar. +Other environments treat the two as completely separate — for example, +the application menu may be rendered by the desktop shell while the +menubar (if set) remains in each individual window. + +Use the base 'GI.Gio.Interfaces.ActionMap.ActionMap' interface to add actions, to respond to the +user selecting these menu items. + +/Since: 3.4/ +-} +applicationSetMenubar :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> Maybe (b) + {- ^ /@menubar@/: a 'GI.Gio.Objects.MenuModel.MenuModel', or 'Nothing' -} + -> m () +applicationSetMenubar application menubar = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + maybeMenubar <- case menubar of + Nothing -> return nullPtr + Just jMenubar -> do + jMenubar' <- unsafeManagedPtrCastPtr jMenubar + return jMenubar' + gtk_application_set_menubar application' maybeMenubar + touchManagedPtr application + whenJust menubar touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ApplicationSetMenubarMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo ApplicationSetMenubarMethodInfo a signature where + overloadedMethod _ = applicationSetMenubar + +#endif + +-- method Application::uninhibit +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a cookie that was returned by gtk_application_inhibit()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_uninhibit" gtk_application_uninhibit :: + Ptr Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + Word32 -> -- cookie : TBasicType TUInt + IO () + +{- | +Removes an inhibitor that has been established with 'GI.Gtk.Objects.Application.applicationInhibit'. +Inhibitors are also cleared when the application exits. + +/Since: 3.4/ +-} +applicationUninhibit :: + (B.CallStack.HasCallStack, MonadIO m, IsApplication a) => + a + {- ^ /@application@/: the 'GI.Gtk.Objects.Application.Application' -} + -> Word32 + {- ^ /@cookie@/: a cookie that was returned by 'GI.Gtk.Objects.Application.applicationInhibit' -} + -> m () +applicationUninhibit application cookie = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + gtk_application_uninhibit application' cookie + touchManagedPtr application + return () + +#if ENABLE_OVERLOADING +data ApplicationUninhibitMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationUninhibitMethodInfo a signature where + overloadedMethod _ = applicationUninhibit + +#endif + + diff --git a/GI/Gtk/Objects/Application.hs-boot b/GI/Gtk/Objects/Application.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Application.hs-boot @@ -0,0 +1,113 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Application where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Application = Application (ManagedPtr Application) +instance GObject Application where +class (GObject o, O.IsDescendantOf Application o) => IsApplication o +instance (GObject o, O.IsDescendantOf Application o) => IsApplication o +instance O.HasParentTypes Application +#if ENABLE_OVERLOADING +data ApplicationActiveWindowPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationAppMenuPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationMenubarPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationRegisterSessionPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationScreensaverActivePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationQueryEndSignalInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationWindowAddedSignalInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationWindowRemovedSignalInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationAddAcceleratorMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationAddWindowMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetAccelsForActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetActionsForAccelMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetActiveWindowMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetAppMenuMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetMenuByIdMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetMenubarMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetWindowByIdMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationGetWindowsMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationInhibitMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationIsInhibitedMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationListActionDescriptionsMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationPrefersAppMenuMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationRemoveAcceleratorMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationRemoveWindowMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationSetAccelsForActionMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationSetAppMenuMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationSetMenubarMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationUninhibitMethodInfo +#endif diff --git a/GI/Gtk/Objects/ApplicationWindow.hs b/GI/Gtk/Objects/ApplicationWindow.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ApplicationWindow.hs @@ -0,0 +1,1026 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' is a 'GI.Gtk.Objects.Window.Window' subclass that offers some +extra functionality for better integration with 'GI.Gtk.Objects.Application.Application' +features. Notably, it can handle both the application menu as well +as the menubar. See 'GI.Gtk.Objects.Application.applicationSetAppMenu' and +'GI.Gtk.Objects.Application.applicationSetMenubar'. + +This class implements the 'GI.Gio.Interfaces.ActionGroup.ActionGroup' and 'GI.Gio.Interfaces.ActionMap.ActionMap' interfaces, +to let you add window-specific actions that will be exported by the +associated 'GI.Gtk.Objects.Application.Application', together with its application-wide +actions. Window-specific actions are prefixed with the “win.” +prefix and application-wide actions are prefixed with the “app.” +prefix. Actions must be addressed with the prefixed name when +referring to them from a 'GI.Gio.Objects.MenuModel.MenuModel'. + +Note that widgets that are placed inside a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' +can also activate these actions, if they implement the +'GI.Gtk.Interfaces.Actionable.Actionable' interface. + +As with 'GI.Gtk.Objects.Application.Application', the GDK lock will be acquired when +processing actions arriving from other processes and should therefore +be held when activating actions locally (if GDK threads are enabled). + +The settings 'GI.Gtk.Objects.Settings.Settings':@/gtk-shell-shows-app-menu/@ and +'GI.Gtk.Objects.Settings.Settings':@/gtk-shell-shows-menubar/@ tell GTK+ whether the +desktop environment is showing the application menu and menubar +models outside the application as part of the desktop shell. +For instance, on OS X, both menus will be displayed remotely; +on Windows neither will be. gnome-shell (starting with version 3.4) +will display the application menu, but not the menubar. + +If the desktop environment does not display the menubar, then +'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' will automatically show a 'GI.Gtk.Objects.MenuBar.MenuBar' for it. +This behaviour can be overridden with the 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow':@/show-menubar/@ +property. If the desktop environment does not display the application +menu, then it will automatically be included in the menubar or in the +windows client-side decorations. + +== A GtkApplicationWindow with a menubar + + +=== /C code/ +> +>GtkApplication *app = gtk_application_new ("org.gtk.test", 0); +> +>GtkBuilder *builder = gtk_builder_new_from_string ( +> "" +> " " +> " " +> " " +> " " +> " " +> " " +> "", +> -1); +> +>GMenuModel *menubar = G_MENU_MODEL (gtk_builder_get_object (builder, +> "menubar")); +>gtk_application_set_menubar (GTK_APPLICATION (app), menubar); +>g_object_unref (builder); +> +>// ... +> +>GtkWidget *window = gtk_application_window_new (app); + + +== Handling fallback yourself + + + +The XML format understood by 'GI.Gtk.Objects.Builder.Builder' for 'GI.Gio.Objects.MenuModel.MenuModel' consists +of a toplevel @\@ element, which contains one or more @\@ +elements. Each @\@ element contains @\@ and @\@ +elements with a mandatory name attribute. @\@ elements have the +same content model as @\@. Instead of @\@ or +@\@, you can use @\@ or @\
@ +elements. + +Attribute values can be translated using gettext, like other 'GI.Gtk.Objects.Builder.Builder' +content. @\@ elements can be marked for translation with a +@translatable=\"yes\"@ attribute. It is also possible to specify message +context and translator comments, using the context and comments attributes. +To make use of this, the 'GI.Gtk.Objects.Builder.Builder' must have been given the gettext +domain to use. + +The following attributes are used when constructing menu items: + +* \"label\": a user-visible string to display +* \"action\": the prefixed name of the action to trigger +* \"target\": the parameter to use when activating the action +* \"icon\" and \"verb-icon\": names of icons that may be displayed +* \"submenu-action\": name of an action that may be used to determine + if a submenu can be opened +* \"hidden-when\": a string used to determine when the item will be hidden. + Possible values include \"action-disabled\", \"action-missing\", \"macos-menubar\". + + +The following attributes are used when constructing sections: + +* \"label\": a user-visible string to use as section heading +* \"display-hint\": a string used to determine special formatting for the section. + Possible values include \"horizontal-buttons\". +* \"text-direction\": a string used to determine the 'GI.Gtk.Enums.TextDirection' to use + when \"display-hint\" is set to \"horizontal-buttons\". Possible values + include \"rtl\", \"ltr\", and \"none\". + + +The following attributes are used when constructing submenus: + +* \"label\": a user-visible string to display +* \"icon\": icon name to display + +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.ApplicationWindow + ( + +-- * Exported types + ApplicationWindow(..) , + IsApplicationWindow , + toApplicationWindow , + noApplicationWindow , + + + -- * Methods +-- ** getHelpOverlay #method:getHelpOverlay# + +#if ENABLE_OVERLOADING + ApplicationWindowGetHelpOverlayMethodInfo, +#endif + applicationWindowGetHelpOverlay , + + +-- ** getId #method:getId# + +#if ENABLE_OVERLOADING + ApplicationWindowGetIdMethodInfo , +#endif + applicationWindowGetId , + + +-- ** getShowMenubar #method:getShowMenubar# + +#if ENABLE_OVERLOADING + ApplicationWindowGetShowMenubarMethodInfo, +#endif + applicationWindowGetShowMenubar , + + +-- ** new #method:new# + + applicationWindowNew , + + +-- ** setHelpOverlay #method:setHelpOverlay# + +#if ENABLE_OVERLOADING + ApplicationWindowSetHelpOverlayMethodInfo, +#endif + applicationWindowSetHelpOverlay , + + +-- ** setShowMenubar #method:setShowMenubar# + +#if ENABLE_OVERLOADING + ApplicationWindowSetShowMenubarMethodInfo, +#endif + applicationWindowSetShowMenubar , + + + + + -- * Properties +-- ** showMenubar #attr:showMenubar# +{- | If this property is 'True', the window will display a menubar +that includes the app menu and menubar, unless these are +shown by the desktop shell. See 'GI.Gtk.Objects.Application.applicationSetAppMenu' +and 'GI.Gtk.Objects.Application.applicationSetMenubar'. + +If 'False', the window will not display a menubar, regardless +of whether the desktop shell is showing the menus or not. +-} +#if ENABLE_OVERLOADING + ApplicationWindowShowMenubarPropertyInfo, +#endif +#if ENABLE_OVERLOADING + applicationWindowShowMenubar , +#endif + constructApplicationWindowShowMenubar , + getApplicationWindowShowMenubar , + setApplicationWindowShowMenubar , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup +import qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Application as Gtk.Application +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.ShortcutsWindow as Gtk.ShortcutsWindow +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget +import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window + +-- | Memory-managed wrapper type. +newtype ApplicationWindow = ApplicationWindow (ManagedPtr ApplicationWindow) +foreign import ccall "gtk_application_window_get_type" + c_gtk_application_window_get_type :: IO GType + +instance GObject ApplicationWindow where + gobjectType = c_gtk_application_window_get_type + + +-- | Type class for types which can be safely cast to `ApplicationWindow`, for instance with `toApplicationWindow`. +class (GObject o, O.IsDescendantOf ApplicationWindow o) => IsApplicationWindow o +instance (GObject o, O.IsDescendantOf ApplicationWindow o) => IsApplicationWindow o + +instance O.HasParentTypes ApplicationWindow +type instance O.ParentTypes ApplicationWindow = '[Gtk.Window.Window, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gio.ActionGroup.ActionGroup, Gio.ActionMap.ActionMap, Gtk.Buildable.Buildable] + +-- | Cast to `ApplicationWindow`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toApplicationWindow :: (MonadIO m, IsApplicationWindow o) => o -> m ApplicationWindow +toApplicationWindow = liftIO . unsafeCastTo ApplicationWindow + +-- | A convenience alias for `Nothing` :: `Maybe` `ApplicationWindow`. +noApplicationWindow :: Maybe ApplicationWindow +noApplicationWindow = Nothing + +#if ENABLE_OVERLOADING +type family ResolveApplicationWindowMethod (t :: Symbol) (o :: *) :: * where + ResolveApplicationWindowMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo + ResolveApplicationWindowMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo + ResolveApplicationWindowMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo + ResolveApplicationWindowMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo + ResolveApplicationWindowMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveApplicationWindowMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo + ResolveApplicationWindowMethod "activateDefault" o = Gtk.Window.WindowActivateDefaultMethodInfo + ResolveApplicationWindowMethod "activateFocus" o = Gtk.Window.WindowActivateFocusMethodInfo + ResolveApplicationWindowMethod "activateKey" o = Gtk.Window.WindowActivateKeyMethodInfo + ResolveApplicationWindowMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveApplicationWindowMethod "addAccelGroup" o = Gtk.Window.WindowAddAccelGroupMethodInfo + ResolveApplicationWindowMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveApplicationWindowMethod "addAction" o = Gio.ActionMap.ActionMapAddActionMethodInfo + ResolveApplicationWindowMethod "addActionEntries" o = Gio.ActionMap.ActionMapAddActionEntriesMethodInfo + ResolveApplicationWindowMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveApplicationWindowMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveApplicationWindowMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveApplicationWindowMethod "addMnemonic" o = Gtk.Window.WindowAddMnemonicMethodInfo + ResolveApplicationWindowMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveApplicationWindowMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveApplicationWindowMethod "beginMoveDrag" o = Gtk.Window.WindowBeginMoveDragMethodInfo + ResolveApplicationWindowMethod "beginResizeDrag" o = Gtk.Window.WindowBeginResizeDragMethodInfo + ResolveApplicationWindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveApplicationWindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveApplicationWindowMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveApplicationWindowMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo + ResolveApplicationWindowMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveApplicationWindowMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveApplicationWindowMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveApplicationWindowMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveApplicationWindowMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveApplicationWindowMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveApplicationWindowMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveApplicationWindowMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveApplicationWindowMethod "close" o = Gtk.Window.WindowCloseMethodInfo + ResolveApplicationWindowMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveApplicationWindowMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveApplicationWindowMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveApplicationWindowMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveApplicationWindowMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveApplicationWindowMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveApplicationWindowMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveApplicationWindowMethod "deiconify" o = Gtk.Window.WindowDeiconifyMethodInfo + ResolveApplicationWindowMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveApplicationWindowMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveApplicationWindowMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveApplicationWindowMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveApplicationWindowMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveApplicationWindowMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveApplicationWindowMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveApplicationWindowMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveApplicationWindowMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveApplicationWindowMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveApplicationWindowMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveApplicationWindowMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveApplicationWindowMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveApplicationWindowMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveApplicationWindowMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveApplicationWindowMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveApplicationWindowMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveApplicationWindowMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveApplicationWindowMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveApplicationWindowMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveApplicationWindowMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveApplicationWindowMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveApplicationWindowMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveApplicationWindowMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveApplicationWindowMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveApplicationWindowMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveApplicationWindowMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveApplicationWindowMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveApplicationWindowMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveApplicationWindowMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveApplicationWindowMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveApplicationWindowMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveApplicationWindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveApplicationWindowMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveApplicationWindowMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveApplicationWindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveApplicationWindowMethod "fullscreen" o = Gtk.Window.WindowFullscreenMethodInfo + ResolveApplicationWindowMethod "fullscreenOnMonitor" o = Gtk.Window.WindowFullscreenOnMonitorMethodInfo + ResolveApplicationWindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveApplicationWindowMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveApplicationWindowMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveApplicationWindowMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveApplicationWindowMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveApplicationWindowMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo + ResolveApplicationWindowMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveApplicationWindowMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveApplicationWindowMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveApplicationWindowMethod "hasGroup" o = Gtk.Window.WindowHasGroupMethodInfo + ResolveApplicationWindowMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveApplicationWindowMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveApplicationWindowMethod "hasToplevelFocus" o = Gtk.Window.WindowHasToplevelFocusMethodInfo + ResolveApplicationWindowMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveApplicationWindowMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveApplicationWindowMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveApplicationWindowMethod "iconify" o = Gtk.Window.WindowIconifyMethodInfo + ResolveApplicationWindowMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveApplicationWindowMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveApplicationWindowMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveApplicationWindowMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveApplicationWindowMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveApplicationWindowMethod "isActive" o = Gtk.Window.WindowIsActiveMethodInfo + ResolveApplicationWindowMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveApplicationWindowMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveApplicationWindowMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveApplicationWindowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveApplicationWindowMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveApplicationWindowMethod "isMaximized" o = Gtk.Window.WindowIsMaximizedMethodInfo + ResolveApplicationWindowMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveApplicationWindowMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveApplicationWindowMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveApplicationWindowMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveApplicationWindowMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveApplicationWindowMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveApplicationWindowMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo + ResolveApplicationWindowMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveApplicationWindowMethod "lookupAction" o = Gio.ActionMap.ActionMapLookupActionMethodInfo + ResolveApplicationWindowMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveApplicationWindowMethod "maximize" o = Gtk.Window.WindowMaximizeMethodInfo + ResolveApplicationWindowMethod "mnemonicActivate" o = Gtk.Window.WindowMnemonicActivateMethodInfo + ResolveApplicationWindowMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveApplicationWindowMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveApplicationWindowMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveApplicationWindowMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveApplicationWindowMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveApplicationWindowMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveApplicationWindowMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveApplicationWindowMethod "move" o = Gtk.Window.WindowMoveMethodInfo + ResolveApplicationWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveApplicationWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveApplicationWindowMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveApplicationWindowMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveApplicationWindowMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveApplicationWindowMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveApplicationWindowMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveApplicationWindowMethod "parseGeometry" o = Gtk.Window.WindowParseGeometryMethodInfo + ResolveApplicationWindowMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveApplicationWindowMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveApplicationWindowMethod "present" o = Gtk.Window.WindowPresentMethodInfo + ResolveApplicationWindowMethod "presentWithTime" o = Gtk.Window.WindowPresentWithTimeMethodInfo + ResolveApplicationWindowMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveApplicationWindowMethod "propagateKeyEvent" o = Gtk.Window.WindowPropagateKeyEventMethodInfo + ResolveApplicationWindowMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo + ResolveApplicationWindowMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveApplicationWindowMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveApplicationWindowMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveApplicationWindowMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveApplicationWindowMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveApplicationWindowMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveApplicationWindowMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveApplicationWindowMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveApplicationWindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveApplicationWindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveApplicationWindowMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveApplicationWindowMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveApplicationWindowMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveApplicationWindowMethod "removeAccelGroup" o = Gtk.Window.WindowRemoveAccelGroupMethodInfo + ResolveApplicationWindowMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveApplicationWindowMethod "removeAction" o = Gio.ActionMap.ActionMapRemoveActionMethodInfo + ResolveApplicationWindowMethod "removeMnemonic" o = Gtk.Window.WindowRemoveMnemonicMethodInfo + ResolveApplicationWindowMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveApplicationWindowMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveApplicationWindowMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveApplicationWindowMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveApplicationWindowMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveApplicationWindowMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveApplicationWindowMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveApplicationWindowMethod "reshowWithInitialSize" o = Gtk.Window.WindowReshowWithInitialSizeMethodInfo + ResolveApplicationWindowMethod "resize" o = Gtk.Window.WindowResizeMethodInfo + ResolveApplicationWindowMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveApplicationWindowMethod "resizeGripIsVisible" o = Gtk.Window.WindowResizeGripIsVisibleMethodInfo + ResolveApplicationWindowMethod "resizeToGeometry" o = Gtk.Window.WindowResizeToGeometryMethodInfo + ResolveApplicationWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveApplicationWindowMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveApplicationWindowMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveApplicationWindowMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveApplicationWindowMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveApplicationWindowMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveApplicationWindowMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveApplicationWindowMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveApplicationWindowMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveApplicationWindowMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveApplicationWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveApplicationWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveApplicationWindowMethod "stick" o = Gtk.Window.WindowStickMethodInfo + ResolveApplicationWindowMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveApplicationWindowMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveApplicationWindowMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveApplicationWindowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveApplicationWindowMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveApplicationWindowMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveApplicationWindowMethod "unfullscreen" o = Gtk.Window.WindowUnfullscreenMethodInfo + ResolveApplicationWindowMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveApplicationWindowMethod "unmaximize" o = Gtk.Window.WindowUnmaximizeMethodInfo + ResolveApplicationWindowMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveApplicationWindowMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveApplicationWindowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveApplicationWindowMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveApplicationWindowMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveApplicationWindowMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveApplicationWindowMethod "unstick" o = Gtk.Window.WindowUnstickMethodInfo + ResolveApplicationWindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveApplicationWindowMethod "getAcceptFocus" o = Gtk.Window.WindowGetAcceptFocusMethodInfo + ResolveApplicationWindowMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveApplicationWindowMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo + ResolveApplicationWindowMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveApplicationWindowMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo + ResolveApplicationWindowMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo + ResolveApplicationWindowMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo + ResolveApplicationWindowMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo + ResolveApplicationWindowMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveApplicationWindowMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveApplicationWindowMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveApplicationWindowMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveApplicationWindowMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveApplicationWindowMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveApplicationWindowMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveApplicationWindowMethod "getApplication" o = Gtk.Window.WindowGetApplicationMethodInfo + ResolveApplicationWindowMethod "getAttachedTo" o = Gtk.Window.WindowGetAttachedToMethodInfo + ResolveApplicationWindowMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveApplicationWindowMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveApplicationWindowMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveApplicationWindowMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveApplicationWindowMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveApplicationWindowMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveApplicationWindowMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveApplicationWindowMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveApplicationWindowMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveApplicationWindowMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveApplicationWindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveApplicationWindowMethod "getDecorated" o = Gtk.Window.WindowGetDecoratedMethodInfo + ResolveApplicationWindowMethod "getDefaultSize" o = Gtk.Window.WindowGetDefaultSizeMethodInfo + ResolveApplicationWindowMethod "getDefaultWidget" o = Gtk.Window.WindowGetDefaultWidgetMethodInfo + ResolveApplicationWindowMethod "getDeletable" o = Gtk.Window.WindowGetDeletableMethodInfo + ResolveApplicationWindowMethod "getDestroyWithParent" o = Gtk.Window.WindowGetDestroyWithParentMethodInfo + ResolveApplicationWindowMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveApplicationWindowMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveApplicationWindowMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveApplicationWindowMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveApplicationWindowMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveApplicationWindowMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveApplicationWindowMethod "getFocus" o = Gtk.Window.WindowGetFocusMethodInfo + ResolveApplicationWindowMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveApplicationWindowMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveApplicationWindowMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveApplicationWindowMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveApplicationWindowMethod "getFocusOnMap" o = Gtk.Window.WindowGetFocusOnMapMethodInfo + ResolveApplicationWindowMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveApplicationWindowMethod "getFocusVisible" o = Gtk.Window.WindowGetFocusVisibleMethodInfo + ResolveApplicationWindowMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveApplicationWindowMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveApplicationWindowMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveApplicationWindowMethod "getGravity" o = Gtk.Window.WindowGetGravityMethodInfo + ResolveApplicationWindowMethod "getGroup" o = Gtk.Window.WindowGetGroupMethodInfo + ResolveApplicationWindowMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveApplicationWindowMethod "getHasResizeGrip" o = Gtk.Window.WindowGetHasResizeGripMethodInfo + ResolveApplicationWindowMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveApplicationWindowMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveApplicationWindowMethod "getHelpOverlay" o = ApplicationWindowGetHelpOverlayMethodInfo + ResolveApplicationWindowMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveApplicationWindowMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveApplicationWindowMethod "getHideTitlebarWhenMaximized" o = Gtk.Window.WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveApplicationWindowMethod "getIcon" o = Gtk.Window.WindowGetIconMethodInfo + ResolveApplicationWindowMethod "getIconList" o = Gtk.Window.WindowGetIconListMethodInfo + ResolveApplicationWindowMethod "getIconName" o = Gtk.Window.WindowGetIconNameMethodInfo + ResolveApplicationWindowMethod "getId" o = ApplicationWindowGetIdMethodInfo + ResolveApplicationWindowMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveApplicationWindowMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveApplicationWindowMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveApplicationWindowMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveApplicationWindowMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveApplicationWindowMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveApplicationWindowMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveApplicationWindowMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveApplicationWindowMethod "getMnemonicModifier" o = Gtk.Window.WindowGetMnemonicModifierMethodInfo + ResolveApplicationWindowMethod "getMnemonicsVisible" o = Gtk.Window.WindowGetMnemonicsVisibleMethodInfo + ResolveApplicationWindowMethod "getModal" o = Gtk.Window.WindowGetModalMethodInfo + ResolveApplicationWindowMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveApplicationWindowMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveApplicationWindowMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveApplicationWindowMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveApplicationWindowMethod "getOpacity" o = Gtk.Window.WindowGetOpacityMethodInfo + ResolveApplicationWindowMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveApplicationWindowMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveApplicationWindowMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveApplicationWindowMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveApplicationWindowMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveApplicationWindowMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveApplicationWindowMethod "getPosition" o = Gtk.Window.WindowGetPositionMethodInfo + ResolveApplicationWindowMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveApplicationWindowMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveApplicationWindowMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveApplicationWindowMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveApplicationWindowMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveApplicationWindowMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveApplicationWindowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveApplicationWindowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveApplicationWindowMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveApplicationWindowMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveApplicationWindowMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveApplicationWindowMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveApplicationWindowMethod "getResizable" o = Gtk.Window.WindowGetResizableMethodInfo + ResolveApplicationWindowMethod "getResizeGripArea" o = Gtk.Window.WindowGetResizeGripAreaMethodInfo + ResolveApplicationWindowMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveApplicationWindowMethod "getRole" o = Gtk.Window.WindowGetRoleMethodInfo + ResolveApplicationWindowMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveApplicationWindowMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveApplicationWindowMethod "getScreen" o = Gtk.Window.WindowGetScreenMethodInfo + ResolveApplicationWindowMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveApplicationWindowMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveApplicationWindowMethod "getShowMenubar" o = ApplicationWindowGetShowMenubarMethodInfo + ResolveApplicationWindowMethod "getSize" o = Gtk.Window.WindowGetSizeMethodInfo + ResolveApplicationWindowMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveApplicationWindowMethod "getSkipPagerHint" o = Gtk.Window.WindowGetSkipPagerHintMethodInfo + ResolveApplicationWindowMethod "getSkipTaskbarHint" o = Gtk.Window.WindowGetSkipTaskbarHintMethodInfo + ResolveApplicationWindowMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveApplicationWindowMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveApplicationWindowMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveApplicationWindowMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveApplicationWindowMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveApplicationWindowMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveApplicationWindowMethod "getTitle" o = Gtk.Window.WindowGetTitleMethodInfo + ResolveApplicationWindowMethod "getTitlebar" o = Gtk.Window.WindowGetTitlebarMethodInfo + ResolveApplicationWindowMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveApplicationWindowMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveApplicationWindowMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveApplicationWindowMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveApplicationWindowMethod "getTransientFor" o = Gtk.Window.WindowGetTransientForMethodInfo + ResolveApplicationWindowMethod "getTypeHint" o = Gtk.Window.WindowGetTypeHintMethodInfo + ResolveApplicationWindowMethod "getUrgencyHint" o = Gtk.Window.WindowGetUrgencyHintMethodInfo + ResolveApplicationWindowMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveApplicationWindowMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveApplicationWindowMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveApplicationWindowMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveApplicationWindowMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveApplicationWindowMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveApplicationWindowMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveApplicationWindowMethod "getWindowType" o = Gtk.Window.WindowGetWindowTypeMethodInfo + ResolveApplicationWindowMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveApplicationWindowMethod "setAcceptFocus" o = Gtk.Window.WindowSetAcceptFocusMethodInfo + ResolveApplicationWindowMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveApplicationWindowMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveApplicationWindowMethod "setApplication" o = Gtk.Window.WindowSetApplicationMethodInfo + ResolveApplicationWindowMethod "setAttachedTo" o = Gtk.Window.WindowSetAttachedToMethodInfo + ResolveApplicationWindowMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveApplicationWindowMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveApplicationWindowMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveApplicationWindowMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveApplicationWindowMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveApplicationWindowMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveApplicationWindowMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveApplicationWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveApplicationWindowMethod "setDecorated" o = Gtk.Window.WindowSetDecoratedMethodInfo + ResolveApplicationWindowMethod "setDefault" o = Gtk.Window.WindowSetDefaultMethodInfo + ResolveApplicationWindowMethod "setDefaultGeometry" o = Gtk.Window.WindowSetDefaultGeometryMethodInfo + ResolveApplicationWindowMethod "setDefaultSize" o = Gtk.Window.WindowSetDefaultSizeMethodInfo + ResolveApplicationWindowMethod "setDeletable" o = Gtk.Window.WindowSetDeletableMethodInfo + ResolveApplicationWindowMethod "setDestroyWithParent" o = Gtk.Window.WindowSetDestroyWithParentMethodInfo + ResolveApplicationWindowMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveApplicationWindowMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveApplicationWindowMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveApplicationWindowMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveApplicationWindowMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveApplicationWindowMethod "setFocus" o = Gtk.Window.WindowSetFocusMethodInfo + ResolveApplicationWindowMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveApplicationWindowMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveApplicationWindowMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveApplicationWindowMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveApplicationWindowMethod "setFocusOnMap" o = Gtk.Window.WindowSetFocusOnMapMethodInfo + ResolveApplicationWindowMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveApplicationWindowMethod "setFocusVisible" o = Gtk.Window.WindowSetFocusVisibleMethodInfo + ResolveApplicationWindowMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveApplicationWindowMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveApplicationWindowMethod "setGeometryHints" o = Gtk.Window.WindowSetGeometryHintsMethodInfo + ResolveApplicationWindowMethod "setGravity" o = Gtk.Window.WindowSetGravityMethodInfo + ResolveApplicationWindowMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveApplicationWindowMethod "setHasResizeGrip" o = Gtk.Window.WindowSetHasResizeGripMethodInfo + ResolveApplicationWindowMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveApplicationWindowMethod "setHasUserRefCount" o = Gtk.Window.WindowSetHasUserRefCountMethodInfo + ResolveApplicationWindowMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveApplicationWindowMethod "setHelpOverlay" o = ApplicationWindowSetHelpOverlayMethodInfo + ResolveApplicationWindowMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveApplicationWindowMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveApplicationWindowMethod "setHideTitlebarWhenMaximized" o = Gtk.Window.WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveApplicationWindowMethod "setIcon" o = Gtk.Window.WindowSetIconMethodInfo + ResolveApplicationWindowMethod "setIconFromFile" o = Gtk.Window.WindowSetIconFromFileMethodInfo + ResolveApplicationWindowMethod "setIconList" o = Gtk.Window.WindowSetIconListMethodInfo + ResolveApplicationWindowMethod "setIconName" o = Gtk.Window.WindowSetIconNameMethodInfo + ResolveApplicationWindowMethod "setKeepAbove" o = Gtk.Window.WindowSetKeepAboveMethodInfo + ResolveApplicationWindowMethod "setKeepBelow" o = Gtk.Window.WindowSetKeepBelowMethodInfo + ResolveApplicationWindowMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveApplicationWindowMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveApplicationWindowMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveApplicationWindowMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveApplicationWindowMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveApplicationWindowMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveApplicationWindowMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveApplicationWindowMethod "setMnemonicModifier" o = Gtk.Window.WindowSetMnemonicModifierMethodInfo + ResolveApplicationWindowMethod "setMnemonicsVisible" o = Gtk.Window.WindowSetMnemonicsVisibleMethodInfo + ResolveApplicationWindowMethod "setModal" o = Gtk.Window.WindowSetModalMethodInfo + ResolveApplicationWindowMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveApplicationWindowMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveApplicationWindowMethod "setOpacity" o = Gtk.Window.WindowSetOpacityMethodInfo + ResolveApplicationWindowMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveApplicationWindowMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveApplicationWindowMethod "setPosition" o = Gtk.Window.WindowSetPositionMethodInfo + ResolveApplicationWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveApplicationWindowMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveApplicationWindowMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveApplicationWindowMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveApplicationWindowMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveApplicationWindowMethod "setResizable" o = Gtk.Window.WindowSetResizableMethodInfo + ResolveApplicationWindowMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveApplicationWindowMethod "setRole" o = Gtk.Window.WindowSetRoleMethodInfo + ResolveApplicationWindowMethod "setScreen" o = Gtk.Window.WindowSetScreenMethodInfo + ResolveApplicationWindowMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveApplicationWindowMethod "setShowMenubar" o = ApplicationWindowSetShowMenubarMethodInfo + ResolveApplicationWindowMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveApplicationWindowMethod "setSkipPagerHint" o = Gtk.Window.WindowSetSkipPagerHintMethodInfo + ResolveApplicationWindowMethod "setSkipTaskbarHint" o = Gtk.Window.WindowSetSkipTaskbarHintMethodInfo + ResolveApplicationWindowMethod "setStartupId" o = Gtk.Window.WindowSetStartupIdMethodInfo + ResolveApplicationWindowMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveApplicationWindowMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveApplicationWindowMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveApplicationWindowMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveApplicationWindowMethod "setTitle" o = Gtk.Window.WindowSetTitleMethodInfo + ResolveApplicationWindowMethod "setTitlebar" o = Gtk.Window.WindowSetTitlebarMethodInfo + ResolveApplicationWindowMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveApplicationWindowMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveApplicationWindowMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveApplicationWindowMethod "setTransientFor" o = Gtk.Window.WindowSetTransientForMethodInfo + ResolveApplicationWindowMethod "setTypeHint" o = Gtk.Window.WindowSetTypeHintMethodInfo + ResolveApplicationWindowMethod "setUrgencyHint" o = Gtk.Window.WindowSetUrgencyHintMethodInfo + ResolveApplicationWindowMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveApplicationWindowMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveApplicationWindowMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveApplicationWindowMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveApplicationWindowMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveApplicationWindowMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveApplicationWindowMethod "setWmclass" o = Gtk.Window.WindowSetWmclassMethodInfo + ResolveApplicationWindowMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveApplicationWindowMethod t ApplicationWindow, O.MethodInfo info ApplicationWindow p) => OL.IsLabel t (ApplicationWindow -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- VVV Prop "show-menubar" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@show-menubar@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' applicationWindow #showMenubar +@ +-} +getApplicationWindowShowMenubar :: (MonadIO m, IsApplicationWindow o) => o -> m Bool +getApplicationWindowShowMenubar obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-menubar" + +{- | +Set the value of the “@show-menubar@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' applicationWindow [ #showMenubar 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setApplicationWindowShowMenubar :: (MonadIO m, IsApplicationWindow o) => o -> Bool -> m () +setApplicationWindowShowMenubar obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-menubar" val + +{- | +Construct a `GValueConstruct` with valid value for the “@show-menubar@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructApplicationWindowShowMenubar :: (IsApplicationWindow o) => Bool -> IO (GValueConstruct o) +constructApplicationWindowShowMenubar val = B.Properties.constructObjectPropertyBool "show-menubar" val + +#if ENABLE_OVERLOADING +data ApplicationWindowShowMenubarPropertyInfo +instance AttrInfo ApplicationWindowShowMenubarPropertyInfo where + type AttrAllowedOps ApplicationWindowShowMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ApplicationWindowShowMenubarPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ApplicationWindowShowMenubarPropertyInfo = IsApplicationWindow + type AttrGetType ApplicationWindowShowMenubarPropertyInfo = Bool + type AttrLabel ApplicationWindowShowMenubarPropertyInfo = "show-menubar" + type AttrOrigin ApplicationWindowShowMenubarPropertyInfo = ApplicationWindow + attrGet _ = getApplicationWindowShowMenubar + attrSet _ = setApplicationWindowShowMenubar + attrConstruct _ = constructApplicationWindowShowMenubar + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList ApplicationWindow +type instance O.AttributeList ApplicationWindow = ApplicationWindowAttributeList +type ApplicationWindowAttributeList = ('[ '("acceptFocus", Gtk.Window.WindowAcceptFocusPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("application", Gtk.Window.WindowApplicationPropertyInfo), '("attachedTo", Gtk.Window.WindowAttachedToPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("decorated", Gtk.Window.WindowDecoratedPropertyInfo), '("defaultHeight", Gtk.Window.WindowDefaultHeightPropertyInfo), '("defaultWidth", Gtk.Window.WindowDefaultWidthPropertyInfo), '("deletable", Gtk.Window.WindowDeletablePropertyInfo), '("destroyWithParent", Gtk.Window.WindowDestroyWithParentPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusOnMap", Gtk.Window.WindowFocusOnMapPropertyInfo), '("focusVisible", Gtk.Window.WindowFocusVisiblePropertyInfo), '("gravity", Gtk.Window.WindowGravityPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasResizeGrip", Gtk.Window.WindowHasResizeGripPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", Gtk.Window.WindowHasToplevelFocusPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", Gtk.Window.WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", Gtk.Window.WindowIconPropertyInfo), '("iconName", Gtk.Window.WindowIconNamePropertyInfo), '("isActive", Gtk.Window.WindowIsActivePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isMaximized", Gtk.Window.WindowIsMaximizedPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mnemonicsVisible", Gtk.Window.WindowMnemonicsVisiblePropertyInfo), '("modal", Gtk.Window.WindowModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizable", Gtk.Window.WindowResizablePropertyInfo), '("resizeGripVisible", Gtk.Window.WindowResizeGripVisiblePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("role", Gtk.Window.WindowRolePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("screen", Gtk.Window.WindowScreenPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showMenubar", ApplicationWindowShowMenubarPropertyInfo), '("skipPagerHint", Gtk.Window.WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", Gtk.Window.WindowSkipTaskbarHintPropertyInfo), '("startupId", Gtk.Window.WindowStartupIdPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("title", Gtk.Window.WindowTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", Gtk.Window.WindowTransientForPropertyInfo), '("type", Gtk.Window.WindowTypePropertyInfo), '("typeHint", Gtk.Window.WindowTypeHintPropertyInfo), '("urgencyHint", Gtk.Window.WindowUrgencyHintPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowPosition", Gtk.Window.WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +applicationWindowShowMenubar :: AttrLabelProxy "showMenubar" +applicationWindowShowMenubar = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList ApplicationWindow = ApplicationWindowSignalList +type ApplicationWindowSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("activateDefault", Gtk.Window.WindowActivateDefaultSignalInfo), '("activateFocus", Gtk.Window.WindowActivateFocusSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enableDebugging", Gtk.Window.WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("keysChanged", Gtk.Window.WindowKeysChangedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocus", Gtk.Window.WindowSetFocusSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method ApplicationWindow::new +-- method type : Constructor +-- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gtk", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_window_new" gtk_application_window_new :: + Ptr Gtk.Application.Application -> -- application : TInterface (Name {namespace = "Gtk", name = "Application"}) + IO (Ptr ApplicationWindow) + +{- | +Creates a new 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow'. + +/Since: 3.4/ +-} +applicationWindowNew :: + (B.CallStack.HasCallStack, MonadIO m, Gtk.Application.IsApplication a) => + a + {- ^ /@application@/: a 'GI.Gtk.Objects.Application.Application' -} + -> m ApplicationWindow + {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' -} +applicationWindowNew application = liftIO $ do + application' <- unsafeManagedPtrCastPtr application + result <- gtk_application_window_new application' + checkUnexpectedReturnNULL "applicationWindowNew" result + result' <- (newObject ApplicationWindow) result + touchManagedPtr application + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method ApplicationWindow::get_help_overlay +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplicationWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ShortcutsWindow"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_window_get_help_overlay" gtk_application_window_get_help_overlay :: + Ptr ApplicationWindow -> -- window : TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}) + IO (Ptr Gtk.ShortcutsWindow.ShortcutsWindow) + +{- | +Gets the 'GI.Gtk.Objects.ShortcutsWindow.ShortcutsWindow' that has been set up with +a prior call to 'GI.Gtk.Objects.ApplicationWindow.applicationWindowSetHelpOverlay'. + +/Since: 3.20/ +-} +applicationWindowGetHelpOverlay :: + (B.CallStack.HasCallStack, MonadIO m, IsApplicationWindow a) => + a + {- ^ /@window@/: a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' -} + -> m (Maybe Gtk.ShortcutsWindow.ShortcutsWindow) + {- ^ __Returns:__ the help overlay associated with /@window@/, or 'Nothing' -} +applicationWindowGetHelpOverlay window = liftIO $ do + window' <- unsafeManagedPtrCastPtr window + result <- gtk_application_window_get_help_overlay window' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.ShortcutsWindow.ShortcutsWindow) result' + return result'' + touchManagedPtr window + return maybeResult + +#if ENABLE_OVERLOADING +data ApplicationWindowGetHelpOverlayMethodInfo +instance (signature ~ (m (Maybe Gtk.ShortcutsWindow.ShortcutsWindow)), MonadIO m, IsApplicationWindow a) => O.MethodInfo ApplicationWindowGetHelpOverlayMethodInfo a signature where + overloadedMethod _ = applicationWindowGetHelpOverlay + +#endif + +-- method ApplicationWindow::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplicationWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_window_get_id" gtk_application_window_get_id :: + Ptr ApplicationWindow -> -- window : TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}) + IO Word32 + +{- | +Returns the unique ID of the window. If the window has not yet been added to +a 'GI.Gtk.Objects.Application.Application', returns @0@. + +/Since: 3.6/ +-} +applicationWindowGetId :: + (B.CallStack.HasCallStack, MonadIO m, IsApplicationWindow a) => + a + {- ^ /@window@/: a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' -} + -> m Word32 + {- ^ __Returns:__ the unique ID for /@window@/, or @0@ if the window + has not yet been added to a 'GI.Gtk.Objects.Application.Application' -} +applicationWindowGetId window = liftIO $ do + window' <- unsafeManagedPtrCastPtr window + result <- gtk_application_window_get_id window' + touchManagedPtr window + return result + +#if ENABLE_OVERLOADING +data ApplicationWindowGetIdMethodInfo +instance (signature ~ (m Word32), MonadIO m, IsApplicationWindow a) => O.MethodInfo ApplicationWindowGetIdMethodInfo a signature where + overloadedMethod _ = applicationWindowGetId + +#endif + +-- method ApplicationWindow::get_show_menubar +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplicationWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_window_get_show_menubar" gtk_application_window_get_show_menubar :: + Ptr ApplicationWindow -> -- window : TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}) + IO CInt + +{- | +Returns whether the window will display a menubar for the app menu +and menubar as needed. + +/Since: 3.4/ +-} +applicationWindowGetShowMenubar :: + (B.CallStack.HasCallStack, MonadIO m, IsApplicationWindow a) => + a + {- ^ /@window@/: a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' -} + -> m Bool + {- ^ __Returns:__ 'True' if /@window@/ will display a menubar when needed -} +applicationWindowGetShowMenubar window = liftIO $ do + window' <- unsafeManagedPtrCastPtr window + result <- gtk_application_window_get_show_menubar window' + let result' = (/= 0) result + touchManagedPtr window + return result' + +#if ENABLE_OVERLOADING +data ApplicationWindowGetShowMenubarMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsApplicationWindow a) => O.MethodInfo ApplicationWindowGetShowMenubarMethodInfo a signature where + overloadedMethod _ = applicationWindowGetShowMenubar + +#endif + +-- method ApplicationWindow::set_help_overlay +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplicationWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "help_overlay", argType = TInterface (Name {namespace = "Gtk", name = "ShortcutsWindow"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GtkShortcutsWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_window_set_help_overlay" gtk_application_window_set_help_overlay :: + Ptr ApplicationWindow -> -- window : TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}) + Ptr Gtk.ShortcutsWindow.ShortcutsWindow -> -- help_overlay : TInterface (Name {namespace = "Gtk", name = "ShortcutsWindow"}) + IO () + +{- | +Associates a shortcuts window with the application window, and +sets up an action with the name win.show-help-overlay to present +it. + +/@window@/ takes resposibility for destroying /@helpOverlay@/. + +/Since: 3.20/ +-} +applicationWindowSetHelpOverlay :: + (B.CallStack.HasCallStack, MonadIO m, IsApplicationWindow a, Gtk.ShortcutsWindow.IsShortcutsWindow b) => + a + {- ^ /@window@/: a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' -} + -> Maybe (b) + {- ^ /@helpOverlay@/: a 'GI.Gtk.Objects.ShortcutsWindow.ShortcutsWindow' -} + -> m () +applicationWindowSetHelpOverlay window helpOverlay = liftIO $ do + window' <- unsafeManagedPtrCastPtr window + maybeHelpOverlay <- case helpOverlay of + Nothing -> return nullPtr + Just jHelpOverlay -> do + jHelpOverlay' <- unsafeManagedPtrCastPtr jHelpOverlay + return jHelpOverlay' + gtk_application_window_set_help_overlay window' maybeHelpOverlay + touchManagedPtr window + whenJust helpOverlay touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data ApplicationWindowSetHelpOverlayMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplicationWindow a, Gtk.ShortcutsWindow.IsShortcutsWindow b) => O.MethodInfo ApplicationWindowSetHelpOverlayMethodInfo a signature where + overloadedMethod _ = applicationWindowSetHelpOverlay + +#endif + +-- method ApplicationWindow::set_show_menubar +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkApplicationWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to show a menubar when needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_application_window_set_show_menubar" gtk_application_window_set_show_menubar :: + Ptr ApplicationWindow -> -- window : TInterface (Name {namespace = "Gtk", name = "ApplicationWindow"}) + CInt -> -- show_menubar : TBasicType TBoolean + IO () + +{- | +Sets whether the window will display a menubar for the app menu +and menubar as needed. + +/Since: 3.4/ +-} +applicationWindowSetShowMenubar :: + (B.CallStack.HasCallStack, MonadIO m, IsApplicationWindow a) => + a + {- ^ /@window@/: a 'GI.Gtk.Objects.ApplicationWindow.ApplicationWindow' -} + -> Bool + {- ^ /@showMenubar@/: whether to show a menubar when needed -} + -> m () +applicationWindowSetShowMenubar window showMenubar = liftIO $ do + window' <- unsafeManagedPtrCastPtr window + let showMenubar' = (fromIntegral . fromEnum) showMenubar + gtk_application_window_set_show_menubar window' showMenubar' + touchManagedPtr window + return () + +#if ENABLE_OVERLOADING +data ApplicationWindowSetShowMenubarMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsApplicationWindow a) => O.MethodInfo ApplicationWindowSetShowMenubarMethodInfo a signature where + overloadedMethod _ = applicationWindowSetShowMenubar + +#endif + + diff --git a/GI/Gtk/Objects/ApplicationWindow.hs-boot b/GI/Gtk/Objects/ApplicationWindow.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ApplicationWindow.hs-boot @@ -0,0 +1,47 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.ApplicationWindow where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype ApplicationWindow = ApplicationWindow (ManagedPtr ApplicationWindow) +instance GObject ApplicationWindow where +class (GObject o, O.IsDescendantOf ApplicationWindow o) => IsApplicationWindow o +instance (GObject o, O.IsDescendantOf ApplicationWindow o) => IsApplicationWindow o +instance O.HasParentTypes ApplicationWindow +#if ENABLE_OVERLOADING +data ApplicationWindowShowMenubarPropertyInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationWindowGetHelpOverlayMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationWindowGetIdMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationWindowGetShowMenubarMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationWindowSetHelpOverlayMethodInfo +#endif +#if ENABLE_OVERLOADING +data ApplicationWindowSetShowMenubarMethodInfo +#endif diff --git a/GI/Gtk/Objects/Arrow.hs b/GI/Gtk/Objects/Arrow.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Arrow.hs @@ -0,0 +1,646 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +GtkArrow should be used to draw simple arrows that need to point in +one of the four cardinal directions (up, down, left, or right). The +style of the arrow can be one of shadow in, shadow out, etched in, or +etched out. Note that these directions and style types may be +amended in versions of GTK+ to come. + +GtkArrow will fill any space alloted to it, but since it is inherited +from 'GI.Gtk.Objects.Misc.Misc', it can be padded and\/or aligned, to fill exactly the +space the programmer desires. + +Arrows are created with a call to 'GI.Gtk.Objects.Arrow.arrowNew'. The direction or +style of an arrow can be changed after creation by using 'GI.Gtk.Objects.Arrow.arrowSet'. + +GtkArrow has been deprecated; you can simply use a 'GI.Gtk.Objects.Image.Image' with a +suitable icon name, such as “pan-down-symbolic“. When replacing +GtkArrow by an image, pay attention to the fact that GtkArrow is +doing automatic flipping between @/GTK_ARROW_LEFT/@ and @/GTK_ARROW_RIGHT/@, +depending on the text direction. To get the same effect with an image, +use the icon names “pan-start-symbolic“ and “pan-end-symbolic“, which +react to the text direction. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Arrow + ( + +-- * Exported types + Arrow(..) , + IsArrow , + toArrow , + noArrow , + + + -- * Methods +-- ** new #method:new# + + arrowNew , + + +-- ** set #method:set# + +#if ENABLE_OVERLOADING + ArrowSetMethodInfo , +#endif + arrowSet , + + + + + -- * Properties +-- ** arrowType #attr:arrowType# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + ArrowArrowTypePropertyInfo , +#endif +#if ENABLE_OVERLOADING + arrowArrowType , +#endif + constructArrowArrowType , + getArrowArrowType , + setArrowArrowType , + + +-- ** shadowType #attr:shadowType# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + ArrowShadowTypePropertyInfo , +#endif +#if ENABLE_OVERLOADING + arrowShadowType , +#endif + constructArrowShadowType , + getArrowShadowType , + setArrowShadowType , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Misc as Gtk.Misc +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype Arrow = Arrow (ManagedPtr Arrow) +foreign import ccall "gtk_arrow_get_type" + c_gtk_arrow_get_type :: IO GType + +instance GObject Arrow where + gobjectType = c_gtk_arrow_get_type + + +-- | Type class for types which can be safely cast to `Arrow`, for instance with `toArrow`. +class (GObject o, O.IsDescendantOf Arrow o) => IsArrow o +instance (GObject o, O.IsDescendantOf Arrow o) => IsArrow o + +instance O.HasParentTypes Arrow +type instance O.ParentTypes Arrow = '[Gtk.Misc.Misc, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `Arrow`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toArrow :: (MonadIO m, IsArrow o) => o -> m Arrow +toArrow = liftIO . unsafeCastTo Arrow + +-- | A convenience alias for `Nothing` :: `Maybe` `Arrow`. +noArrow :: Maybe Arrow +noArrow = Nothing + +#if ENABLE_OVERLOADING +type family ResolveArrowMethod (t :: Symbol) (o :: *) :: * where + ResolveArrowMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveArrowMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveArrowMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveArrowMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveArrowMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveArrowMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveArrowMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveArrowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveArrowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveArrowMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveArrowMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveArrowMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo + ResolveArrowMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveArrowMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveArrowMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveArrowMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveArrowMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveArrowMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveArrowMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveArrowMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveArrowMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveArrowMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveArrowMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveArrowMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveArrowMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveArrowMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveArrowMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveArrowMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveArrowMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveArrowMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveArrowMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveArrowMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveArrowMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveArrowMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveArrowMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveArrowMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveArrowMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveArrowMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveArrowMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveArrowMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveArrowMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveArrowMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveArrowMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveArrowMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveArrowMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveArrowMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveArrowMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveArrowMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveArrowMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveArrowMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveArrowMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveArrowMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveArrowMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveArrowMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveArrowMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveArrowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveArrowMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveArrowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveArrowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveArrowMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveArrowMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveArrowMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveArrowMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveArrowMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveArrowMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveArrowMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveArrowMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveArrowMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveArrowMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveArrowMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveArrowMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveArrowMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveArrowMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveArrowMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveArrowMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveArrowMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveArrowMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveArrowMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveArrowMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveArrowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveArrowMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveArrowMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveArrowMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveArrowMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveArrowMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveArrowMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveArrowMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveArrowMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveArrowMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveArrowMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveArrowMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveArrowMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveArrowMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveArrowMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveArrowMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveArrowMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveArrowMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveArrowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveArrowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveArrowMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveArrowMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveArrowMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveArrowMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveArrowMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveArrowMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveArrowMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveArrowMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveArrowMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveArrowMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveArrowMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveArrowMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveArrowMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveArrowMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveArrowMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveArrowMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveArrowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveArrowMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveArrowMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveArrowMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveArrowMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveArrowMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveArrowMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveArrowMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveArrowMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveArrowMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveArrowMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveArrowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveArrowMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveArrowMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveArrowMethod "set" o = ArrowSetMethodInfo + ResolveArrowMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveArrowMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveArrowMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveArrowMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveArrowMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveArrowMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveArrowMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveArrowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveArrowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveArrowMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveArrowMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveArrowMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveArrowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveArrowMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveArrowMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveArrowMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveArrowMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveArrowMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveArrowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveArrowMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveArrowMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveArrowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveArrowMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveArrowMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveArrowMethod "getAlignment" o = Gtk.Misc.MiscGetAlignmentMethodInfo + ResolveArrowMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveArrowMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveArrowMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveArrowMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveArrowMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveArrowMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveArrowMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveArrowMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveArrowMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveArrowMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveArrowMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveArrowMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveArrowMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveArrowMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveArrowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveArrowMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveArrowMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveArrowMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveArrowMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveArrowMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveArrowMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveArrowMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveArrowMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveArrowMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveArrowMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveArrowMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveArrowMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveArrowMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveArrowMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveArrowMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveArrowMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveArrowMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveArrowMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveArrowMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveArrowMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveArrowMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveArrowMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveArrowMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveArrowMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveArrowMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveArrowMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveArrowMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveArrowMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveArrowMethod "getPadding" o = Gtk.Misc.MiscGetPaddingMethodInfo + ResolveArrowMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveArrowMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveArrowMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveArrowMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveArrowMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveArrowMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveArrowMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveArrowMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveArrowMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveArrowMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveArrowMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveArrowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveArrowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveArrowMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveArrowMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveArrowMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveArrowMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveArrowMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveArrowMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveArrowMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveArrowMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveArrowMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveArrowMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveArrowMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveArrowMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveArrowMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveArrowMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveArrowMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveArrowMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveArrowMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveArrowMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveArrowMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveArrowMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveArrowMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveArrowMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveArrowMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveArrowMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveArrowMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveArrowMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveArrowMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveArrowMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveArrowMethod "setAlignment" o = Gtk.Misc.MiscSetAlignmentMethodInfo + ResolveArrowMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveArrowMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveArrowMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveArrowMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveArrowMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveArrowMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveArrowMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveArrowMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveArrowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveArrowMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveArrowMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveArrowMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveArrowMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveArrowMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveArrowMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveArrowMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveArrowMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveArrowMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveArrowMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveArrowMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveArrowMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveArrowMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveArrowMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveArrowMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveArrowMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveArrowMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveArrowMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveArrowMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveArrowMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveArrowMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveArrowMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveArrowMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveArrowMethod "setPadding" o = Gtk.Misc.MiscSetPaddingMethodInfo + ResolveArrowMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveArrowMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveArrowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveArrowMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveArrowMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveArrowMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveArrowMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveArrowMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveArrowMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveArrowMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveArrowMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveArrowMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveArrowMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveArrowMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveArrowMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveArrowMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveArrowMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveArrowMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveArrowMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveArrowMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveArrowMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveArrowMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveArrowMethod t Arrow, O.MethodInfo info Arrow p) => OL.IsLabel t (Arrow -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- VVV Prop "arrow-type" + -- Type: TInterface (Name {namespace = "Gtk", name = "ArrowType"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@arrow-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' arrow #arrowType +@ +-} +getArrowArrowType :: (MonadIO m, IsArrow o) => o -> m Gtk.Enums.ArrowType +getArrowArrowType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "arrow-type" + +{- | +Set the value of the “@arrow-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' arrow [ #arrowType 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setArrowArrowType :: (MonadIO m, IsArrow o) => o -> Gtk.Enums.ArrowType -> m () +setArrowArrowType obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "arrow-type" val + +{- | +Construct a `GValueConstruct` with valid value for the “@arrow-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructArrowArrowType :: (IsArrow o) => Gtk.Enums.ArrowType -> IO (GValueConstruct o) +constructArrowArrowType val = B.Properties.constructObjectPropertyEnum "arrow-type" val + +#if ENABLE_OVERLOADING +data ArrowArrowTypePropertyInfo +instance AttrInfo ArrowArrowTypePropertyInfo where + type AttrAllowedOps ArrowArrowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ArrowArrowTypePropertyInfo = (~) Gtk.Enums.ArrowType + type AttrBaseTypeConstraint ArrowArrowTypePropertyInfo = IsArrow + type AttrGetType ArrowArrowTypePropertyInfo = Gtk.Enums.ArrowType + type AttrLabel ArrowArrowTypePropertyInfo = "arrow-type" + type AttrOrigin ArrowArrowTypePropertyInfo = Arrow + attrGet _ = getArrowArrowType + attrSet _ = setArrowArrowType + attrConstruct _ = constructArrowArrowType + attrClear _ = undefined +#endif + +-- VVV Prop "shadow-type" + -- Type: TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@shadow-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' arrow #shadowType +@ +-} +getArrowShadowType :: (MonadIO m, IsArrow o) => o -> m Gtk.Enums.ShadowType +getArrowShadowType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "shadow-type" + +{- | +Set the value of the “@shadow-type@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' arrow [ #shadowType 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setArrowShadowType :: (MonadIO m, IsArrow o) => o -> Gtk.Enums.ShadowType -> m () +setArrowShadowType obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "shadow-type" val + +{- | +Construct a `GValueConstruct` with valid value for the “@shadow-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructArrowShadowType :: (IsArrow o) => Gtk.Enums.ShadowType -> IO (GValueConstruct o) +constructArrowShadowType val = B.Properties.constructObjectPropertyEnum "shadow-type" val + +#if ENABLE_OVERLOADING +data ArrowShadowTypePropertyInfo +instance AttrInfo ArrowShadowTypePropertyInfo where + type AttrAllowedOps ArrowShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ArrowShadowTypePropertyInfo = (~) Gtk.Enums.ShadowType + type AttrBaseTypeConstraint ArrowShadowTypePropertyInfo = IsArrow + type AttrGetType ArrowShadowTypePropertyInfo = Gtk.Enums.ShadowType + type AttrLabel ArrowShadowTypePropertyInfo = "shadow-type" + type AttrOrigin ArrowShadowTypePropertyInfo = Arrow + attrGet _ = getArrowShadowType + attrSet _ = setArrowShadowType + attrConstruct _ = constructArrowShadowType + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Arrow +type instance O.AttributeList Arrow = ArrowAttributeList +type ArrowAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("arrowType", ArrowArrowTypePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shadowType", ArrowShadowTypePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("xalign", Gtk.Misc.MiscXalignPropertyInfo), '("xpad", Gtk.Misc.MiscXpadPropertyInfo), '("yalign", Gtk.Misc.MiscYalignPropertyInfo), '("ypad", Gtk.Misc.MiscYpadPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +arrowArrowType :: AttrLabelProxy "arrowType" +arrowArrowType = AttrLabelProxy + +arrowShadowType :: AttrLabelProxy "shadowType" +arrowShadowType = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList Arrow = ArrowSignalList +type ArrowSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Arrow::new +-- method type : Constructor +-- Args : [Arg {argCName = "arrow_type", argType = TInterface (Name {namespace = "Gtk", name = "ArrowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkArrowType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkShadowType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Arrow"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_arrow_new" gtk_arrow_new :: + CUInt -> -- arrow_type : TInterface (Name {namespace = "Gtk", name = "ArrowType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + IO (Ptr Arrow) + +{-# DEPRECATED arrowNew ["(Since version 3.14)","Use a 'GI.Gtk.Objects.Image.Image' with a suitable icon."] #-} +{- | +Creates a new 'GI.Gtk.Objects.Arrow.Arrow' widget. +-} +arrowNew :: + (B.CallStack.HasCallStack, MonadIO m) => + Gtk.Enums.ArrowType + {- ^ /@arrowType@/: a valid 'GI.Gtk.Enums.ArrowType'. -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: a valid 'GI.Gtk.Enums.ShadowType'. -} + -> m Arrow + {- ^ __Returns:__ the new 'GI.Gtk.Objects.Arrow.Arrow' widget. -} +arrowNew arrowType shadowType = liftIO $ do + let arrowType' = (fromIntegral . fromEnum) arrowType + let shadowType' = (fromIntegral . fromEnum) shadowType + result <- gtk_arrow_new arrowType' shadowType' + checkUnexpectedReturnNULL "arrowNew" result + result' <- (newObject Arrow) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method Arrow::set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "arrow", argType = TInterface (Name {namespace = "Gtk", name = "Arrow"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a widget of type #GtkArrow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface (Name {namespace = "Gtk", name = "ArrowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkArrowType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface (Name {namespace = "Gtk", name = "ShadowType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkShadowType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_arrow_set" gtk_arrow_set :: + Ptr Arrow -> -- arrow : TInterface (Name {namespace = "Gtk", name = "Arrow"}) + CUInt -> -- arrow_type : TInterface (Name {namespace = "Gtk", name = "ArrowType"}) + CUInt -> -- shadow_type : TInterface (Name {namespace = "Gtk", name = "ShadowType"}) + IO () + +{-# DEPRECATED arrowSet ["(Since version 3.14)","Use a 'GI.Gtk.Objects.Image.Image' with a suitable icon."] #-} +{- | +Sets the direction and style of the 'GI.Gtk.Objects.Arrow.Arrow', /@arrow@/. +-} +arrowSet :: + (B.CallStack.HasCallStack, MonadIO m, IsArrow a) => + a + {- ^ /@arrow@/: a widget of type 'GI.Gtk.Objects.Arrow.Arrow'. -} + -> Gtk.Enums.ArrowType + {- ^ /@arrowType@/: a valid 'GI.Gtk.Enums.ArrowType'. -} + -> Gtk.Enums.ShadowType + {- ^ /@shadowType@/: a valid 'GI.Gtk.Enums.ShadowType'. -} + -> m () +arrowSet arrow arrowType shadowType = liftIO $ do + arrow' <- unsafeManagedPtrCastPtr arrow + let arrowType' = (fromIntegral . fromEnum) arrowType + let shadowType' = (fromIntegral . fromEnum) shadowType + gtk_arrow_set arrow' arrowType' shadowType' + touchManagedPtr arrow + return () + +#if ENABLE_OVERLOADING +data ArrowSetMethodInfo +instance (signature ~ (Gtk.Enums.ArrowType -> Gtk.Enums.ShadowType -> m ()), MonadIO m, IsArrow a) => O.MethodInfo ArrowSetMethodInfo a signature where + overloadedMethod _ = arrowSet + +#endif + + diff --git a/GI/Gtk/Objects/Arrow.hs-boot b/GI/Gtk/Objects/Arrow.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Arrow.hs-boot @@ -0,0 +1,38 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Arrow where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Arrow = Arrow (ManagedPtr Arrow) +instance GObject Arrow where +class (GObject o, O.IsDescendantOf Arrow o) => IsArrow o +instance (GObject o, O.IsDescendantOf Arrow o) => IsArrow o +instance O.HasParentTypes Arrow +#if ENABLE_OVERLOADING +data ArrowArrowTypePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ArrowShadowTypePropertyInfo +#endif +#if ENABLE_OVERLOADING +data ArrowSetMethodInfo +#endif diff --git a/GI/Gtk/Objects/ArrowAccessible.hs b/GI/Gtk/Objects/ArrowAccessible.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ArrowAccessible.hs @@ -0,0 +1,170 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +/No description available in the introspection data./ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.ArrowAccessible + ( + +-- * Exported types + ArrowAccessible(..) , + IsArrowAccessible , + toArrowAccessible , + noArrowAccessible , + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.Component as Atk.Component +import qualified GI.Atk.Interfaces.Image as Atk.Image +import qualified GI.Atk.Objects.Object as Atk.Object +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Objects.Accessible as Gtk.Accessible +import {-# SOURCE #-} qualified GI.Gtk.Objects.WidgetAccessible as Gtk.WidgetAccessible + +-- | Memory-managed wrapper type. +newtype ArrowAccessible = ArrowAccessible (ManagedPtr ArrowAccessible) +foreign import ccall "gtk_arrow_accessible_get_type" + c_gtk_arrow_accessible_get_type :: IO GType + +instance GObject ArrowAccessible where + gobjectType = c_gtk_arrow_accessible_get_type + + +-- | Type class for types which can be safely cast to `ArrowAccessible`, for instance with `toArrowAccessible`. +class (GObject o, O.IsDescendantOf ArrowAccessible o) => IsArrowAccessible o +instance (GObject o, O.IsDescendantOf ArrowAccessible o) => IsArrowAccessible o + +instance O.HasParentTypes ArrowAccessible +type instance O.ParentTypes ArrowAccessible = '[Gtk.WidgetAccessible.WidgetAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Component.Component, Atk.Image.Image] + +-- | Cast to `ArrowAccessible`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toArrowAccessible :: (MonadIO m, IsArrowAccessible o) => o -> m ArrowAccessible +toArrowAccessible = liftIO . unsafeCastTo ArrowAccessible + +-- | A convenience alias for `Nothing` :: `Maybe` `ArrowAccessible`. +noArrowAccessible :: Maybe ArrowAccessible +noArrowAccessible = Nothing + +#if ENABLE_OVERLOADING +type family ResolveArrowAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveArrowAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo + ResolveArrowAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveArrowAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveArrowAccessibleMethod "connectWidgetDestroyed" o = Gtk.Accessible.AccessibleConnectWidgetDestroyedMethodInfo + ResolveArrowAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo + ResolveArrowAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveArrowAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveArrowAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveArrowAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo + ResolveArrowAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo + ResolveArrowAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveArrowAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveArrowAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveArrowAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo + ResolveArrowAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo + ResolveArrowAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveArrowAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo + ResolveArrowAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo + ResolveArrowAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo + ResolveArrowAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveArrowAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo + ResolveArrowAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo + ResolveArrowAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveArrowAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo + ResolveArrowAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveArrowAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo + ResolveArrowAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo + ResolveArrowAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveArrowAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveArrowAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveArrowAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveArrowAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveArrowAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo + ResolveArrowAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo + ResolveArrowAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveArrowAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo + ResolveArrowAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo + ResolveArrowAccessibleMethod "getImageDescription" o = Atk.Image.ImageGetImageDescriptionMethodInfo + ResolveArrowAccessibleMethod "getImageLocale" o = Atk.Image.ImageGetImageLocaleMethodInfo + ResolveArrowAccessibleMethod "getImagePosition" o = Atk.Image.ImageGetImagePositionMethodInfo + ResolveArrowAccessibleMethod "getImageSize" o = Atk.Image.ImageGetImageSizeMethodInfo + ResolveArrowAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo + ResolveArrowAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo + ResolveArrowAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo + ResolveArrowAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo + ResolveArrowAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo + ResolveArrowAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo + ResolveArrowAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo + ResolveArrowAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo + ResolveArrowAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveArrowAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveArrowAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo + ResolveArrowAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo + ResolveArrowAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo + ResolveArrowAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveArrowAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo + ResolveArrowAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo + ResolveArrowAccessibleMethod "setImageDescription" o = Atk.Image.ImageSetImageDescriptionMethodInfo + ResolveArrowAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo + ResolveArrowAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo + ResolveArrowAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo + ResolveArrowAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveArrowAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo + ResolveArrowAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo + ResolveArrowAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo + ResolveArrowAccessibleMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveArrowAccessibleMethod t ArrowAccessible, O.MethodInfo info ArrowAccessible p) => OL.IsLabel t (ArrowAccessible -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList ArrowAccessible +type instance O.AttributeList ArrowAccessible = ArrowAccessibleAttributeList +type ArrowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.Object.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.Object.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.Object.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.Object.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.Object.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.Object.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.Object.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.Object.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.Object.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.Object.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.Object.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.Object.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.Object.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.Object.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.Object.ObjectAccessibleValuePropertyInfo), '("widget", Gtk.Accessible.AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList ArrowAccessible = ArrowAccessibleSignalList +type ArrowAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.Component.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) + +#endif + + diff --git a/GI/Gtk/Objects/ArrowAccessible.hs-boot b/GI/Gtk/Objects/ArrowAccessible.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/ArrowAccessible.hs-boot @@ -0,0 +1,29 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.ArrowAccessible where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype ArrowAccessible = ArrowAccessible (ManagedPtr ArrowAccessible) +instance GObject ArrowAccessible where +class (GObject o, O.IsDescendantOf ArrowAccessible o) => IsArrowAccessible o +instance (GObject o, O.IsDescendantOf ArrowAccessible o) => IsArrowAccessible o +instance O.HasParentTypes ArrowAccessible diff --git a/GI/Gtk/Objects/AspectFrame.hs b/GI/Gtk/Objects/AspectFrame.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AspectFrame.hs @@ -0,0 +1,833 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Objects.AspectFrame.AspectFrame' is useful when you want +pack a widget so that it can resize but always retains +the same aspect ratio. For instance, one might be +drawing a small preview of a larger image. 'GI.Gtk.Objects.AspectFrame.AspectFrame' +derives from 'GI.Gtk.Objects.Frame.Frame', so it can draw a label and +a frame around the child. The frame will be +“shrink-wrapped” to the size of the child. + += CSS nodes + +GtkAspectFrame uses a CSS node with name frame. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.AspectFrame + ( + +-- * Exported types + AspectFrame(..) , + IsAspectFrame , + toAspectFrame , + noAspectFrame , + + + -- * Methods +-- ** new #method:new# + + aspectFrameNew , + + +-- ** set #method:set# + +#if ENABLE_OVERLOADING + AspectFrameSetMethodInfo , +#endif + aspectFrameSet , + + + + + -- * Properties +-- ** obeyChild #attr:obeyChild# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AspectFrameObeyChildPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aspectFrameObeyChild , +#endif + constructAspectFrameObeyChild , + getAspectFrameObeyChild , + setAspectFrameObeyChild , + + +-- ** ratio #attr:ratio# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AspectFrameRatioPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aspectFrameRatio , +#endif + constructAspectFrameRatio , + getAspectFrameRatio , + setAspectFrameRatio , + + +-- ** xalign #attr:xalign# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AspectFrameXalignPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aspectFrameXalign , +#endif + constructAspectFrameXalign , + getAspectFrameXalign , + setAspectFrameXalign , + + +-- ** yalign #attr:yalign# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + AspectFrameYalignPropertyInfo , +#endif +#if ENABLE_OVERLOADING + aspectFrameYalign , +#endif + constructAspectFrameYalign , + getAspectFrameYalign , + setAspectFrameYalign , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Frame as Gtk.Frame +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype AspectFrame = AspectFrame (ManagedPtr AspectFrame) +foreign import ccall "gtk_aspect_frame_get_type" + c_gtk_aspect_frame_get_type :: IO GType + +instance GObject AspectFrame where + gobjectType = c_gtk_aspect_frame_get_type + + +-- | Type class for types which can be safely cast to `AspectFrame`, for instance with `toAspectFrame`. +class (GObject o, O.IsDescendantOf AspectFrame o) => IsAspectFrame o +instance (GObject o, O.IsDescendantOf AspectFrame o) => IsAspectFrame o + +instance O.HasParentTypes AspectFrame +type instance O.ParentTypes AspectFrame = '[Gtk.Frame.Frame, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `AspectFrame`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAspectFrame :: (MonadIO m, IsAspectFrame o) => o -> m AspectFrame +toAspectFrame = liftIO . unsafeCastTo AspectFrame + +-- | A convenience alias for `Nothing` :: `Maybe` `AspectFrame`. +noAspectFrame :: Maybe AspectFrame +noAspectFrame = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAspectFrameMethod (t :: Symbol) (o :: *) :: * where + ResolveAspectFrameMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAspectFrameMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveAspectFrameMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAspectFrameMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAspectFrameMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAspectFrameMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAspectFrameMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAspectFrameMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAspectFrameMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAspectFrameMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAspectFrameMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAspectFrameMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveAspectFrameMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAspectFrameMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveAspectFrameMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveAspectFrameMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveAspectFrameMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveAspectFrameMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveAspectFrameMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAspectFrameMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAspectFrameMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAspectFrameMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAspectFrameMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAspectFrameMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAspectFrameMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAspectFrameMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAspectFrameMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAspectFrameMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAspectFrameMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAspectFrameMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAspectFrameMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAspectFrameMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAspectFrameMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAspectFrameMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAspectFrameMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAspectFrameMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAspectFrameMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAspectFrameMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAspectFrameMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAspectFrameMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAspectFrameMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAspectFrameMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAspectFrameMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAspectFrameMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAspectFrameMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAspectFrameMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAspectFrameMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAspectFrameMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAspectFrameMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAspectFrameMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAspectFrameMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAspectFrameMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAspectFrameMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAspectFrameMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAspectFrameMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAspectFrameMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAspectFrameMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAspectFrameMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveAspectFrameMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAspectFrameMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveAspectFrameMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAspectFrameMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAspectFrameMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAspectFrameMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAspectFrameMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAspectFrameMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAspectFrameMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAspectFrameMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAspectFrameMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAspectFrameMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAspectFrameMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAspectFrameMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAspectFrameMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAspectFrameMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAspectFrameMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAspectFrameMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAspectFrameMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAspectFrameMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAspectFrameMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAspectFrameMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAspectFrameMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAspectFrameMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAspectFrameMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAspectFrameMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAspectFrameMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAspectFrameMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAspectFrameMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAspectFrameMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAspectFrameMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAspectFrameMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAspectFrameMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAspectFrameMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAspectFrameMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAspectFrameMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveAspectFrameMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAspectFrameMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAspectFrameMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAspectFrameMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAspectFrameMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAspectFrameMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAspectFrameMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAspectFrameMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAspectFrameMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAspectFrameMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAspectFrameMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAspectFrameMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAspectFrameMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAspectFrameMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAspectFrameMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAspectFrameMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAspectFrameMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveAspectFrameMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAspectFrameMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAspectFrameMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAspectFrameMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAspectFrameMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAspectFrameMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAspectFrameMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAspectFrameMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAspectFrameMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAspectFrameMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAspectFrameMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAspectFrameMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAspectFrameMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveAspectFrameMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAspectFrameMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAspectFrameMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAspectFrameMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAspectFrameMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAspectFrameMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAspectFrameMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAspectFrameMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAspectFrameMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveAspectFrameMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAspectFrameMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAspectFrameMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAspectFrameMethod "set" o = AspectFrameSetMethodInfo + ResolveAspectFrameMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAspectFrameMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAspectFrameMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAspectFrameMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAspectFrameMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAspectFrameMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAspectFrameMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAspectFrameMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAspectFrameMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAspectFrameMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAspectFrameMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAspectFrameMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAspectFrameMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAspectFrameMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAspectFrameMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAspectFrameMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAspectFrameMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAspectFrameMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAspectFrameMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAspectFrameMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAspectFrameMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveAspectFrameMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAspectFrameMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAspectFrameMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAspectFrameMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAspectFrameMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAspectFrameMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAspectFrameMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAspectFrameMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAspectFrameMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAspectFrameMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAspectFrameMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAspectFrameMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveAspectFrameMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAspectFrameMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAspectFrameMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveAspectFrameMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAspectFrameMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAspectFrameMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveAspectFrameMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAspectFrameMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAspectFrameMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAspectFrameMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAspectFrameMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAspectFrameMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAspectFrameMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAspectFrameMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAspectFrameMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAspectFrameMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAspectFrameMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveAspectFrameMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveAspectFrameMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveAspectFrameMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAspectFrameMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveAspectFrameMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAspectFrameMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAspectFrameMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAspectFrameMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAspectFrameMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAspectFrameMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAspectFrameMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAspectFrameMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAspectFrameMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAspectFrameMethod "getLabel" o = Gtk.Frame.FrameGetLabelMethodInfo + ResolveAspectFrameMethod "getLabelAlign" o = Gtk.Frame.FrameGetLabelAlignMethodInfo + ResolveAspectFrameMethod "getLabelWidget" o = Gtk.Frame.FrameGetLabelWidgetMethodInfo + ResolveAspectFrameMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAspectFrameMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAspectFrameMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAspectFrameMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAspectFrameMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAspectFrameMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAspectFrameMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAspectFrameMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAspectFrameMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAspectFrameMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAspectFrameMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAspectFrameMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveAspectFrameMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAspectFrameMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAspectFrameMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAspectFrameMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAspectFrameMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveAspectFrameMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAspectFrameMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAspectFrameMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAspectFrameMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAspectFrameMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAspectFrameMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAspectFrameMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAspectFrameMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAspectFrameMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAspectFrameMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAspectFrameMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAspectFrameMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAspectFrameMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAspectFrameMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveAspectFrameMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAspectFrameMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAspectFrameMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveAspectFrameMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAspectFrameMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAspectFrameMethod "getShadowType" o = Gtk.Frame.FrameGetShadowTypeMethodInfo + ResolveAspectFrameMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAspectFrameMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAspectFrameMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAspectFrameMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAspectFrameMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAspectFrameMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAspectFrameMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAspectFrameMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAspectFrameMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAspectFrameMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAspectFrameMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAspectFrameMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAspectFrameMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAspectFrameMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAspectFrameMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAspectFrameMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAspectFrameMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAspectFrameMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAspectFrameMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAspectFrameMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAspectFrameMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAspectFrameMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveAspectFrameMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAspectFrameMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAspectFrameMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAspectFrameMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAspectFrameMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAspectFrameMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAspectFrameMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAspectFrameMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAspectFrameMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAspectFrameMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAspectFrameMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAspectFrameMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAspectFrameMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveAspectFrameMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveAspectFrameMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveAspectFrameMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAspectFrameMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveAspectFrameMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAspectFrameMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAspectFrameMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAspectFrameMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAspectFrameMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAspectFrameMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAspectFrameMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAspectFrameMethod "setLabel" o = Gtk.Frame.FrameSetLabelMethodInfo + ResolveAspectFrameMethod "setLabelAlign" o = Gtk.Frame.FrameSetLabelAlignMethodInfo + ResolveAspectFrameMethod "setLabelWidget" o = Gtk.Frame.FrameSetLabelWidgetMethodInfo + ResolveAspectFrameMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAspectFrameMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAspectFrameMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAspectFrameMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAspectFrameMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAspectFrameMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAspectFrameMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAspectFrameMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAspectFrameMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAspectFrameMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveAspectFrameMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAspectFrameMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAspectFrameMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAspectFrameMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAspectFrameMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveAspectFrameMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAspectFrameMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAspectFrameMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveAspectFrameMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAspectFrameMethod "setShadowType" o = Gtk.Frame.FrameSetShadowTypeMethodInfo + ResolveAspectFrameMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAspectFrameMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAspectFrameMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAspectFrameMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAspectFrameMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAspectFrameMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAspectFrameMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAspectFrameMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAspectFrameMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAspectFrameMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAspectFrameMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAspectFrameMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAspectFrameMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAspectFrameMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAspectFrameMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAspectFrameMethod t AspectFrame, O.MethodInfo info AspectFrame p) => OL.IsLabel t (AspectFrame -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- VVV Prop "obey-child" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@obey-child@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aspectFrame #obeyChild +@ +-} +getAspectFrameObeyChild :: (MonadIO m, IsAspectFrame o) => o -> m Bool +getAspectFrameObeyChild obj = liftIO $ B.Properties.getObjectPropertyBool obj "obey-child" + +{- | +Set the value of the “@obey-child@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aspectFrame [ #obeyChild 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAspectFrameObeyChild :: (MonadIO m, IsAspectFrame o) => o -> Bool -> m () +setAspectFrameObeyChild obj val = liftIO $ B.Properties.setObjectPropertyBool obj "obey-child" val + +{- | +Construct a `GValueConstruct` with valid value for the “@obey-child@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAspectFrameObeyChild :: (IsAspectFrame o) => Bool -> IO (GValueConstruct o) +constructAspectFrameObeyChild val = B.Properties.constructObjectPropertyBool "obey-child" val + +#if ENABLE_OVERLOADING +data AspectFrameObeyChildPropertyInfo +instance AttrInfo AspectFrameObeyChildPropertyInfo where + type AttrAllowedOps AspectFrameObeyChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AspectFrameObeyChildPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AspectFrameObeyChildPropertyInfo = IsAspectFrame + type AttrGetType AspectFrameObeyChildPropertyInfo = Bool + type AttrLabel AspectFrameObeyChildPropertyInfo = "obey-child" + type AttrOrigin AspectFrameObeyChildPropertyInfo = AspectFrame + attrGet _ = getAspectFrameObeyChild + attrSet _ = setAspectFrameObeyChild + attrConstruct _ = constructAspectFrameObeyChild + attrClear _ = undefined +#endif + +-- VVV Prop "ratio" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@ratio@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aspectFrame #ratio +@ +-} +getAspectFrameRatio :: (MonadIO m, IsAspectFrame o) => o -> m Float +getAspectFrameRatio obj = liftIO $ B.Properties.getObjectPropertyFloat obj "ratio" + +{- | +Set the value of the “@ratio@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aspectFrame [ #ratio 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAspectFrameRatio :: (MonadIO m, IsAspectFrame o) => o -> Float -> m () +setAspectFrameRatio obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "ratio" val + +{- | +Construct a `GValueConstruct` with valid value for the “@ratio@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAspectFrameRatio :: (IsAspectFrame o) => Float -> IO (GValueConstruct o) +constructAspectFrameRatio val = B.Properties.constructObjectPropertyFloat "ratio" val + +#if ENABLE_OVERLOADING +data AspectFrameRatioPropertyInfo +instance AttrInfo AspectFrameRatioPropertyInfo where + type AttrAllowedOps AspectFrameRatioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AspectFrameRatioPropertyInfo = (~) Float + type AttrBaseTypeConstraint AspectFrameRatioPropertyInfo = IsAspectFrame + type AttrGetType AspectFrameRatioPropertyInfo = Float + type AttrLabel AspectFrameRatioPropertyInfo = "ratio" + type AttrOrigin AspectFrameRatioPropertyInfo = AspectFrame + attrGet _ = getAspectFrameRatio + attrSet _ = setAspectFrameRatio + attrConstruct _ = constructAspectFrameRatio + attrClear _ = undefined +#endif + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@xalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aspectFrame #xalign +@ +-} +getAspectFrameXalign :: (MonadIO m, IsAspectFrame o) => o -> m Float +getAspectFrameXalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "xalign" + +{- | +Set the value of the “@xalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aspectFrame [ #xalign 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAspectFrameXalign :: (MonadIO m, IsAspectFrame o) => o -> Float -> m () +setAspectFrameXalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "xalign" val + +{- | +Construct a `GValueConstruct` with valid value for the “@xalign@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAspectFrameXalign :: (IsAspectFrame o) => Float -> IO (GValueConstruct o) +constructAspectFrameXalign val = B.Properties.constructObjectPropertyFloat "xalign" val + +#if ENABLE_OVERLOADING +data AspectFrameXalignPropertyInfo +instance AttrInfo AspectFrameXalignPropertyInfo where + type AttrAllowedOps AspectFrameXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AspectFrameXalignPropertyInfo = (~) Float + type AttrBaseTypeConstraint AspectFrameXalignPropertyInfo = IsAspectFrame + type AttrGetType AspectFrameXalignPropertyInfo = Float + type AttrLabel AspectFrameXalignPropertyInfo = "xalign" + type AttrOrigin AspectFrameXalignPropertyInfo = AspectFrame + attrGet _ = getAspectFrameXalign + attrSet _ = setAspectFrameXalign + attrConstruct _ = constructAspectFrameXalign + attrClear _ = undefined +#endif + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@yalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' aspectFrame #yalign +@ +-} +getAspectFrameYalign :: (MonadIO m, IsAspectFrame o) => o -> m Float +getAspectFrameYalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "yalign" + +{- | +Set the value of the “@yalign@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' aspectFrame [ #yalign 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setAspectFrameYalign :: (MonadIO m, IsAspectFrame o) => o -> Float -> m () +setAspectFrameYalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "yalign" val + +{- | +Construct a `GValueConstruct` with valid value for the “@yalign@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAspectFrameYalign :: (IsAspectFrame o) => Float -> IO (GValueConstruct o) +constructAspectFrameYalign val = B.Properties.constructObjectPropertyFloat "yalign" val + +#if ENABLE_OVERLOADING +data AspectFrameYalignPropertyInfo +instance AttrInfo AspectFrameYalignPropertyInfo where + type AttrAllowedOps AspectFrameYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AspectFrameYalignPropertyInfo = (~) Float + type AttrBaseTypeConstraint AspectFrameYalignPropertyInfo = IsAspectFrame + type AttrGetType AspectFrameYalignPropertyInfo = Float + type AttrLabel AspectFrameYalignPropertyInfo = "yalign" + type AttrOrigin AspectFrameYalignPropertyInfo = AspectFrame + attrGet _ = getAspectFrameYalign + attrSet _ = setAspectFrameYalign + attrConstruct _ = constructAspectFrameYalign + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList AspectFrame +type instance O.AttributeList AspectFrame = AspectFrameAttributeList +type AspectFrameAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("label", Gtk.Frame.FrameLabelPropertyInfo), '("labelWidget", Gtk.Frame.FrameLabelWidgetPropertyInfo), '("labelXalign", Gtk.Frame.FrameLabelXalignPropertyInfo), '("labelYalign", Gtk.Frame.FrameLabelYalignPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("obeyChild", AspectFrameObeyChildPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shadowType", Gtk.Frame.FrameShadowTypePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +aspectFrameObeyChild :: AttrLabelProxy "obeyChild" +aspectFrameObeyChild = AttrLabelProxy + +aspectFrameRatio :: AttrLabelProxy "ratio" +aspectFrameRatio = AttrLabelProxy + +aspectFrameXalign :: AttrLabelProxy "xalign" +aspectFrameXalign = AttrLabelProxy + +aspectFrameYalign :: AttrLabelProxy "yalign" +aspectFrameYalign = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList AspectFrame = AspectFrameSignalList +type AspectFrameSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method AspectFrame::new +-- method type : Constructor +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Label text.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Horizontal alignment of the child within the allocation of\n the #GtkAspectFrame. This ranges from 0.0 (left aligned)\n to 1.0 (right aligned)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Vertical alignment of the child within the allocation of\n the #GtkAspectFrame. This ranges from 0.0 (top aligned)\n to 1.0 (bottom aligned)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The desired aspect ratio.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "If %TRUE, @ratio is ignored, and the aspect\n ratio is taken from the requistion of the child.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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) + +{- | +Create a new 'GI.Gtk.Objects.AspectFrame.AspectFrame'. +-} +aspectFrameNew :: + (B.CallStack.HasCallStack, MonadIO m) => + Maybe (T.Text) + {- ^ /@label@/: Label text. -} + -> Float + {- ^ /@xalign@/: Horizontal alignment of the child within the allocation of + the 'GI.Gtk.Objects.AspectFrame.AspectFrame'. This ranges from 0.0 (left aligned) + to 1.0 (right aligned) -} + -> Float + {- ^ /@yalign@/: Vertical alignment of the child within the allocation of + the 'GI.Gtk.Objects.AspectFrame.AspectFrame'. This ranges from 0.0 (top aligned) + to 1.0 (bottom aligned) -} + -> Float + {- ^ /@ratio@/: The desired aspect ratio. -} + -> Bool + {- ^ /@obeyChild@/: If 'True', /@ratio@/ is ignored, and the aspect + ratio is taken from the requistion of the child. -} + -> m AspectFrame + {- ^ __Returns:__ the new 'GI.Gtk.Objects.AspectFrame.AspectFrame'. -} +aspectFrameNew label xalign yalign ratio obeyChild = liftIO $ do + maybeLabel <- case label of + Nothing -> return nullPtr + Just jLabel -> do + jLabel' <- textToCString jLabel + return jLabel' + let xalign' = realToFrac xalign + let yalign' = realToFrac yalign + let ratio' = realToFrac ratio + let obeyChild' = (fromIntegral . fromEnum) obeyChild + result <- gtk_aspect_frame_new maybeLabel xalign' yalign' ratio' obeyChild' + checkUnexpectedReturnNULL "aspectFrameNew" result + result' <- (newObject AspectFrame) result + freeMem maybeLabel + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method AspectFrame::set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "aspect_frame", argType = TInterface (Name {namespace = "Gtk", name = "AspectFrame"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAspectFrame", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Horizontal alignment of the child within the allocation of\n the #GtkAspectFrame. This ranges from 0.0 (left aligned)\n to 1.0 (right aligned)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Vertical alignment of the child within the allocation of\n the #GtkAspectFrame. This ranges from 0.0 (top aligned)\n to 1.0 (bottom aligned)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The desired aspect ratio.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "If %TRUE, @ratio is ignored, and the aspect\n ratio is taken from the requistion of the child.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_aspect_frame_set" gtk_aspect_frame_set :: + Ptr AspectFrame -> -- aspect_frame : TInterface (Name {namespace = "Gtk", name = "AspectFrame"}) + CFloat -> -- xalign : TBasicType TFloat + CFloat -> -- yalign : TBasicType TFloat + CFloat -> -- ratio : TBasicType TFloat + CInt -> -- obey_child : TBasicType TBoolean + IO () + +{- | +Set parameters for an existing 'GI.Gtk.Objects.AspectFrame.AspectFrame'. +-} +aspectFrameSet :: + (B.CallStack.HasCallStack, MonadIO m, IsAspectFrame a) => + a + {- ^ /@aspectFrame@/: a 'GI.Gtk.Objects.AspectFrame.AspectFrame' -} + -> Float + {- ^ /@xalign@/: Horizontal alignment of the child within the allocation of + the 'GI.Gtk.Objects.AspectFrame.AspectFrame'. This ranges from 0.0 (left aligned) + to 1.0 (right aligned) -} + -> Float + {- ^ /@yalign@/: Vertical alignment of the child within the allocation of + the 'GI.Gtk.Objects.AspectFrame.AspectFrame'. This ranges from 0.0 (top aligned) + to 1.0 (bottom aligned) -} + -> Float + {- ^ /@ratio@/: The desired aspect ratio. -} + -> Bool + {- ^ /@obeyChild@/: If 'True', /@ratio@/ is ignored, and the aspect + ratio is taken from the requistion of the child. -} + -> m () +aspectFrameSet aspectFrame xalign yalign ratio obeyChild = liftIO $ do + aspectFrame' <- unsafeManagedPtrCastPtr aspectFrame + let xalign' = realToFrac xalign + let yalign' = realToFrac yalign + let ratio' = realToFrac ratio + let obeyChild' = (fromIntegral . fromEnum) obeyChild + gtk_aspect_frame_set aspectFrame' xalign' yalign' ratio' obeyChild' + touchManagedPtr aspectFrame + return () + +#if ENABLE_OVERLOADING +data AspectFrameSetMethodInfo +instance (signature ~ (Float -> Float -> Float -> Bool -> m ()), MonadIO m, IsAspectFrame a) => O.MethodInfo AspectFrameSetMethodInfo a signature where + overloadedMethod _ = aspectFrameSet + +#endif + + diff --git a/GI/Gtk/Objects/AspectFrame.hs-boot b/GI/Gtk/Objects/AspectFrame.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/AspectFrame.hs-boot @@ -0,0 +1,44 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.AspectFrame where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype AspectFrame = AspectFrame (ManagedPtr AspectFrame) +instance GObject AspectFrame where +class (GObject o, O.IsDescendantOf AspectFrame o) => IsAspectFrame o +instance (GObject o, O.IsDescendantOf AspectFrame o) => IsAspectFrame o +instance O.HasParentTypes AspectFrame +#if ENABLE_OVERLOADING +data AspectFrameObeyChildPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AspectFrameRatioPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AspectFrameXalignPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AspectFrameYalignPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AspectFrameSetMethodInfo +#endif diff --git a/GI/Gtk/Objects/Assistant.hs b/GI/Gtk/Objects/Assistant.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Assistant.hs @@ -0,0 +1,2552 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +A 'GI.Gtk.Objects.Assistant.Assistant' is a widget used to represent a generally complex +operation splitted in several steps, guiding the user through its +pages and controlling the page flow to collect the necessary data. + +The design of GtkAssistant is that it controls what buttons to show +and to make sensitive, based on what it knows about the page sequence +and the [type][GtkAssistantPageType] of each page, +in addition to state information like the page +[completion][gtk-assistant-set-page-complete] +and [committed][gtk-assistant-commit] status. + +If you have a case that doesn’t quite fit in @/GtkAssistants/@ way of +handling buttons, you can use the @/GTK_ASSISTANT_PAGE_CUSTOM/@ page +type and handle buttons yourself. + += GtkAssistant as GtkBuildable + +The GtkAssistant implementation of the 'GI.Gtk.Interfaces.Buildable.Buildable' interface +exposes the /@actionArea@/ as internal children with the name +“action_area”. + +To add pages to an assistant in 'GI.Gtk.Objects.Builder.Builder', simply add it as a +child to the GtkAssistant object, and set its child properties +as necessary. + += CSS nodes + +GtkAssistant has a single CSS node with the name assistant. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Assistant + ( + +-- * Exported types + Assistant(..) , + IsAssistant , + toAssistant , + noAssistant , + + + -- * Methods +-- ** addActionWidget #method:addActionWidget# + +#if ENABLE_OVERLOADING + AssistantAddActionWidgetMethodInfo , +#endif + assistantAddActionWidget , + + +-- ** appendPage #method:appendPage# + +#if ENABLE_OVERLOADING + AssistantAppendPageMethodInfo , +#endif + assistantAppendPage , + + +-- ** commit #method:commit# + +#if ENABLE_OVERLOADING + AssistantCommitMethodInfo , +#endif + assistantCommit , + + +-- ** getCurrentPage #method:getCurrentPage# + +#if ENABLE_OVERLOADING + AssistantGetCurrentPageMethodInfo , +#endif + assistantGetCurrentPage , + + +-- ** getNPages #method:getNPages# + +#if ENABLE_OVERLOADING + AssistantGetNPagesMethodInfo , +#endif + assistantGetNPages , + + +-- ** getNthPage #method:getNthPage# + +#if ENABLE_OVERLOADING + AssistantGetNthPageMethodInfo , +#endif + assistantGetNthPage , + + +-- ** getPageComplete #method:getPageComplete# + +#if ENABLE_OVERLOADING + AssistantGetPageCompleteMethodInfo , +#endif + assistantGetPageComplete , + + +-- ** getPageHasPadding #method:getPageHasPadding# + +#if ENABLE_OVERLOADING + AssistantGetPageHasPaddingMethodInfo , +#endif + assistantGetPageHasPadding , + + +-- ** getPageHeaderImage #method:getPageHeaderImage# + +#if ENABLE_OVERLOADING + AssistantGetPageHeaderImageMethodInfo , +#endif + assistantGetPageHeaderImage , + + +-- ** getPageSideImage #method:getPageSideImage# + +#if ENABLE_OVERLOADING + AssistantGetPageSideImageMethodInfo , +#endif + assistantGetPageSideImage , + + +-- ** getPageTitle #method:getPageTitle# + +#if ENABLE_OVERLOADING + AssistantGetPageTitleMethodInfo , +#endif + assistantGetPageTitle , + + +-- ** getPageType #method:getPageType# + +#if ENABLE_OVERLOADING + AssistantGetPageTypeMethodInfo , +#endif + assistantGetPageType , + + +-- ** insertPage #method:insertPage# + +#if ENABLE_OVERLOADING + AssistantInsertPageMethodInfo , +#endif + assistantInsertPage , + + +-- ** new #method:new# + + assistantNew , + + +-- ** nextPage #method:nextPage# + +#if ENABLE_OVERLOADING + AssistantNextPageMethodInfo , +#endif + assistantNextPage , + + +-- ** prependPage #method:prependPage# + +#if ENABLE_OVERLOADING + AssistantPrependPageMethodInfo , +#endif + assistantPrependPage , + + +-- ** previousPage #method:previousPage# + +#if ENABLE_OVERLOADING + AssistantPreviousPageMethodInfo , +#endif + assistantPreviousPage , + + +-- ** removeActionWidget #method:removeActionWidget# + +#if ENABLE_OVERLOADING + AssistantRemoveActionWidgetMethodInfo , +#endif + assistantRemoveActionWidget , + + +-- ** removePage #method:removePage# + +#if ENABLE_OVERLOADING + AssistantRemovePageMethodInfo , +#endif + assistantRemovePage , + + +-- ** setCurrentPage #method:setCurrentPage# + +#if ENABLE_OVERLOADING + AssistantSetCurrentPageMethodInfo , +#endif + assistantSetCurrentPage , + + +-- ** setForwardPageFunc #method:setForwardPageFunc# + +#if ENABLE_OVERLOADING + AssistantSetForwardPageFuncMethodInfo , +#endif + assistantSetForwardPageFunc , + + +-- ** setPageComplete #method:setPageComplete# + +#if ENABLE_OVERLOADING + AssistantSetPageCompleteMethodInfo , +#endif + assistantSetPageComplete , + + +-- ** setPageHasPadding #method:setPageHasPadding# + +#if ENABLE_OVERLOADING + AssistantSetPageHasPaddingMethodInfo , +#endif + assistantSetPageHasPadding , + + +-- ** setPageHeaderImage #method:setPageHeaderImage# + +#if ENABLE_OVERLOADING + AssistantSetPageHeaderImageMethodInfo , +#endif + assistantSetPageHeaderImage , + + +-- ** setPageSideImage #method:setPageSideImage# + +#if ENABLE_OVERLOADING + AssistantSetPageSideImageMethodInfo , +#endif + assistantSetPageSideImage , + + +-- ** setPageTitle #method:setPageTitle# + +#if ENABLE_OVERLOADING + AssistantSetPageTitleMethodInfo , +#endif + assistantSetPageTitle , + + +-- ** setPageType #method:setPageType# + +#if ENABLE_OVERLOADING + AssistantSetPageTypeMethodInfo , +#endif + assistantSetPageType , + + +-- ** updateButtonsState #method:updateButtonsState# + +#if ENABLE_OVERLOADING + AssistantUpdateButtonsStateMethodInfo , +#endif + assistantUpdateButtonsState , + + + + + -- * Properties +-- ** useHeaderBar #attr:useHeaderBar# +{- | 'True' if the assistant uses a 'GI.Gtk.Objects.HeaderBar.HeaderBar' for action buttons +instead of the action-area. + +For technical reasons, this property is declared as an integer +property, but you should only set it to 'True' or 'False'. + +/Since: 3.12/ +-} +#if ENABLE_OVERLOADING + AssistantUseHeaderBarPropertyInfo , +#endif +#if ENABLE_OVERLOADING + assistantUseHeaderBar , +#endif + constructAssistantUseHeaderBar , + getAssistantUseHeaderBar , + + + + + -- * Signals +-- ** apply #signal:apply# + + AssistantApplyCallback , +#if ENABLE_OVERLOADING + AssistantApplySignalInfo , +#endif + C_AssistantApplyCallback , + afterAssistantApply , + genClosure_AssistantApply , + mk_AssistantApplyCallback , + noAssistantApplyCallback , + onAssistantApply , + wrap_AssistantApplyCallback , + + +-- ** cancel #signal:cancel# + + AssistantCancelCallback , +#if ENABLE_OVERLOADING + AssistantCancelSignalInfo , +#endif + C_AssistantCancelCallback , + afterAssistantCancel , + genClosure_AssistantCancel , + mk_AssistantCancelCallback , + noAssistantCancelCallback , + onAssistantCancel , + wrap_AssistantCancelCallback , + + +-- ** close #signal:close# + + AssistantCloseCallback , +#if ENABLE_OVERLOADING + AssistantCloseSignalInfo , +#endif + C_AssistantCloseCallback , + afterAssistantClose , + genClosure_AssistantClose , + mk_AssistantCloseCallback , + noAssistantCloseCallback , + onAssistantClose , + wrap_AssistantCloseCallback , + + +-- ** escape #signal:escape# + + AssistantEscapeCallback , +#if ENABLE_OVERLOADING + AssistantEscapeSignalInfo , +#endif + C_AssistantEscapeCallback , + afterAssistantEscape , + genClosure_AssistantEscape , + mk_AssistantEscapeCallback , + noAssistantEscapeCallback , + onAssistantEscape , + wrap_AssistantEscapeCallback , + + +-- ** prepare #signal:prepare# + + AssistantPrepareCallback , +#if ENABLE_OVERLOADING + AssistantPrepareSignalInfo , +#endif + C_AssistantPrepareCallback , + afterAssistantPrepare , + genClosure_AssistantPrepare , + mk_AssistantPrepareCallback , + noAssistantPrepareCallback , + onAssistantPrepare , + wrap_AssistantPrepareCallback , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GLib.Callbacks as GLib.Callbacks +import qualified GI.GObject.Objects.Object as GObject.Object +import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf +import qualified GI.Gtk.Callbacks as Gtk.Callbacks +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget +import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window + +-- | Memory-managed wrapper type. +newtype Assistant = Assistant (ManagedPtr Assistant) +foreign import ccall "gtk_assistant_get_type" + c_gtk_assistant_get_type :: IO GType + +instance GObject Assistant where + gobjectType = c_gtk_assistant_get_type + + +-- | Type class for types which can be safely cast to `Assistant`, for instance with `toAssistant`. +class (GObject o, O.IsDescendantOf Assistant o) => IsAssistant o +instance (GObject o, O.IsDescendantOf Assistant o) => IsAssistant o + +instance O.HasParentTypes Assistant +type instance O.ParentTypes Assistant = '[Gtk.Window.Window, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `Assistant`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toAssistant :: (MonadIO m, IsAssistant o) => o -> m Assistant +toAssistant = liftIO . unsafeCastTo Assistant + +-- | A convenience alias for `Nothing` :: `Maybe` `Assistant`. +noAssistant :: Maybe Assistant +noAssistant = Nothing + +#if ENABLE_OVERLOADING +type family ResolveAssistantMethod (t :: Symbol) (o :: *) :: * where + ResolveAssistantMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveAssistantMethod "activateDefault" o = Gtk.Window.WindowActivateDefaultMethodInfo + ResolveAssistantMethod "activateFocus" o = Gtk.Window.WindowActivateFocusMethodInfo + ResolveAssistantMethod "activateKey" o = Gtk.Window.WindowActivateKeyMethodInfo + ResolveAssistantMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveAssistantMethod "addAccelGroup" o = Gtk.Window.WindowAddAccelGroupMethodInfo + ResolveAssistantMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveAssistantMethod "addActionWidget" o = AssistantAddActionWidgetMethodInfo + ResolveAssistantMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveAssistantMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveAssistantMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveAssistantMethod "addMnemonic" o = Gtk.Window.WindowAddMnemonicMethodInfo + ResolveAssistantMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveAssistantMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveAssistantMethod "appendPage" o = AssistantAppendPageMethodInfo + ResolveAssistantMethod "beginMoveDrag" o = Gtk.Window.WindowBeginMoveDragMethodInfo + ResolveAssistantMethod "beginResizeDrag" o = Gtk.Window.WindowBeginResizeDragMethodInfo + ResolveAssistantMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveAssistantMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveAssistantMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveAssistantMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveAssistantMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveAssistantMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveAssistantMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveAssistantMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveAssistantMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveAssistantMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveAssistantMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveAssistantMethod "close" o = Gtk.Window.WindowCloseMethodInfo + ResolveAssistantMethod "commit" o = AssistantCommitMethodInfo + ResolveAssistantMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveAssistantMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveAssistantMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveAssistantMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveAssistantMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveAssistantMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveAssistantMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveAssistantMethod "deiconify" o = Gtk.Window.WindowDeiconifyMethodInfo + ResolveAssistantMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveAssistantMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveAssistantMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveAssistantMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveAssistantMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveAssistantMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveAssistantMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveAssistantMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveAssistantMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveAssistantMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveAssistantMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveAssistantMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveAssistantMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveAssistantMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveAssistantMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveAssistantMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveAssistantMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveAssistantMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveAssistantMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveAssistantMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveAssistantMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveAssistantMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveAssistantMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveAssistantMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveAssistantMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveAssistantMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveAssistantMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveAssistantMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveAssistantMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveAssistantMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveAssistantMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveAssistantMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveAssistantMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveAssistantMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveAssistantMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveAssistantMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveAssistantMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveAssistantMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveAssistantMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveAssistantMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveAssistantMethod "fullscreen" o = Gtk.Window.WindowFullscreenMethodInfo + ResolveAssistantMethod "fullscreenOnMonitor" o = Gtk.Window.WindowFullscreenOnMonitorMethodInfo + ResolveAssistantMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveAssistantMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveAssistantMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveAssistantMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveAssistantMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveAssistantMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveAssistantMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveAssistantMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveAssistantMethod "hasGroup" o = Gtk.Window.WindowHasGroupMethodInfo + ResolveAssistantMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveAssistantMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveAssistantMethod "hasToplevelFocus" o = Gtk.Window.WindowHasToplevelFocusMethodInfo + ResolveAssistantMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveAssistantMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveAssistantMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveAssistantMethod "iconify" o = Gtk.Window.WindowIconifyMethodInfo + ResolveAssistantMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveAssistantMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveAssistantMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveAssistantMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveAssistantMethod "insertPage" o = AssistantInsertPageMethodInfo + ResolveAssistantMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveAssistantMethod "isActive" o = Gtk.Window.WindowIsActiveMethodInfo + ResolveAssistantMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveAssistantMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveAssistantMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveAssistantMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveAssistantMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveAssistantMethod "isMaximized" o = Gtk.Window.WindowIsMaximizedMethodInfo + ResolveAssistantMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveAssistantMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveAssistantMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveAssistantMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveAssistantMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveAssistantMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveAssistantMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveAssistantMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveAssistantMethod "maximize" o = Gtk.Window.WindowMaximizeMethodInfo + ResolveAssistantMethod "mnemonicActivate" o = Gtk.Window.WindowMnemonicActivateMethodInfo + ResolveAssistantMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveAssistantMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveAssistantMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveAssistantMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveAssistantMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveAssistantMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveAssistantMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveAssistantMethod "move" o = Gtk.Window.WindowMoveMethodInfo + ResolveAssistantMethod "nextPage" o = AssistantNextPageMethodInfo + ResolveAssistantMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveAssistantMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveAssistantMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveAssistantMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveAssistantMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveAssistantMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveAssistantMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveAssistantMethod "parseGeometry" o = Gtk.Window.WindowParseGeometryMethodInfo + ResolveAssistantMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveAssistantMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveAssistantMethod "prependPage" o = AssistantPrependPageMethodInfo + ResolveAssistantMethod "present" o = Gtk.Window.WindowPresentMethodInfo + ResolveAssistantMethod "presentWithTime" o = Gtk.Window.WindowPresentWithTimeMethodInfo + ResolveAssistantMethod "previousPage" o = AssistantPreviousPageMethodInfo + ResolveAssistantMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveAssistantMethod "propagateKeyEvent" o = Gtk.Window.WindowPropagateKeyEventMethodInfo + ResolveAssistantMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveAssistantMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveAssistantMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveAssistantMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveAssistantMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveAssistantMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveAssistantMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveAssistantMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveAssistantMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveAssistantMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveAssistantMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveAssistantMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveAssistantMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveAssistantMethod "removeAccelGroup" o = Gtk.Window.WindowRemoveAccelGroupMethodInfo + ResolveAssistantMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveAssistantMethod "removeActionWidget" o = AssistantRemoveActionWidgetMethodInfo + ResolveAssistantMethod "removeMnemonic" o = Gtk.Window.WindowRemoveMnemonicMethodInfo + ResolveAssistantMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveAssistantMethod "removePage" o = AssistantRemovePageMethodInfo + ResolveAssistantMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveAssistantMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveAssistantMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveAssistantMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveAssistantMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveAssistantMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveAssistantMethod "reshowWithInitialSize" o = Gtk.Window.WindowReshowWithInitialSizeMethodInfo + ResolveAssistantMethod "resize" o = Gtk.Window.WindowResizeMethodInfo + ResolveAssistantMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveAssistantMethod "resizeGripIsVisible" o = Gtk.Window.WindowResizeGripIsVisibleMethodInfo + ResolveAssistantMethod "resizeToGeometry" o = Gtk.Window.WindowResizeToGeometryMethodInfo + ResolveAssistantMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveAssistantMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveAssistantMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveAssistantMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveAssistantMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveAssistantMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveAssistantMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveAssistantMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveAssistantMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveAssistantMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveAssistantMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveAssistantMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveAssistantMethod "stick" o = Gtk.Window.WindowStickMethodInfo + ResolveAssistantMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveAssistantMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveAssistantMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveAssistantMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveAssistantMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveAssistantMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveAssistantMethod "unfullscreen" o = Gtk.Window.WindowUnfullscreenMethodInfo + ResolveAssistantMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveAssistantMethod "unmaximize" o = Gtk.Window.WindowUnmaximizeMethodInfo + ResolveAssistantMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveAssistantMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveAssistantMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveAssistantMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveAssistantMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveAssistantMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveAssistantMethod "unstick" o = Gtk.Window.WindowUnstickMethodInfo + ResolveAssistantMethod "updateButtonsState" o = AssistantUpdateButtonsStateMethodInfo + ResolveAssistantMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveAssistantMethod "getAcceptFocus" o = Gtk.Window.WindowGetAcceptFocusMethodInfo + ResolveAssistantMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveAssistantMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveAssistantMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveAssistantMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveAssistantMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveAssistantMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveAssistantMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveAssistantMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveAssistantMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveAssistantMethod "getApplication" o = Gtk.Window.WindowGetApplicationMethodInfo + ResolveAssistantMethod "getAttachedTo" o = Gtk.Window.WindowGetAttachedToMethodInfo + ResolveAssistantMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveAssistantMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveAssistantMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveAssistantMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo + ResolveAssistantMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveAssistantMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveAssistantMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveAssistantMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveAssistantMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveAssistantMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveAssistantMethod "getCurrentPage" o = AssistantGetCurrentPageMethodInfo + ResolveAssistantMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveAssistantMethod "getDecorated" o = Gtk.Window.WindowGetDecoratedMethodInfo + ResolveAssistantMethod "getDefaultSize" o = Gtk.Window.WindowGetDefaultSizeMethodInfo + ResolveAssistantMethod "getDefaultWidget" o = Gtk.Window.WindowGetDefaultWidgetMethodInfo + ResolveAssistantMethod "getDeletable" o = Gtk.Window.WindowGetDeletableMethodInfo + ResolveAssistantMethod "getDestroyWithParent" o = Gtk.Window.WindowGetDestroyWithParentMethodInfo + ResolveAssistantMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveAssistantMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveAssistantMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveAssistantMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveAssistantMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveAssistantMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveAssistantMethod "getFocus" o = Gtk.Window.WindowGetFocusMethodInfo + ResolveAssistantMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveAssistantMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveAssistantMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveAssistantMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveAssistantMethod "getFocusOnMap" o = Gtk.Window.WindowGetFocusOnMapMethodInfo + ResolveAssistantMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveAssistantMethod "getFocusVisible" o = Gtk.Window.WindowGetFocusVisibleMethodInfo + ResolveAssistantMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveAssistantMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveAssistantMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveAssistantMethod "getGravity" o = Gtk.Window.WindowGetGravityMethodInfo + ResolveAssistantMethod "getGroup" o = Gtk.Window.WindowGetGroupMethodInfo + ResolveAssistantMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveAssistantMethod "getHasResizeGrip" o = Gtk.Window.WindowGetHasResizeGripMethodInfo + ResolveAssistantMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveAssistantMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveAssistantMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveAssistantMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveAssistantMethod "getHideTitlebarWhenMaximized" o = Gtk.Window.WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveAssistantMethod "getIcon" o = Gtk.Window.WindowGetIconMethodInfo + ResolveAssistantMethod "getIconList" o = Gtk.Window.WindowGetIconListMethodInfo + ResolveAssistantMethod "getIconName" o = Gtk.Window.WindowGetIconNameMethodInfo + ResolveAssistantMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveAssistantMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveAssistantMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveAssistantMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveAssistantMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveAssistantMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveAssistantMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveAssistantMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveAssistantMethod "getMnemonicModifier" o = Gtk.Window.WindowGetMnemonicModifierMethodInfo + ResolveAssistantMethod "getMnemonicsVisible" o = Gtk.Window.WindowGetMnemonicsVisibleMethodInfo + ResolveAssistantMethod "getModal" o = Gtk.Window.WindowGetModalMethodInfo + ResolveAssistantMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveAssistantMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveAssistantMethod "getNPages" o = AssistantGetNPagesMethodInfo + ResolveAssistantMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveAssistantMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveAssistantMethod "getNthPage" o = AssistantGetNthPageMethodInfo + ResolveAssistantMethod "getOpacity" o = Gtk.Window.WindowGetOpacityMethodInfo + ResolveAssistantMethod "getPageComplete" o = AssistantGetPageCompleteMethodInfo + ResolveAssistantMethod "getPageHasPadding" o = AssistantGetPageHasPaddingMethodInfo + ResolveAssistantMethod "getPageHeaderImage" o = AssistantGetPageHeaderImageMethodInfo + ResolveAssistantMethod "getPageSideImage" o = AssistantGetPageSideImageMethodInfo + ResolveAssistantMethod "getPageTitle" o = AssistantGetPageTitleMethodInfo + ResolveAssistantMethod "getPageType" o = AssistantGetPageTypeMethodInfo + ResolveAssistantMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveAssistantMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveAssistantMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveAssistantMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveAssistantMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveAssistantMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveAssistantMethod "getPosition" o = Gtk.Window.WindowGetPositionMethodInfo + ResolveAssistantMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveAssistantMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAssistantMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveAssistantMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveAssistantMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveAssistantMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveAssistantMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveAssistantMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveAssistantMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveAssistantMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveAssistantMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveAssistantMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveAssistantMethod "getResizable" o = Gtk.Window.WindowGetResizableMethodInfo + ResolveAssistantMethod "getResizeGripArea" o = Gtk.Window.WindowGetResizeGripAreaMethodInfo + ResolveAssistantMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveAssistantMethod "getRole" o = Gtk.Window.WindowGetRoleMethodInfo + ResolveAssistantMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveAssistantMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveAssistantMethod "getScreen" o = Gtk.Window.WindowGetScreenMethodInfo + ResolveAssistantMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveAssistantMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveAssistantMethod "getSize" o = Gtk.Window.WindowGetSizeMethodInfo + ResolveAssistantMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveAssistantMethod "getSkipPagerHint" o = Gtk.Window.WindowGetSkipPagerHintMethodInfo + ResolveAssistantMethod "getSkipTaskbarHint" o = Gtk.Window.WindowGetSkipTaskbarHintMethodInfo + ResolveAssistantMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveAssistantMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveAssistantMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveAssistantMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveAssistantMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveAssistantMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveAssistantMethod "getTitle" o = Gtk.Window.WindowGetTitleMethodInfo + ResolveAssistantMethod "getTitlebar" o = Gtk.Window.WindowGetTitlebarMethodInfo + ResolveAssistantMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveAssistantMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveAssistantMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveAssistantMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveAssistantMethod "getTransientFor" o = Gtk.Window.WindowGetTransientForMethodInfo + ResolveAssistantMethod "getTypeHint" o = Gtk.Window.WindowGetTypeHintMethodInfo + ResolveAssistantMethod "getUrgencyHint" o = Gtk.Window.WindowGetUrgencyHintMethodInfo + ResolveAssistantMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveAssistantMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveAssistantMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveAssistantMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveAssistantMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveAssistantMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveAssistantMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveAssistantMethod "getWindowType" o = Gtk.Window.WindowGetWindowTypeMethodInfo + ResolveAssistantMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveAssistantMethod "setAcceptFocus" o = Gtk.Window.WindowSetAcceptFocusMethodInfo + ResolveAssistantMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveAssistantMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveAssistantMethod "setApplication" o = Gtk.Window.WindowSetApplicationMethodInfo + ResolveAssistantMethod "setAttachedTo" o = Gtk.Window.WindowSetAttachedToMethodInfo + ResolveAssistantMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveAssistantMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveAssistantMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveAssistantMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveAssistantMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveAssistantMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveAssistantMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveAssistantMethod "setCurrentPage" o = AssistantSetCurrentPageMethodInfo + ResolveAssistantMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveAssistantMethod "setDecorated" o = Gtk.Window.WindowSetDecoratedMethodInfo + ResolveAssistantMethod "setDefault" o = Gtk.Window.WindowSetDefaultMethodInfo + ResolveAssistantMethod "setDefaultGeometry" o = Gtk.Window.WindowSetDefaultGeometryMethodInfo + ResolveAssistantMethod "setDefaultSize" o = Gtk.Window.WindowSetDefaultSizeMethodInfo + ResolveAssistantMethod "setDeletable" o = Gtk.Window.WindowSetDeletableMethodInfo + ResolveAssistantMethod "setDestroyWithParent" o = Gtk.Window.WindowSetDestroyWithParentMethodInfo + ResolveAssistantMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveAssistantMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveAssistantMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveAssistantMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveAssistantMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveAssistantMethod "setFocus" o = Gtk.Window.WindowSetFocusMethodInfo + ResolveAssistantMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveAssistantMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveAssistantMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveAssistantMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveAssistantMethod "setFocusOnMap" o = Gtk.Window.WindowSetFocusOnMapMethodInfo + ResolveAssistantMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveAssistantMethod "setFocusVisible" o = Gtk.Window.WindowSetFocusVisibleMethodInfo + ResolveAssistantMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveAssistantMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveAssistantMethod "setForwardPageFunc" o = AssistantSetForwardPageFuncMethodInfo + ResolveAssistantMethod "setGeometryHints" o = Gtk.Window.WindowSetGeometryHintsMethodInfo + ResolveAssistantMethod "setGravity" o = Gtk.Window.WindowSetGravityMethodInfo + ResolveAssistantMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveAssistantMethod "setHasResizeGrip" o = Gtk.Window.WindowSetHasResizeGripMethodInfo + ResolveAssistantMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveAssistantMethod "setHasUserRefCount" o = Gtk.Window.WindowSetHasUserRefCountMethodInfo + ResolveAssistantMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveAssistantMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveAssistantMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveAssistantMethod "setHideTitlebarWhenMaximized" o = Gtk.Window.WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveAssistantMethod "setIcon" o = Gtk.Window.WindowSetIconMethodInfo + ResolveAssistantMethod "setIconFromFile" o = Gtk.Window.WindowSetIconFromFileMethodInfo + ResolveAssistantMethod "setIconList" o = Gtk.Window.WindowSetIconListMethodInfo + ResolveAssistantMethod "setIconName" o = Gtk.Window.WindowSetIconNameMethodInfo + ResolveAssistantMethod "setKeepAbove" o = Gtk.Window.WindowSetKeepAboveMethodInfo + ResolveAssistantMethod "setKeepBelow" o = Gtk.Window.WindowSetKeepBelowMethodInfo + ResolveAssistantMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveAssistantMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveAssistantMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveAssistantMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveAssistantMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveAssistantMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveAssistantMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveAssistantMethod "setMnemonicModifier" o = Gtk.Window.WindowSetMnemonicModifierMethodInfo + ResolveAssistantMethod "setMnemonicsVisible" o = Gtk.Window.WindowSetMnemonicsVisibleMethodInfo + ResolveAssistantMethod "setModal" o = Gtk.Window.WindowSetModalMethodInfo + ResolveAssistantMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveAssistantMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveAssistantMethod "setOpacity" o = Gtk.Window.WindowSetOpacityMethodInfo + ResolveAssistantMethod "setPageComplete" o = AssistantSetPageCompleteMethodInfo + ResolveAssistantMethod "setPageHasPadding" o = AssistantSetPageHasPaddingMethodInfo + ResolveAssistantMethod "setPageHeaderImage" o = AssistantSetPageHeaderImageMethodInfo + ResolveAssistantMethod "setPageSideImage" o = AssistantSetPageSideImageMethodInfo + ResolveAssistantMethod "setPageTitle" o = AssistantSetPageTitleMethodInfo + ResolveAssistantMethod "setPageType" o = AssistantSetPageTypeMethodInfo + ResolveAssistantMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveAssistantMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveAssistantMethod "setPosition" o = Gtk.Window.WindowSetPositionMethodInfo + ResolveAssistantMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveAssistantMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveAssistantMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveAssistantMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveAssistantMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveAssistantMethod "setResizable" o = Gtk.Window.WindowSetResizableMethodInfo + ResolveAssistantMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveAssistantMethod "setRole" o = Gtk.Window.WindowSetRoleMethodInfo + ResolveAssistantMethod "setScreen" o = Gtk.Window.WindowSetScreenMethodInfo + ResolveAssistantMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveAssistantMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveAssistantMethod "setSkipPagerHint" o = Gtk.Window.WindowSetSkipPagerHintMethodInfo + ResolveAssistantMethod "setSkipTaskbarHint" o = Gtk.Window.WindowSetSkipTaskbarHintMethodInfo + ResolveAssistantMethod "setStartupId" o = Gtk.Window.WindowSetStartupIdMethodInfo + ResolveAssistantMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveAssistantMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveAssistantMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveAssistantMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveAssistantMethod "setTitle" o = Gtk.Window.WindowSetTitleMethodInfo + ResolveAssistantMethod "setTitlebar" o = Gtk.Window.WindowSetTitlebarMethodInfo + ResolveAssistantMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveAssistantMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveAssistantMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveAssistantMethod "setTransientFor" o = Gtk.Window.WindowSetTransientForMethodInfo + ResolveAssistantMethod "setTypeHint" o = Gtk.Window.WindowSetTypeHintMethodInfo + ResolveAssistantMethod "setUrgencyHint" o = Gtk.Window.WindowSetUrgencyHintMethodInfo + ResolveAssistantMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveAssistantMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveAssistantMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveAssistantMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveAssistantMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveAssistantMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveAssistantMethod "setWmclass" o = Gtk.Window.WindowSetWmclassMethodInfo + ResolveAssistantMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveAssistantMethod t Assistant, O.MethodInfo info Assistant p) => OL.IsLabel t (Assistant -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- signal Assistant::apply +{- | +The ::apply signal is emitted when the apply button is clicked. + +The default behavior of the 'GI.Gtk.Objects.Assistant.Assistant' is to switch to the page +after the current page, unless the current page is the last one. + +A handler for the ::apply signal should carry out the actions for +which the wizard has collected data. If the action takes a long time +to complete, you might consider putting a page of type +'GI.Gtk.Enums.AssistantPageTypeProgress' after the confirmation page and handle +this operation within the 'GI.Gtk.Objects.Assistant.Assistant'::@/prepare/@ signal of the progress +page. + +/Since: 2.10/ +-} +type AssistantApplyCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AssistantApplyCallback`@. +noAssistantApplyCallback :: Maybe AssistantApplyCallback +noAssistantApplyCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AssistantApplyCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AssistantApplyCallback`. +foreign import ccall "wrapper" + mk_AssistantApplyCallback :: C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AssistantApply :: MonadIO m => AssistantApplyCallback -> m (GClosure C_AssistantApplyCallback) +genClosure_AssistantApply cb = liftIO $ do + let cb' = wrap_AssistantApplyCallback cb + mk_AssistantApplyCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AssistantApplyCallback` into a `C_AssistantApplyCallback`. +wrap_AssistantApplyCallback :: + AssistantApplyCallback -> + C_AssistantApplyCallback +wrap_AssistantApplyCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@apply@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' assistant #apply callback +@ +-} +onAssistantApply :: (IsAssistant a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId +onAssistantApply obj cb = liftIO $ do + let cb' = wrap_AssistantApplyCallback cb + cb'' <- mk_AssistantApplyCallback cb' + connectSignalFunPtr obj "apply" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@apply@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' assistant #apply callback +@ +-} +afterAssistantApply :: (IsAssistant a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId +afterAssistantApply obj cb = liftIO $ do + let cb' = wrap_AssistantApplyCallback cb + cb'' <- mk_AssistantApplyCallback cb' + connectSignalFunPtr obj "apply" cb'' SignalConnectAfter + + +-- signal Assistant::cancel +{- | +The ::cancel signal is emitted when then the cancel button is clicked. + +/Since: 2.10/ +-} +type AssistantCancelCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AssistantCancelCallback`@. +noAssistantCancelCallback :: Maybe AssistantCancelCallback +noAssistantCancelCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AssistantCancelCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AssistantCancelCallback`. +foreign import ccall "wrapper" + mk_AssistantCancelCallback :: C_AssistantCancelCallback -> IO (FunPtr C_AssistantCancelCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AssistantCancel :: MonadIO m => AssistantCancelCallback -> m (GClosure C_AssistantCancelCallback) +genClosure_AssistantCancel cb = liftIO $ do + let cb' = wrap_AssistantCancelCallback cb + mk_AssistantCancelCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AssistantCancelCallback` into a `C_AssistantCancelCallback`. +wrap_AssistantCancelCallback :: + AssistantCancelCallback -> + C_AssistantCancelCallback +wrap_AssistantCancelCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@cancel@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' assistant #cancel callback +@ +-} +onAssistantCancel :: (IsAssistant a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId +onAssistantCancel obj cb = liftIO $ do + let cb' = wrap_AssistantCancelCallback cb + cb'' <- mk_AssistantCancelCallback cb' + connectSignalFunPtr obj "cancel" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@cancel@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' assistant #cancel callback +@ +-} +afterAssistantCancel :: (IsAssistant a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId +afterAssistantCancel obj cb = liftIO $ do + let cb' = wrap_AssistantCancelCallback cb + cb'' <- mk_AssistantCancelCallback cb' + connectSignalFunPtr obj "cancel" cb'' SignalConnectAfter + + +-- signal Assistant::close +{- | +The ::close signal is emitted either when the close button of +a summary page is clicked, or when the apply button in the last +page in the flow (of type 'GI.Gtk.Enums.AssistantPageTypeConfirm') is clicked. + +/Since: 2.10/ +-} +type AssistantCloseCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AssistantCloseCallback`@. +noAssistantCloseCallback :: Maybe AssistantCloseCallback +noAssistantCloseCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AssistantCloseCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AssistantCloseCallback`. +foreign import ccall "wrapper" + mk_AssistantCloseCallback :: C_AssistantCloseCallback -> IO (FunPtr C_AssistantCloseCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AssistantClose :: MonadIO m => AssistantCloseCallback -> m (GClosure C_AssistantCloseCallback) +genClosure_AssistantClose cb = liftIO $ do + let cb' = wrap_AssistantCloseCallback cb + mk_AssistantCloseCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AssistantCloseCallback` into a `C_AssistantCloseCallback`. +wrap_AssistantCloseCallback :: + AssistantCloseCallback -> + C_AssistantCloseCallback +wrap_AssistantCloseCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@close@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' assistant #close callback +@ +-} +onAssistantClose :: (IsAssistant a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId +onAssistantClose obj cb = liftIO $ do + let cb' = wrap_AssistantCloseCallback cb + cb'' <- mk_AssistantCloseCallback cb' + connectSignalFunPtr obj "close" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@close@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' assistant #close callback +@ +-} +afterAssistantClose :: (IsAssistant a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId +afterAssistantClose obj cb = liftIO $ do + let cb' = wrap_AssistantCloseCallback cb + cb'' <- mk_AssistantCloseCallback cb' + connectSignalFunPtr obj "close" cb'' SignalConnectAfter + + +-- signal Assistant::escape +{- | +/No description available in the introspection data./ +-} +type AssistantEscapeCallback = + IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AssistantEscapeCallback`@. +noAssistantEscapeCallback :: Maybe AssistantEscapeCallback +noAssistantEscapeCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AssistantEscapeCallback = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AssistantEscapeCallback`. +foreign import ccall "wrapper" + mk_AssistantEscapeCallback :: C_AssistantEscapeCallback -> IO (FunPtr C_AssistantEscapeCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AssistantEscape :: MonadIO m => AssistantEscapeCallback -> m (GClosure C_AssistantEscapeCallback) +genClosure_AssistantEscape cb = liftIO $ do + let cb' = wrap_AssistantEscapeCallback cb + mk_AssistantEscapeCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AssistantEscapeCallback` into a `C_AssistantEscapeCallback`. +wrap_AssistantEscapeCallback :: + AssistantEscapeCallback -> + C_AssistantEscapeCallback +wrap_AssistantEscapeCallback _cb _ _ = do + _cb + + +{- | +Connect a signal handler for the “@escape@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' assistant #escape callback +@ +-} +onAssistantEscape :: (IsAssistant a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId +onAssistantEscape obj cb = liftIO $ do + let cb' = wrap_AssistantEscapeCallback cb + cb'' <- mk_AssistantEscapeCallback cb' + connectSignalFunPtr obj "escape" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@escape@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' assistant #escape callback +@ +-} +afterAssistantEscape :: (IsAssistant a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId +afterAssistantEscape obj cb = liftIO $ do + let cb' = wrap_AssistantEscapeCallback cb + cb'' <- mk_AssistantEscapeCallback cb' + connectSignalFunPtr obj "escape" cb'' SignalConnectAfter + + +-- signal Assistant::prepare +{- | +The ::prepare signal is emitted when a new page is set as the +assistant\'s current page, before making the new page visible. + +A handler for this signal can do any preparations which are +necessary before showing /@page@/. + +/Since: 2.10/ +-} +type AssistantPrepareCallback = + Gtk.Widget.Widget + {- ^ /@page@/: the current page -} + -> IO () + +-- | A convenience synonym for @`Nothing` :: `Maybe` `AssistantPrepareCallback`@. +noAssistantPrepareCallback :: Maybe AssistantPrepareCallback +noAssistantPrepareCallback = Nothing + +-- | Type for the callback on the (unwrapped) C side. +type C_AssistantPrepareCallback = + Ptr () -> -- object + Ptr Gtk.Widget.Widget -> + Ptr () -> -- user_data + IO () + +-- | Generate a function pointer callable from C code, from a `C_AssistantPrepareCallback`. +foreign import ccall "wrapper" + mk_AssistantPrepareCallback :: C_AssistantPrepareCallback -> IO (FunPtr C_AssistantPrepareCallback) + +-- | Wrap the callback into a `GClosure`. +genClosure_AssistantPrepare :: MonadIO m => AssistantPrepareCallback -> m (GClosure C_AssistantPrepareCallback) +genClosure_AssistantPrepare cb = liftIO $ do + let cb' = wrap_AssistantPrepareCallback cb + mk_AssistantPrepareCallback cb' >>= B.GClosure.newGClosure + + +-- | Wrap a `AssistantPrepareCallback` into a `C_AssistantPrepareCallback`. +wrap_AssistantPrepareCallback :: + AssistantPrepareCallback -> + C_AssistantPrepareCallback +wrap_AssistantPrepareCallback _cb _ page _ = do + page' <- (newObject Gtk.Widget.Widget) page + _cb page' + + +{- | +Connect a signal handler for the “@prepare@” signal, to be run before the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.on' assistant #prepare callback +@ +-} +onAssistantPrepare :: (IsAssistant a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId +onAssistantPrepare obj cb = liftIO $ do + let cb' = wrap_AssistantPrepareCallback cb + cb'' <- mk_AssistantPrepareCallback cb' + connectSignalFunPtr obj "prepare" cb'' SignalConnectBefore + +{- | +Connect a signal handler for the “@prepare@” signal, to be run after the default handler. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Signals.after' assistant #prepare callback +@ +-} +afterAssistantPrepare :: (IsAssistant a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId +afterAssistantPrepare obj cb = liftIO $ do + let cb' = wrap_AssistantPrepareCallback cb + cb'' <- mk_AssistantPrepareCallback cb' + connectSignalFunPtr obj "prepare" cb'' SignalConnectAfter + + +-- VVV Prop "use-header-bar" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) + +{- | +Get the value of the “@use-header-bar@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' assistant #useHeaderBar +@ +-} +getAssistantUseHeaderBar :: (MonadIO m, IsAssistant o) => o -> m Int32 +getAssistantUseHeaderBar obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "use-header-bar" + +{- | +Construct a `GValueConstruct` with valid value for the “@use-header-bar@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructAssistantUseHeaderBar :: (IsAssistant o) => Int32 -> IO (GValueConstruct o) +constructAssistantUseHeaderBar val = B.Properties.constructObjectPropertyInt32 "use-header-bar" val + +#if ENABLE_OVERLOADING +data AssistantUseHeaderBarPropertyInfo +instance AttrInfo AssistantUseHeaderBarPropertyInfo where + type AttrAllowedOps AssistantUseHeaderBarPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AssistantUseHeaderBarPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint AssistantUseHeaderBarPropertyInfo = IsAssistant + type AttrGetType AssistantUseHeaderBarPropertyInfo = Int32 + type AttrLabel AssistantUseHeaderBarPropertyInfo = "use-header-bar" + type AttrOrigin AssistantUseHeaderBarPropertyInfo = Assistant + attrGet _ = getAssistantUseHeaderBar + attrSet _ = undefined + attrConstruct _ = constructAssistantUseHeaderBar + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Assistant +type instance O.AttributeList Assistant = AssistantAttributeList +type AssistantAttributeList = ('[ '("acceptFocus", Gtk.Window.WindowAcceptFocusPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("application", Gtk.Window.WindowApplicationPropertyInfo), '("attachedTo", Gtk.Window.WindowAttachedToPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("decorated", Gtk.Window.WindowDecoratedPropertyInfo), '("defaultHeight", Gtk.Window.WindowDefaultHeightPropertyInfo), '("defaultWidth", Gtk.Window.WindowDefaultWidthPropertyInfo), '("deletable", Gtk.Window.WindowDeletablePropertyInfo), '("destroyWithParent", Gtk.Window.WindowDestroyWithParentPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusOnMap", Gtk.Window.WindowFocusOnMapPropertyInfo), '("focusVisible", Gtk.Window.WindowFocusVisiblePropertyInfo), '("gravity", Gtk.Window.WindowGravityPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasResizeGrip", Gtk.Window.WindowHasResizeGripPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", Gtk.Window.WindowHasToplevelFocusPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", Gtk.Window.WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", Gtk.Window.WindowIconPropertyInfo), '("iconName", Gtk.Window.WindowIconNamePropertyInfo), '("isActive", Gtk.Window.WindowIsActivePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isMaximized", Gtk.Window.WindowIsMaximizedPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mnemonicsVisible", Gtk.Window.WindowMnemonicsVisiblePropertyInfo), '("modal", Gtk.Window.WindowModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizable", Gtk.Window.WindowResizablePropertyInfo), '("resizeGripVisible", Gtk.Window.WindowResizeGripVisiblePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("role", Gtk.Window.WindowRolePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("screen", Gtk.Window.WindowScreenPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("skipPagerHint", Gtk.Window.WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", Gtk.Window.WindowSkipTaskbarHintPropertyInfo), '("startupId", Gtk.Window.WindowStartupIdPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("title", Gtk.Window.WindowTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", Gtk.Window.WindowTransientForPropertyInfo), '("type", Gtk.Window.WindowTypePropertyInfo), '("typeHint", Gtk.Window.WindowTypeHintPropertyInfo), '("urgencyHint", Gtk.Window.WindowUrgencyHintPropertyInfo), '("useHeaderBar", AssistantUseHeaderBarPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowPosition", Gtk.Window.WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +assistantUseHeaderBar :: AttrLabelProxy "useHeaderBar" +assistantUseHeaderBar = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +data AssistantApplySignalInfo +instance SignalInfo AssistantApplySignalInfo where + type HaskellCallbackType AssistantApplySignalInfo = AssistantApplyCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AssistantApplyCallback cb + cb'' <- mk_AssistantApplyCallback cb' + connectSignalFunPtr obj "apply" cb'' connectMode + +data AssistantCancelSignalInfo +instance SignalInfo AssistantCancelSignalInfo where + type HaskellCallbackType AssistantCancelSignalInfo = AssistantCancelCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AssistantCancelCallback cb + cb'' <- mk_AssistantCancelCallback cb' + connectSignalFunPtr obj "cancel" cb'' connectMode + +data AssistantCloseSignalInfo +instance SignalInfo AssistantCloseSignalInfo where + type HaskellCallbackType AssistantCloseSignalInfo = AssistantCloseCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AssistantCloseCallback cb + cb'' <- mk_AssistantCloseCallback cb' + connectSignalFunPtr obj "close" cb'' connectMode + +data AssistantEscapeSignalInfo +instance SignalInfo AssistantEscapeSignalInfo where + type HaskellCallbackType AssistantEscapeSignalInfo = AssistantEscapeCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AssistantEscapeCallback cb + cb'' <- mk_AssistantEscapeCallback cb' + connectSignalFunPtr obj "escape" cb'' connectMode + +data AssistantPrepareSignalInfo +instance SignalInfo AssistantPrepareSignalInfo where + type HaskellCallbackType AssistantPrepareSignalInfo = AssistantPrepareCallback + connectSignal _ obj cb connectMode = do + let cb' = wrap_AssistantPrepareCallback cb + cb'' <- mk_AssistantPrepareCallback cb' + connectSignalFunPtr obj "prepare" cb'' connectMode + +type instance O.SignalList Assistant = AssistantSignalList +type AssistantSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateDefault", Gtk.Window.WindowActivateDefaultSignalInfo), '("activateFocus", Gtk.Window.WindowActivateFocusSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("close", AssistantCloseSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enableDebugging", Gtk.Window.WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("escape", AssistantEscapeSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("keysChanged", Gtk.Window.WindowKeysChangedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocus", Gtk.Window.WindowSetFocusSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Assistant::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Assistant"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_new" gtk_assistant_new :: + IO (Ptr Assistant) + +{- | +Creates a new 'GI.Gtk.Objects.Assistant.Assistant'. + +/Since: 2.10/ +-} +assistantNew :: + (B.CallStack.HasCallStack, MonadIO m) => + m Assistant + {- ^ __Returns:__ a newly created 'GI.Gtk.Objects.Assistant.Assistant' -} +assistantNew = liftIO $ do + result <- gtk_assistant_new + checkUnexpectedReturnNULL "assistantNew" result + result' <- (newObject Assistant) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method Assistant::add_action_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_add_action_widget" gtk_assistant_add_action_widget :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Adds a widget to the action area of a 'GI.Gtk.Objects.Assistant.Assistant'. + +/Since: 2.10/ +-} +assistantAddActionWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@child@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> m () +assistantAddActionWidget assistant child = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + child' <- unsafeManagedPtrCastPtr child + gtk_assistant_add_action_widget assistant' child' + touchManagedPtr assistant + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data AssistantAddActionWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantAddActionWidgetMethodInfo a signature where + overloadedMethod _ = assistantAddActionWidget + +#endif + +-- method Assistant::append_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_append_page" gtk_assistant_append_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO Int32 + +{- | +Appends a page to the /@assistant@/. + +/Since: 2.10/ +-} +assistantAppendPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> m Int32 + {- ^ __Returns:__ the index (starting at 0) of the inserted page -} +assistantAppendPage assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_append_page assistant' page' + touchManagedPtr assistant + touchManagedPtr page + return result + +#if ENABLE_OVERLOADING +data AssistantAppendPageMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantAppendPageMethodInfo a signature where + overloadedMethod _ = assistantAppendPage + +#endif + +-- method Assistant::commit +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_commit" gtk_assistant_commit :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + IO () + +{- | +Erases the visited page history so the back button is not +shown on the current page, and removes the cancel button +from subsequent pages. + +Use this when the information provided up to the current +page is hereafter deemed permanent and cannot be modified +or undone. For example, showing a progress page to track +a long-running, unreversible operation after the user has +clicked apply on a confirmation page. + +/Since: 2.22/ +-} +assistantCommit :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> m () +assistantCommit assistant = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + gtk_assistant_commit assistant' + touchManagedPtr assistant + return () + +#if ENABLE_OVERLOADING +data AssistantCommitMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantCommitMethodInfo a signature where + overloadedMethod _ = assistantCommit + +#endif + +-- method Assistant::get_current_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_current_page" gtk_assistant_get_current_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + IO Int32 + +{- | +Returns the page number of the current page. + +/Since: 2.10/ +-} +assistantGetCurrentPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> m Int32 + {- ^ __Returns:__ The index (starting from 0) of the current + page in the /@assistant@/, or -1 if the /@assistant@/ has no pages, + or no current page. -} +assistantGetCurrentPage assistant = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + result <- gtk_assistant_get_current_page assistant' + touchManagedPtr assistant + return result + +#if ENABLE_OVERLOADING +data AssistantGetCurrentPageMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsAssistant a) => O.MethodInfo AssistantGetCurrentPageMethodInfo a signature where + overloadedMethod _ = assistantGetCurrentPage + +#endif + +-- method Assistant::get_n_pages +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_n_pages" gtk_assistant_get_n_pages :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + IO Int32 + +{- | +Returns the number of pages in the /@assistant@/ + +/Since: 2.10/ +-} +assistantGetNPages :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> m Int32 + {- ^ __Returns:__ the number of pages in the /@assistant@/ -} +assistantGetNPages assistant = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + result <- gtk_assistant_get_n_pages assistant' + touchManagedPtr assistant + return result + +#if ENABLE_OVERLOADING +data AssistantGetNPagesMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsAssistant a) => O.MethodInfo AssistantGetNPagesMethodInfo a signature where + overloadedMethod _ = assistantGetNPages + +#endif + +-- method Assistant::get_nth_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of a page in the @assistant,\n or -1 to get the last page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_nth_page" gtk_assistant_get_nth_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Int32 -> -- page_num : TBasicType TInt + IO (Ptr Gtk.Widget.Widget) + +{- | +Returns the child widget contained in page number /@pageNum@/. + +/Since: 2.10/ +-} +assistantGetNthPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> Int32 + {- ^ /@pageNum@/: the index of a page in the /@assistant@/, + or -1 to get the last page -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the child widget, or 'Nothing' + if /@pageNum@/ is out of bounds -} +assistantGetNthPage assistant pageNum = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + result <- gtk_assistant_get_nth_page assistant' pageNum + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr assistant + return maybeResult + +#if ENABLE_OVERLOADING +data AssistantGetNthPageMethodInfo +instance (signature ~ (Int32 -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsAssistant a) => O.MethodInfo AssistantGetNthPageMethodInfo a signature where + overloadedMethod _ = assistantGetNthPage + +#endif + +-- method Assistant::get_page_complete +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_page_complete" gtk_assistant_get_page_complete :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO CInt + +{- | +Gets whether /@page@/ is complete. + +/Since: 2.10/ +-} +assistantGetPageComplete :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> m Bool + {- ^ __Returns:__ 'True' if /@page@/ is complete. -} +assistantGetPageComplete assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_get_page_complete assistant' page' + let result' = (/= 0) result + touchManagedPtr assistant + touchManagedPtr page + return result' + +#if ENABLE_OVERLOADING +data AssistantGetPageCompleteMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageCompleteMethodInfo a signature where + overloadedMethod _ = assistantGetPageComplete + +#endif + +-- method Assistant::get_page_has_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_page_has_padding" gtk_assistant_get_page_has_padding :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO CInt + +{- | +Gets whether page has padding. + +/Since: 3.18/ +-} +assistantGetPageHasPadding :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> m Bool + {- ^ __Returns:__ 'True' if /@page@/ has padding -} +assistantGetPageHasPadding assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_get_page_has_padding assistant' page' + let result' = (/= 0) result + touchManagedPtr assistant + touchManagedPtr page + return result' + +#if ENABLE_OVERLOADING +data AssistantGetPageHasPaddingMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageHasPaddingMethodInfo a signature where + overloadedMethod _ = assistantGetPageHasPadding + +#endif + +-- method Assistant::get_page_header_image +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_page_header_image" gtk_assistant_get_page_header_image :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO (Ptr GdkPixbuf.Pixbuf.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."] #-} +{- | +Gets the header image for /@page@/. + +/Since: 2.10/ +-} +assistantGetPageHeaderImage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> m GdkPixbuf.Pixbuf.Pixbuf + {- ^ __Returns:__ the header image for /@page@/, + or 'Nothing' if there’s no header image for the page -} +assistantGetPageHeaderImage assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_get_page_header_image assistant' page' + checkUnexpectedReturnNULL "assistantGetPageHeaderImage" result + result' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) result + touchManagedPtr assistant + touchManagedPtr page + return result' + +#if ENABLE_OVERLOADING +data AssistantGetPageHeaderImageMethodInfo +instance (signature ~ (b -> m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageHeaderImageMethodInfo a signature where + overloadedMethod _ = assistantGetPageHeaderImage + +#endif + +-- method Assistant::get_page_side_image +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_page_side_image" gtk_assistant_get_page_side_image :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO (Ptr GdkPixbuf.Pixbuf.Pixbuf) + +{-# DEPRECATED assistantGetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."] #-} +{- | +Gets the side image for /@page@/. + +/Since: 2.10/ +-} +assistantGetPageSideImage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> m GdkPixbuf.Pixbuf.Pixbuf + {- ^ __Returns:__ the side image for /@page@/, + or 'Nothing' if there’s no side image for the page -} +assistantGetPageSideImage assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_get_page_side_image assistant' page' + checkUnexpectedReturnNULL "assistantGetPageSideImage" result + result' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) result + touchManagedPtr assistant + touchManagedPtr page + return result' + +#if ENABLE_OVERLOADING +data AssistantGetPageSideImageMethodInfo +instance (signature ~ (b -> m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageSideImageMethodInfo a signature where + overloadedMethod _ = assistantGetPageSideImage + +#endif + +-- method Assistant::get_page_title +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_page_title" gtk_assistant_get_page_title :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO CString + +{- | +Gets the title for /@page@/. + +/Since: 2.10/ +-} +assistantGetPageTitle :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> m T.Text + {- ^ __Returns:__ the title for /@page@/ -} +assistantGetPageTitle assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_get_page_title assistant' page' + checkUnexpectedReturnNULL "assistantGetPageTitle" result + result' <- cstringToText result + touchManagedPtr assistant + touchManagedPtr page + return result' + +#if ENABLE_OVERLOADING +data AssistantGetPageTitleMethodInfo +instance (signature ~ (b -> m T.Text), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageTitleMethodInfo a signature where + overloadedMethod _ = assistantGetPageTitle + +#endif + +-- method Assistant::get_page_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "AssistantPageType"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_get_page_type" gtk_assistant_get_page_type :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO CUInt + +{- | +Gets the page type of /@page@/. + +/Since: 2.10/ +-} +assistantGetPageType :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> m Gtk.Enums.AssistantPageType + {- ^ __Returns:__ the page type of /@page@/ -} +assistantGetPageType assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_get_page_type assistant' page' + let result' = (toEnum . fromIntegral) result + touchManagedPtr assistant + touchManagedPtr page + return result' + +#if ENABLE_OVERLOADING +data AssistantGetPageTypeMethodInfo +instance (signature ~ (b -> m Gtk.Enums.AssistantPageType), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageTypeMethodInfo a signature where + overloadedMethod _ = assistantGetPageType + +#endif + +-- method Assistant::insert_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index (starting at 0) at which to insert the page,\n or -1 to append the page to the @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_insert_page" gtk_assistant_insert_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Int32 -> -- position : TBasicType TInt + IO Int32 + +{- | +Inserts a page in the /@assistant@/ at a given position. + +/Since: 2.10/ +-} +assistantInsertPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> Int32 + {- ^ /@position@/: the index (starting at 0) at which to insert the page, + or -1 to append the page to the /@assistant@/ -} + -> m Int32 + {- ^ __Returns:__ the index (starting from 0) of the inserted page -} +assistantInsertPage assistant page position = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_insert_page assistant' page' position + touchManagedPtr assistant + touchManagedPtr page + return result + +#if ENABLE_OVERLOADING +data AssistantInsertPageMethodInfo +instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantInsertPageMethodInfo a signature where + overloadedMethod _ = assistantInsertPage + +#endif + +-- method Assistant::next_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_next_page" gtk_assistant_next_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + IO () + +{- | +Navigate to the next page. + +It is a programming error to call this function when +there is no next page. + +This function is for use when creating pages of the +@/GTK_ASSISTANT_PAGE_CUSTOM/@ type. + +/Since: 3.0/ +-} +assistantNextPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> m () +assistantNextPage assistant = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + gtk_assistant_next_page assistant' + touchManagedPtr assistant + return () + +#if ENABLE_OVERLOADING +data AssistantNextPageMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantNextPageMethodInfo a signature where + overloadedMethod _ = assistantNextPage + +#endif + +-- method Assistant::prepend_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_prepend_page" gtk_assistant_prepend_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO Int32 + +{- | +Prepends a page to the /@assistant@/. + +/Since: 2.10/ +-} +assistantPrependPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> m Int32 + {- ^ __Returns:__ the index (starting at 0) of the inserted page -} +assistantPrependPage assistant page = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + result <- gtk_assistant_prepend_page assistant' page' + touchManagedPtr assistant + touchManagedPtr page + return result + +#if ENABLE_OVERLOADING +data AssistantPrependPageMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantPrependPageMethodInfo a signature where + overloadedMethod _ = assistantPrependPage + +#endif + +-- method Assistant::previous_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_previous_page" gtk_assistant_previous_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + IO () + +{- | +Navigate to the previous visited page. + +It is a programming error to call this function when +no previous page is available. + +This function is for use when creating pages of the +@/GTK_ASSISTANT_PAGE_CUSTOM/@ type. + +/Since: 3.0/ +-} +assistantPreviousPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> m () +assistantPreviousPage assistant = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + gtk_assistant_previous_page assistant' + touchManagedPtr assistant + return () + +#if ENABLE_OVERLOADING +data AssistantPreviousPageMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantPreviousPageMethodInfo a signature where + overloadedMethod _ = assistantPreviousPage + +#endif + +-- method Assistant::remove_action_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_remove_action_widget" gtk_assistant_remove_action_widget :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Removes a widget from the action area of a 'GI.Gtk.Objects.Assistant.Assistant'. + +/Since: 2.10/ +-} +assistantRemoveActionWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@child@/: a 'GI.Gtk.Objects.Widget.Widget' -} + -> m () +assistantRemoveActionWidget assistant child = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + child' <- unsafeManagedPtrCastPtr child + gtk_assistant_remove_action_widget assistant' child' + touchManagedPtr assistant + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data AssistantRemoveActionWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantRemoveActionWidgetMethodInfo a signature where + overloadedMethod _ = assistantRemoveActionWidget + +#endif + +-- method Assistant::remove_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of a page in the @assistant,\n or -1 to remove the last page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_remove_page" gtk_assistant_remove_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Int32 -> -- page_num : TBasicType TInt + IO () + +{- | +Removes the /@pageNum@/’s page from /@assistant@/. + +/Since: 3.2/ +-} +assistantRemovePage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> Int32 + {- ^ /@pageNum@/: the index of a page in the /@assistant@/, + or -1 to remove the last page -} + -> m () +assistantRemovePage assistant pageNum = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + gtk_assistant_remove_page assistant' pageNum + touchManagedPtr assistant + return () + +#if ENABLE_OVERLOADING +data AssistantRemovePageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantRemovePageMethodInfo a signature where + overloadedMethod _ = assistantRemovePage + +#endif + +-- method Assistant::set_current_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "index of the page to switch to, starting from 0.\n If negative, the last page will be used. If greater\n than the number of pages in the @assistant, nothing\n will be done.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_current_page" gtk_assistant_set_current_page :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Int32 -> -- page_num : TBasicType TInt + IO () + +{- | +Switches the page to /@pageNum@/. + +Note that this will only be necessary in custom buttons, +as the /@assistant@/ flow can be set with +'GI.Gtk.Objects.Assistant.assistantSetForwardPageFunc'. + +/Since: 2.10/ +-} +assistantSetCurrentPage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> Int32 + {- ^ /@pageNum@/: index of the page to switch to, starting from 0. + If negative, the last page will be used. If greater + than the number of pages in the /@assistant@/, nothing + will be done. -} + -> m () +assistantSetCurrentPage assistant pageNum = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + gtk_assistant_set_current_page assistant' pageNum + touchManagedPtr assistant + return () + +#if ENABLE_OVERLOADING +data AssistantSetCurrentPageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantSetCurrentPageMethodInfo a signature where + overloadedMethod _ = assistantSetCurrentPage + +#endif + +-- method Assistant::set_forward_page_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_func", argType = TInterface (Name {namespace = "Gtk", name = "AssistantPageFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkAssistantPageFunc, or %NULL\n to use the default one", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for @page_func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier for @data", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_forward_page_func" gtk_assistant_set_forward_page_func :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + FunPtr Gtk.Callbacks.C_AssistantPageFunc -> -- page_func : TInterface (Name {namespace = "Gtk", name = "AssistantPageFunc"}) + Ptr () -> -- data : TBasicType TPtr + FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"}) + IO () + +{- | +Sets the page forwarding function to be /@pageFunc@/. + +This function will be used to determine what will be +the next page when the user presses the forward button. +Setting /@pageFunc@/ to 'Nothing' will make the assistant to +use the default forward function, which just goes to the +next visible page. + +/Since: 2.10/ +-} +assistantSetForwardPageFunc :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> Maybe (Gtk.Callbacks.AssistantPageFunc) + {- ^ /@pageFunc@/: the 'GI.Gtk.Callbacks.AssistantPageFunc', or 'Nothing' + to use the default one -} + -> m () +assistantSetForwardPageFunc assistant pageFunc = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + maybePageFunc <- case pageFunc of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jPageFunc -> do + jPageFunc' <- Gtk.Callbacks.mk_AssistantPageFunc (Gtk.Callbacks.wrap_AssistantPageFunc Nothing (Gtk.Callbacks.drop_closures_AssistantPageFunc jPageFunc)) + return jPageFunc' + let data_ = castFunPtrToPtr maybePageFunc + let destroy = safeFreeFunPtrPtr + gtk_assistant_set_forward_page_func assistant' maybePageFunc data_ destroy + touchManagedPtr assistant + return () + +#if ENABLE_OVERLOADING +data AssistantSetForwardPageFuncMethodInfo +instance (signature ~ (Maybe (Gtk.Callbacks.AssistantPageFunc) -> m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantSetForwardPageFuncMethodInfo a signature where + overloadedMethod _ = assistantSetForwardPageFunc + +#endif + +-- method Assistant::set_page_complete +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the completeness status of the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_page_complete" gtk_assistant_set_page_complete :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CInt -> -- complete : TBasicType TBoolean + IO () + +{- | +Sets whether /@page@/ contents are complete. + +This will make /@assistant@/ update the buttons state +to be able to continue the task. + +/Since: 2.10/ +-} +assistantSetPageComplete :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> Bool + {- ^ /@complete@/: the completeness status of the page -} + -> m () +assistantSetPageComplete assistant page complete = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + let complete' = (fromIntegral . fromEnum) complete + gtk_assistant_set_page_complete assistant' page' complete' + touchManagedPtr assistant + touchManagedPtr page + return () + +#if ENABLE_OVERLOADING +data AssistantSetPageCompleteMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantSetPageCompleteMethodInfo a signature where + overloadedMethod _ = assistantSetPageComplete + +#endif + +-- method Assistant::set_page_has_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether this page has padding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_page_has_padding" gtk_assistant_set_page_has_padding :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CInt -> -- has_padding : TBasicType TBoolean + IO () + +{- | +Sets whether the assistant is adding padding around +the page. + +/Since: 3.18/ +-} +assistantSetPageHasPadding :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> Bool + {- ^ /@hasPadding@/: whether this page has padding -} + -> m () +assistantSetPageHasPadding assistant page hasPadding = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + let hasPadding' = (fromIntegral . fromEnum) hasPadding + gtk_assistant_set_page_has_padding assistant' page' hasPadding' + touchManagedPtr assistant + touchManagedPtr page + return () + +#if ENABLE_OVERLOADING +data AssistantSetPageHasPaddingMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantSetPageHasPaddingMethodInfo a signature where + overloadedMethod _ = assistantSetPageHasPadding + +#endif + +-- method Assistant::set_page_header_image +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the new header image @page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_page_header_image" gtk_assistant_set_page_header_image :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "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."] #-} +{- | +Sets a header image for /@page@/. + +/Since: 2.10/ +-} +assistantSetPageHeaderImage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b, GdkPixbuf.Pixbuf.IsPixbuf c) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> Maybe (c) + {- ^ /@pixbuf@/: the new header image /@page@/ -} + -> m () +assistantSetPageHeaderImage assistant page pixbuf = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + maybePixbuf <- case pixbuf of + Nothing -> return nullPtr + Just jPixbuf -> do + jPixbuf' <- unsafeManagedPtrCastPtr jPixbuf + return jPixbuf' + gtk_assistant_set_page_header_image assistant' page' maybePixbuf + touchManagedPtr assistant + touchManagedPtr page + whenJust pixbuf touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data AssistantSetPageHeaderImageMethodInfo +instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b, GdkPixbuf.Pixbuf.IsPixbuf c) => O.MethodInfo AssistantSetPageHeaderImageMethodInfo a signature where + overloadedMethod _ = assistantSetPageHeaderImage + +#endif + +-- method Assistant::set_page_side_image +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the new side image @page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_page_side_image" gtk_assistant_set_page_side_image :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) + IO () + +{-# DEPRECATED assistantSetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."] #-} +{- | +Sets a side image for /@page@/. + +This image used to be displayed in the side area of the assistant +when /@page@/ is the current page. + +/Since: 2.10/ +-} +assistantSetPageSideImage :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b, GdkPixbuf.Pixbuf.IsPixbuf c) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> Maybe (c) + {- ^ /@pixbuf@/: the new side image /@page@/ -} + -> m () +assistantSetPageSideImage assistant page pixbuf = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + maybePixbuf <- case pixbuf of + Nothing -> return nullPtr + Just jPixbuf -> do + jPixbuf' <- unsafeManagedPtrCastPtr jPixbuf + return jPixbuf' + gtk_assistant_set_page_side_image assistant' page' maybePixbuf + touchManagedPtr assistant + touchManagedPtr page + whenJust pixbuf touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data AssistantSetPageSideImageMethodInfo +instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b, GdkPixbuf.Pixbuf.IsPixbuf c) => O.MethodInfo AssistantSetPageSideImageMethodInfo a signature where + overloadedMethod _ = assistantSetPageSideImage + +#endif + +-- method Assistant::set_page_title +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new title for @page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_page_title" gtk_assistant_set_page_title :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CString -> -- title : TBasicType TUTF8 + IO () + +{- | +Sets a title for /@page@/. + +The title is displayed in the header area of the assistant +when /@page@/ is the current page. + +/Since: 2.10/ +-} +assistantSetPageTitle :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> T.Text + {- ^ /@title@/: the new title for /@page@/ -} + -> m () +assistantSetPageTitle assistant page title = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + title' <- textToCString title + gtk_assistant_set_page_title assistant' page' title' + touchManagedPtr assistant + touchManagedPtr page + freeMem title' + return () + +#if ENABLE_OVERLOADING +data AssistantSetPageTitleMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantSetPageTitleMethodInfo a signature where + overloadedMethod _ = assistantSetPageTitle + +#endif + +-- method Assistant::set_page_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a page of @assistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gtk", name = "AssistantPageType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new type for @page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_set_page_type" gtk_assistant_set_page_type :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + Ptr Gtk.Widget.Widget -> -- page : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CUInt -> -- type : TInterface (Name {namespace = "Gtk", name = "AssistantPageType"}) + IO () + +{- | +Sets the page type for /@page@/. + +The page type determines the page behavior in the /@assistant@/. + +/Since: 2.10/ +-} +assistantSetPageType :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> b + {- ^ /@page@/: a page of /@assistant@/ -} + -> Gtk.Enums.AssistantPageType + {- ^ /@type@/: the new type for /@page@/ -} + -> m () +assistantSetPageType assistant page type_ = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + page' <- unsafeManagedPtrCastPtr page + let type_' = (fromIntegral . fromEnum) type_ + gtk_assistant_set_page_type assistant' page' type_' + touchManagedPtr assistant + touchManagedPtr page + return () + +#if ENABLE_OVERLOADING +data AssistantSetPageTypeMethodInfo +instance (signature ~ (b -> Gtk.Enums.AssistantPageType -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantSetPageTypeMethodInfo a signature where + overloadedMethod _ = assistantSetPageType + +#endif + +-- method Assistant::update_buttons_state +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "assistant", argType = TInterface (Name {namespace = "Gtk", name = "Assistant"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkAssistant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_assistant_update_buttons_state" gtk_assistant_update_buttons_state :: + Ptr Assistant -> -- assistant : TInterface (Name {namespace = "Gtk", name = "Assistant"}) + IO () + +{- | +Forces /@assistant@/ to recompute the buttons state. + +GTK+ automatically takes care of this in most situations, +e.g. when the user goes to a different page, or when the +visibility or completeness of a page changes. + +One situation where it can be necessary to call this +function is when changing a value on the current page +affects the future page flow of the assistant. + +/Since: 2.10/ +-} +assistantUpdateButtonsState :: + (B.CallStack.HasCallStack, MonadIO m, IsAssistant a) => + a + {- ^ /@assistant@/: a 'GI.Gtk.Objects.Assistant.Assistant' -} + -> m () +assistantUpdateButtonsState assistant = liftIO $ do + assistant' <- unsafeManagedPtrCastPtr assistant + gtk_assistant_update_buttons_state assistant' + touchManagedPtr assistant + return () + +#if ENABLE_OVERLOADING +data AssistantUpdateButtonsStateMethodInfo +instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantUpdateButtonsStateMethodInfo a signature where + overloadedMethod _ = assistantUpdateButtonsState + +#endif + + diff --git a/GI/Gtk/Objects/Assistant.hs-boot b/GI/Gtk/Objects/Assistant.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Assistant.hs-boot @@ -0,0 +1,128 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Assistant where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Assistant = Assistant (ManagedPtr Assistant) +instance GObject Assistant where +class (GObject o, O.IsDescendantOf Assistant o) => IsAssistant o +instance (GObject o, O.IsDescendantOf Assistant o) => IsAssistant o +instance O.HasParentTypes Assistant +#if ENABLE_OVERLOADING +data AssistantUseHeaderBarPropertyInfo +#endif +#if ENABLE_OVERLOADING +data AssistantApplySignalInfo +#endif +#if ENABLE_OVERLOADING +data AssistantCancelSignalInfo +#endif +#if ENABLE_OVERLOADING +data AssistantCloseSignalInfo +#endif +#if ENABLE_OVERLOADING +data AssistantEscapeSignalInfo +#endif +#if ENABLE_OVERLOADING +data AssistantPrepareSignalInfo +#endif +#if ENABLE_OVERLOADING +data AssistantAddActionWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantAppendPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantCommitMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetCurrentPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetNPagesMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetNthPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetPageCompleteMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetPageHasPaddingMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetPageHeaderImageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetPageSideImageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetPageTitleMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantGetPageTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantInsertPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantNextPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantPrependPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantPreviousPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantRemoveActionWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantRemovePageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetCurrentPageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetForwardPageFuncMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetPageCompleteMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetPageHasPaddingMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetPageHeaderImageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetPageSideImageMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetPageTitleMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantSetPageTypeMethodInfo +#endif +#if ENABLE_OVERLOADING +data AssistantUpdateButtonsStateMethodInfo +#endif diff --git a/GI/Gtk/Objects/Bin.hs b/GI/Gtk/Objects/Bin.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Bin.hs @@ -0,0 +1,478 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The 'GI.Gtk.Objects.Bin.Bin' widget is a container with just one child. +It is not very useful itself, but it is useful for deriving subclasses, +since it provides common code needed for handling a single child widget. + +Many GTK+ widgets are subclasses of 'GI.Gtk.Objects.Bin.Bin', including 'GI.Gtk.Objects.Window.Window', +'GI.Gtk.Objects.Button.Button', 'GI.Gtk.Objects.Frame.Frame', 'GI.Gtk.Objects.HandleBox.HandleBox' or 'GI.Gtk.Objects.ScrolledWindow.ScrolledWindow'. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Bin + ( + +-- * Exported types + Bin(..) , + IsBin , + toBin , + noBin , + + + -- * Methods +-- ** getChild #method:getChild# + +#if ENABLE_OVERLOADING + BinGetChildMethodInfo , +#endif + binGetChild , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype Bin = Bin (ManagedPtr Bin) +foreign import ccall "gtk_bin_get_type" + c_gtk_bin_get_type :: IO GType + +instance GObject Bin where + gobjectType = c_gtk_bin_get_type + + +-- | Type class for types which can be safely cast to `Bin`, for instance with `toBin`. +class (GObject o, O.IsDescendantOf Bin o) => IsBin o +instance (GObject o, O.IsDescendantOf Bin o) => IsBin o + +instance O.HasParentTypes Bin +type instance O.ParentTypes Bin = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] + +-- | Cast to `Bin`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toBin :: (MonadIO m, IsBin o) => o -> m Bin +toBin = liftIO . unsafeCastTo Bin + +-- | A convenience alias for `Nothing` :: `Maybe` `Bin`. +noBin :: Maybe Bin +noBin = Nothing + +#if ENABLE_OVERLOADING +type family ResolveBinMethod (t :: Symbol) (o :: *) :: * where + ResolveBinMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveBinMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveBinMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveBinMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveBinMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveBinMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveBinMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveBinMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveBinMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveBinMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveBinMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveBinMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveBinMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveBinMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveBinMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveBinMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveBinMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveBinMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveBinMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveBinMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveBinMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveBinMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveBinMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveBinMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveBinMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveBinMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveBinMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveBinMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveBinMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveBinMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveBinMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveBinMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveBinMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveBinMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveBinMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveBinMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveBinMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveBinMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveBinMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveBinMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveBinMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveBinMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveBinMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveBinMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveBinMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveBinMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveBinMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveBinMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveBinMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveBinMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveBinMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveBinMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveBinMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveBinMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveBinMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveBinMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveBinMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveBinMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveBinMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveBinMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveBinMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveBinMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveBinMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveBinMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveBinMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveBinMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveBinMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveBinMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveBinMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveBinMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveBinMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveBinMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveBinMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveBinMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveBinMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveBinMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveBinMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveBinMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveBinMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveBinMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveBinMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveBinMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveBinMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveBinMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveBinMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveBinMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveBinMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveBinMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveBinMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveBinMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveBinMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveBinMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveBinMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveBinMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveBinMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveBinMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveBinMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveBinMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveBinMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveBinMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveBinMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveBinMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveBinMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveBinMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveBinMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveBinMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveBinMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveBinMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveBinMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveBinMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveBinMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveBinMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveBinMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveBinMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveBinMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveBinMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveBinMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveBinMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveBinMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveBinMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveBinMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveBinMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveBinMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveBinMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveBinMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveBinMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveBinMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveBinMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveBinMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveBinMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveBinMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveBinMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveBinMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveBinMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveBinMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveBinMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveBinMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveBinMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveBinMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveBinMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveBinMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveBinMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveBinMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveBinMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveBinMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveBinMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveBinMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveBinMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveBinMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveBinMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveBinMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveBinMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveBinMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveBinMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveBinMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveBinMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveBinMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveBinMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveBinMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveBinMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveBinMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveBinMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveBinMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveBinMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveBinMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveBinMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveBinMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveBinMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveBinMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveBinMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveBinMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveBinMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveBinMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveBinMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveBinMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveBinMethod "getChild" o = BinGetChildMethodInfo + ResolveBinMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveBinMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveBinMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveBinMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveBinMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveBinMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveBinMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveBinMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveBinMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveBinMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveBinMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveBinMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveBinMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveBinMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveBinMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveBinMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveBinMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveBinMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveBinMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveBinMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveBinMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveBinMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveBinMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveBinMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveBinMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveBinMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveBinMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveBinMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveBinMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveBinMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveBinMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveBinMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveBinMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveBinMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveBinMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveBinMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveBinMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveBinMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveBinMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveBinMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveBinMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveBinMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveBinMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveBinMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveBinMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveBinMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveBinMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveBinMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveBinMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveBinMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveBinMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveBinMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveBinMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveBinMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveBinMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveBinMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveBinMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveBinMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveBinMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveBinMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveBinMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveBinMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveBinMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveBinMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveBinMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveBinMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveBinMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveBinMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveBinMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveBinMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveBinMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveBinMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveBinMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveBinMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveBinMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveBinMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveBinMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveBinMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveBinMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveBinMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveBinMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveBinMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveBinMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveBinMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveBinMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveBinMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveBinMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveBinMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveBinMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveBinMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveBinMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveBinMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveBinMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveBinMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveBinMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveBinMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveBinMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveBinMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveBinMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveBinMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveBinMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveBinMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveBinMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveBinMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveBinMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveBinMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveBinMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveBinMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveBinMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveBinMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveBinMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveBinMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveBinMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveBinMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveBinMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveBinMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveBinMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveBinMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveBinMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveBinMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveBinMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveBinMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveBinMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveBinMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveBinMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveBinMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveBinMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveBinMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveBinMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveBinMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveBinMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveBinMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveBinMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveBinMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveBinMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveBinMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveBinMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveBinMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveBinMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveBinMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveBinMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveBinMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveBinMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveBinMethod t Bin, O.MethodInfo info Bin p) => OL.IsLabel t (Bin -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Bin +type instance O.AttributeList Bin = BinAttributeList +type BinAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList Bin = BinSignalList +type BinSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Bin::get_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "bin", argType = TInterface (Name {namespace = "Gtk", name = "Bin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_bin_get_child" gtk_bin_get_child :: + Ptr Bin -> -- bin : TInterface (Name {namespace = "Gtk", name = "Bin"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Gets the child of the 'GI.Gtk.Objects.Bin.Bin', or 'Nothing' if the bin contains +no child widget. The returned widget does not have a reference +added, so you do not need to unref it. +-} +binGetChild :: + (B.CallStack.HasCallStack, MonadIO m, IsBin a) => + a + {- ^ /@bin@/: a 'GI.Gtk.Objects.Bin.Bin' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the child of /@bin@/, or 'Nothing' if it does +not have a child. -} +binGetChild bin = liftIO $ do + bin' <- unsafeManagedPtrCastPtr bin + result <- gtk_bin_get_child bin' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr bin + return maybeResult + +#if ENABLE_OVERLOADING +data BinGetChildMethodInfo +instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsBin a) => O.MethodInfo BinGetChildMethodInfo a signature where + overloadedMethod _ = binGetChild + +#endif + + diff --git a/GI/Gtk/Objects/Bin.hs-boot b/GI/Gtk/Objects/Bin.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Bin.hs-boot @@ -0,0 +1,32 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Bin where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Bin = Bin (ManagedPtr Bin) +instance GObject Bin where +class (GObject o, O.IsDescendantOf Bin o) => IsBin o +instance (GObject o, O.IsDescendantOf Bin o) => IsBin o +instance O.HasParentTypes Bin +#if ENABLE_OVERLOADING +data BinGetChildMethodInfo +#endif diff --git a/GI/Gtk/Objects/BooleanCellAccessible.hs b/GI/Gtk/Objects/BooleanCellAccessible.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/BooleanCellAccessible.hs @@ -0,0 +1,177 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +/No description available in the introspection data./ +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.BooleanCellAccessible + ( + +-- * Exported types + BooleanCellAccessible(..) , + IsBooleanCellAccessible , + toBooleanCellAccessible , + noBooleanCellAccessible , + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.Action as Atk.Action +import qualified GI.Atk.Interfaces.Component as Atk.Component +import qualified GI.Atk.Interfaces.TableCell as Atk.TableCell +import qualified GI.Atk.Objects.Object as Atk.Object +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Objects.Accessible as Gtk.Accessible +import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAccessible as Gtk.CellAccessible +import {-# SOURCE #-} qualified GI.Gtk.Objects.RendererCellAccessible as Gtk.RendererCellAccessible + +-- | Memory-managed wrapper type. +newtype BooleanCellAccessible = BooleanCellAccessible (ManagedPtr BooleanCellAccessible) +foreign import ccall "gtk_boolean_cell_accessible_get_type" + c_gtk_boolean_cell_accessible_get_type :: IO GType + +instance GObject BooleanCellAccessible where + gobjectType = c_gtk_boolean_cell_accessible_get_type + + +-- | Type class for types which can be safely cast to `BooleanCellAccessible`, for instance with `toBooleanCellAccessible`. +class (GObject o, O.IsDescendantOf BooleanCellAccessible o) => IsBooleanCellAccessible o +instance (GObject o, O.IsDescendantOf BooleanCellAccessible o) => IsBooleanCellAccessible o + +instance O.HasParentTypes BooleanCellAccessible +type instance O.ParentTypes BooleanCellAccessible = '[Gtk.RendererCellAccessible.RendererCellAccessible, Gtk.CellAccessible.CellAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Action.Action, Atk.Component.Component, Atk.TableCell.TableCell] + +-- | Cast to `BooleanCellAccessible`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toBooleanCellAccessible :: (MonadIO m, IsBooleanCellAccessible o) => o -> m BooleanCellAccessible +toBooleanCellAccessible = liftIO . unsafeCastTo BooleanCellAccessible + +-- | A convenience alias for `Nothing` :: `Maybe` `BooleanCellAccessible`. +noBooleanCellAccessible :: Maybe BooleanCellAccessible +noBooleanCellAccessible = Nothing + +#if ENABLE_OVERLOADING +type family ResolveBooleanCellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveBooleanCellAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo + ResolveBooleanCellAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveBooleanCellAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveBooleanCellAccessibleMethod "connectWidgetDestroyed" o = Gtk.Accessible.AccessibleConnectWidgetDestroyedMethodInfo + ResolveBooleanCellAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo + ResolveBooleanCellAccessibleMethod "doAction" o = Atk.Action.ActionDoActionMethodInfo + ResolveBooleanCellAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveBooleanCellAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveBooleanCellAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveBooleanCellAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo + ResolveBooleanCellAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo + ResolveBooleanCellAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveBooleanCellAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveBooleanCellAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveBooleanCellAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo + ResolveBooleanCellAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo + ResolveBooleanCellAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveBooleanCellAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo + ResolveBooleanCellAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo + ResolveBooleanCellAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo + ResolveBooleanCellAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveBooleanCellAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo + ResolveBooleanCellAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo + ResolveBooleanCellAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveBooleanCellAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo + ResolveBooleanCellAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveBooleanCellAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo + ResolveBooleanCellAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo + ResolveBooleanCellAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveBooleanCellAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveBooleanCellAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveBooleanCellAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveBooleanCellAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveBooleanCellAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo + ResolveBooleanCellAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo + ResolveBooleanCellAccessibleMethod "getColumnHeaderCells" o = Atk.TableCell.TableCellGetColumnHeaderCellsMethodInfo + ResolveBooleanCellAccessibleMethod "getColumnSpan" o = Atk.TableCell.TableCellGetColumnSpanMethodInfo + ResolveBooleanCellAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveBooleanCellAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo + ResolveBooleanCellAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo + ResolveBooleanCellAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo + ResolveBooleanCellAccessibleMethod "getKeybinding" o = Atk.Action.ActionGetKeybindingMethodInfo + ResolveBooleanCellAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo + ResolveBooleanCellAccessibleMethod "getLocalizedName" o = Atk.Action.ActionGetLocalizedNameMethodInfo + ResolveBooleanCellAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo + ResolveBooleanCellAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo + ResolveBooleanCellAccessibleMethod "getNActions" o = Atk.Action.ActionGetNActionsMethodInfo + ResolveBooleanCellAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo + ResolveBooleanCellAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo + ResolveBooleanCellAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo + ResolveBooleanCellAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo + ResolveBooleanCellAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveBooleanCellAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveBooleanCellAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo + ResolveBooleanCellAccessibleMethod "getRowColumnSpan" o = Atk.TableCell.TableCellGetRowColumnSpanMethodInfo + ResolveBooleanCellAccessibleMethod "getRowHeaderCells" o = Atk.TableCell.TableCellGetRowHeaderCellsMethodInfo + ResolveBooleanCellAccessibleMethod "getRowSpan" o = Atk.TableCell.TableCellGetRowSpanMethodInfo + ResolveBooleanCellAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo + ResolveBooleanCellAccessibleMethod "getTable" o = Atk.TableCell.TableCellGetTableMethodInfo + ResolveBooleanCellAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo + ResolveBooleanCellAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveBooleanCellAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo + ResolveBooleanCellAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo + ResolveBooleanCellAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo + ResolveBooleanCellAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo + ResolveBooleanCellAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo + ResolveBooleanCellAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveBooleanCellAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo + ResolveBooleanCellAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo + ResolveBooleanCellAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo + ResolveBooleanCellAccessibleMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveBooleanCellAccessibleMethod t BooleanCellAccessible, O.MethodInfo info BooleanCellAccessible p) => OL.IsLabel t (BooleanCellAccessible -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList BooleanCellAccessible +type instance O.AttributeList BooleanCellAccessible = BooleanCellAccessibleAttributeList +type BooleanCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.Object.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.Object.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.Object.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.Object.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.Object.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.Object.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.Object.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.Object.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.Object.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.Object.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.Object.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.Object.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.Object.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.Object.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.Object.ObjectAccessibleValuePropertyInfo), '("renderer", Gtk.RendererCellAccessible.RendererCellAccessibleRendererPropertyInfo), '("widget", Gtk.Accessible.AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList BooleanCellAccessible = BooleanCellAccessibleSignalList +type BooleanCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.Component.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) + +#endif + + diff --git a/GI/Gtk/Objects/BooleanCellAccessible.hs-boot b/GI/Gtk/Objects/BooleanCellAccessible.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/BooleanCellAccessible.hs-boot @@ -0,0 +1,29 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.BooleanCellAccessible where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype BooleanCellAccessible = BooleanCellAccessible (ManagedPtr BooleanCellAccessible) +instance GObject BooleanCellAccessible where +class (GObject o, O.IsDescendantOf BooleanCellAccessible o) => IsBooleanCellAccessible o +instance (GObject o, O.IsDescendantOf BooleanCellAccessible o) => IsBooleanCellAccessible o +instance O.HasParentTypes BooleanCellAccessible diff --git a/GI/Gtk/Objects/Box.hs b/GI/Gtk/Objects/Box.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Box.hs @@ -0,0 +1,1428 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +The GtkBox widget arranges child widgets into a single row or column, +depending upon the value of its 'GI.Gtk.Interfaces.Orientable.Orientable':@/orientation/@ property. Within +the other dimension, all children are allocated the same size. Of course, +the 'GI.Gtk.Objects.Widget.Widget':@/halign/@ and 'GI.Gtk.Objects.Widget.Widget':@/valign/@ properties can be used on +the children to influence their allocation. + +GtkBox uses a notion of packing. Packing refers +to adding widgets with reference to a particular position in a +'GI.Gtk.Objects.Container.Container'. For a GtkBox, there are two reference positions: the +start and the end of the box. +For a vertical 'GI.Gtk.Objects.Box.Box', the start is defined as the top of the box and +the end is defined as the bottom. For a horizontal 'GI.Gtk.Objects.Box.Box' the start +is defined as the left side and the end is defined as the right side. + +Use repeated calls to 'GI.Gtk.Objects.Box.boxPackStart' to pack widgets into a +GtkBox from start to end. Use 'GI.Gtk.Objects.Box.boxPackEnd' to add widgets from +end to start. You may intersperse these calls and add widgets from +both ends of the same GtkBox. + +Because GtkBox is a 'GI.Gtk.Objects.Container.Container', you may also use 'GI.Gtk.Objects.Container.containerAdd' +to insert widgets into the box, and they will be packed with the default +values for expand and fill child properties. Use 'GI.Gtk.Objects.Container.containerRemove' +to remove widgets from the GtkBox. + +Use 'GI.Gtk.Objects.Box.boxSetHomogeneous' to specify whether or not all children +of the GtkBox are forced to get the same amount of space. + +Use 'GI.Gtk.Objects.Box.boxSetSpacing' to determine how much space will be +minimally placed between all children in the GtkBox. Note that +spacing is added between the children, while +padding added by 'GI.Gtk.Objects.Box.boxPackStart' or 'GI.Gtk.Objects.Box.boxPackEnd' is added +on either side of the widget it belongs to. + +Use 'GI.Gtk.Objects.Box.boxReorderChild' to move a GtkBox child to a different +place in the box. + +Use 'GI.Gtk.Objects.Box.boxSetChildPacking' to reset the expand, +fill and padding child properties. +Use 'GI.Gtk.Objects.Box.boxQueryChildPacking' to query these fields. + += CSS nodes + +GtkBox uses a single CSS node with name box. + +In horizontal orientation, the nodes of the children are always arranged +from left to right. So :first-child will always select the leftmost child, +regardless of text direction. +-} + +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) + +module GI.Gtk.Objects.Box + ( + +-- * Exported types + Box(..) , + IsBox , + toBox , + noBox , + + + -- * Methods +-- ** getBaselinePosition #method:getBaselinePosition# + +#if ENABLE_OVERLOADING + BoxGetBaselinePositionMethodInfo , +#endif + boxGetBaselinePosition , + + +-- ** getCenterWidget #method:getCenterWidget# + +#if ENABLE_OVERLOADING + BoxGetCenterWidgetMethodInfo , +#endif + boxGetCenterWidget , + + +-- ** getHomogeneous #method:getHomogeneous# + +#if ENABLE_OVERLOADING + BoxGetHomogeneousMethodInfo , +#endif + boxGetHomogeneous , + + +-- ** getSpacing #method:getSpacing# + +#if ENABLE_OVERLOADING + BoxGetSpacingMethodInfo , +#endif + boxGetSpacing , + + +-- ** new #method:new# + + boxNew , + + +-- ** packEnd #method:packEnd# + +#if ENABLE_OVERLOADING + BoxPackEndMethodInfo , +#endif + boxPackEnd , + + +-- ** packStart #method:packStart# + +#if ENABLE_OVERLOADING + BoxPackStartMethodInfo , +#endif + boxPackStart , + + +-- ** queryChildPacking #method:queryChildPacking# + +#if ENABLE_OVERLOADING + BoxQueryChildPackingMethodInfo , +#endif + boxQueryChildPacking , + + +-- ** reorderChild #method:reorderChild# + +#if ENABLE_OVERLOADING + BoxReorderChildMethodInfo , +#endif + boxReorderChild , + + +-- ** setBaselinePosition #method:setBaselinePosition# + +#if ENABLE_OVERLOADING + BoxSetBaselinePositionMethodInfo , +#endif + boxSetBaselinePosition , + + +-- ** setCenterWidget #method:setCenterWidget# + +#if ENABLE_OVERLOADING + BoxSetCenterWidgetMethodInfo , +#endif + boxSetCenterWidget , + + +-- ** setChildPacking #method:setChildPacking# + +#if ENABLE_OVERLOADING + BoxSetChildPackingMethodInfo , +#endif + boxSetChildPacking , + + +-- ** setHomogeneous #method:setHomogeneous# + +#if ENABLE_OVERLOADING + BoxSetHomogeneousMethodInfo , +#endif + boxSetHomogeneous , + + +-- ** setSpacing #method:setSpacing# + +#if ENABLE_OVERLOADING + BoxSetSpacingMethodInfo , +#endif + boxSetSpacing , + + + + + -- * Properties +-- ** baselinePosition #attr:baselinePosition# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + BoxBaselinePositionPropertyInfo , +#endif +#if ENABLE_OVERLOADING + boxBaselinePosition , +#endif + constructBoxBaselinePosition , + getBoxBaselinePosition , + setBoxBaselinePosition , + + +-- ** homogeneous #attr:homogeneous# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + BoxHomogeneousPropertyInfo , +#endif +#if ENABLE_OVERLOADING + boxHomogeneous , +#endif + constructBoxHomogeneous , + getBoxHomogeneous , + setBoxHomogeneous , + + +-- ** spacing #attr:spacing# +{- | /No description available in the introspection data./ +-} +#if ENABLE_OVERLOADING + BoxSpacingPropertyInfo , +#endif +#if ENABLE_OVERLOADING + boxSpacing , +#endif + constructBoxSpacing , + getBoxSpacing , + setBoxSpacing , + + + + + ) where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface +import qualified GI.GObject.Objects.Object as GObject.Object +import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable +import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable +import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container +import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget + +-- | Memory-managed wrapper type. +newtype Box = Box (ManagedPtr Box) +foreign import ccall "gtk_box_get_type" + c_gtk_box_get_type :: IO GType + +instance GObject Box where + gobjectType = c_gtk_box_get_type + + +-- | Type class for types which can be safely cast to `Box`, for instance with `toBox`. +class (GObject o, O.IsDescendantOf Box o) => IsBox o +instance (GObject o, O.IsDescendantOf Box o) => IsBox o + +instance O.HasParentTypes Box +type instance O.ParentTypes Box = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable] + +-- | Cast to `Box`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. +toBox :: (MonadIO m, IsBox o) => o -> m Box +toBox = liftIO . unsafeCastTo Box + +-- | A convenience alias for `Nothing` :: `Maybe` `Box`. +noBox :: Maybe Box +noBox = Nothing + +#if ENABLE_OVERLOADING +type family ResolveBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveBoxMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo + ResolveBoxMethod "add" o = Gtk.Container.ContainerAddMethodInfo + ResolveBoxMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo + ResolveBoxMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo + ResolveBoxMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo + ResolveBoxMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo + ResolveBoxMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo + ResolveBoxMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo + ResolveBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo + ResolveBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo + ResolveBoxMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo + ResolveBoxMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo + ResolveBoxMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo + ResolveBoxMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo + ResolveBoxMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo + ResolveBoxMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo + ResolveBoxMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo + ResolveBoxMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo + ResolveBoxMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo + ResolveBoxMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo + ResolveBoxMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo + ResolveBoxMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo + ResolveBoxMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo + ResolveBoxMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo + ResolveBoxMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo + ResolveBoxMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo + ResolveBoxMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo + ResolveBoxMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo + ResolveBoxMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo + ResolveBoxMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo + ResolveBoxMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo + ResolveBoxMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo + ResolveBoxMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo + ResolveBoxMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo + ResolveBoxMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo + ResolveBoxMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo + ResolveBoxMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo + ResolveBoxMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo + ResolveBoxMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo + ResolveBoxMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo + ResolveBoxMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo + ResolveBoxMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo + ResolveBoxMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo + ResolveBoxMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo + ResolveBoxMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo + ResolveBoxMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo + ResolveBoxMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo + ResolveBoxMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo + ResolveBoxMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo + ResolveBoxMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo + ResolveBoxMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo + ResolveBoxMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo + ResolveBoxMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo + ResolveBoxMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo + ResolveBoxMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo + ResolveBoxMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo + ResolveBoxMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo + ResolveBoxMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo + ResolveBoxMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo + ResolveBoxMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo + ResolveBoxMethod "event" o = Gtk.Widget.WidgetEventMethodInfo + ResolveBoxMethod "forall" o = Gtk.Container.ContainerForallMethodInfo + ResolveBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo + ResolveBoxMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo + ResolveBoxMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo + ResolveBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo + ResolveBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo + ResolveBoxMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo + ResolveBoxMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo + ResolveBoxMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo + ResolveBoxMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo + ResolveBoxMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo + ResolveBoxMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo + ResolveBoxMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo + ResolveBoxMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo + ResolveBoxMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo + ResolveBoxMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo + ResolveBoxMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo + ResolveBoxMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo + ResolveBoxMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo + ResolveBoxMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo + ResolveBoxMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo + ResolveBoxMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo + ResolveBoxMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo + ResolveBoxMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo + ResolveBoxMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo + ResolveBoxMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo + ResolveBoxMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo + ResolveBoxMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo + ResolveBoxMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo + ResolveBoxMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo + ResolveBoxMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo + ResolveBoxMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo + ResolveBoxMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo + ResolveBoxMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo + ResolveBoxMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo + ResolveBoxMethod "map" o = Gtk.Widget.WidgetMapMethodInfo + ResolveBoxMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo + ResolveBoxMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo + ResolveBoxMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo + ResolveBoxMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo + ResolveBoxMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo + ResolveBoxMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo + ResolveBoxMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo + ResolveBoxMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo + ResolveBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo + ResolveBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo + ResolveBoxMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo + ResolveBoxMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo + ResolveBoxMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo + ResolveBoxMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo + ResolveBoxMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo + ResolveBoxMethod "packEnd" o = BoxPackEndMethodInfo + ResolveBoxMethod "packStart" o = BoxPackStartMethodInfo + ResolveBoxMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo + ResolveBoxMethod "path" o = Gtk.Widget.WidgetPathMethodInfo + ResolveBoxMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo + ResolveBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveBoxMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo + ResolveBoxMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo + ResolveBoxMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo + ResolveBoxMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo + ResolveBoxMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo + ResolveBoxMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo + ResolveBoxMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo + ResolveBoxMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo + ResolveBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo + ResolveBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo + ResolveBoxMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo + ResolveBoxMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo + ResolveBoxMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo + ResolveBoxMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo + ResolveBoxMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo + ResolveBoxMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo + ResolveBoxMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo + ResolveBoxMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo + ResolveBoxMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveBoxMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo + ResolveBoxMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo + ResolveBoxMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo + ResolveBoxMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo + ResolveBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo + ResolveBoxMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo + ResolveBoxMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo + ResolveBoxMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo + ResolveBoxMethod "show" o = Gtk.Widget.WidgetShowMethodInfo + ResolveBoxMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo + ResolveBoxMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo + ResolveBoxMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo + ResolveBoxMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo + ResolveBoxMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo + ResolveBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo + ResolveBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo + ResolveBoxMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo + ResolveBoxMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo + ResolveBoxMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo + ResolveBoxMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo + ResolveBoxMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo + ResolveBoxMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo + ResolveBoxMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo + ResolveBoxMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo + ResolveBoxMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo + ResolveBoxMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo + ResolveBoxMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo + ResolveBoxMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo + ResolveBoxMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo + ResolveBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo + ResolveBoxMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo + ResolveBoxMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo + ResolveBoxMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo + ResolveBoxMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo + ResolveBoxMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo + ResolveBoxMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo + ResolveBoxMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo + ResolveBoxMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo + ResolveBoxMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo + ResolveBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveBoxMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo + ResolveBoxMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo + ResolveBoxMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo + ResolveBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveBoxMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo + ResolveBoxMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo + ResolveBoxMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo + ResolveBoxMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo + ResolveBoxMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo + ResolveBoxMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo + ResolveBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo + ResolveBoxMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo + ResolveBoxMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo + ResolveBoxMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo + ResolveBoxMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo + ResolveBoxMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo + ResolveBoxMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo + ResolveBoxMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo + ResolveBoxMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo + ResolveBoxMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo + ResolveBoxMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo + ResolveBoxMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo + ResolveBoxMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo + ResolveBoxMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo + ResolveBoxMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo + ResolveBoxMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo + ResolveBoxMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo + ResolveBoxMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo + ResolveBoxMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo + ResolveBoxMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo + ResolveBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveBoxMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo + ResolveBoxMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo + ResolveBoxMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo + ResolveBoxMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo + ResolveBoxMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo + ResolveBoxMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo + ResolveBoxMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo + ResolveBoxMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo + ResolveBoxMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo + ResolveBoxMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo + ResolveBoxMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo + ResolveBoxMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo + ResolveBoxMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo + ResolveBoxMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo + ResolveBoxMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo + ResolveBoxMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo + ResolveBoxMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo + ResolveBoxMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo + ResolveBoxMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo + ResolveBoxMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo + ResolveBoxMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo + ResolveBoxMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveBoxMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo + ResolveBoxMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo + ResolveBoxMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo + ResolveBoxMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo + ResolveBoxMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo + ResolveBoxMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo + ResolveBoxMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo + ResolveBoxMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo + ResolveBoxMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo + ResolveBoxMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo + ResolveBoxMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo + ResolveBoxMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo + ResolveBoxMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo + ResolveBoxMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo + ResolveBoxMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo + ResolveBoxMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo + ResolveBoxMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo + ResolveBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveBoxMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo + ResolveBoxMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo + ResolveBoxMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo + ResolveBoxMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo + ResolveBoxMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo + ResolveBoxMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo + ResolveBoxMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo + ResolveBoxMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo + ResolveBoxMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo + ResolveBoxMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo + ResolveBoxMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo + ResolveBoxMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo + ResolveBoxMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo + ResolveBoxMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo + ResolveBoxMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo + ResolveBoxMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo + ResolveBoxMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo + ResolveBoxMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo + ResolveBoxMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo + ResolveBoxMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo + ResolveBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveBoxMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo + ResolveBoxMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo + ResolveBoxMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo + ResolveBoxMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo + ResolveBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveBoxMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo + ResolveBoxMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo + ResolveBoxMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo + ResolveBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo + ResolveBoxMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo + ResolveBoxMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo + ResolveBoxMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo + ResolveBoxMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo + ResolveBoxMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo + ResolveBoxMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo + ResolveBoxMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo + ResolveBoxMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo + ResolveBoxMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo + ResolveBoxMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo + ResolveBoxMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo + ResolveBoxMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo + ResolveBoxMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo + ResolveBoxMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo + ResolveBoxMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo + ResolveBoxMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo + ResolveBoxMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo + ResolveBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveBoxMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo + ResolveBoxMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo + ResolveBoxMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo + ResolveBoxMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo + ResolveBoxMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo + ResolveBoxMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo + ResolveBoxMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo + ResolveBoxMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo + ResolveBoxMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo + ResolveBoxMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo + ResolveBoxMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo + ResolveBoxMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo + ResolveBoxMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo + ResolveBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo + ResolveBoxMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo + ResolveBoxMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo + ResolveBoxMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo + ResolveBoxMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo + ResolveBoxMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo + ResolveBoxMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo + ResolveBoxMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo + ResolveBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveBoxMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo + ResolveBoxMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo + ResolveBoxMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo + ResolveBoxMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo + ResolveBoxMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo + ResolveBoxMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo + ResolveBoxMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo + ResolveBoxMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo + ResolveBoxMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo + ResolveBoxMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo + ResolveBoxMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo + ResolveBoxMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo + ResolveBoxMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo + ResolveBoxMethod l o = O.MethodResolutionFailed l o + +instance (info ~ ResolveBoxMethod t Box, O.MethodInfo info Box p) => OL.IsLabel t (Box -> p) where +#if MIN_VERSION_base(4,10,0) + fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#else + fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) +#endif + +#endif + +-- VVV Prop "baseline-position" + -- Type: TInterface (Name {namespace = "Gtk", name = "BaselinePosition"}) + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@baseline-position@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' box #baselinePosition +@ +-} +getBoxBaselinePosition :: (MonadIO m, IsBox o) => o -> m Gtk.Enums.BaselinePosition +getBoxBaselinePosition obj = liftIO $ B.Properties.getObjectPropertyEnum obj "baseline-position" + +{- | +Set the value of the “@baseline-position@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' box [ #baselinePosition 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setBoxBaselinePosition :: (MonadIO m, IsBox o) => o -> Gtk.Enums.BaselinePosition -> m () +setBoxBaselinePosition obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "baseline-position" val + +{- | +Construct a `GValueConstruct` with valid value for the “@baseline-position@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructBoxBaselinePosition :: (IsBox o) => Gtk.Enums.BaselinePosition -> IO (GValueConstruct o) +constructBoxBaselinePosition val = B.Properties.constructObjectPropertyEnum "baseline-position" val + +#if ENABLE_OVERLOADING +data BoxBaselinePositionPropertyInfo +instance AttrInfo BoxBaselinePositionPropertyInfo where + type AttrAllowedOps BoxBaselinePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BoxBaselinePositionPropertyInfo = (~) Gtk.Enums.BaselinePosition + type AttrBaseTypeConstraint BoxBaselinePositionPropertyInfo = IsBox + type AttrGetType BoxBaselinePositionPropertyInfo = Gtk.Enums.BaselinePosition + type AttrLabel BoxBaselinePositionPropertyInfo = "baseline-position" + type AttrOrigin BoxBaselinePositionPropertyInfo = Box + attrGet _ = getBoxBaselinePosition + attrSet _ = setBoxBaselinePosition + attrConstruct _ = constructBoxBaselinePosition + attrClear _ = undefined +#endif + +-- VVV Prop "homogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@homogeneous@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' box #homogeneous +@ +-} +getBoxHomogeneous :: (MonadIO m, IsBox o) => o -> m Bool +getBoxHomogeneous obj = liftIO $ B.Properties.getObjectPropertyBool obj "homogeneous" + +{- | +Set the value of the “@homogeneous@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' box [ #homogeneous 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setBoxHomogeneous :: (MonadIO m, IsBox o) => o -> Bool -> m () +setBoxHomogeneous obj val = liftIO $ B.Properties.setObjectPropertyBool obj "homogeneous" val + +{- | +Construct a `GValueConstruct` with valid value for the “@homogeneous@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructBoxHomogeneous :: (IsBox o) => Bool -> IO (GValueConstruct o) +constructBoxHomogeneous val = B.Properties.constructObjectPropertyBool "homogeneous" val + +#if ENABLE_OVERLOADING +data BoxHomogeneousPropertyInfo +instance AttrInfo BoxHomogeneousPropertyInfo where + type AttrAllowedOps BoxHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BoxHomogeneousPropertyInfo = (~) Bool + type AttrBaseTypeConstraint BoxHomogeneousPropertyInfo = IsBox + type AttrGetType BoxHomogeneousPropertyInfo = Bool + type AttrLabel BoxHomogeneousPropertyInfo = "homogeneous" + type AttrOrigin BoxHomogeneousPropertyInfo = Box + attrGet _ = getBoxHomogeneous + attrSet _ = setBoxHomogeneous + attrConstruct _ = constructBoxHomogeneous + attrClear _ = undefined +#endif + +-- VVV Prop "spacing" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +{- | +Get the value of the “@spacing@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.get' box #spacing +@ +-} +getBoxSpacing :: (MonadIO m, IsBox o) => o -> m Int32 +getBoxSpacing obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "spacing" + +{- | +Set the value of the “@spacing@” property. +When is enabled, this is equivalent to + +@ +'Data.GI.Base.Attributes.set' box [ #spacing 'Data.GI.Base.Attributes.:=' value ] +@ +-} +setBoxSpacing :: (MonadIO m, IsBox o) => o -> Int32 -> m () +setBoxSpacing obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "spacing" val + +{- | +Construct a `GValueConstruct` with valid value for the “@spacing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. +-} +constructBoxSpacing :: (IsBox o) => Int32 -> IO (GValueConstruct o) +constructBoxSpacing val = B.Properties.constructObjectPropertyInt32 "spacing" val + +#if ENABLE_OVERLOADING +data BoxSpacingPropertyInfo +instance AttrInfo BoxSpacingPropertyInfo where + type AttrAllowedOps BoxSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BoxSpacingPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint BoxSpacingPropertyInfo = IsBox + type AttrGetType BoxSpacingPropertyInfo = Int32 + type AttrLabel BoxSpacingPropertyInfo = "spacing" + type AttrOrigin BoxSpacingPropertyInfo = Box + attrGet _ = getBoxSpacing + attrSet _ = setBoxSpacing + attrConstruct _ = constructBoxSpacing + attrClear _ = undefined +#endif + +#if ENABLE_OVERLOADING +instance O.HasAttributeList Box +type instance O.AttributeList Box = BoxAttributeList +type BoxAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +#endif + +#if ENABLE_OVERLOADING +boxBaselinePosition :: AttrLabelProxy "baselinePosition" +boxBaselinePosition = AttrLabelProxy + +boxHomogeneous :: AttrLabelProxy "homogeneous" +boxHomogeneous = AttrLabelProxy + +boxSpacing :: AttrLabelProxy "spacing" +boxSpacing = AttrLabelProxy + +#endif + +#if ENABLE_OVERLOADING +type instance O.SignalList Box = BoxSignalList +type BoxSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +#endif + +-- method Box::new +-- method type : Constructor +-- Args : [Arg {argCName = "orientation", argType = TInterface (Name {namespace = "Gtk", name = "Orientation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the box\8217s orientation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of pixels to place by default between children.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Box"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_new" gtk_box_new :: + CUInt -> -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"}) + Int32 -> -- spacing : TBasicType TInt + IO (Ptr Box) + +{- | +Creates a new 'GI.Gtk.Objects.Box.Box'. + +/Since: 3.0/ +-} +boxNew :: + (B.CallStack.HasCallStack, MonadIO m) => + Gtk.Enums.Orientation + {- ^ /@orientation@/: the box’s orientation. -} + -> Int32 + {- ^ /@spacing@/: the number of pixels to place by default between children. -} + -> m Box + {- ^ __Returns:__ a new 'GI.Gtk.Objects.Box.Box'. -} +boxNew orientation spacing = liftIO $ do + let orientation' = (fromIntegral . fromEnum) orientation + result <- gtk_box_new orientation' spacing + checkUnexpectedReturnNULL "boxNew" result + result' <- (newObject Box) result + return result' + +#if ENABLE_OVERLOADING +#endif + +-- method Box::get_baseline_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "BaselinePosition"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_get_baseline_position" gtk_box_get_baseline_position :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + IO CUInt + +{- | +Gets the value set by 'GI.Gtk.Objects.Box.boxSetBaselinePosition'. + +/Since: 3.10/ +-} +boxGetBaselinePosition :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> m Gtk.Enums.BaselinePosition + {- ^ __Returns:__ the baseline position -} +boxGetBaselinePosition box = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + result <- gtk_box_get_baseline_position box' + let result' = (toEnum . fromIntegral) result + touchManagedPtr box + return result' + +#if ENABLE_OVERLOADING +data BoxGetBaselinePositionMethodInfo +instance (signature ~ (m Gtk.Enums.BaselinePosition), MonadIO m, IsBox a) => O.MethodInfo BoxGetBaselinePositionMethodInfo a signature where + overloadedMethod _ = boxGetBaselinePosition + +#endif + +-- method Box::get_center_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_get_center_widget" gtk_box_get_center_widget :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + IO (Ptr Gtk.Widget.Widget) + +{- | +Retrieves the center widget of the box. + +/Since: 3.12/ +-} +boxGetCenterWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> m (Maybe Gtk.Widget.Widget) + {- ^ __Returns:__ the center widget + or 'Nothing' in case no center widget is set. -} +boxGetCenterWidget box = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + result <- gtk_box_get_center_widget box' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gtk.Widget.Widget) result' + return result'' + touchManagedPtr box + return maybeResult + +#if ENABLE_OVERLOADING +data BoxGetCenterWidgetMethodInfo +instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsBox a) => O.MethodInfo BoxGetCenterWidgetMethodInfo a signature where + overloadedMethod _ = boxGetCenterWidget + +#endif + +-- method Box::get_homogeneous +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_get_homogeneous" gtk_box_get_homogeneous :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + IO CInt + +{- | +Returns whether the box is homogeneous (all children are the +same size). See 'GI.Gtk.Objects.Box.boxSetHomogeneous'. +-} +boxGetHomogeneous :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> m Bool + {- ^ __Returns:__ 'True' if the box is homogeneous. -} +boxGetHomogeneous box = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + result <- gtk_box_get_homogeneous box' + let result' = (/= 0) result + touchManagedPtr box + return result' + +#if ENABLE_OVERLOADING +data BoxGetHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, IsBox a) => O.MethodInfo BoxGetHomogeneousMethodInfo a signature where + overloadedMethod _ = boxGetHomogeneous + +#endif + +-- method Box::get_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_get_spacing" gtk_box_get_spacing :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + IO Int32 + +{- | +Gets the value set by 'GI.Gtk.Objects.Box.boxSetSpacing'. +-} +boxGetSpacing :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> m Int32 + {- ^ __Returns:__ spacing between children -} +boxGetSpacing box = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + result <- gtk_box_get_spacing box' + touchManagedPtr box + return result + +#if ENABLE_OVERLOADING +data BoxGetSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, IsBox a) => O.MethodInfo BoxGetSpacingMethodInfo a signature where + overloadedMethod _ = boxGetSpacing + +#endif + +-- method Box::pack_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be added to @box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the new child is to be given extra space allocated\n to @box. The extra space will be divided evenly between all children\n of @box that use this option", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if space given to @child by the @expand option is\n actually allocated to @child, rather than just padding it. This\n parameter has no effect if @expand is set to %FALSE. A child is\n always allocated the full height of a horizontal #GtkBox and the full width\n of a vertical #GtkBox. This option affects the other dimension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "extra space in pixels to put between this child and its\n neighbors, over and above the global amount specified by\n #GtkBox:spacing property. If @child is a widget at one of the\n reference ends of @box, then @padding pixels are also put between\n @child and the reference edge of @box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_pack_end" gtk_box_pack_end :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CInt -> -- expand : TBasicType TBoolean + CInt -> -- fill : TBasicType TBoolean + Word32 -> -- padding : TBasicType TUInt + IO () + +{- | +Adds /@child@/ to /@box@/, packed with reference to the end of /@box@/. +The /@child@/ is packed after (away from end of) any other child +packed with reference to the end of /@box@/. +-} +boxPackEnd :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> b + {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to be added to /@box@/ -} + -> Bool + {- ^ /@expand@/: 'True' if the new child is to be given extra space allocated + to /@box@/. The extra space will be divided evenly between all children + of /@box@/ that use this option -} + -> Bool + {- ^ /@fill@/: 'True' if space given to /@child@/ by the /@expand@/ option is + actually allocated to /@child@/, rather than just padding it. This + parameter has no effect if /@expand@/ is set to 'False'. A child is + always allocated the full height of a horizontal 'GI.Gtk.Objects.Box.Box' and the full width + of a vertical 'GI.Gtk.Objects.Box.Box'. This option affects the other dimension -} + -> Word32 + {- ^ /@padding@/: extra space in pixels to put between this child and its + neighbors, over and above the global amount specified by + 'GI.Gtk.Objects.Box.Box':@/spacing/@ property. If /@child@/ is a widget at one of the + reference ends of /@box@/, then /@padding@/ pixels are also put between + /@child@/ and the reference edge of /@box@/ -} + -> m () +boxPackEnd box child expand fill padding = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + child' <- unsafeManagedPtrCastPtr child + let expand' = (fromIntegral . fromEnum) expand + let fill' = (fromIntegral . fromEnum) fill + gtk_box_pack_end box' child' expand' fill' padding + touchManagedPtr box + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data BoxPackEndMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Word32 -> m ()), MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => O.MethodInfo BoxPackEndMethodInfo a signature where + overloadedMethod _ = boxPackEnd + +#endif + +-- method Box::pack_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be added to @box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the new child is to be given extra space allocated\n to @box. The extra space will be divided evenly between all children\n that use this option", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if space given to @child by the @expand option is\n actually allocated to @child, rather than just padding it. This\n parameter has no effect if @expand is set to %FALSE. A child is\n always allocated the full height of a horizontal #GtkBox and the full width\n of a vertical #GtkBox. This option affects the other dimension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "extra space in pixels to put between this child and its\n neighbors, over and above the global amount specified by\n #GtkBox:spacing property. If @child is a widget at one of the\n reference ends of @box, then @padding pixels are also put between\n @child and the reference edge of @box", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_pack_start" gtk_box_pack_start :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CInt -> -- expand : TBasicType TBoolean + CInt -> -- fill : TBasicType TBoolean + Word32 -> -- padding : TBasicType TUInt + IO () + +{- | +Adds /@child@/ to /@box@/, packed with reference to the start of /@box@/. +The /@child@/ is packed after any other child packed with reference +to the start of /@box@/. +-} +boxPackStart :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> b + {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to be added to /@box@/ -} + -> Bool + {- ^ /@expand@/: 'True' if the new child is to be given extra space allocated + to /@box@/. The extra space will be divided evenly between all children + that use this option -} + -> Bool + {- ^ /@fill@/: 'True' if space given to /@child@/ by the /@expand@/ option is + actually allocated to /@child@/, rather than just padding it. This + parameter has no effect if /@expand@/ is set to 'False'. A child is + always allocated the full height of a horizontal 'GI.Gtk.Objects.Box.Box' and the full width + of a vertical 'GI.Gtk.Objects.Box.Box'. This option affects the other dimension -} + -> Word32 + {- ^ /@padding@/: extra space in pixels to put between this child and its + neighbors, over and above the global amount specified by + 'GI.Gtk.Objects.Box.Box':@/spacing/@ property. If /@child@/ is a widget at one of the + reference ends of /@box@/, then /@padding@/ pixels are also put between + /@child@/ and the reference edge of /@box@/ -} + -> m () +boxPackStart box child expand fill padding = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + child' <- unsafeManagedPtrCastPtr child + let expand' = (fromIntegral . fromEnum) expand + let fill' = (fromIntegral . fromEnum) fill + gtk_box_pack_start box' child' expand' fill' padding + touchManagedPtr box + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data BoxPackStartMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Word32 -> m ()), MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => O.MethodInfo BoxPackStartMethodInfo a signature where + overloadedMethod _ = boxPackStart + +#endif + +-- method Box::query_child_packing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget of the child to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to return location for expand child\n property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to return location for fill child\n property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to return location for padding\n child property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pack_type", argType = TInterface (Name {namespace = "Gtk", name = "PackType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to return location for pack-type\n child property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_query_child_packing" gtk_box_query_child_packing :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Ptr CInt -> -- expand : TBasicType TBoolean + Ptr CInt -> -- fill : TBasicType TBoolean + Ptr Word32 -> -- padding : TBasicType TUInt + Ptr CUInt -> -- pack_type : TInterface (Name {namespace = "Gtk", name = "PackType"}) + IO () + +{- | +Obtains information about how /@child@/ is packed into /@box@/. +-} +boxQueryChildPacking :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> b + {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' of the child to query -} + -> m ((Bool, Bool, Word32, Gtk.Enums.PackType)) +boxQueryChildPacking box child = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + child' <- unsafeManagedPtrCastPtr child + expand <- allocMem :: IO (Ptr CInt) + fill <- allocMem :: IO (Ptr CInt) + padding <- allocMem :: IO (Ptr Word32) + packType <- allocMem :: IO (Ptr CUInt) + gtk_box_query_child_packing box' child' expand fill padding packType + expand' <- peek expand + let expand'' = (/= 0) expand' + fill' <- peek fill + let fill'' = (/= 0) fill' + padding' <- peek padding + packType' <- peek packType + let packType'' = (toEnum . fromIntegral) packType' + touchManagedPtr box + touchManagedPtr child + freeMem expand + freeMem fill + freeMem padding + freeMem packType + return (expand'', fill'', padding', packType'') + +#if ENABLE_OVERLOADING +data BoxQueryChildPackingMethodInfo +instance (signature ~ (b -> m ((Bool, Bool, Word32, Gtk.Enums.PackType))), MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => O.MethodInfo BoxQueryChildPackingMethodInfo a signature where + overloadedMethod _ = boxQueryChildPacking + +#endif + +-- method Box::reorder_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to move", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new position for @child in the list of children\n of @box, starting from 0. If negative, indicates the end of\n the list", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_reorder_child" gtk_box_reorder_child :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + Int32 -> -- position : TBasicType TInt + IO () + +{- | +Moves /@child@/ to a new /@position@/ in the list of /@box@/ children. +The list contains widgets packed @/GTK_PACK_START/@ +as well as widgets packed @/GTK_PACK_END/@, in the order that these +widgets were added to /@box@/. + +A widget’s position in the /@box@/ children list determines where +the widget is packed into /@box@/. A child widget at some position +in the list will be packed just after all other widgets of the +same packing type that appear earlier in the list. +-} +boxReorderChild :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> b + {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to move -} + -> Int32 + {- ^ /@position@/: the new position for /@child@/ in the list of children + of /@box@/, starting from 0. If negative, indicates the end of + the list -} + -> m () +boxReorderChild box child position = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + child' <- unsafeManagedPtrCastPtr child + gtk_box_reorder_child box' child' position + touchManagedPtr box + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data BoxReorderChildMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => O.MethodInfo BoxReorderChildMethodInfo a signature where + overloadedMethod _ = boxReorderChild + +#endif + +-- method Box::set_baseline_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface (Name {namespace = "Gtk", name = "BaselinePosition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBaselinePosition", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_set_baseline_position" gtk_box_set_baseline_position :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + CUInt -> -- position : TInterface (Name {namespace = "Gtk", name = "BaselinePosition"}) + IO () + +{- | +Sets the baseline position of a box. This affects +only horizontal boxes with at least one baseline aligned +child. If there is more vertical space available than requested, +and the baseline is not allocated by the parent then +/@position@/ is used to allocate the baseline wrt the +extra space available. + +/Since: 3.10/ +-} +boxSetBaselinePosition :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> Gtk.Enums.BaselinePosition + {- ^ /@position@/: a 'GI.Gtk.Enums.BaselinePosition' -} + -> m () +boxSetBaselinePosition box position = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + let position' = (fromIntegral . fromEnum) position + gtk_box_set_baseline_position box' position' + touchManagedPtr box + return () + +#if ENABLE_OVERLOADING +data BoxSetBaselinePositionMethodInfo +instance (signature ~ (Gtk.Enums.BaselinePosition -> m ()), MonadIO m, IsBox a) => O.MethodInfo BoxSetBaselinePositionMethodInfo a signature where + overloadedMethod _ = boxSetBaselinePosition + +#endif + +-- method Box::set_center_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget to center", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_set_center_widget" gtk_box_set_center_widget :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) + IO () + +{- | +Sets a center widget; that is a child widget that will be +centered with respect to the full width of the box, even +if the children at either side take up different amounts +of space. + +/Since: 3.12/ +-} +boxSetCenterWidget :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> Maybe (b) + {- ^ /@widget@/: the widget to center -} + -> m () +boxSetCenterWidget box widget = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + jWidget' <- unsafeManagedPtrCastPtr jWidget + return jWidget' + gtk_box_set_center_widget box' maybeWidget + touchManagedPtr box + whenJust widget touchManagedPtr + return () + +#if ENABLE_OVERLOADING +data BoxSetCenterWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => O.MethodInfo BoxSetCenterWidgetMethodInfo a signature where + overloadedMethod _ = boxSetCenterWidget + +#endif + +-- method Box::set_child_packing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget of the child to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value of the expand child property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value of the fill child property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value of the padding child property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface (Name {namespace = "Gtk", name = "PackType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value of the pack-type child property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_set_child_packing" gtk_box_set_child_packing :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) + CInt -> -- expand : TBasicType TBoolean + CInt -> -- fill : TBasicType TBoolean + Word32 -> -- padding : TBasicType TUInt + CUInt -> -- pack_type : TInterface (Name {namespace = "Gtk", name = "PackType"}) + IO () + +{- | +Sets the way /@child@/ is packed into /@box@/. +-} +boxSetChildPacking :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> b + {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' of the child to set -} + -> Bool + {- ^ /@expand@/: the new value of the expand child property -} + -> Bool + {- ^ /@fill@/: the new value of the fill child property -} + -> Word32 + {- ^ /@padding@/: the new value of the padding child property -} + -> Gtk.Enums.PackType + {- ^ /@packType@/: the new value of the pack-type child property -} + -> m () +boxSetChildPacking box child expand fill padding packType = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + child' <- unsafeManagedPtrCastPtr child + let expand' = (fromIntegral . fromEnum) expand + let fill' = (fromIntegral . fromEnum) fill + let packType' = (fromIntegral . fromEnum) packType + gtk_box_set_child_packing box' child' expand' fill' padding packType' + touchManagedPtr box + touchManagedPtr child + return () + +#if ENABLE_OVERLOADING +data BoxSetChildPackingMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Word32 -> Gtk.Enums.PackType -> m ()), MonadIO m, IsBox a, Gtk.Widget.IsWidget b) => O.MethodInfo BoxSetChildPackingMethodInfo a signature where + overloadedMethod _ = boxSetChildPacking + +#endif + +-- method Box::set_homogeneous +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a boolean value, %TRUE to create equal allotments,\n %FALSE for variable allotments", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_set_homogeneous" gtk_box_set_homogeneous :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + CInt -> -- homogeneous : TBasicType TBoolean + IO () + +{- | +Sets the 'GI.Gtk.Objects.Box.Box':@/homogeneous/@ property of /@box@/, controlling +whether or not all children of /@box@/ are given equal space +in the box. +-} +boxSetHomogeneous :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> Bool + {- ^ /@homogeneous@/: a boolean value, 'True' to create equal allotments, + 'False' for variable allotments -} + -> m () +boxSetHomogeneous box homogeneous = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + let homogeneous' = (fromIntegral . fromEnum) homogeneous + gtk_box_set_homogeneous box' homogeneous' + touchManagedPtr box + return () + +#if ENABLE_OVERLOADING +data BoxSetHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IsBox a) => O.MethodInfo BoxSetHomogeneousMethodInfo a signature where + overloadedMethod _ = boxSetHomogeneous + +#endif + +-- method Box::set_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "box", argType = TInterface (Name {namespace = "Gtk", name = "Box"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkBox", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of pixels to put between children", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_box_set_spacing" gtk_box_set_spacing :: + Ptr Box -> -- box : TInterface (Name {namespace = "Gtk", name = "Box"}) + Int32 -> -- spacing : TBasicType TInt + IO () + +{- | +Sets the 'GI.Gtk.Objects.Box.Box':@/spacing/@ property of /@box@/, which is the +number of pixels to place between children of /@box@/. +-} +boxSetSpacing :: + (B.CallStack.HasCallStack, MonadIO m, IsBox a) => + a + {- ^ /@box@/: a 'GI.Gtk.Objects.Box.Box' -} + -> Int32 + {- ^ /@spacing@/: the number of pixels to put between children -} + -> m () +boxSetSpacing box spacing = liftIO $ do + box' <- unsafeManagedPtrCastPtr box + gtk_box_set_spacing box' spacing + touchManagedPtr box + return () + +#if ENABLE_OVERLOADING +data BoxSetSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IsBox a) => O.MethodInfo BoxSetSpacingMethodInfo a signature where + overloadedMethod _ = boxSetSpacing + +#endif + + diff --git a/GI/Gtk/Objects/Box.hs-boot b/GI/Gtk/Objects/Box.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Box.hs-boot @@ -0,0 +1,77 @@ +#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ + && !defined(__HADDOCK_VERSION__)) +module GI.Gtk.Objects.Box where + +import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.ShortPrelude as SP +import qualified Data.GI.Base.Overloading as O +import qualified Prelude as P + +import qualified Data.GI.Base.Attributes as GI.Attributes +import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr +import qualified Data.GI.Base.GClosure as B.GClosure +import qualified Data.GI.Base.GError as B.GError +import qualified Data.GI.Base.GVariant as B.GVariant +import qualified Data.GI.Base.GValue as B.GValue +import qualified Data.GI.Base.GParamSpec as B.GParamSpec +import qualified Data.GI.Base.CallStack as B.CallStack +import qualified Data.GI.Base.Properties as B.Properties +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map +import qualified Foreign.Ptr as FP +import qualified GHC.OverloadedLabels as OL + +newtype Box = Box (ManagedPtr Box) +instance GObject Box where +class (GObject o, O.IsDescendantOf Box o) => IsBox o +instance (GObject o, O.IsDescendantOf Box o) => IsBox o +instance O.HasParentTypes Box +#if ENABLE_OVERLOADING +data BoxBaselinePositionPropertyInfo +#endif +#if ENABLE_OVERLOADING +data BoxHomogeneousPropertyInfo +#endif +#if ENABLE_OVERLOADING +data BoxSpacingPropertyInfo +#endif +#if ENABLE_OVERLOADING +data BoxGetBaselinePositionMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxGetCenterWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxGetHomogeneousMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxGetSpacingMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxPackEndMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxPackStartMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxQueryChildPackingMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxReorderChildMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxSetBaselinePositionMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxSetCenterWidgetMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxSetChildPackingMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxSetHomogeneousMethodInfo +#endif +#if ENABLE_OVERLOADING +data BoxSetSpacingMethodInfo +#endif diff --git a/GI/Gtk/Objects/Builder.hs b/GI/Gtk/Objects/Builder.hs new file mode 100644 --- /dev/null +++ b/GI/Gtk/Objects/Builder.hs @@ -0,0 +1,1814 @@ + + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) + +A GtkBuilder is an auxiliary object that reads textual descriptions +of a user interface and instantiates the described objects. To create +a GtkBuilder from a user interface description, call +'GI.Gtk.Objects.Builder.builderNewFromFile', 'GI.Gtk.Objects.Builder.builderNewFromResource' or +'GI.Gtk.Objects.Builder.builderNewFromString'. + +In the (unusual) case that you want to add user interface +descriptions from multiple sources to the same GtkBuilder you can +call 'GI.Gtk.Objects.Builder.builderNew' to get an empty builder and populate it by +(multiple) calls to 'GI.Gtk.Objects.Builder.builderAddFromFile', +'GI.Gtk.Objects.Builder.builderAddFromResource' or 'GI.Gtk.Objects.Builder.builderAddFromString'. + +A GtkBuilder holds a reference to all objects that it has constructed +and drops these references when it is finalized. This finalization can +cause the destruction of non-widget objects or widgets which are not +contained in a toplevel window. For toplevel windows constructed by a +builder, it is the responsibility of the user to call 'GI.Gtk.Objects.Widget.widgetDestroy' +to get rid of them and all the widgets they contain. + +The functions 'GI.Gtk.Objects.Builder.builderGetObject' and 'GI.Gtk.Objects.Builder.builderGetObjects' +can be used to access the widgets in the interface by the names assigned +to them inside the UI description. Toplevel windows returned by these +functions will stay around until the user explicitly destroys them +with 'GI.Gtk.Objects.Widget.widgetDestroy'. Other widgets will either be part of a +larger hierarchy constructed by the builder (in which case you should +not have to worry about their lifecycle), or without a parent, in which +case they have to be added to some container to make use of them. +Non-widget objects need to be reffed with 'GI.GObject.Objects.Object.objectRef' to keep them +beyond the lifespan of the builder. + +The function 'GI.Gtk.Objects.Builder.builderConnectSignals' and variants thereof can be +used to connect handlers to the named signals in the description. + +# GtkBuilder UI Definitions # {@/BUILDER/@-UI} + +GtkBuilder parses textual descriptions of user interfaces which are +specified in an XML format which can be roughly described by the +RELAX NG schema below. We refer to these descriptions as “GtkBuilder +UI definitions” or just “UI definitions” if the context is clear. +Do not confuse GtkBuilder UI Definitions with +[GtkUIManager UI Definitions][XML-UI], which are more limited in scope. +It is common to use @.ui@ as the filename extension for files containing +GtkBuilder UI definitions. + + + +The toplevel element is \. It optionally takes a “domain” +attribute, which will make the builder look for translated strings +using @/dgettext()/@ in the domain specified. This can also be done by +calling 'GI.Gtk.Objects.Builder.builderSetTranslationDomain' on the builder. +Objects are described by \ elements, which can contain +\ elements to set properties, \ elements which +connect signals to handlers, and \ elements, which describe +child objects (most often widgets inside a container, but also e.g. +actions in an action group, or columns in a tree model). A \ +element contains an \ element which describes the child object. +The target toolkit version(s) are described by \ elements, +the “lib” attribute specifies the widget library in question (currently +the only supported value is “gtk+”) and the “version” attribute specifies +the target version in the form “\.\”. The builder will error +out if the version requirements are not met. + +Typically, the specific kind of object represented by an \ +element is specified by the “class” attribute. If the type has not +been loaded yet, GTK+ tries to find the @/get_type()/@ function from the +class name by applying heuristics. This works in most cases, but if +necessary, it is possible to specify the name of the @/get_type()/@ function +explictly with the \"type-func\" attribute. As a special case, GtkBuilder +allows to use an object that has been constructed by a 'GI.Gtk.Objects.UIManager.UIManager' in +another part of the UI definition by specifying the id of the 'GI.Gtk.Objects.UIManager.UIManager' +in the “constructor” attribute and the name of the object in the “id” +attribute. + +Objects may be given a name with the “id” attribute, which allows the +application to retrieve them from the builder with 'GI.Gtk.Objects.Builder.builderGetObject'. +An id is also necessary to use the object as property value in other +parts of the UI definition. GTK+ reserves ids starting and ending +with ___ (3 underscores) for its own purposes. + +Setting properties of objects is pretty straightforward with the +\ element: the “name” attribute specifies the name of the +property, and the content of the element specifies the value. +If the “translatable” attribute is set to a true value, GTK+ uses +@/gettext()/@ (or @/dgettext()/@ if the builder has a translation domain set) +to find a translation for the value. This happens before the value +is parsed, so it can be used for properties of any type, but it is +probably most useful for string properties. It is also possible to +specify a context to disambiguate short strings, and comments which +may help the translators. + +GtkBuilder can parse textual representations for the most common +property types: characters, strings, integers, floating-point numbers, +booleans (strings like “TRUE”, “t”, “yes”, “y”, “1” are interpreted +as 'True', strings like “FALSE”, “f”, “no”, “n”, “0” are interpreted +as 'False'), enumerations (can be specified by their name, nick or +integer value), flags (can be specified by their name, nick, integer +value, optionally combined with “|”, e.g. “GTK_VISIBLE|GTK_REALIZED”) +and colors (in a format understood by 'GI.Gdk.Structs.RGBA.rGBAParse'). + +GVariants can be specified in the format understood by 'GI.GLib.Functions.variantParse', +and pixbufs can be specified as a filename of an image file to load. + +Objects can be referred to by their name and by default refer to +objects declared in the local xml fragment and objects exposed via +'GI.Gtk.Objects.Builder.builderExposeObject'. In general, GtkBuilder allows forward +references to objects — declared in the local xml; an object doesn’t +have to be constructed before it can be referred to. The exception +to this rule is that an object has to be constructed before it can +be used as the value of a construct-only property. + +It is also possible to bind a property value to another object\'s +property value using the attributes +\"bind-source\" to specify the source object of the binding, +\"bind-property\" to specify the source property and optionally +\"bind-flags\" to specify the binding flags +Internally builder implement this using GBinding objects. +For more information see 'GI.GObject.Objects.Object.objectBindProperty' + +Signal handlers are set up with the \ element. The “name” +attribute specifies the name of the signal, and the “handler” attribute +specifies the function to connect to the signal. By default, GTK+ tries +to find the handler using 'GI.GModule.Structs.Module.moduleSymbol', but this can be changed by +passing a custom 'GI.Gtk.Callbacks.BuilderConnectFunc' to +'GI.Gtk.Objects.Builder.builderConnectSignalsFull'. The remaining attributes, “after”, +“swapped” and “object”, have the same meaning as the corresponding +parameters of the @/g_signal_connect_object()/@ or +@/g_signal_connect_data()/@ functions. A “last_modification_time” +attribute is also allowed, but it does not have a meaning to the +builder. + +Sometimes it is necessary to refer to widgets which have implicitly +been constructed by GTK+ as part of a composite widget, to set +properties on them or to add further children (e.g. the /@vbox@/ of +a 'GI.Gtk.Objects.Dialog.Dialog'). This can be achieved by setting the “internal-child” +propery of the \ element to a true value. Note that GtkBuilder +still requires an \ element for the internal child, even if it +has already been constructed. + +A number of widgets have different places where a child can be added +(e.g. tabs vs. page content in notebooks). This can be reflected in +a UI definition by specifying the “type” attribute on a \ +The possible values for the “type” attribute are described in the +sections describing the widget-specific portions of UI definitions. + += A GtkBuilder UI Definition + +> +> +> +> +> +> 10 +> +> +> 20 +> +> +> gtk-ok +> TRUE +> +> +> +> +> +> +> +> +> + + +Beyond this general structure, several object classes define their +own XML DTD fragments for filling in the ANY placeholders in the DTD +above. Note that a custom element in a \ element gets parsed by +the custom tag handler of the parent object, while a custom element in +an \ element gets parsed by the custom tag handler of the object. + +These XML fragments are explained in the documentation of the +respective objects. + +Additionally, since 3.10 a special \