#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Callbacks
(
AssistantPageFunc ,
AssistantPageFunc_WithClosures ,
C_AssistantPageFunc ,
drop_closures_AssistantPageFunc ,
dynamic_AssistantPageFunc ,
genClosure_AssistantPageFunc ,
mk_AssistantPageFunc ,
noAssistantPageFunc ,
noAssistantPageFunc_WithClosures ,
wrap_AssistantPageFunc ,
BuildableParserEndElementFieldCallback ,
BuildableParserEndElementFieldCallback_WithClosures,
C_BuildableParserEndElementFieldCallback,
drop_closures_BuildableParserEndElementFieldCallback,
dynamic_BuildableParserEndElementFieldCallback,
mk_BuildableParserEndElementFieldCallback,
noBuildableParserEndElementFieldCallback,
noBuildableParserEndElementFieldCallback_WithClosures,
BuildableParserErrorFieldCallback ,
BuildableParserErrorFieldCallback_WithClosures,
C_BuildableParserErrorFieldCallback ,
drop_closures_BuildableParserErrorFieldCallback,
dynamic_BuildableParserErrorFieldCallback,
genClosure_BuildableParserErrorFieldCallback,
mk_BuildableParserErrorFieldCallback ,
noBuildableParserErrorFieldCallback ,
noBuildableParserErrorFieldCallback_WithClosures,
wrap_BuildableParserErrorFieldCallback ,
BuildableParserStartElementFieldCallback,
BuildableParserStartElementFieldCallback_WithClosures,
C_BuildableParserStartElementFieldCallback,
drop_closures_BuildableParserStartElementFieldCallback,
dynamic_BuildableParserStartElementFieldCallback,
mk_BuildableParserStartElementFieldCallback,
noBuildableParserStartElementFieldCallback,
noBuildableParserStartElementFieldCallback_WithClosures,
BuildableParserTextFieldCallback ,
BuildableParserTextFieldCallback_WithClosures,
C_BuildableParserTextFieldCallback ,
drop_closures_BuildableParserTextFieldCallback,
dynamic_BuildableParserTextFieldCallback,
mk_BuildableParserTextFieldCallback ,
noBuildableParserTextFieldCallback ,
noBuildableParserTextFieldCallback_WithClosures,
C_CellAllocCallback ,
CellAllocCallback ,
CellAllocCallback_WithClosures ,
drop_closures_CellAllocCallback ,
dynamic_CellAllocCallback ,
genClosure_CellAllocCallback ,
mk_CellAllocCallback ,
noCellAllocCallback ,
noCellAllocCallback_WithClosures ,
wrap_CellAllocCallback ,
C_CellCallback ,
CellCallback ,
CellCallback_WithClosures ,
drop_closures_CellCallback ,
dynamic_CellCallback ,
genClosure_CellCallback ,
mk_CellCallback ,
noCellCallback ,
noCellCallback_WithClosures ,
wrap_CellCallback ,
C_CellLayoutDataFunc ,
CellLayoutDataFunc ,
CellLayoutDataFunc_WithClosures ,
drop_closures_CellLayoutDataFunc ,
dynamic_CellLayoutDataFunc ,
genClosure_CellLayoutDataFunc ,
mk_CellLayoutDataFunc ,
noCellLayoutDataFunc ,
noCellLayoutDataFunc_WithClosures ,
wrap_CellLayoutDataFunc ,
C_CustomAllocateFunc ,
CustomAllocateFunc ,
dynamic_CustomAllocateFunc ,
genClosure_CustomAllocateFunc ,
mk_CustomAllocateFunc ,
noCustomAllocateFunc ,
wrap_CustomAllocateFunc ,
C_CustomFilterFunc ,
CustomFilterFunc ,
CustomFilterFunc_WithClosures ,
drop_closures_CustomFilterFunc ,
dynamic_CustomFilterFunc ,
genClosure_CustomFilterFunc ,
mk_CustomFilterFunc ,
noCustomFilterFunc ,
noCustomFilterFunc_WithClosures ,
wrap_CustomFilterFunc ,
C_CustomMeasureFunc ,
CustomMeasureFunc ,
dynamic_CustomMeasureFunc ,
genClosure_CustomMeasureFunc ,
mk_CustomMeasureFunc ,
noCustomMeasureFunc ,
wrap_CustomMeasureFunc ,
C_CustomRequestModeFunc ,
CustomRequestModeFunc ,
dynamic_CustomRequestModeFunc ,
genClosure_CustomRequestModeFunc ,
mk_CustomRequestModeFunc ,
noCustomRequestModeFunc ,
wrap_CustomRequestModeFunc ,
C_DrawingAreaDrawFunc ,
DrawingAreaDrawFunc ,
DrawingAreaDrawFunc_WithClosures ,
drop_closures_DrawingAreaDrawFunc ,
dynamic_DrawingAreaDrawFunc ,
genClosure_DrawingAreaDrawFunc ,
mk_DrawingAreaDrawFunc ,
noDrawingAreaDrawFunc ,
noDrawingAreaDrawFunc_WithClosures ,
wrap_DrawingAreaDrawFunc ,
C_EntryCompletionMatchFunc ,
EntryCompletionMatchFunc ,
EntryCompletionMatchFunc_WithClosures ,
drop_closures_EntryCompletionMatchFunc ,
dynamic_EntryCompletionMatchFunc ,
genClosure_EntryCompletionMatchFunc ,
mk_EntryCompletionMatchFunc ,
noEntryCompletionMatchFunc ,
noEntryCompletionMatchFunc_WithClosures ,
wrap_EntryCompletionMatchFunc ,
C_ExpressionNotify ,
ExpressionNotify ,
ExpressionNotify_WithClosures ,
drop_closures_ExpressionNotify ,
dynamic_ExpressionNotify ,
genClosure_ExpressionNotify ,
mk_ExpressionNotify ,
noExpressionNotify ,
noExpressionNotify_WithClosures ,
wrap_ExpressionNotify ,
C_FlowBoxCreateWidgetFunc ,
FlowBoxCreateWidgetFunc ,
FlowBoxCreateWidgetFunc_WithClosures ,
drop_closures_FlowBoxCreateWidgetFunc ,
dynamic_FlowBoxCreateWidgetFunc ,
genClosure_FlowBoxCreateWidgetFunc ,
mk_FlowBoxCreateWidgetFunc ,
noFlowBoxCreateWidgetFunc ,
noFlowBoxCreateWidgetFunc_WithClosures ,
wrap_FlowBoxCreateWidgetFunc ,
C_FlowBoxFilterFunc ,
FlowBoxFilterFunc ,
FlowBoxFilterFunc_WithClosures ,
drop_closures_FlowBoxFilterFunc ,
dynamic_FlowBoxFilterFunc ,
genClosure_FlowBoxFilterFunc ,
mk_FlowBoxFilterFunc ,
noFlowBoxFilterFunc ,
noFlowBoxFilterFunc_WithClosures ,
wrap_FlowBoxFilterFunc ,
C_FlowBoxForeachFunc ,
FlowBoxForeachFunc ,
FlowBoxForeachFunc_WithClosures ,
drop_closures_FlowBoxForeachFunc ,
dynamic_FlowBoxForeachFunc ,
genClosure_FlowBoxForeachFunc ,
mk_FlowBoxForeachFunc ,
noFlowBoxForeachFunc ,
noFlowBoxForeachFunc_WithClosures ,
wrap_FlowBoxForeachFunc ,
C_FlowBoxSortFunc ,
FlowBoxSortFunc ,
FlowBoxSortFunc_WithClosures ,
drop_closures_FlowBoxSortFunc ,
dynamic_FlowBoxSortFunc ,
genClosure_FlowBoxSortFunc ,
mk_FlowBoxSortFunc ,
noFlowBoxSortFunc ,
noFlowBoxSortFunc_WithClosures ,
wrap_FlowBoxSortFunc ,
C_FontFilterFunc ,
FontFilterFunc ,
FontFilterFunc_WithClosures ,
drop_closures_FontFilterFunc ,
dynamic_FontFilterFunc ,
genClosure_FontFilterFunc ,
mk_FontFilterFunc ,
noFontFilterFunc ,
noFontFilterFunc_WithClosures ,
wrap_FontFilterFunc ,
C_IconViewForeachFunc ,
IconViewForeachFunc ,
IconViewForeachFunc_WithClosures ,
drop_closures_IconViewForeachFunc ,
dynamic_IconViewForeachFunc ,
genClosure_IconViewForeachFunc ,
mk_IconViewForeachFunc ,
noIconViewForeachFunc ,
noIconViewForeachFunc_WithClosures ,
wrap_IconViewForeachFunc ,
C_ListBoxCreateWidgetFunc ,
ListBoxCreateWidgetFunc ,
ListBoxCreateWidgetFunc_WithClosures ,
drop_closures_ListBoxCreateWidgetFunc ,
dynamic_ListBoxCreateWidgetFunc ,
genClosure_ListBoxCreateWidgetFunc ,
mk_ListBoxCreateWidgetFunc ,
noListBoxCreateWidgetFunc ,
noListBoxCreateWidgetFunc_WithClosures ,
wrap_ListBoxCreateWidgetFunc ,
C_ListBoxFilterFunc ,
ListBoxFilterFunc ,
ListBoxFilterFunc_WithClosures ,
drop_closures_ListBoxFilterFunc ,
dynamic_ListBoxFilterFunc ,
genClosure_ListBoxFilterFunc ,
mk_ListBoxFilterFunc ,
noListBoxFilterFunc ,
noListBoxFilterFunc_WithClosures ,
wrap_ListBoxFilterFunc ,
C_ListBoxForeachFunc ,
ListBoxForeachFunc ,
ListBoxForeachFunc_WithClosures ,
drop_closures_ListBoxForeachFunc ,
dynamic_ListBoxForeachFunc ,
genClosure_ListBoxForeachFunc ,
mk_ListBoxForeachFunc ,
noListBoxForeachFunc ,
noListBoxForeachFunc_WithClosures ,
wrap_ListBoxForeachFunc ,
C_ListBoxSortFunc ,
ListBoxSortFunc ,
ListBoxSortFunc_WithClosures ,
drop_closures_ListBoxSortFunc ,
dynamic_ListBoxSortFunc ,
genClosure_ListBoxSortFunc ,
mk_ListBoxSortFunc ,
noListBoxSortFunc ,
noListBoxSortFunc_WithClosures ,
wrap_ListBoxSortFunc ,
C_ListBoxUpdateHeaderFunc ,
ListBoxUpdateHeaderFunc ,
ListBoxUpdateHeaderFunc_WithClosures ,
drop_closures_ListBoxUpdateHeaderFunc ,
dynamic_ListBoxUpdateHeaderFunc ,
genClosure_ListBoxUpdateHeaderFunc ,
mk_ListBoxUpdateHeaderFunc ,
noListBoxUpdateHeaderFunc ,
noListBoxUpdateHeaderFunc_WithClosures ,
wrap_ListBoxUpdateHeaderFunc ,
C_MapListModelMapFunc ,
MapListModelMapFunc ,
MapListModelMapFunc_WithClosures ,
drop_closures_MapListModelMapFunc ,
dynamic_MapListModelMapFunc ,
genClosure_MapListModelMapFunc ,
mk_MapListModelMapFunc ,
noMapListModelMapFunc ,
noMapListModelMapFunc_WithClosures ,
wrap_MapListModelMapFunc ,
C_MenuButtonCreatePopupFunc ,
MenuButtonCreatePopupFunc ,
MenuButtonCreatePopupFunc_WithClosures ,
drop_closures_MenuButtonCreatePopupFunc ,
dynamic_MenuButtonCreatePopupFunc ,
genClosure_MenuButtonCreatePopupFunc ,
mk_MenuButtonCreatePopupFunc ,
noMenuButtonCreatePopupFunc ,
noMenuButtonCreatePopupFunc_WithClosures,
wrap_MenuButtonCreatePopupFunc ,
C_PageSetupDoneFunc ,
PageSetupDoneFunc ,
PageSetupDoneFunc_WithClosures ,
drop_closures_PageSetupDoneFunc ,
dynamic_PageSetupDoneFunc ,
genClosure_PageSetupDoneFunc ,
mk_PageSetupDoneFunc ,
noPageSetupDoneFunc ,
noPageSetupDoneFunc_WithClosures ,
wrap_PageSetupDoneFunc ,
C_PrintJobCompleteFunc ,
PrintJobCompleteFunc ,
PrintJobCompleteFunc_WithClosures ,
drop_closures_PrintJobCompleteFunc ,
dynamic_PrintJobCompleteFunc ,
genClosure_PrintJobCompleteFunc ,
mk_PrintJobCompleteFunc ,
noPrintJobCompleteFunc ,
noPrintJobCompleteFunc_WithClosures ,
wrap_PrintJobCompleteFunc ,
C_PrintSettingsFunc ,
PrintSettingsFunc ,
PrintSettingsFunc_WithClosures ,
drop_closures_PrintSettingsFunc ,
dynamic_PrintSettingsFunc ,
genClosure_PrintSettingsFunc ,
mk_PrintSettingsFunc ,
noPrintSettingsFunc ,
noPrintSettingsFunc_WithClosures ,
wrap_PrintSettingsFunc ,
C_PrinterFunc ,
PrinterFunc ,
PrinterFunc_WithClosures ,
drop_closures_PrinterFunc ,
dynamic_PrinterFunc ,
genClosure_PrinterFunc ,
mk_PrinterFunc ,
noPrinterFunc ,
noPrinterFunc_WithClosures ,
wrap_PrinterFunc ,
C_ScaleFormatValueFunc ,
ScaleFormatValueFunc ,
ScaleFormatValueFunc_WithClosures ,
drop_closures_ScaleFormatValueFunc ,
dynamic_ScaleFormatValueFunc ,
genClosure_ScaleFormatValueFunc ,
mk_ScaleFormatValueFunc ,
noScaleFormatValueFunc ,
noScaleFormatValueFunc_WithClosures ,
wrap_ScaleFormatValueFunc ,
C_ShortcutFunc ,
ShortcutFunc ,
ShortcutFunc_WithClosures ,
drop_closures_ShortcutFunc ,
dynamic_ShortcutFunc ,
genClosure_ShortcutFunc ,
mk_ShortcutFunc ,
noShortcutFunc ,
noShortcutFunc_WithClosures ,
wrap_ShortcutFunc ,
C_TextBufferCommitNotify ,
TextBufferCommitNotify ,
TextBufferCommitNotify_WithClosures ,
drop_closures_TextBufferCommitNotify ,
dynamic_TextBufferCommitNotify ,
genClosure_TextBufferCommitNotify ,
mk_TextBufferCommitNotify ,
noTextBufferCommitNotify ,
noTextBufferCommitNotify_WithClosures ,
wrap_TextBufferCommitNotify ,
C_TextCharPredicate ,
TextCharPredicate ,
TextCharPredicate_WithClosures ,
drop_closures_TextCharPredicate ,
dynamic_TextCharPredicate ,
genClosure_TextCharPredicate ,
mk_TextCharPredicate ,
noTextCharPredicate ,
noTextCharPredicate_WithClosures ,
wrap_TextCharPredicate ,
C_TextTagTableForeach ,
TextTagTableForeach ,
TextTagTableForeach_WithClosures ,
drop_closures_TextTagTableForeach ,
dynamic_TextTagTableForeach ,
genClosure_TextTagTableForeach ,
mk_TextTagTableForeach ,
noTextTagTableForeach ,
noTextTagTableForeach_WithClosures ,
wrap_TextTagTableForeach ,
C_TickCallback ,
TickCallback ,
TickCallback_WithClosures ,
drop_closures_TickCallback ,
dynamic_TickCallback ,
genClosure_TickCallback ,
mk_TickCallback ,
noTickCallback ,
noTickCallback_WithClosures ,
wrap_TickCallback ,
C_TreeCellDataFunc ,
TreeCellDataFunc ,
TreeCellDataFunc_WithClosures ,
drop_closures_TreeCellDataFunc ,
dynamic_TreeCellDataFunc ,
genClosure_TreeCellDataFunc ,
mk_TreeCellDataFunc ,
noTreeCellDataFunc ,
noTreeCellDataFunc_WithClosures ,
wrap_TreeCellDataFunc ,
C_TreeIterCompareFunc ,
TreeIterCompareFunc ,
TreeIterCompareFunc_WithClosures ,
drop_closures_TreeIterCompareFunc ,
dynamic_TreeIterCompareFunc ,
genClosure_TreeIterCompareFunc ,
mk_TreeIterCompareFunc ,
noTreeIterCompareFunc ,
noTreeIterCompareFunc_WithClosures ,
wrap_TreeIterCompareFunc ,
C_TreeListModelCreateModelFunc ,
TreeListModelCreateModelFunc ,
TreeListModelCreateModelFunc_WithClosures,
drop_closures_TreeListModelCreateModelFunc,
dynamic_TreeListModelCreateModelFunc ,
genClosure_TreeListModelCreateModelFunc ,
mk_TreeListModelCreateModelFunc ,
noTreeListModelCreateModelFunc ,
noTreeListModelCreateModelFunc_WithClosures,
wrap_TreeListModelCreateModelFunc ,
C_TreeModelFilterModifyFunc ,
TreeModelFilterModifyFunc ,
TreeModelFilterModifyFunc_WithClosures ,
drop_closures_TreeModelFilterModifyFunc ,
dynamic_TreeModelFilterModifyFunc ,
genClosure_TreeModelFilterModifyFunc ,
mk_TreeModelFilterModifyFunc ,
noTreeModelFilterModifyFunc ,
noTreeModelFilterModifyFunc_WithClosures,
wrap_TreeModelFilterModifyFunc ,
C_TreeModelFilterVisibleFunc ,
TreeModelFilterVisibleFunc ,
TreeModelFilterVisibleFunc_WithClosures ,
drop_closures_TreeModelFilterVisibleFunc,
dynamic_TreeModelFilterVisibleFunc ,
genClosure_TreeModelFilterVisibleFunc ,
mk_TreeModelFilterVisibleFunc ,
noTreeModelFilterVisibleFunc ,
noTreeModelFilterVisibleFunc_WithClosures,
wrap_TreeModelFilterVisibleFunc ,
C_TreeModelForeachFunc ,
TreeModelForeachFunc ,
TreeModelForeachFunc_WithClosures ,
drop_closures_TreeModelForeachFunc ,
dynamic_TreeModelForeachFunc ,
genClosure_TreeModelForeachFunc ,
mk_TreeModelForeachFunc ,
noTreeModelForeachFunc ,
noTreeModelForeachFunc_WithClosures ,
wrap_TreeModelForeachFunc ,
C_TreeSelectionForeachFunc ,
TreeSelectionForeachFunc ,
TreeSelectionForeachFunc_WithClosures ,
drop_closures_TreeSelectionForeachFunc ,
dynamic_TreeSelectionForeachFunc ,
genClosure_TreeSelectionForeachFunc ,
mk_TreeSelectionForeachFunc ,
noTreeSelectionForeachFunc ,
noTreeSelectionForeachFunc_WithClosures ,
wrap_TreeSelectionForeachFunc ,
C_TreeSelectionFunc ,
TreeSelectionFunc ,
TreeSelectionFunc_WithClosures ,
drop_closures_TreeSelectionFunc ,
dynamic_TreeSelectionFunc ,
genClosure_TreeSelectionFunc ,
mk_TreeSelectionFunc ,
noTreeSelectionFunc ,
noTreeSelectionFunc_WithClosures ,
wrap_TreeSelectionFunc ,
C_TreeViewColumnDropFunc ,
TreeViewColumnDropFunc ,
TreeViewColumnDropFunc_WithClosures ,
drop_closures_TreeViewColumnDropFunc ,
dynamic_TreeViewColumnDropFunc ,
genClosure_TreeViewColumnDropFunc ,
mk_TreeViewColumnDropFunc ,
noTreeViewColumnDropFunc ,
noTreeViewColumnDropFunc_WithClosures ,
wrap_TreeViewColumnDropFunc ,
C_TreeViewMappingFunc ,
TreeViewMappingFunc ,
TreeViewMappingFunc_WithClosures ,
drop_closures_TreeViewMappingFunc ,
dynamic_TreeViewMappingFunc ,
genClosure_TreeViewMappingFunc ,
mk_TreeViewMappingFunc ,
noTreeViewMappingFunc ,
noTreeViewMappingFunc_WithClosures ,
wrap_TreeViewMappingFunc ,
C_TreeViewRowSeparatorFunc ,
TreeViewRowSeparatorFunc ,
TreeViewRowSeparatorFunc_WithClosures ,
drop_closures_TreeViewRowSeparatorFunc ,
dynamic_TreeViewRowSeparatorFunc ,
genClosure_TreeViewRowSeparatorFunc ,
mk_TreeViewRowSeparatorFunc ,
noTreeViewRowSeparatorFunc ,
noTreeViewRowSeparatorFunc_WithClosures ,
wrap_TreeViewRowSeparatorFunc ,
C_TreeViewSearchEqualFunc ,
TreeViewSearchEqualFunc ,
TreeViewSearchEqualFunc_WithClosures ,
drop_closures_TreeViewSearchEqualFunc ,
dynamic_TreeViewSearchEqualFunc ,
genClosure_TreeViewSearchEqualFunc ,
mk_TreeViewSearchEqualFunc ,
noTreeViewSearchEqualFunc ,
noTreeViewSearchEqualFunc_WithClosures ,
wrap_TreeViewSearchEqualFunc ,
C_WidgetActionActivateFunc ,
WidgetActionActivateFunc ,
dynamic_WidgetActionActivateFunc ,
genClosure_WidgetActionActivateFunc ,
mk_WidgetActionActivateFunc ,
noWidgetActionActivateFunc ,
wrap_WidgetActionActivateFunc ,
C_WidgetClassComputeExpandFieldCallback ,
WidgetClassComputeExpandFieldCallback ,
dynamic_WidgetClassComputeExpandFieldCallback,
genClosure_WidgetClassComputeExpandFieldCallback,
mk_WidgetClassComputeExpandFieldCallback,
noWidgetClassComputeExpandFieldCallback ,
wrap_WidgetClassComputeExpandFieldCallback,
C_WidgetClassContainsFieldCallback ,
WidgetClassContainsFieldCallback ,
dynamic_WidgetClassContainsFieldCallback,
genClosure_WidgetClassContainsFieldCallback,
mk_WidgetClassContainsFieldCallback ,
noWidgetClassContainsFieldCallback ,
wrap_WidgetClassContainsFieldCallback ,
C_WidgetClassCssChangedFieldCallback ,
WidgetClassCssChangedFieldCallback ,
dynamic_WidgetClassCssChangedFieldCallback,
genClosure_WidgetClassCssChangedFieldCallback,
mk_WidgetClassCssChangedFieldCallback ,
noWidgetClassCssChangedFieldCallback ,
wrap_WidgetClassCssChangedFieldCallback ,
C_WidgetClassDirectionChangedFieldCallback,
WidgetClassDirectionChangedFieldCallback,
dynamic_WidgetClassDirectionChangedFieldCallback,
genClosure_WidgetClassDirectionChangedFieldCallback,
mk_WidgetClassDirectionChangedFieldCallback,
noWidgetClassDirectionChangedFieldCallback,
wrap_WidgetClassDirectionChangedFieldCallback,
C_WidgetClassFocusFieldCallback ,
WidgetClassFocusFieldCallback ,
dynamic_WidgetClassFocusFieldCallback ,
genClosure_WidgetClassFocusFieldCallback,
mk_WidgetClassFocusFieldCallback ,
noWidgetClassFocusFieldCallback ,
wrap_WidgetClassFocusFieldCallback ,
C_WidgetClassGetRequestModeFieldCallback,
WidgetClassGetRequestModeFieldCallback ,
dynamic_WidgetClassGetRequestModeFieldCallback,
genClosure_WidgetClassGetRequestModeFieldCallback,
mk_WidgetClassGetRequestModeFieldCallback,
noWidgetClassGetRequestModeFieldCallback,
wrap_WidgetClassGetRequestModeFieldCallback,
C_WidgetClassGrabFocusFieldCallback ,
WidgetClassGrabFocusFieldCallback ,
dynamic_WidgetClassGrabFocusFieldCallback,
genClosure_WidgetClassGrabFocusFieldCallback,
mk_WidgetClassGrabFocusFieldCallback ,
noWidgetClassGrabFocusFieldCallback ,
wrap_WidgetClassGrabFocusFieldCallback ,
C_WidgetClassHideFieldCallback ,
WidgetClassHideFieldCallback ,
dynamic_WidgetClassHideFieldCallback ,
genClosure_WidgetClassHideFieldCallback ,
mk_WidgetClassHideFieldCallback ,
noWidgetClassHideFieldCallback ,
wrap_WidgetClassHideFieldCallback ,
C_WidgetClassKeynavFailedFieldCallback ,
WidgetClassKeynavFailedFieldCallback ,
dynamic_WidgetClassKeynavFailedFieldCallback,
genClosure_WidgetClassKeynavFailedFieldCallback,
mk_WidgetClassKeynavFailedFieldCallback ,
noWidgetClassKeynavFailedFieldCallback ,
wrap_WidgetClassKeynavFailedFieldCallback,
C_WidgetClassMapFieldCallback ,
WidgetClassMapFieldCallback ,
dynamic_WidgetClassMapFieldCallback ,
genClosure_WidgetClassMapFieldCallback ,
mk_WidgetClassMapFieldCallback ,
noWidgetClassMapFieldCallback ,
wrap_WidgetClassMapFieldCallback ,
C_WidgetClassMeasureFieldCallback ,
WidgetClassMeasureFieldCallback ,
dynamic_WidgetClassMeasureFieldCallback ,
genClosure_WidgetClassMeasureFieldCallback,
mk_WidgetClassMeasureFieldCallback ,
noWidgetClassMeasureFieldCallback ,
wrap_WidgetClassMeasureFieldCallback ,
C_WidgetClassMnemonicActivateFieldCallback,
WidgetClassMnemonicActivateFieldCallback,
dynamic_WidgetClassMnemonicActivateFieldCallback,
genClosure_WidgetClassMnemonicActivateFieldCallback,
mk_WidgetClassMnemonicActivateFieldCallback,
noWidgetClassMnemonicActivateFieldCallback,
wrap_WidgetClassMnemonicActivateFieldCallback,
C_WidgetClassMoveFocusFieldCallback ,
WidgetClassMoveFocusFieldCallback ,
dynamic_WidgetClassMoveFocusFieldCallback,
genClosure_WidgetClassMoveFocusFieldCallback,
mk_WidgetClassMoveFocusFieldCallback ,
noWidgetClassMoveFocusFieldCallback ,
wrap_WidgetClassMoveFocusFieldCallback ,
C_WidgetClassQueryTooltipFieldCallback ,
WidgetClassQueryTooltipFieldCallback ,
dynamic_WidgetClassQueryTooltipFieldCallback,
genClosure_WidgetClassQueryTooltipFieldCallback,
mk_WidgetClassQueryTooltipFieldCallback ,
noWidgetClassQueryTooltipFieldCallback ,
wrap_WidgetClassQueryTooltipFieldCallback,
C_WidgetClassRealizeFieldCallback ,
WidgetClassRealizeFieldCallback ,
dynamic_WidgetClassRealizeFieldCallback ,
genClosure_WidgetClassRealizeFieldCallback,
mk_WidgetClassRealizeFieldCallback ,
noWidgetClassRealizeFieldCallback ,
wrap_WidgetClassRealizeFieldCallback ,
C_WidgetClassRootFieldCallback ,
WidgetClassRootFieldCallback ,
dynamic_WidgetClassRootFieldCallback ,
genClosure_WidgetClassRootFieldCallback ,
mk_WidgetClassRootFieldCallback ,
noWidgetClassRootFieldCallback ,
wrap_WidgetClassRootFieldCallback ,
C_WidgetClassSetFocusChildFieldCallback ,
WidgetClassSetFocusChildFieldCallback ,
dynamic_WidgetClassSetFocusChildFieldCallback,
genClosure_WidgetClassSetFocusChildFieldCallback,
mk_WidgetClassSetFocusChildFieldCallback,
noWidgetClassSetFocusChildFieldCallback ,
wrap_WidgetClassSetFocusChildFieldCallback,
C_WidgetClassShowFieldCallback ,
WidgetClassShowFieldCallback ,
dynamic_WidgetClassShowFieldCallback ,
genClosure_WidgetClassShowFieldCallback ,
mk_WidgetClassShowFieldCallback ,
noWidgetClassShowFieldCallback ,
wrap_WidgetClassShowFieldCallback ,
C_WidgetClassSizeAllocateFieldCallback ,
WidgetClassSizeAllocateFieldCallback ,
dynamic_WidgetClassSizeAllocateFieldCallback,
genClosure_WidgetClassSizeAllocateFieldCallback,
mk_WidgetClassSizeAllocateFieldCallback ,
noWidgetClassSizeAllocateFieldCallback ,
wrap_WidgetClassSizeAllocateFieldCallback,
C_WidgetClassSnapshotFieldCallback ,
WidgetClassSnapshotFieldCallback ,
dynamic_WidgetClassSnapshotFieldCallback,
genClosure_WidgetClassSnapshotFieldCallback,
mk_WidgetClassSnapshotFieldCallback ,
noWidgetClassSnapshotFieldCallback ,
wrap_WidgetClassSnapshotFieldCallback ,
C_WidgetClassStateFlagsChangedFieldCallback,
WidgetClassStateFlagsChangedFieldCallback,
dynamic_WidgetClassStateFlagsChangedFieldCallback,
genClosure_WidgetClassStateFlagsChangedFieldCallback,
mk_WidgetClassStateFlagsChangedFieldCallback,
noWidgetClassStateFlagsChangedFieldCallback,
wrap_WidgetClassStateFlagsChangedFieldCallback,
C_WidgetClassSystemSettingChangedFieldCallback,
WidgetClassSystemSettingChangedFieldCallback,
dynamic_WidgetClassSystemSettingChangedFieldCallback,
genClosure_WidgetClassSystemSettingChangedFieldCallback,
mk_WidgetClassSystemSettingChangedFieldCallback,
noWidgetClassSystemSettingChangedFieldCallback,
wrap_WidgetClassSystemSettingChangedFieldCallback,
C_WidgetClassUnmapFieldCallback ,
WidgetClassUnmapFieldCallback ,
dynamic_WidgetClassUnmapFieldCallback ,
genClosure_WidgetClassUnmapFieldCallback,
mk_WidgetClassUnmapFieldCallback ,
noWidgetClassUnmapFieldCallback ,
wrap_WidgetClassUnmapFieldCallback ,
C_WidgetClassUnrealizeFieldCallback ,
WidgetClassUnrealizeFieldCallback ,
dynamic_WidgetClassUnrealizeFieldCallback,
genClosure_WidgetClassUnrealizeFieldCallback,
mk_WidgetClassUnrealizeFieldCallback ,
noWidgetClassUnrealizeFieldCallback ,
wrap_WidgetClassUnrealizeFieldCallback ,
C_WidgetClassUnrootFieldCallback ,
WidgetClassUnrootFieldCallback ,
dynamic_WidgetClassUnrootFieldCallback ,
genClosure_WidgetClassUnrootFieldCallback,
mk_WidgetClassUnrootFieldCallback ,
noWidgetClassUnrootFieldCallback ,
wrap_WidgetClassUnrootFieldCallback ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.KeyFile as GLib.KeyFile
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GObject.Structs.ObjectClass as GObject.ObjectClass
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.ContentProvider as Gdk.ContentProvider
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.ContentFormats as Gdk.ContentFormats
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AccessibleRange as Gtk.AccessibleRange
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
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.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Scrollable as Gtk.Scrollable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ShortcutManager as Gtk.ShortcutManager
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAreaContext as Gtk.CellAreaContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.DrawingArea as Gtk.DrawingArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.EntryCompletion as Gtk.EntryCompletion
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
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.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
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.MenuButton as Gtk.MenuButton
import {-# SOURCE #-} qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup
import {-# SOURCE #-} qualified GI.Gtk.Objects.Popover as Gtk.Popover
import {-# SOURCE #-} qualified GI.Gtk.Objects.PrintJob as Gtk.PrintJob
import {-# SOURCE #-} qualified GI.Gtk.Objects.PrintSettings as Gtk.PrintSettings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Printer as Gtk.Printer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Range as Gtk.Range
import {-# SOURCE #-} qualified GI.Gtk.Objects.Scale as Gtk.Scale
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
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.TextChildAnchor as Gtk.TextChildAnchor
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextMark as Gtk.TextMark
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTagTable as Gtk.TextTagTable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
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.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.BuildableParseContext as Gtk.BuildableParseContext
import {-# SOURCE #-} qualified GI.Gtk.Structs.BuildableParser as Gtk.BuildableParser
import {-# SOURCE #-} qualified GI.Gtk.Structs.CssStyleChange as Gtk.CssStyleChange
import {-# SOURCE #-} qualified GI.Gtk.Structs.PageRange as Gtk.PageRange
import {-# SOURCE #-} qualified GI.Gtk.Structs.PaperSize as Gtk.PaperSize
import {-# SOURCE #-} qualified GI.Gtk.Structs.PrintBackend as Gtk.PrintBackend
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
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.Enums as Pango.Enums
import qualified GI.Pango.Flags as Pango.Flags
import qualified GI.Pango.Objects.Context as Pango.Context
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.Objects.Layout as Pango.Layout
import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
import qualified GI.Pango.Structs.Language as Pango.Language
import qualified GI.Pango.Structs.TabArray as Pango.TabArray
#else
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
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.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.DrawingArea as Gtk.DrawingArea
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.MenuButton as Gtk.MenuButton
import {-# SOURCE #-} qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup
import {-# SOURCE #-} qualified GI.Gtk.Objects.PrintJob as Gtk.PrintJob
import {-# SOURCE #-} qualified GI.Gtk.Objects.Printer as Gtk.Printer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Scale as Gtk.Scale
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
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.Tooltip as Gtk.Tooltip
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.BuildableParseContext as Gtk.BuildableParseContext
import {-# SOURCE #-} qualified GI.Gtk.Structs.CssStyleChange as Gtk.CssStyleChange
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
#endif
type C_WidgetClassUnrootFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassUnrootFieldCallback :: FunPtr C_WidgetClassUnrootFieldCallback -> C_WidgetClassUnrootFieldCallback
dynamic_WidgetClassUnrootFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback
-> a
-> m ()
dynamic_WidgetClassUnrootFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassUnrootFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassUnrootFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassUnrootFieldCallback :: C_WidgetClassUnrootFieldCallback -> IO (FunPtr C_WidgetClassUnrootFieldCallback)
type WidgetClassUnrootFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassUnrootFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassUnrootFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassUnrootFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassUnrootFieldCallback :: MonadIO m => WidgetClassUnrootFieldCallback -> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassUnrootFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassUnrootFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassUnrootFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassUnrootFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassUnrootFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) ->
WidgetClassUnrootFieldCallback ->
C_WidgetClassUnrootFieldCallback
wrap_WidgetClassUnrootFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassUnrootFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassUnrealizeFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassUnrealizeFieldCallback :: FunPtr C_WidgetClassUnrealizeFieldCallback -> C_WidgetClassUnrealizeFieldCallback
dynamic_WidgetClassUnrealizeFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassUnrealizeFieldCallback
-> a
-> m ()
dynamic_WidgetClassUnrealizeFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassUnrealizeFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassUnrealizeFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassUnrealizeFieldCallback :: C_WidgetClassUnrealizeFieldCallback -> IO (FunPtr C_WidgetClassUnrealizeFieldCallback)
type WidgetClassUnrealizeFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassUnrealizeFieldCallback :: Maybe WidgetClassUnrealizeFieldCallback
noWidgetClassUnrealizeFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassUnrealizeFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassUnrealizeFieldCallback :: MonadIO m => WidgetClassUnrealizeFieldCallback -> m (GClosure C_WidgetClassUnrealizeFieldCallback)
genClosure_WidgetClassUnrealizeFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassUnrealizeFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassUnrealizeFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassUnrealizeFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassUnrealizeFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassUnrealizeFieldCallback)) ->
WidgetClassUnrealizeFieldCallback ->
C_WidgetClassUnrealizeFieldCallback
wrap_WidgetClassUnrealizeFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassUnrealizeFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassUnmapFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassUnmapFieldCallback :: FunPtr C_WidgetClassUnmapFieldCallback -> C_WidgetClassUnmapFieldCallback
dynamic_WidgetClassUnmapFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassUnmapFieldCallback
-> a
-> m ()
dynamic_WidgetClassUnmapFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassUnmapFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassUnmapFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassUnmapFieldCallback :: C_WidgetClassUnmapFieldCallback -> IO (FunPtr C_WidgetClassUnmapFieldCallback)
type WidgetClassUnmapFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassUnmapFieldCallback :: Maybe WidgetClassUnmapFieldCallback
noWidgetClassUnmapFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassUnmapFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassUnmapFieldCallback :: MonadIO m => WidgetClassUnmapFieldCallback -> m (GClosure C_WidgetClassUnmapFieldCallback)
genClosure_WidgetClassUnmapFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassUnmapFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassUnmapFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassUnmapFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassUnmapFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassUnmapFieldCallback)) ->
WidgetClassUnmapFieldCallback ->
C_WidgetClassUnmapFieldCallback
wrap_WidgetClassUnmapFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassUnmapFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassSystemSettingChangedFieldCallback =
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassSystemSettingChangedFieldCallback :: FunPtr C_WidgetClassSystemSettingChangedFieldCallback -> C_WidgetClassSystemSettingChangedFieldCallback
dynamic_WidgetClassSystemSettingChangedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> a
-> Gtk.Enums.SystemSetting
-> m ()
dynamic_WidgetClassSystemSettingChangedFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> a -> SystemSetting -> m ()
dynamic_WidgetClassSystemSettingChangedFieldCallback FunPtr C_WidgetClassSystemSettingChangedFieldCallback
__funPtr a
widget SystemSetting
settings = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let settings' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SystemSetting -> Int) -> SystemSetting -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SystemSetting -> Int
forall a. Enum a => a -> Int
fromEnum) SystemSetting
settings
(__dynamic_C_WidgetClassSystemSettingChangedFieldCallback __funPtr) widget' settings'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassSystemSettingChangedFieldCallback :: C_WidgetClassSystemSettingChangedFieldCallback -> IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
type WidgetClassSystemSettingChangedFieldCallback =
Gtk.Widget.Widget
-> Gtk.Enums.SystemSetting
-> IO ()
noWidgetClassSystemSettingChangedFieldCallback :: Maybe WidgetClassSystemSettingChangedFieldCallback
noWidgetClassSystemSettingChangedFieldCallback :: Maybe WidgetClassSystemSettingChangedFieldCallback
noWidgetClassSystemSettingChangedFieldCallback = Maybe WidgetClassSystemSettingChangedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassSystemSettingChangedFieldCallback :: MonadIO m => WidgetClassSystemSettingChangedFieldCallback -> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
genClosure_WidgetClassSystemSettingChangedFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassSystemSettingChangedFieldCallback
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
genClosure_WidgetClassSystemSettingChangedFieldCallback WidgetClassSystemSettingChangedFieldCallback
cb = IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSystemSettingChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassSystemSettingChangedFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassSystemSettingChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassSystemSettingChangedFieldCallback
cb
C_WidgetClassSystemSettingChangedFieldCallback
-> IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
mk_WidgetClassSystemSettingChangedFieldCallback C_WidgetClassSystemSettingChangedFieldCallback
cb' IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
-> (FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassSystemSettingChangedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)) ->
WidgetClassSystemSettingChangedFieldCallback ->
C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassSystemSettingChangedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassSystemSettingChangedFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassSystemSettingChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
gi'funptrptr WidgetClassSystemSettingChangedFieldCallback
gi'cb Ptr Widget
widget CUInt
settings = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let settings' = (Int -> SystemSetting
forall a. Enum a => Int -> a
toEnum (Int -> SystemSetting) -> (CUInt -> Int) -> CUInt -> SystemSetting
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
settings
gi'cb widget' settings'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassStateFlagsChangedFieldCallback =
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassStateFlagsChangedFieldCallback :: FunPtr C_WidgetClassStateFlagsChangedFieldCallback -> C_WidgetClassStateFlagsChangedFieldCallback
dynamic_WidgetClassStateFlagsChangedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> a
-> [Gtk.Flags.StateFlags]
-> m ()
dynamic_WidgetClassStateFlagsChangedFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> a -> [StateFlags] -> m ()
dynamic_WidgetClassStateFlagsChangedFieldCallback FunPtr C_WidgetClassSystemSettingChangedFieldCallback
__funPtr a
widget [StateFlags]
previousStateFlags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let previousStateFlags' = [StateFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
previousStateFlags
(__dynamic_C_WidgetClassStateFlagsChangedFieldCallback __funPtr) widget' previousStateFlags'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassStateFlagsChangedFieldCallback :: C_WidgetClassStateFlagsChangedFieldCallback -> IO (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)
type WidgetClassStateFlagsChangedFieldCallback =
Gtk.Widget.Widget
-> [Gtk.Flags.StateFlags]
-> IO ()
noWidgetClassStateFlagsChangedFieldCallback :: Maybe WidgetClassStateFlagsChangedFieldCallback
noWidgetClassStateFlagsChangedFieldCallback :: Maybe WidgetClassStateFlagsChangedFieldCallback
noWidgetClassStateFlagsChangedFieldCallback = Maybe WidgetClassStateFlagsChangedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassStateFlagsChangedFieldCallback :: MonadIO m => WidgetClassStateFlagsChangedFieldCallback -> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
genClosure_WidgetClassStateFlagsChangedFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassStateFlagsChangedFieldCallback
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
genClosure_WidgetClassStateFlagsChangedFieldCallback WidgetClassStateFlagsChangedFieldCallback
cb = IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSystemSettingChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassStateFlagsChangedFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassStateFlagsChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassStateFlagsChangedFieldCallback
cb
C_WidgetClassSystemSettingChangedFieldCallback
-> IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
mk_WidgetClassStateFlagsChangedFieldCallback C_WidgetClassSystemSettingChangedFieldCallback
cb' IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
-> (FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassStateFlagsChangedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)) ->
WidgetClassStateFlagsChangedFieldCallback ->
C_WidgetClassStateFlagsChangedFieldCallback
wrap_WidgetClassStateFlagsChangedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassStateFlagsChangedFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassStateFlagsChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
gi'funptrptr WidgetClassStateFlagsChangedFieldCallback
gi'cb Ptr Widget
widget CUInt
previousStateFlags = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let previousStateFlags' = CUInt -> [StateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
previousStateFlags
gi'cb widget' previousStateFlags'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassSnapshotFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Snapshot.Snapshot ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassSnapshotFieldCallback :: FunPtr C_WidgetClassSnapshotFieldCallback -> C_WidgetClassSnapshotFieldCallback
dynamic_WidgetClassSnapshotFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gtk.Snapshot.IsSnapshot b) =>
FunPtr C_WidgetClassSnapshotFieldCallback
-> a
-> b
-> m ()
dynamic_WidgetClassSnapshotFieldCallback :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsSnapshot b) =>
FunPtr C_WidgetClassSnapshotFieldCallback -> a -> b -> m ()
dynamic_WidgetClassSnapshotFieldCallback FunPtr C_WidgetClassSnapshotFieldCallback
__funPtr a
widget b
snapshot = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
snapshot' <- unsafeManagedPtrCastPtr snapshot
(__dynamic_C_WidgetClassSnapshotFieldCallback __funPtr) widget' snapshot'
touchManagedPtr widget
touchManagedPtr snapshot
return ()
foreign import ccall "wrapper"
mk_WidgetClassSnapshotFieldCallback :: C_WidgetClassSnapshotFieldCallback -> IO (FunPtr C_WidgetClassSnapshotFieldCallback)
type WidgetClassSnapshotFieldCallback =
Gtk.Widget.Widget
-> Gtk.Snapshot.Snapshot
-> IO ()
noWidgetClassSnapshotFieldCallback :: Maybe WidgetClassSnapshotFieldCallback
noWidgetClassSnapshotFieldCallback :: Maybe WidgetClassSnapshotFieldCallback
noWidgetClassSnapshotFieldCallback = Maybe WidgetClassSnapshotFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassSnapshotFieldCallback :: MonadIO m => WidgetClassSnapshotFieldCallback -> m (GClosure C_WidgetClassSnapshotFieldCallback)
genClosure_WidgetClassSnapshotFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassSnapshotFieldCallback
-> m (GClosure C_WidgetClassSnapshotFieldCallback)
genClosure_WidgetClassSnapshotFieldCallback WidgetClassSnapshotFieldCallback
cb = IO (GClosure C_WidgetClassSnapshotFieldCallback)
-> m (GClosure C_WidgetClassSnapshotFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSnapshotFieldCallback)
-> m (GClosure C_WidgetClassSnapshotFieldCallback))
-> IO (GClosure C_WidgetClassSnapshotFieldCallback)
-> m (GClosure C_WidgetClassSnapshotFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSnapshotFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback))
-> WidgetClassSnapshotFieldCallback
-> C_WidgetClassSnapshotFieldCallback
wrap_WidgetClassSnapshotFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback))
forall a. Maybe a
Nothing WidgetClassSnapshotFieldCallback
cb
C_WidgetClassSnapshotFieldCallback
-> IO (FunPtr C_WidgetClassSnapshotFieldCallback)
mk_WidgetClassSnapshotFieldCallback C_WidgetClassSnapshotFieldCallback
cb' IO (FunPtr C_WidgetClassSnapshotFieldCallback)
-> (FunPtr C_WidgetClassSnapshotFieldCallback
-> IO (GClosure C_WidgetClassSnapshotFieldCallback))
-> IO (GClosure C_WidgetClassSnapshotFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSnapshotFieldCallback
-> IO (GClosure C_WidgetClassSnapshotFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassSnapshotFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback)) ->
WidgetClassSnapshotFieldCallback ->
C_WidgetClassSnapshotFieldCallback
wrap_WidgetClassSnapshotFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback))
-> WidgetClassSnapshotFieldCallback
-> C_WidgetClassSnapshotFieldCallback
wrap_WidgetClassSnapshotFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback))
gi'funptrptr WidgetClassSnapshotFieldCallback
gi'cb Ptr Widget
widget Ptr Snapshot
snapshot = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
snapshot' <- (newObject Gtk.Snapshot.Snapshot) snapshot
gi'cb widget' snapshot'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassSizeAllocateFieldCallback =
Ptr Gtk.Widget.Widget ->
Int32 ->
Int32 ->
Int32 ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassSizeAllocateFieldCallback :: FunPtr C_WidgetClassSizeAllocateFieldCallback -> C_WidgetClassSizeAllocateFieldCallback
dynamic_WidgetClassSizeAllocateFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassSizeAllocateFieldCallback
-> a
-> Int32
-> Int32
-> Int32
-> m ()
dynamic_WidgetClassSizeAllocateFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassSizeAllocateFieldCallback
-> a -> Int32 -> Int32 -> Int32 -> m ()
dynamic_WidgetClassSizeAllocateFieldCallback FunPtr C_WidgetClassSizeAllocateFieldCallback
__funPtr a
widget Int32
width Int32
height Int32
baseline = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassSizeAllocateFieldCallback __funPtr) widget' width height baseline
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassSizeAllocateFieldCallback :: C_WidgetClassSizeAllocateFieldCallback -> IO (FunPtr C_WidgetClassSizeAllocateFieldCallback)
type WidgetClassSizeAllocateFieldCallback =
Gtk.Widget.Widget
-> Int32
-> Int32
-> Int32
-> IO ()
noWidgetClassSizeAllocateFieldCallback :: Maybe WidgetClassSizeAllocateFieldCallback
noWidgetClassSizeAllocateFieldCallback :: Maybe WidgetClassSizeAllocateFieldCallback
noWidgetClassSizeAllocateFieldCallback = Maybe WidgetClassSizeAllocateFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassSizeAllocateFieldCallback :: MonadIO m => WidgetClassSizeAllocateFieldCallback -> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
genClosure_WidgetClassSizeAllocateFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassSizeAllocateFieldCallback
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
genClosure_WidgetClassSizeAllocateFieldCallback WidgetClassSizeAllocateFieldCallback
cb = IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback))
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSizeAllocateFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
-> WidgetClassSizeAllocateFieldCallback
-> C_WidgetClassSizeAllocateFieldCallback
wrap_WidgetClassSizeAllocateFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
forall a. Maybe a
Nothing WidgetClassSizeAllocateFieldCallback
cb
C_WidgetClassSizeAllocateFieldCallback
-> IO (FunPtr C_WidgetClassSizeAllocateFieldCallback)
mk_WidgetClassSizeAllocateFieldCallback C_WidgetClassSizeAllocateFieldCallback
cb' IO (FunPtr C_WidgetClassSizeAllocateFieldCallback)
-> (FunPtr C_WidgetClassSizeAllocateFieldCallback
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback))
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSizeAllocateFieldCallback
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassSizeAllocateFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback)) ->
WidgetClassSizeAllocateFieldCallback ->
C_WidgetClassSizeAllocateFieldCallback
wrap_WidgetClassSizeAllocateFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
-> WidgetClassSizeAllocateFieldCallback
-> C_WidgetClassSizeAllocateFieldCallback
wrap_WidgetClassSizeAllocateFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
gi'funptrptr WidgetClassSizeAllocateFieldCallback
gi'cb Ptr Widget
widget Int32
width Int32
height Int32
baseline = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget' width height baseline
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassShowFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassShowFieldCallback :: FunPtr C_WidgetClassShowFieldCallback -> C_WidgetClassShowFieldCallback
dynamic_WidgetClassShowFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassShowFieldCallback
-> a
-> m ()
dynamic_WidgetClassShowFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassShowFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassShowFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassShowFieldCallback :: C_WidgetClassShowFieldCallback -> IO (FunPtr C_WidgetClassShowFieldCallback)
type WidgetClassShowFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassShowFieldCallback :: Maybe WidgetClassShowFieldCallback
noWidgetClassShowFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassShowFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassShowFieldCallback :: MonadIO m => WidgetClassShowFieldCallback -> m (GClosure C_WidgetClassShowFieldCallback)
genClosure_WidgetClassShowFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassShowFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassShowFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassShowFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassShowFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassShowFieldCallback)) ->
WidgetClassShowFieldCallback ->
C_WidgetClassShowFieldCallback
wrap_WidgetClassShowFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassShowFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassSetFocusChildFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassSetFocusChildFieldCallback :: FunPtr C_WidgetClassSetFocusChildFieldCallback -> C_WidgetClassSetFocusChildFieldCallback
dynamic_WidgetClassSetFocusChildFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gtk.Widget.IsWidget b) =>
FunPtr C_WidgetClassSetFocusChildFieldCallback
-> a
-> Maybe (b)
-> m ()
dynamic_WidgetClassSetFocusChildFieldCallback :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
FunPtr C_WidgetClassSetFocusChildFieldCallback
-> a -> Maybe b -> m ()
dynamic_WidgetClassSetFocusChildFieldCallback FunPtr C_WidgetClassSetFocusChildFieldCallback
__funPtr a
widget Maybe b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
maybeChild <- case child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
FP.nullPtr
Just b
jChild -> do
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
return jChild'
(__dynamic_C_WidgetClassSetFocusChildFieldCallback __funPtr) widget' maybeChild
touchManagedPtr widget
whenJust child touchManagedPtr
return ()
foreign import ccall "wrapper"
mk_WidgetClassSetFocusChildFieldCallback :: C_WidgetClassSetFocusChildFieldCallback -> IO (FunPtr C_WidgetClassSetFocusChildFieldCallback)
type WidgetClassSetFocusChildFieldCallback =
Gtk.Widget.Widget
-> Maybe Gtk.Widget.Widget
-> IO ()
noWidgetClassSetFocusChildFieldCallback :: Maybe WidgetClassSetFocusChildFieldCallback
noWidgetClassSetFocusChildFieldCallback :: Maybe WidgetClassSetFocusChildFieldCallback
noWidgetClassSetFocusChildFieldCallback = Maybe WidgetClassSetFocusChildFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassSetFocusChildFieldCallback :: MonadIO m => WidgetClassSetFocusChildFieldCallback -> m (GClosure C_WidgetClassSetFocusChildFieldCallback)
genClosure_WidgetClassSetFocusChildFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassSetFocusChildFieldCallback
-> m (GClosure C_WidgetClassSetFocusChildFieldCallback)
genClosure_WidgetClassSetFocusChildFieldCallback WidgetClassSetFocusChildFieldCallback
cb = IO (GClosure C_WidgetClassSetFocusChildFieldCallback)
-> m (GClosure C_WidgetClassSetFocusChildFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSetFocusChildFieldCallback)
-> m (GClosure C_WidgetClassSetFocusChildFieldCallback))
-> IO (GClosure C_WidgetClassSetFocusChildFieldCallback)
-> m (GClosure C_WidgetClassSetFocusChildFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSetFocusChildFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSetFocusChildFieldCallback))
-> WidgetClassSetFocusChildFieldCallback
-> C_WidgetClassSetFocusChildFieldCallback
wrap_WidgetClassSetFocusChildFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSetFocusChildFieldCallback))
forall a. Maybe a
Nothing WidgetClassSetFocusChildFieldCallback
cb
C_WidgetClassSetFocusChildFieldCallback
-> IO (FunPtr C_WidgetClassSetFocusChildFieldCallback)
mk_WidgetClassSetFocusChildFieldCallback C_WidgetClassSetFocusChildFieldCallback
cb' IO (FunPtr C_WidgetClassSetFocusChildFieldCallback)
-> (FunPtr C_WidgetClassSetFocusChildFieldCallback
-> IO (GClosure C_WidgetClassSetFocusChildFieldCallback))
-> IO (GClosure C_WidgetClassSetFocusChildFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSetFocusChildFieldCallback
-> IO (GClosure C_WidgetClassSetFocusChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassSetFocusChildFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassSetFocusChildFieldCallback)) ->
WidgetClassSetFocusChildFieldCallback ->
C_WidgetClassSetFocusChildFieldCallback
wrap_WidgetClassSetFocusChildFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassSetFocusChildFieldCallback))
-> WidgetClassSetFocusChildFieldCallback
-> C_WidgetClassSetFocusChildFieldCallback
wrap_WidgetClassSetFocusChildFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSetFocusChildFieldCallback))
gi'funptrptr WidgetClassSetFocusChildFieldCallback
gi'cb Ptr Widget
widget Ptr Widget
child = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
maybeChild <-
if child == FP.nullPtr
then return Nothing
else do
child' <- (newObject Gtk.Widget.Widget) child
return $ Just child'
gi'cb widget' maybeChild
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassRootFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassRootFieldCallback :: FunPtr C_WidgetClassRootFieldCallback -> C_WidgetClassRootFieldCallback
dynamic_WidgetClassRootFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassRootFieldCallback
-> a
-> m ()
dynamic_WidgetClassRootFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassRootFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassRootFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassRootFieldCallback :: C_WidgetClassRootFieldCallback -> IO (FunPtr C_WidgetClassRootFieldCallback)
type WidgetClassRootFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassRootFieldCallback :: Maybe WidgetClassRootFieldCallback
noWidgetClassRootFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassRootFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassRootFieldCallback :: MonadIO m => WidgetClassRootFieldCallback -> m (GClosure C_WidgetClassRootFieldCallback)
genClosure_WidgetClassRootFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassRootFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassRootFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassRootFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassRootFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassRootFieldCallback)) ->
WidgetClassRootFieldCallback ->
C_WidgetClassRootFieldCallback
wrap_WidgetClassRootFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassRootFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassRealizeFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassRealizeFieldCallback :: FunPtr C_WidgetClassRealizeFieldCallback -> C_WidgetClassRealizeFieldCallback
dynamic_WidgetClassRealizeFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassRealizeFieldCallback
-> a
-> m ()
dynamic_WidgetClassRealizeFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassRealizeFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassRealizeFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassRealizeFieldCallback :: C_WidgetClassRealizeFieldCallback -> IO (FunPtr C_WidgetClassRealizeFieldCallback)
type WidgetClassRealizeFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassRealizeFieldCallback :: Maybe WidgetClassRealizeFieldCallback
noWidgetClassRealizeFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassRealizeFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassRealizeFieldCallback :: MonadIO m => WidgetClassRealizeFieldCallback -> m (GClosure C_WidgetClassRealizeFieldCallback)
genClosure_WidgetClassRealizeFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassRealizeFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassRealizeFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassRealizeFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassRealizeFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassRealizeFieldCallback)) ->
WidgetClassRealizeFieldCallback ->
C_WidgetClassRealizeFieldCallback
wrap_WidgetClassRealizeFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassRealizeFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassQueryTooltipFieldCallback =
Ptr Gtk.Widget.Widget ->
Int32 ->
Int32 ->
CInt ->
Ptr Gtk.Tooltip.Tooltip ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassQueryTooltipFieldCallback :: FunPtr C_WidgetClassQueryTooltipFieldCallback -> C_WidgetClassQueryTooltipFieldCallback
dynamic_WidgetClassQueryTooltipFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gtk.Tooltip.IsTooltip b) =>
FunPtr C_WidgetClassQueryTooltipFieldCallback
-> a
-> Int32
-> Int32
-> Bool
-> b
-> m Bool
dynamic_WidgetClassQueryTooltipFieldCallback :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsTooltip b) =>
FunPtr C_WidgetClassQueryTooltipFieldCallback
-> a -> Int32 -> Int32 -> Bool -> b -> m Bool
dynamic_WidgetClassQueryTooltipFieldCallback FunPtr C_WidgetClassQueryTooltipFieldCallback
__funPtr a
widget Int32
x Int32
y Bool
keyboardTooltip b
tooltip = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let keyboardTooltip' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
keyboardTooltip
tooltip' <- unsafeManagedPtrCastPtr tooltip
result <- (__dynamic_C_WidgetClassQueryTooltipFieldCallback __funPtr) widget' x y keyboardTooltip' tooltip'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
touchManagedPtr tooltip
return result'
foreign import ccall "wrapper"
mk_WidgetClassQueryTooltipFieldCallback :: C_WidgetClassQueryTooltipFieldCallback -> IO (FunPtr C_WidgetClassQueryTooltipFieldCallback)
type WidgetClassQueryTooltipFieldCallback =
Gtk.Widget.Widget
-> Int32
-> Int32
-> Bool
-> Gtk.Tooltip.Tooltip
-> IO Bool
noWidgetClassQueryTooltipFieldCallback :: Maybe WidgetClassQueryTooltipFieldCallback
noWidgetClassQueryTooltipFieldCallback :: Maybe WidgetClassQueryTooltipFieldCallback
noWidgetClassQueryTooltipFieldCallback = Maybe WidgetClassQueryTooltipFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassQueryTooltipFieldCallback :: MonadIO m => WidgetClassQueryTooltipFieldCallback -> m (GClosure C_WidgetClassQueryTooltipFieldCallback)
genClosure_WidgetClassQueryTooltipFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassQueryTooltipFieldCallback
-> m (GClosure C_WidgetClassQueryTooltipFieldCallback)
genClosure_WidgetClassQueryTooltipFieldCallback WidgetClassQueryTooltipFieldCallback
cb = IO (GClosure C_WidgetClassQueryTooltipFieldCallback)
-> m (GClosure C_WidgetClassQueryTooltipFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassQueryTooltipFieldCallback)
-> m (GClosure C_WidgetClassQueryTooltipFieldCallback))
-> IO (GClosure C_WidgetClassQueryTooltipFieldCallback)
-> m (GClosure C_WidgetClassQueryTooltipFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassQueryTooltipFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback))
-> WidgetClassQueryTooltipFieldCallback
-> C_WidgetClassQueryTooltipFieldCallback
wrap_WidgetClassQueryTooltipFieldCallback Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback))
forall a. Maybe a
Nothing WidgetClassQueryTooltipFieldCallback
cb
C_WidgetClassQueryTooltipFieldCallback
-> IO (FunPtr C_WidgetClassQueryTooltipFieldCallback)
mk_WidgetClassQueryTooltipFieldCallback C_WidgetClassQueryTooltipFieldCallback
cb' IO (FunPtr C_WidgetClassQueryTooltipFieldCallback)
-> (FunPtr C_WidgetClassQueryTooltipFieldCallback
-> IO (GClosure C_WidgetClassQueryTooltipFieldCallback))
-> IO (GClosure C_WidgetClassQueryTooltipFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassQueryTooltipFieldCallback
-> IO (GClosure C_WidgetClassQueryTooltipFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassQueryTooltipFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback)) ->
WidgetClassQueryTooltipFieldCallback ->
C_WidgetClassQueryTooltipFieldCallback
wrap_WidgetClassQueryTooltipFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback))
-> WidgetClassQueryTooltipFieldCallback
-> C_WidgetClassQueryTooltipFieldCallback
wrap_WidgetClassQueryTooltipFieldCallback Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback))
gi'funptrptr WidgetClassQueryTooltipFieldCallback
gi'cb Ptr Widget
widget Int32
x Int32
y CInt
keyboardTooltip Ptr Tooltip
tooltip = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let keyboardTooltip' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
keyboardTooltip
tooltip' <- (newObject Gtk.Tooltip.Tooltip) tooltip
result <- gi'cb widget' x y keyboardTooltip' tooltip'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_WidgetClassMoveFocusFieldCallback =
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassMoveFocusFieldCallback :: FunPtr C_WidgetClassMoveFocusFieldCallback -> C_WidgetClassMoveFocusFieldCallback
dynamic_WidgetClassMoveFocusFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassMoveFocusFieldCallback
-> a
-> Gtk.Enums.DirectionType
-> m ()
dynamic_WidgetClassMoveFocusFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> a -> DirectionType -> m ()
dynamic_WidgetClassMoveFocusFieldCallback FunPtr C_WidgetClassSystemSettingChangedFieldCallback
__funPtr a
widget DirectionType
direction = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (DirectionType -> Int) -> DirectionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirectionType -> Int
forall a. Enum a => a -> Int
fromEnum) DirectionType
direction
(__dynamic_C_WidgetClassMoveFocusFieldCallback __funPtr) widget' direction'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassMoveFocusFieldCallback :: C_WidgetClassMoveFocusFieldCallback -> IO (FunPtr C_WidgetClassMoveFocusFieldCallback)
type WidgetClassMoveFocusFieldCallback =
Gtk.Widget.Widget
-> Gtk.Enums.DirectionType
-> IO ()
noWidgetClassMoveFocusFieldCallback :: Maybe WidgetClassMoveFocusFieldCallback
noWidgetClassMoveFocusFieldCallback :: Maybe WidgetClassMoveFocusFieldCallback
noWidgetClassMoveFocusFieldCallback = Maybe WidgetClassMoveFocusFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassMoveFocusFieldCallback :: MonadIO m => WidgetClassMoveFocusFieldCallback -> m (GClosure C_WidgetClassMoveFocusFieldCallback)
genClosure_WidgetClassMoveFocusFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassMoveFocusFieldCallback
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
genClosure_WidgetClassMoveFocusFieldCallback WidgetClassMoveFocusFieldCallback
cb = IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSystemSettingChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassMoveFocusFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassMoveFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassMoveFocusFieldCallback
cb
C_WidgetClassSystemSettingChangedFieldCallback
-> IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
mk_WidgetClassMoveFocusFieldCallback C_WidgetClassSystemSettingChangedFieldCallback
cb' IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
-> (FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassMoveFocusFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassMoveFocusFieldCallback)) ->
WidgetClassMoveFocusFieldCallback ->
C_WidgetClassMoveFocusFieldCallback
wrap_WidgetClassMoveFocusFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassMoveFocusFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassMoveFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
gi'funptrptr WidgetClassMoveFocusFieldCallback
gi'cb Ptr Widget
widget CUInt
direction = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let direction' = (Int -> DirectionType
forall a. Enum a => Int -> a
toEnum (Int -> DirectionType) -> (CUInt -> Int) -> CUInt -> DirectionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
direction
gi'cb widget' direction'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassMnemonicActivateFieldCallback =
Ptr Gtk.Widget.Widget ->
CInt ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassMnemonicActivateFieldCallback :: FunPtr C_WidgetClassMnemonicActivateFieldCallback -> C_WidgetClassMnemonicActivateFieldCallback
dynamic_WidgetClassMnemonicActivateFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassMnemonicActivateFieldCallback
-> a
-> Bool
-> m Bool
dynamic_WidgetClassMnemonicActivateFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassMnemonicActivateFieldCallback
-> a -> Bool -> m Bool
dynamic_WidgetClassMnemonicActivateFieldCallback FunPtr C_WidgetClassMnemonicActivateFieldCallback
__funPtr a
widget Bool
groupCycling = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let groupCycling' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
groupCycling
result <- (__dynamic_C_WidgetClassMnemonicActivateFieldCallback __funPtr) widget' groupCycling'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
return result'
foreign import ccall "wrapper"
mk_WidgetClassMnemonicActivateFieldCallback :: C_WidgetClassMnemonicActivateFieldCallback -> IO (FunPtr C_WidgetClassMnemonicActivateFieldCallback)
type WidgetClassMnemonicActivateFieldCallback =
Gtk.Widget.Widget
-> Bool
-> IO Bool
noWidgetClassMnemonicActivateFieldCallback :: Maybe WidgetClassMnemonicActivateFieldCallback
noWidgetClassMnemonicActivateFieldCallback :: Maybe WidgetClassMnemonicActivateFieldCallback
noWidgetClassMnemonicActivateFieldCallback = Maybe WidgetClassMnemonicActivateFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassMnemonicActivateFieldCallback :: MonadIO m => WidgetClassMnemonicActivateFieldCallback -> m (GClosure C_WidgetClassMnemonicActivateFieldCallback)
genClosure_WidgetClassMnemonicActivateFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassMnemonicActivateFieldCallback
-> m (GClosure C_WidgetClassMnemonicActivateFieldCallback)
genClosure_WidgetClassMnemonicActivateFieldCallback WidgetClassMnemonicActivateFieldCallback
cb = IO (GClosure C_WidgetClassMnemonicActivateFieldCallback)
-> m (GClosure C_WidgetClassMnemonicActivateFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassMnemonicActivateFieldCallback)
-> m (GClosure C_WidgetClassMnemonicActivateFieldCallback))
-> IO (GClosure C_WidgetClassMnemonicActivateFieldCallback)
-> m (GClosure C_WidgetClassMnemonicActivateFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassMnemonicActivateFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback))
-> WidgetClassMnemonicActivateFieldCallback
-> C_WidgetClassMnemonicActivateFieldCallback
wrap_WidgetClassMnemonicActivateFieldCallback Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback))
forall a. Maybe a
Nothing WidgetClassMnemonicActivateFieldCallback
cb
C_WidgetClassMnemonicActivateFieldCallback
-> IO (FunPtr C_WidgetClassMnemonicActivateFieldCallback)
mk_WidgetClassMnemonicActivateFieldCallback C_WidgetClassMnemonicActivateFieldCallback
cb' IO (FunPtr C_WidgetClassMnemonicActivateFieldCallback)
-> (FunPtr C_WidgetClassMnemonicActivateFieldCallback
-> IO (GClosure C_WidgetClassMnemonicActivateFieldCallback))
-> IO (GClosure C_WidgetClassMnemonicActivateFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassMnemonicActivateFieldCallback
-> IO (GClosure C_WidgetClassMnemonicActivateFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassMnemonicActivateFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback)) ->
WidgetClassMnemonicActivateFieldCallback ->
C_WidgetClassMnemonicActivateFieldCallback
wrap_WidgetClassMnemonicActivateFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback))
-> WidgetClassMnemonicActivateFieldCallback
-> C_WidgetClassMnemonicActivateFieldCallback
wrap_WidgetClassMnemonicActivateFieldCallback Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback))
gi'funptrptr WidgetClassMnemonicActivateFieldCallback
gi'cb Ptr Widget
widget CInt
groupCycling = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let groupCycling' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
groupCycling
result <- gi'cb widget' groupCycling'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_WidgetClassMeasureFieldCallback =
Ptr Gtk.Widget.Widget ->
CUInt ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassMeasureFieldCallback :: FunPtr C_WidgetClassMeasureFieldCallback -> C_WidgetClassMeasureFieldCallback
dynamic_WidgetClassMeasureFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassMeasureFieldCallback
-> a
-> Gtk.Enums.Orientation
-> Int32
-> m ((Int32, Int32, Int32, Int32))
dynamic_WidgetClassMeasureFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassMeasureFieldCallback
-> a -> Orientation -> Int32 -> m (Int32, Int32, Int32, Int32)
dynamic_WidgetClassMeasureFieldCallback FunPtr C_WidgetClassMeasureFieldCallback
__funPtr a
widget Orientation
orientation Int32
forSize = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
minimum <- allocMem :: IO (Ptr Int32)
natural <- allocMem :: IO (Ptr Int32)
minimumBaseline <- allocMem :: IO (Ptr Int32)
naturalBaseline <- allocMem :: IO (Ptr Int32)
(__dynamic_C_WidgetClassMeasureFieldCallback __funPtr) widget' orientation' forSize minimum natural minimumBaseline naturalBaseline
minimum' <- peek minimum
natural' <- peek natural
minimumBaseline' <- peek minimumBaseline
naturalBaseline' <- peek naturalBaseline
touchManagedPtr widget
freeMem minimum
freeMem natural
freeMem minimumBaseline
freeMem naturalBaseline
return (minimum', natural', minimumBaseline', naturalBaseline')
foreign import ccall "wrapper"
mk_WidgetClassMeasureFieldCallback :: C_WidgetClassMeasureFieldCallback -> IO (FunPtr C_WidgetClassMeasureFieldCallback)
type WidgetClassMeasureFieldCallback =
Gtk.Widget.Widget
-> Gtk.Enums.Orientation
-> Int32
-> IO ((Int32, Int32, Int32, Int32))
noWidgetClassMeasureFieldCallback :: Maybe WidgetClassMeasureFieldCallback
noWidgetClassMeasureFieldCallback :: Maybe WidgetClassMeasureFieldCallback
noWidgetClassMeasureFieldCallback = Maybe WidgetClassMeasureFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassMeasureFieldCallback :: MonadIO m => WidgetClassMeasureFieldCallback -> m (GClosure C_WidgetClassMeasureFieldCallback)
genClosure_WidgetClassMeasureFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassMeasureFieldCallback
-> m (GClosure C_WidgetClassMeasureFieldCallback)
genClosure_WidgetClassMeasureFieldCallback WidgetClassMeasureFieldCallback
cb = IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback))
-> IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassMeasureFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
-> WidgetClassMeasureFieldCallback
-> C_WidgetClassMeasureFieldCallback
wrap_WidgetClassMeasureFieldCallback Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
forall a. Maybe a
Nothing WidgetClassMeasureFieldCallback
cb
C_WidgetClassMeasureFieldCallback
-> IO (FunPtr C_WidgetClassMeasureFieldCallback)
mk_WidgetClassMeasureFieldCallback C_WidgetClassMeasureFieldCallback
cb' IO (FunPtr C_WidgetClassMeasureFieldCallback)
-> (FunPtr C_WidgetClassMeasureFieldCallback
-> IO (GClosure C_WidgetClassMeasureFieldCallback))
-> IO (GClosure C_WidgetClassMeasureFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassMeasureFieldCallback
-> IO (GClosure C_WidgetClassMeasureFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassMeasureFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback)) ->
WidgetClassMeasureFieldCallback ->
C_WidgetClassMeasureFieldCallback
wrap_WidgetClassMeasureFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
-> WidgetClassMeasureFieldCallback
-> C_WidgetClassMeasureFieldCallback
wrap_WidgetClassMeasureFieldCallback Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
gi'funptrptr WidgetClassMeasureFieldCallback
gi'cb Ptr Widget
widget CUInt
orientation Int32
forSize Ptr Int32
minimum Ptr Int32
natural Ptr Int32
minimumBaseline Ptr Int32
naturalBaseline = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let orientation' = (Int -> Orientation
forall a. Enum a => Int -> a
toEnum (Int -> Orientation) -> (CUInt -> Int) -> CUInt -> Orientation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
orientation
(outminimum, outnatural, outminimumBaseline, outnaturalBaseline) <- gi'cb widget' orientation' forSize
poke minimum outminimum
poke natural outnatural
poke minimumBaseline outminimumBaseline
poke naturalBaseline outnaturalBaseline
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassMapFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassMapFieldCallback :: FunPtr C_WidgetClassMapFieldCallback -> C_WidgetClassMapFieldCallback
dynamic_WidgetClassMapFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassMapFieldCallback
-> a
-> m ()
dynamic_WidgetClassMapFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassMapFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassMapFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassMapFieldCallback :: C_WidgetClassMapFieldCallback -> IO (FunPtr C_WidgetClassMapFieldCallback)
type WidgetClassMapFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassMapFieldCallback :: Maybe WidgetClassMapFieldCallback
noWidgetClassMapFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassMapFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassMapFieldCallback :: MonadIO m => WidgetClassMapFieldCallback -> m (GClosure C_WidgetClassMapFieldCallback)
genClosure_WidgetClassMapFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassMapFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassMapFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassMapFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassMapFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassMapFieldCallback)) ->
WidgetClassMapFieldCallback ->
C_WidgetClassMapFieldCallback
wrap_WidgetClassMapFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassMapFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassKeynavFailedFieldCallback =
Ptr Gtk.Widget.Widget ->
CUInt ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassKeynavFailedFieldCallback :: FunPtr C_WidgetClassKeynavFailedFieldCallback -> C_WidgetClassKeynavFailedFieldCallback
dynamic_WidgetClassKeynavFailedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassKeynavFailedFieldCallback
-> a
-> Gtk.Enums.DirectionType
-> m Bool
dynamic_WidgetClassKeynavFailedFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassKeynavFailedFieldCallback
-> a -> DirectionType -> m Bool
dynamic_WidgetClassKeynavFailedFieldCallback FunPtr C_WidgetClassKeynavFailedFieldCallback
__funPtr a
widget DirectionType
direction = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (DirectionType -> Int) -> DirectionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirectionType -> Int
forall a. Enum a => a -> Int
fromEnum) DirectionType
direction
result <- (__dynamic_C_WidgetClassKeynavFailedFieldCallback __funPtr) widget' direction'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
return result'
foreign import ccall "wrapper"
mk_WidgetClassKeynavFailedFieldCallback :: C_WidgetClassKeynavFailedFieldCallback -> IO (FunPtr C_WidgetClassKeynavFailedFieldCallback)
type WidgetClassKeynavFailedFieldCallback =
Gtk.Widget.Widget
-> Gtk.Enums.DirectionType
-> IO Bool
noWidgetClassKeynavFailedFieldCallback :: Maybe WidgetClassKeynavFailedFieldCallback
noWidgetClassKeynavFailedFieldCallback :: Maybe WidgetClassKeynavFailedFieldCallback
noWidgetClassKeynavFailedFieldCallback = Maybe WidgetClassKeynavFailedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassKeynavFailedFieldCallback :: MonadIO m => WidgetClassKeynavFailedFieldCallback -> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
genClosure_WidgetClassKeynavFailedFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassKeynavFailedFieldCallback
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
genClosure_WidgetClassKeynavFailedFieldCallback WidgetClassKeynavFailedFieldCallback
cb = IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback))
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassKeynavFailedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
-> WidgetClassKeynavFailedFieldCallback
-> C_WidgetClassKeynavFailedFieldCallback
wrap_WidgetClassKeynavFailedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
forall a. Maybe a
Nothing WidgetClassKeynavFailedFieldCallback
cb
C_WidgetClassKeynavFailedFieldCallback
-> IO (FunPtr C_WidgetClassKeynavFailedFieldCallback)
mk_WidgetClassKeynavFailedFieldCallback C_WidgetClassKeynavFailedFieldCallback
cb' IO (FunPtr C_WidgetClassKeynavFailedFieldCallback)
-> (FunPtr C_WidgetClassKeynavFailedFieldCallback
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback))
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassKeynavFailedFieldCallback
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassKeynavFailedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback)) ->
WidgetClassKeynavFailedFieldCallback ->
C_WidgetClassKeynavFailedFieldCallback
wrap_WidgetClassKeynavFailedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
-> WidgetClassKeynavFailedFieldCallback
-> C_WidgetClassKeynavFailedFieldCallback
wrap_WidgetClassKeynavFailedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
gi'funptrptr WidgetClassKeynavFailedFieldCallback
gi'cb Ptr Widget
widget CUInt
direction = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let direction' = (Int -> DirectionType
forall a. Enum a => Int -> a
toEnum (Int -> DirectionType) -> (CUInt -> Int) -> CUInt -> DirectionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
direction
result <- gi'cb widget' direction'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_WidgetClassHideFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassHideFieldCallback :: FunPtr C_WidgetClassHideFieldCallback -> C_WidgetClassHideFieldCallback
dynamic_WidgetClassHideFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassHideFieldCallback
-> a
-> m ()
dynamic_WidgetClassHideFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassHideFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr a
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_WidgetClassHideFieldCallback __funPtr) widget'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassHideFieldCallback :: C_WidgetClassHideFieldCallback -> IO (FunPtr C_WidgetClassHideFieldCallback)
type WidgetClassHideFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassHideFieldCallback :: Maybe WidgetClassHideFieldCallback
noWidgetClassHideFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassHideFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassHideFieldCallback :: MonadIO m => WidgetClassHideFieldCallback -> m (GClosure C_WidgetClassHideFieldCallback)
genClosure_WidgetClassHideFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassHideFieldCallback WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassUnrootFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassHideFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassHideFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassHideFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassHideFieldCallback)) ->
WidgetClassHideFieldCallback ->
C_WidgetClassHideFieldCallback
wrap_WidgetClassHideFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassHideFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
gi'funptrptr WidgetClassUnrootFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassGrabFocusFieldCallback =
Ptr Gtk.Widget.Widget ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassGrabFocusFieldCallback :: FunPtr C_WidgetClassGrabFocusFieldCallback -> C_WidgetClassGrabFocusFieldCallback
dynamic_WidgetClassGrabFocusFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassGrabFocusFieldCallback
-> a
-> m Bool
dynamic_WidgetClassGrabFocusFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassGrabFocusFieldCallback -> a -> m Bool
dynamic_WidgetClassGrabFocusFieldCallback FunPtr C_WidgetClassGrabFocusFieldCallback
__funPtr a
widget = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
result <- (__dynamic_C_WidgetClassGrabFocusFieldCallback __funPtr) widget'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
return result'
foreign import ccall "wrapper"
mk_WidgetClassGrabFocusFieldCallback :: C_WidgetClassGrabFocusFieldCallback -> IO (FunPtr C_WidgetClassGrabFocusFieldCallback)
type WidgetClassGrabFocusFieldCallback =
Gtk.Widget.Widget
-> IO Bool
noWidgetClassGrabFocusFieldCallback :: Maybe WidgetClassGrabFocusFieldCallback
noWidgetClassGrabFocusFieldCallback :: Maybe WidgetClassGrabFocusFieldCallback
noWidgetClassGrabFocusFieldCallback = Maybe WidgetClassGrabFocusFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassGrabFocusFieldCallback :: MonadIO m => WidgetClassGrabFocusFieldCallback -> m (GClosure C_WidgetClassGrabFocusFieldCallback)
genClosure_WidgetClassGrabFocusFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassGrabFocusFieldCallback
-> m (GClosure C_WidgetClassGrabFocusFieldCallback)
genClosure_WidgetClassGrabFocusFieldCallback WidgetClassGrabFocusFieldCallback
cb = IO (GClosure C_WidgetClassGrabFocusFieldCallback)
-> m (GClosure C_WidgetClassGrabFocusFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassGrabFocusFieldCallback)
-> m (GClosure C_WidgetClassGrabFocusFieldCallback))
-> IO (GClosure C_WidgetClassGrabFocusFieldCallback)
-> m (GClosure C_WidgetClassGrabFocusFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassGrabFocusFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassGrabFocusFieldCallback))
-> WidgetClassGrabFocusFieldCallback
-> C_WidgetClassGrabFocusFieldCallback
wrap_WidgetClassGrabFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassGrabFocusFieldCallback))
forall a. Maybe a
Nothing WidgetClassGrabFocusFieldCallback
cb
C_WidgetClassGrabFocusFieldCallback
-> IO (FunPtr C_WidgetClassGrabFocusFieldCallback)
mk_WidgetClassGrabFocusFieldCallback C_WidgetClassGrabFocusFieldCallback
cb' IO (FunPtr C_WidgetClassGrabFocusFieldCallback)
-> (FunPtr C_WidgetClassGrabFocusFieldCallback
-> IO (GClosure C_WidgetClassGrabFocusFieldCallback))
-> IO (GClosure C_WidgetClassGrabFocusFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassGrabFocusFieldCallback
-> IO (GClosure C_WidgetClassGrabFocusFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassGrabFocusFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassGrabFocusFieldCallback)) ->
WidgetClassGrabFocusFieldCallback ->
C_WidgetClassGrabFocusFieldCallback
wrap_WidgetClassGrabFocusFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassGrabFocusFieldCallback))
-> WidgetClassGrabFocusFieldCallback
-> C_WidgetClassGrabFocusFieldCallback
wrap_WidgetClassGrabFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassGrabFocusFieldCallback))
gi'funptrptr WidgetClassGrabFocusFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
result <- gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_WidgetClassGetRequestModeFieldCallback =
Ptr Gtk.Widget.Widget ->
IO CUInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassGetRequestModeFieldCallback :: FunPtr C_WidgetClassGetRequestModeFieldCallback -> C_WidgetClassGetRequestModeFieldCallback
dynamic_WidgetClassGetRequestModeFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassGetRequestModeFieldCallback
-> a
-> m Gtk.Enums.SizeRequestMode
dynamic_WidgetClassGetRequestModeFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassGetRequestModeFieldCallback
-> a -> m SizeRequestMode
dynamic_WidgetClassGetRequestModeFieldCallback FunPtr C_WidgetClassGetRequestModeFieldCallback
__funPtr a
widget = IO SizeRequestMode -> m SizeRequestMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SizeRequestMode -> m SizeRequestMode)
-> IO SizeRequestMode -> m SizeRequestMode
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
result <- (__dynamic_C_WidgetClassGetRequestModeFieldCallback __funPtr) widget'
let result' = (Int -> SizeRequestMode
forall a. Enum a => Int -> a
toEnum (Int -> SizeRequestMode)
-> (CUInt -> Int) -> CUInt -> SizeRequestMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr widget
return result'
foreign import ccall "wrapper"
mk_WidgetClassGetRequestModeFieldCallback :: C_WidgetClassGetRequestModeFieldCallback -> IO (FunPtr C_WidgetClassGetRequestModeFieldCallback)
type WidgetClassGetRequestModeFieldCallback =
Gtk.Widget.Widget
-> IO Gtk.Enums.SizeRequestMode
noWidgetClassGetRequestModeFieldCallback :: Maybe WidgetClassGetRequestModeFieldCallback
noWidgetClassGetRequestModeFieldCallback :: Maybe WidgetClassGetRequestModeFieldCallback
noWidgetClassGetRequestModeFieldCallback = Maybe WidgetClassGetRequestModeFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassGetRequestModeFieldCallback :: MonadIO m => WidgetClassGetRequestModeFieldCallback -> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
genClosure_WidgetClassGetRequestModeFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassGetRequestModeFieldCallback
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
genClosure_WidgetClassGetRequestModeFieldCallback WidgetClassGetRequestModeFieldCallback
cb = IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback))
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassGetRequestModeFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
-> WidgetClassGetRequestModeFieldCallback
-> C_WidgetClassGetRequestModeFieldCallback
wrap_WidgetClassGetRequestModeFieldCallback Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
forall a. Maybe a
Nothing WidgetClassGetRequestModeFieldCallback
cb
C_WidgetClassGetRequestModeFieldCallback
-> IO (FunPtr C_WidgetClassGetRequestModeFieldCallback)
mk_WidgetClassGetRequestModeFieldCallback C_WidgetClassGetRequestModeFieldCallback
cb' IO (FunPtr C_WidgetClassGetRequestModeFieldCallback)
-> (FunPtr C_WidgetClassGetRequestModeFieldCallback
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback))
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassGetRequestModeFieldCallback
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassGetRequestModeFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback)) ->
WidgetClassGetRequestModeFieldCallback ->
C_WidgetClassGetRequestModeFieldCallback
wrap_WidgetClassGetRequestModeFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
-> WidgetClassGetRequestModeFieldCallback
-> C_WidgetClassGetRequestModeFieldCallback
wrap_WidgetClassGetRequestModeFieldCallback Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
gi'funptrptr WidgetClassGetRequestModeFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
result <- gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SizeRequestMode -> Int) -> SizeRequestMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SizeRequestMode -> Int
forall a. Enum a => a -> Int
fromEnum) SizeRequestMode
result
return result'
type C_WidgetClassFocusFieldCallback =
Ptr Gtk.Widget.Widget ->
CUInt ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassFocusFieldCallback :: FunPtr C_WidgetClassFocusFieldCallback -> C_WidgetClassFocusFieldCallback
dynamic_WidgetClassFocusFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassFocusFieldCallback
-> a
-> Gtk.Enums.DirectionType
-> m Bool
dynamic_WidgetClassFocusFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassKeynavFailedFieldCallback
-> a -> DirectionType -> m Bool
dynamic_WidgetClassFocusFieldCallback FunPtr C_WidgetClassKeynavFailedFieldCallback
__funPtr a
widget DirectionType
direction = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (DirectionType -> Int) -> DirectionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirectionType -> Int
forall a. Enum a => a -> Int
fromEnum) DirectionType
direction
result <- (__dynamic_C_WidgetClassFocusFieldCallback __funPtr) widget' direction'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
return result'
foreign import ccall "wrapper"
mk_WidgetClassFocusFieldCallback :: C_WidgetClassFocusFieldCallback -> IO (FunPtr C_WidgetClassFocusFieldCallback)
type WidgetClassFocusFieldCallback =
Gtk.Widget.Widget
-> Gtk.Enums.DirectionType
-> IO Bool
noWidgetClassFocusFieldCallback :: Maybe WidgetClassFocusFieldCallback
noWidgetClassFocusFieldCallback :: Maybe WidgetClassKeynavFailedFieldCallback
noWidgetClassFocusFieldCallback = Maybe WidgetClassKeynavFailedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassFocusFieldCallback :: MonadIO m => WidgetClassFocusFieldCallback -> m (GClosure C_WidgetClassFocusFieldCallback)
genClosure_WidgetClassFocusFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassKeynavFailedFieldCallback
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
genClosure_WidgetClassFocusFieldCallback WidgetClassKeynavFailedFieldCallback
cb = IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback))
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassKeynavFailedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
-> WidgetClassKeynavFailedFieldCallback
-> C_WidgetClassKeynavFailedFieldCallback
wrap_WidgetClassFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
forall a. Maybe a
Nothing WidgetClassKeynavFailedFieldCallback
cb
C_WidgetClassKeynavFailedFieldCallback
-> IO (FunPtr C_WidgetClassKeynavFailedFieldCallback)
mk_WidgetClassFocusFieldCallback C_WidgetClassKeynavFailedFieldCallback
cb' IO (FunPtr C_WidgetClassKeynavFailedFieldCallback)
-> (FunPtr C_WidgetClassKeynavFailedFieldCallback
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback))
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassKeynavFailedFieldCallback
-> IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassFocusFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassFocusFieldCallback)) ->
WidgetClassFocusFieldCallback ->
C_WidgetClassFocusFieldCallback
wrap_WidgetClassFocusFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
-> WidgetClassKeynavFailedFieldCallback
-> C_WidgetClassKeynavFailedFieldCallback
wrap_WidgetClassFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
gi'funptrptr WidgetClassKeynavFailedFieldCallback
gi'cb Ptr Widget
widget CUInt
direction = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let direction' = (Int -> DirectionType
forall a. Enum a => Int -> a
toEnum (Int -> DirectionType) -> (CUInt -> Int) -> CUInt -> DirectionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
direction
result <- gi'cb widget' direction'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_WidgetClassDirectionChangedFieldCallback =
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDirectionChangedFieldCallback :: FunPtr C_WidgetClassDirectionChangedFieldCallback -> C_WidgetClassDirectionChangedFieldCallback
dynamic_WidgetClassDirectionChangedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassDirectionChangedFieldCallback
-> a
-> Gtk.Enums.TextDirection
-> m ()
dynamic_WidgetClassDirectionChangedFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> a -> TextDirection -> m ()
dynamic_WidgetClassDirectionChangedFieldCallback FunPtr C_WidgetClassSystemSettingChangedFieldCallback
__funPtr a
widget TextDirection
previousDirection = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let previousDirection' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (TextDirection -> Int) -> TextDirection -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextDirection -> Int
forall a. Enum a => a -> Int
fromEnum) TextDirection
previousDirection
(__dynamic_C_WidgetClassDirectionChangedFieldCallback __funPtr) widget' previousDirection'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassDirectionChangedFieldCallback :: C_WidgetClassDirectionChangedFieldCallback -> IO (FunPtr C_WidgetClassDirectionChangedFieldCallback)
type WidgetClassDirectionChangedFieldCallback =
Gtk.Widget.Widget
-> Gtk.Enums.TextDirection
-> IO ()
noWidgetClassDirectionChangedFieldCallback :: Maybe WidgetClassDirectionChangedFieldCallback
noWidgetClassDirectionChangedFieldCallback :: Maybe WidgetClassDirectionChangedFieldCallback
noWidgetClassDirectionChangedFieldCallback = Maybe WidgetClassDirectionChangedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDirectionChangedFieldCallback :: MonadIO m => WidgetClassDirectionChangedFieldCallback -> m (GClosure C_WidgetClassDirectionChangedFieldCallback)
genClosure_WidgetClassDirectionChangedFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassDirectionChangedFieldCallback
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
genClosure_WidgetClassDirectionChangedFieldCallback WidgetClassDirectionChangedFieldCallback
cb = IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
-> m (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSystemSettingChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassDirectionChangedFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassDirectionChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassDirectionChangedFieldCallback
cb
C_WidgetClassSystemSettingChangedFieldCallback
-> IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
mk_WidgetClassDirectionChangedFieldCallback C_WidgetClassSystemSettingChangedFieldCallback
cb' IO (FunPtr C_WidgetClassSystemSettingChangedFieldCallback)
-> (FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback))
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSystemSettingChangedFieldCallback
-> IO (GClosure C_WidgetClassSystemSettingChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDirectionChangedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDirectionChangedFieldCallback)) ->
WidgetClassDirectionChangedFieldCallback ->
C_WidgetClassDirectionChangedFieldCallback
wrap_WidgetClassDirectionChangedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
-> WidgetClassDirectionChangedFieldCallback
-> C_WidgetClassSystemSettingChangedFieldCallback
wrap_WidgetClassDirectionChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassSystemSettingChangedFieldCallback))
gi'funptrptr WidgetClassDirectionChangedFieldCallback
gi'cb Ptr Widget
widget CUInt
previousDirection = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let previousDirection' = (Int -> TextDirection
forall a. Enum a => Int -> a
toEnum (Int -> TextDirection) -> (CUInt -> Int) -> CUInt -> TextDirection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
previousDirection
gi'cb widget' previousDirection'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassCssChangedFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gtk.CssStyleChange.CssStyleChange ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassCssChangedFieldCallback :: FunPtr C_WidgetClassCssChangedFieldCallback -> C_WidgetClassCssChangedFieldCallback
dynamic_WidgetClassCssChangedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassCssChangedFieldCallback
-> a
-> Gtk.CssStyleChange.CssStyleChange
-> m ()
dynamic_WidgetClassCssChangedFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassCssChangedFieldCallback
-> a -> CssStyleChange -> m ()
dynamic_WidgetClassCssChangedFieldCallback FunPtr C_WidgetClassCssChangedFieldCallback
__funPtr a
widget CssStyleChange
change = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
change' <- unsafeManagedPtrGetPtr change
(__dynamic_C_WidgetClassCssChangedFieldCallback __funPtr) widget' change'
touchManagedPtr widget
touchManagedPtr change
return ()
foreign import ccall "wrapper"
mk_WidgetClassCssChangedFieldCallback :: C_WidgetClassCssChangedFieldCallback -> IO (FunPtr C_WidgetClassCssChangedFieldCallback)
type WidgetClassCssChangedFieldCallback =
Gtk.Widget.Widget
-> Gtk.CssStyleChange.CssStyleChange
-> IO ()
noWidgetClassCssChangedFieldCallback :: Maybe WidgetClassCssChangedFieldCallback
noWidgetClassCssChangedFieldCallback :: Maybe WidgetClassCssChangedFieldCallback
noWidgetClassCssChangedFieldCallback = Maybe WidgetClassCssChangedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassCssChangedFieldCallback :: MonadIO m => WidgetClassCssChangedFieldCallback -> m (GClosure C_WidgetClassCssChangedFieldCallback)
genClosure_WidgetClassCssChangedFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassCssChangedFieldCallback
-> m (GClosure C_WidgetClassCssChangedFieldCallback)
genClosure_WidgetClassCssChangedFieldCallback WidgetClassCssChangedFieldCallback
cb = IO (GClosure C_WidgetClassCssChangedFieldCallback)
-> m (GClosure C_WidgetClassCssChangedFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassCssChangedFieldCallback)
-> m (GClosure C_WidgetClassCssChangedFieldCallback))
-> IO (GClosure C_WidgetClassCssChangedFieldCallback)
-> m (GClosure C_WidgetClassCssChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassCssChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassCssChangedFieldCallback))
-> WidgetClassCssChangedFieldCallback
-> C_WidgetClassCssChangedFieldCallback
wrap_WidgetClassCssChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassCssChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassCssChangedFieldCallback
cb
C_WidgetClassCssChangedFieldCallback
-> IO (FunPtr C_WidgetClassCssChangedFieldCallback)
mk_WidgetClassCssChangedFieldCallback C_WidgetClassCssChangedFieldCallback
cb' IO (FunPtr C_WidgetClassCssChangedFieldCallback)
-> (FunPtr C_WidgetClassCssChangedFieldCallback
-> IO (GClosure C_WidgetClassCssChangedFieldCallback))
-> IO (GClosure C_WidgetClassCssChangedFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassCssChangedFieldCallback
-> IO (GClosure C_WidgetClassCssChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassCssChangedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassCssChangedFieldCallback)) ->
WidgetClassCssChangedFieldCallback ->
C_WidgetClassCssChangedFieldCallback
wrap_WidgetClassCssChangedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassCssChangedFieldCallback))
-> WidgetClassCssChangedFieldCallback
-> C_WidgetClassCssChangedFieldCallback
wrap_WidgetClassCssChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassCssChangedFieldCallback))
gi'funptrptr WidgetClassCssChangedFieldCallback
gi'cb Ptr Widget
widget Ptr CssStyleChange
change = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
change' <- (newPtr Gtk.CssStyleChange.CssStyleChange) change
gi'cb widget' change'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetClassContainsFieldCallback =
Ptr Gtk.Widget.Widget ->
CDouble ->
CDouble ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassContainsFieldCallback :: FunPtr C_WidgetClassContainsFieldCallback -> C_WidgetClassContainsFieldCallback
dynamic_WidgetClassContainsFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassContainsFieldCallback
-> a
-> Double
-> Double
-> m Bool
dynamic_WidgetClassContainsFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassContainsFieldCallback
-> a -> Double -> Double -> m Bool
dynamic_WidgetClassContainsFieldCallback FunPtr C_WidgetClassContainsFieldCallback
__funPtr a
widget Double
x Double
y = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let x' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
x
let y' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
y
result <- (__dynamic_C_WidgetClassContainsFieldCallback __funPtr) widget' x' y'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
return result'
foreign import ccall "wrapper"
mk_WidgetClassContainsFieldCallback :: C_WidgetClassContainsFieldCallback -> IO (FunPtr C_WidgetClassContainsFieldCallback)
type WidgetClassContainsFieldCallback =
Gtk.Widget.Widget
-> Double
-> Double
-> IO Bool
noWidgetClassContainsFieldCallback :: Maybe WidgetClassContainsFieldCallback
noWidgetClassContainsFieldCallback :: Maybe WidgetClassContainsFieldCallback
noWidgetClassContainsFieldCallback = Maybe WidgetClassContainsFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassContainsFieldCallback :: MonadIO m => WidgetClassContainsFieldCallback -> m (GClosure C_WidgetClassContainsFieldCallback)
genClosure_WidgetClassContainsFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassContainsFieldCallback
-> m (GClosure C_WidgetClassContainsFieldCallback)
genClosure_WidgetClassContainsFieldCallback WidgetClassContainsFieldCallback
cb = IO (GClosure C_WidgetClassContainsFieldCallback)
-> m (GClosure C_WidgetClassContainsFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassContainsFieldCallback)
-> m (GClosure C_WidgetClassContainsFieldCallback))
-> IO (GClosure C_WidgetClassContainsFieldCallback)
-> m (GClosure C_WidgetClassContainsFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassContainsFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback))
-> WidgetClassContainsFieldCallback
-> C_WidgetClassContainsFieldCallback
wrap_WidgetClassContainsFieldCallback Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback))
forall a. Maybe a
Nothing WidgetClassContainsFieldCallback
cb
C_WidgetClassContainsFieldCallback
-> IO (FunPtr C_WidgetClassContainsFieldCallback)
mk_WidgetClassContainsFieldCallback C_WidgetClassContainsFieldCallback
cb' IO (FunPtr C_WidgetClassContainsFieldCallback)
-> (FunPtr C_WidgetClassContainsFieldCallback
-> IO (GClosure C_WidgetClassContainsFieldCallback))
-> IO (GClosure C_WidgetClassContainsFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassContainsFieldCallback
-> IO (GClosure C_WidgetClassContainsFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassContainsFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback)) ->
WidgetClassContainsFieldCallback ->
C_WidgetClassContainsFieldCallback
wrap_WidgetClassContainsFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback))
-> WidgetClassContainsFieldCallback
-> C_WidgetClassContainsFieldCallback
wrap_WidgetClassContainsFieldCallback Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback))
gi'funptrptr WidgetClassContainsFieldCallback
gi'cb Ptr Widget
widget CDouble
x CDouble
y = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let x' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
x
let y' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
y
result <- gi'cb widget' x' y'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_WidgetClassComputeExpandFieldCallback =
Ptr Gtk.Widget.Widget ->
CInt ->
CInt ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassComputeExpandFieldCallback :: FunPtr C_WidgetClassComputeExpandFieldCallback -> C_WidgetClassComputeExpandFieldCallback
dynamic_WidgetClassComputeExpandFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassComputeExpandFieldCallback
-> a
-> Bool
-> Bool
-> m ()
dynamic_WidgetClassComputeExpandFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassComputeExpandFieldCallback
-> a -> Bool -> Bool -> m ()
dynamic_WidgetClassComputeExpandFieldCallback FunPtr C_WidgetClassComputeExpandFieldCallback
__funPtr a
widget Bool
hexpandP Bool
vexpandP = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let hexpandP' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
hexpandP
let vexpandP' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
vexpandP
(__dynamic_C_WidgetClassComputeExpandFieldCallback __funPtr) widget' hexpandP' vexpandP'
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_WidgetClassComputeExpandFieldCallback :: C_WidgetClassComputeExpandFieldCallback -> IO (FunPtr C_WidgetClassComputeExpandFieldCallback)
type WidgetClassComputeExpandFieldCallback =
Gtk.Widget.Widget
-> Bool
-> Bool
-> IO ()
noWidgetClassComputeExpandFieldCallback :: Maybe WidgetClassComputeExpandFieldCallback
noWidgetClassComputeExpandFieldCallback :: Maybe WidgetClassComputeExpandFieldCallback
noWidgetClassComputeExpandFieldCallback = Maybe WidgetClassComputeExpandFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassComputeExpandFieldCallback :: MonadIO m => WidgetClassComputeExpandFieldCallback -> m (GClosure C_WidgetClassComputeExpandFieldCallback)
genClosure_WidgetClassComputeExpandFieldCallback :: forall (m :: * -> *).
MonadIO m =>
WidgetClassComputeExpandFieldCallback
-> m (GClosure C_WidgetClassComputeExpandFieldCallback)
genClosure_WidgetClassComputeExpandFieldCallback WidgetClassComputeExpandFieldCallback
cb = IO (GClosure C_WidgetClassComputeExpandFieldCallback)
-> m (GClosure C_WidgetClassComputeExpandFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassComputeExpandFieldCallback)
-> m (GClosure C_WidgetClassComputeExpandFieldCallback))
-> IO (GClosure C_WidgetClassComputeExpandFieldCallback)
-> m (GClosure C_WidgetClassComputeExpandFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassComputeExpandFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback))
-> WidgetClassComputeExpandFieldCallback
-> C_WidgetClassComputeExpandFieldCallback
wrap_WidgetClassComputeExpandFieldCallback Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback))
forall a. Maybe a
Nothing WidgetClassComputeExpandFieldCallback
cb
C_WidgetClassComputeExpandFieldCallback
-> IO (FunPtr C_WidgetClassComputeExpandFieldCallback)
mk_WidgetClassComputeExpandFieldCallback C_WidgetClassComputeExpandFieldCallback
cb' IO (FunPtr C_WidgetClassComputeExpandFieldCallback)
-> (FunPtr C_WidgetClassComputeExpandFieldCallback
-> IO (GClosure C_WidgetClassComputeExpandFieldCallback))
-> IO (GClosure C_WidgetClassComputeExpandFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassComputeExpandFieldCallback
-> IO (GClosure C_WidgetClassComputeExpandFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassComputeExpandFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback)) ->
WidgetClassComputeExpandFieldCallback ->
C_WidgetClassComputeExpandFieldCallback
wrap_WidgetClassComputeExpandFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback))
-> WidgetClassComputeExpandFieldCallback
-> C_WidgetClassComputeExpandFieldCallback
wrap_WidgetClassComputeExpandFieldCallback Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback))
gi'funptrptr WidgetClassComputeExpandFieldCallback
gi'cb Ptr Widget
widget CInt
hexpandP CInt
vexpandP = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let hexpandP' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
hexpandP
let vexpandP' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
vexpandP
gi'cb widget' hexpandP' vexpandP'
maybeReleaseFunPtr gi'funptrptr
type C_WidgetActionActivateFunc =
Ptr Gtk.Widget.Widget ->
CString ->
Ptr GVariant ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetActionActivateFunc :: FunPtr C_WidgetActionActivateFunc -> C_WidgetActionActivateFunc
dynamic_WidgetActionActivateFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetActionActivateFunc
-> a
-> T.Text
-> Maybe (GVariant)
-> m ()
dynamic_WidgetActionActivateFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetActionActivateFunc
-> a -> Text -> Maybe GVariant -> m ()
dynamic_WidgetActionActivateFunc FunPtr C_WidgetActionActivateFunc
__funPtr a
widget Text
actionName Maybe GVariant
parameter = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
actionName' <- textToCString actionName
maybeParameter <- case parameter of
Maybe GVariant
Nothing -> Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
forall a. Ptr a
FP.nullPtr
Just GVariant
jParameter -> do
jParameter' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameter
return jParameter'
(__dynamic_C_WidgetActionActivateFunc __funPtr) widget' actionName' maybeParameter
touchManagedPtr widget
whenJust parameter touchManagedPtr
freeMem actionName'
return ()
foreign import ccall "wrapper"
mk_WidgetActionActivateFunc :: C_WidgetActionActivateFunc -> IO (FunPtr C_WidgetActionActivateFunc)
type WidgetActionActivateFunc =
Gtk.Widget.Widget
-> T.Text
-> Maybe GVariant
-> IO ()
noWidgetActionActivateFunc :: Maybe WidgetActionActivateFunc
noWidgetActionActivateFunc :: Maybe WidgetActionActivateFunc
noWidgetActionActivateFunc = Maybe WidgetActionActivateFunc
forall a. Maybe a
Nothing
genClosure_WidgetActionActivateFunc :: MonadIO m => WidgetActionActivateFunc -> m (GClosure C_WidgetActionActivateFunc)
genClosure_WidgetActionActivateFunc :: forall (m :: * -> *).
MonadIO m =>
WidgetActionActivateFunc -> m (GClosure C_WidgetActionActivateFunc)
genClosure_WidgetActionActivateFunc WidgetActionActivateFunc
cb = IO (GClosure C_WidgetActionActivateFunc)
-> m (GClosure C_WidgetActionActivateFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetActionActivateFunc)
-> m (GClosure C_WidgetActionActivateFunc))
-> IO (GClosure C_WidgetActionActivateFunc)
-> m (GClosure C_WidgetActionActivateFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetActionActivateFunc
cb' = Maybe (Ptr (FunPtr C_WidgetActionActivateFunc))
-> WidgetActionActivateFunc -> C_WidgetActionActivateFunc
wrap_WidgetActionActivateFunc Maybe (Ptr (FunPtr C_WidgetActionActivateFunc))
forall a. Maybe a
Nothing WidgetActionActivateFunc
cb
C_WidgetActionActivateFunc
-> IO (FunPtr C_WidgetActionActivateFunc)
mk_WidgetActionActivateFunc C_WidgetActionActivateFunc
cb' IO (FunPtr C_WidgetActionActivateFunc)
-> (FunPtr C_WidgetActionActivateFunc
-> IO (GClosure C_WidgetActionActivateFunc))
-> IO (GClosure C_WidgetActionActivateFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetActionActivateFunc
-> IO (GClosure C_WidgetActionActivateFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetActionActivateFunc ::
Maybe (Ptr (FunPtr C_WidgetActionActivateFunc)) ->
WidgetActionActivateFunc ->
C_WidgetActionActivateFunc
wrap_WidgetActionActivateFunc :: Maybe (Ptr (FunPtr C_WidgetActionActivateFunc))
-> WidgetActionActivateFunc -> C_WidgetActionActivateFunc
wrap_WidgetActionActivateFunc Maybe (Ptr (FunPtr C_WidgetActionActivateFunc))
gi'funptrptr WidgetActionActivateFunc
gi'cb Ptr Widget
widget CString
actionName Ptr GVariant
parameter = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
actionName' <- cstringToText actionName
maybeParameter <-
if parameter == FP.nullPtr
then return Nothing
else do
parameter' <- B.GVariant.newGVariantFromPtr parameter
return $ Just parameter'
gi'cb widget' actionName' maybeParameter
maybeReleaseFunPtr gi'funptrptr
type C_TreeViewSearchEqualFunc =
Ptr Gtk.TreeModel.TreeModel ->
Int32 ->
CString ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TreeViewSearchEqualFunc :: FunPtr C_TreeViewSearchEqualFunc -> C_TreeViewSearchEqualFunc
dynamic_TreeViewSearchEqualFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
FunPtr C_TreeViewSearchEqualFunc
-> a
-> Int32
-> T.Text
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m Bool
dynamic_TreeViewSearchEqualFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
FunPtr C_TreeViewSearchEqualFunc
-> a -> Int32 -> Text -> TreeIter -> Ptr () -> m Bool
dynamic_TreeViewSearchEqualFunc FunPtr C_TreeViewSearchEqualFunc
__funPtr a
model Int32
column Text
key TreeIter
iter Ptr ()
searchData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
key' <- textToCString key
iter' <- unsafeManagedPtrGetPtr iter
result <- (__dynamic_C_TreeViewSearchEqualFunc __funPtr) model' column key' iter' searchData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr model
touchManagedPtr iter
freeMem key'
return result'
foreign import ccall "wrapper"
mk_TreeViewSearchEqualFunc :: C_TreeViewSearchEqualFunc -> IO (FunPtr C_TreeViewSearchEqualFunc)
{-# DEPRECATED TreeViewSearchEqualFunc ["(Since version 4.20)","There is no replacement."] #-}
type TreeViewSearchEqualFunc =
Gtk.TreeModel.TreeModel
-> Int32
-> T.Text
-> Gtk.TreeIter.TreeIter
-> IO Bool
noTreeViewSearchEqualFunc :: Maybe TreeViewSearchEqualFunc
noTreeViewSearchEqualFunc :: Maybe TreeViewSearchEqualFunc
noTreeViewSearchEqualFunc = Maybe TreeViewSearchEqualFunc
forall a. Maybe a
Nothing
type TreeViewSearchEqualFunc_WithClosures =
Gtk.TreeModel.TreeModel
-> Int32
-> T.Text
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO Bool
noTreeViewSearchEqualFunc_WithClosures :: Maybe TreeViewSearchEqualFunc_WithClosures
noTreeViewSearchEqualFunc_WithClosures :: Maybe TreeViewSearchEqualFunc_WithClosures
noTreeViewSearchEqualFunc_WithClosures = Maybe TreeViewSearchEqualFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeViewSearchEqualFunc :: TreeViewSearchEqualFunc -> TreeViewSearchEqualFunc_WithClosures
drop_closures_TreeViewSearchEqualFunc :: TreeViewSearchEqualFunc -> TreeViewSearchEqualFunc_WithClosures
drop_closures_TreeViewSearchEqualFunc TreeViewSearchEqualFunc
_f TreeModel
model Int32
column Text
key TreeIter
iter Ptr ()
_ = TreeViewSearchEqualFunc
_f TreeModel
model Int32
column Text
key TreeIter
iter
genClosure_TreeViewSearchEqualFunc :: MonadIO m => TreeViewSearchEqualFunc -> m (GClosure C_TreeViewSearchEqualFunc)
genClosure_TreeViewSearchEqualFunc :: forall (m :: * -> *).
MonadIO m =>
TreeViewSearchEqualFunc -> m (GClosure C_TreeViewSearchEqualFunc)
genClosure_TreeViewSearchEqualFunc TreeViewSearchEqualFunc
cb = IO (GClosure C_TreeViewSearchEqualFunc)
-> m (GClosure C_TreeViewSearchEqualFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSearchEqualFunc)
-> m (GClosure C_TreeViewSearchEqualFunc))
-> IO (GClosure C_TreeViewSearchEqualFunc)
-> m (GClosure C_TreeViewSearchEqualFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeViewSearchEqualFunc_WithClosures
cb' = TreeViewSearchEqualFunc -> TreeViewSearchEqualFunc_WithClosures
drop_closures_TreeViewSearchEqualFunc TreeViewSearchEqualFunc
cb
let cb'' :: C_TreeViewSearchEqualFunc
cb'' = Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
-> TreeViewSearchEqualFunc_WithClosures
-> C_TreeViewSearchEqualFunc
wrap_TreeViewSearchEqualFunc Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
forall a. Maybe a
Nothing TreeViewSearchEqualFunc_WithClosures
cb'
C_TreeViewSearchEqualFunc -> IO (FunPtr C_TreeViewSearchEqualFunc)
mk_TreeViewSearchEqualFunc C_TreeViewSearchEqualFunc
cb'' IO (FunPtr C_TreeViewSearchEqualFunc)
-> (FunPtr C_TreeViewSearchEqualFunc
-> IO (GClosure C_TreeViewSearchEqualFunc))
-> IO (GClosure C_TreeViewSearchEqualFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSearchEqualFunc
-> IO (GClosure C_TreeViewSearchEqualFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewSearchEqualFunc ::
Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc)) ->
TreeViewSearchEqualFunc_WithClosures ->
C_TreeViewSearchEqualFunc
wrap_TreeViewSearchEqualFunc :: Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
-> TreeViewSearchEqualFunc_WithClosures
-> C_TreeViewSearchEqualFunc
wrap_TreeViewSearchEqualFunc Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
gi'funptrptr TreeViewSearchEqualFunc_WithClosures
gi'cb Ptr TreeModel
model Int32
column CString
key Ptr TreeIter
iter Ptr ()
searchData = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
key' <- cstringToText key
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
result <- TreeViewSearchEqualFunc_WithClosures
gi'cb TreeModel
model' Int32
column Text
key' TreeIter
iter' Ptr ()
searchData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TreeViewRowSeparatorFunc =
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TreeViewRowSeparatorFunc :: FunPtr C_TreeViewRowSeparatorFunc -> C_TreeViewRowSeparatorFunc
dynamic_TreeViewRowSeparatorFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
FunPtr C_TreeViewRowSeparatorFunc
-> a
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m Bool
dynamic_TreeViewRowSeparatorFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
FunPtr C_TreeViewRowSeparatorFunc
-> a -> TreeIter -> Ptr () -> m Bool
dynamic_TreeViewRowSeparatorFunc FunPtr C_TreeViewRowSeparatorFunc
__funPtr a
model TreeIter
iter Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
iter' <- unsafeManagedPtrGetPtr iter
result <- (__dynamic_C_TreeViewRowSeparatorFunc __funPtr) model' iter' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr model
touchManagedPtr iter
return result'
foreign import ccall "wrapper"
mk_TreeViewRowSeparatorFunc :: C_TreeViewRowSeparatorFunc -> IO (FunPtr C_TreeViewRowSeparatorFunc)
{-# DEPRECATED TreeViewRowSeparatorFunc ["(Since version 4.20)","There is no replacement."] #-}
type TreeViewRowSeparatorFunc =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> IO Bool
noTreeViewRowSeparatorFunc :: Maybe TreeViewRowSeparatorFunc
noTreeViewRowSeparatorFunc :: Maybe TreeViewRowSeparatorFunc
noTreeViewRowSeparatorFunc = Maybe TreeViewRowSeparatorFunc
forall a. Maybe a
Nothing
type TreeViewRowSeparatorFunc_WithClosures =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO Bool
noTreeViewRowSeparatorFunc_WithClosures :: Maybe TreeViewRowSeparatorFunc_WithClosures
noTreeViewRowSeparatorFunc_WithClosures :: Maybe TreeViewRowSeparatorFunc_WithClosures
noTreeViewRowSeparatorFunc_WithClosures = Maybe TreeViewRowSeparatorFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeViewRowSeparatorFunc :: TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures
drop_closures_TreeViewRowSeparatorFunc :: TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures
drop_closures_TreeViewRowSeparatorFunc TreeViewRowSeparatorFunc
_f TreeModel
model TreeIter
iter Ptr ()
_ = TreeViewRowSeparatorFunc
_f TreeModel
model TreeIter
iter
genClosure_TreeViewRowSeparatorFunc :: MonadIO m => TreeViewRowSeparatorFunc -> m (GClosure C_TreeViewRowSeparatorFunc)
genClosure_TreeViewRowSeparatorFunc :: forall (m :: * -> *).
MonadIO m =>
TreeViewRowSeparatorFunc -> m (GClosure C_TreeViewRowSeparatorFunc)
genClosure_TreeViewRowSeparatorFunc TreeViewRowSeparatorFunc
cb = IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc))
-> IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeViewRowSeparatorFunc_WithClosures
cb' = TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures
drop_closures_TreeViewRowSeparatorFunc TreeViewRowSeparatorFunc
cb
let cb'' :: C_TreeViewRowSeparatorFunc
cb'' = Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
-> TreeViewRowSeparatorFunc_WithClosures
-> C_TreeViewRowSeparatorFunc
wrap_TreeViewRowSeparatorFunc Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
forall a. Maybe a
Nothing TreeViewRowSeparatorFunc_WithClosures
cb'
C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
mk_TreeViewRowSeparatorFunc C_TreeViewRowSeparatorFunc
cb'' IO (FunPtr C_TreeViewRowSeparatorFunc)
-> (FunPtr C_TreeViewRowSeparatorFunc
-> IO (GClosure C_TreeViewRowSeparatorFunc))
-> IO (GClosure C_TreeViewRowSeparatorFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewRowSeparatorFunc
-> IO (GClosure C_TreeViewRowSeparatorFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewRowSeparatorFunc ::
Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc)) ->
TreeViewRowSeparatorFunc_WithClosures ->
C_TreeViewRowSeparatorFunc
wrap_TreeViewRowSeparatorFunc :: Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
-> TreeViewRowSeparatorFunc_WithClosures
-> C_TreeViewRowSeparatorFunc
wrap_TreeViewRowSeparatorFunc Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
gi'funptrptr TreeViewRowSeparatorFunc_WithClosures
gi'cb Ptr TreeModel
model Ptr TreeIter
iter Ptr ()
data_ = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
result <- TreeViewRowSeparatorFunc_WithClosures
gi'cb TreeModel
model' TreeIter
iter' Ptr ()
data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TreeViewMappingFunc =
Ptr Gtk.TreeView.TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_TreeViewMappingFunc :: FunPtr C_TreeViewMappingFunc -> C_TreeViewMappingFunc
dynamic_TreeViewMappingFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeView.IsTreeView a) =>
FunPtr C_TreeViewMappingFunc
-> a
-> Gtk.TreePath.TreePath
-> Ptr ()
-> m ()
dynamic_TreeViewMappingFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
FunPtr C_TreeViewMappingFunc -> a -> TreePath -> Ptr () -> m ()
dynamic_TreeViewMappingFunc FunPtr C_TreeViewMappingFunc
__funPtr a
treeView TreePath
path Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
(__dynamic_C_TreeViewMappingFunc __funPtr) treeView' path' userData
touchManagedPtr treeView
touchManagedPtr path
return ()
foreign import ccall "wrapper"
mk_TreeViewMappingFunc :: C_TreeViewMappingFunc -> IO (FunPtr C_TreeViewMappingFunc)
{-# DEPRECATED TreeViewMappingFunc ["(Since version 4.20)","There is no replacement."] #-}
type TreeViewMappingFunc =
Gtk.TreeView.TreeView
-> Gtk.TreePath.TreePath
-> IO ()
noTreeViewMappingFunc :: Maybe TreeViewMappingFunc
noTreeViewMappingFunc :: Maybe TreeViewMappingFunc
noTreeViewMappingFunc = Maybe TreeViewMappingFunc
forall a. Maybe a
Nothing
type TreeViewMappingFunc_WithClosures =
Gtk.TreeView.TreeView
-> Gtk.TreePath.TreePath
-> Ptr ()
-> IO ()
noTreeViewMappingFunc_WithClosures :: Maybe TreeViewMappingFunc_WithClosures
noTreeViewMappingFunc_WithClosures :: Maybe TreeViewMappingFunc_WithClosures
noTreeViewMappingFunc_WithClosures = Maybe TreeViewMappingFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeViewMappingFunc :: TreeViewMappingFunc -> TreeViewMappingFunc_WithClosures
drop_closures_TreeViewMappingFunc :: TreeViewMappingFunc -> TreeViewMappingFunc_WithClosures
drop_closures_TreeViewMappingFunc TreeViewMappingFunc
_f TreeView
treeView TreePath
path Ptr ()
_ = TreeViewMappingFunc
_f TreeView
treeView TreePath
path
genClosure_TreeViewMappingFunc :: MonadIO m => TreeViewMappingFunc -> m (GClosure C_TreeViewMappingFunc)
genClosure_TreeViewMappingFunc :: forall (m :: * -> *).
MonadIO m =>
TreeViewMappingFunc -> m (GClosure C_TreeViewMappingFunc)
genClosure_TreeViewMappingFunc TreeViewMappingFunc
cb = IO (GClosure C_TreeViewMappingFunc)
-> m (GClosure C_TreeViewMappingFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewMappingFunc)
-> m (GClosure C_TreeViewMappingFunc))
-> IO (GClosure C_TreeViewMappingFunc)
-> m (GClosure C_TreeViewMappingFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeViewMappingFunc_WithClosures
cb' = TreeViewMappingFunc -> TreeViewMappingFunc_WithClosures
drop_closures_TreeViewMappingFunc TreeViewMappingFunc
cb
let cb'' :: C_TreeViewMappingFunc
cb'' = Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
-> TreeViewMappingFunc_WithClosures -> C_TreeViewMappingFunc
wrap_TreeViewMappingFunc Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
forall a. Maybe a
Nothing TreeViewMappingFunc_WithClosures
cb'
C_TreeViewMappingFunc -> IO (FunPtr C_TreeViewMappingFunc)
mk_TreeViewMappingFunc C_TreeViewMappingFunc
cb'' IO (FunPtr C_TreeViewMappingFunc)
-> (FunPtr C_TreeViewMappingFunc
-> IO (GClosure C_TreeViewMappingFunc))
-> IO (GClosure C_TreeViewMappingFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewMappingFunc -> IO (GClosure C_TreeViewMappingFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewMappingFunc ::
Maybe (Ptr (FunPtr C_TreeViewMappingFunc)) ->
TreeViewMappingFunc_WithClosures ->
C_TreeViewMappingFunc
wrap_TreeViewMappingFunc :: Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
-> TreeViewMappingFunc_WithClosures -> C_TreeViewMappingFunc
wrap_TreeViewMappingFunc Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
gi'funptrptr TreeViewMappingFunc_WithClosures
gi'cb Ptr TreeView
treeView Ptr TreePath
path Ptr ()
userData = do
treeView' <- ((ManagedPtr TreeView -> TreeView) -> Ptr TreeView -> IO TreeView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeView -> TreeView
Gtk.TreeView.TreeView) Ptr TreeView
treeView
B.ManagedPtr.withTransient path $ \TreePath
path' -> do
TreeViewMappingFunc_WithClosures
gi'cb TreeView
treeView' TreePath
path' Ptr ()
userData
Maybe (Ptr (FunPtr C_TreeViewMappingFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
gi'funptrptr
type C_TreeViewColumnDropFunc =
Ptr Gtk.TreeView.TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TreeViewColumnDropFunc :: FunPtr C_TreeViewColumnDropFunc -> C_TreeViewColumnDropFunc
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
-> b
-> c
-> d
-> Ptr ()
-> m Bool
dynamic_TreeViewColumnDropFunc :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b,
IsTreeViewColumn c, IsTreeViewColumn d) =>
FunPtr C_TreeViewColumnDropFunc
-> a -> b -> c -> d -> Ptr () -> m Bool
dynamic_TreeViewColumnDropFunc FunPtr C_TreeViewColumnDropFunc
__funPtr a
treeView b
column c
prevColumn d
nextColumn Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
column' <- unsafeManagedPtrCastPtr column
prevColumn' <- unsafeManagedPtrCastPtr prevColumn
nextColumn' <- unsafeManagedPtrCastPtr nextColumn
result <- (__dynamic_C_TreeViewColumnDropFunc __funPtr) treeView' column' prevColumn' nextColumn' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
touchManagedPtr column
touchManagedPtr prevColumn
touchManagedPtr nextColumn
return result'
foreign import ccall "wrapper"
mk_TreeViewColumnDropFunc :: C_TreeViewColumnDropFunc -> IO (FunPtr C_TreeViewColumnDropFunc)
{-# DEPRECATED TreeViewColumnDropFunc ["(Since version 4.20)","There is no replacement."] #-}
type TreeViewColumnDropFunc =
Gtk.TreeView.TreeView
-> Gtk.TreeViewColumn.TreeViewColumn
-> Gtk.TreeViewColumn.TreeViewColumn
-> Gtk.TreeViewColumn.TreeViewColumn
-> IO Bool
noTreeViewColumnDropFunc :: Maybe TreeViewColumnDropFunc
noTreeViewColumnDropFunc :: Maybe TreeViewColumnDropFunc
noTreeViewColumnDropFunc = Maybe TreeViewColumnDropFunc
forall a. Maybe a
Nothing
type TreeViewColumnDropFunc_WithClosures =
Gtk.TreeView.TreeView
-> Gtk.TreeViewColumn.TreeViewColumn
-> Gtk.TreeViewColumn.TreeViewColumn
-> Gtk.TreeViewColumn.TreeViewColumn
-> Ptr ()
-> IO Bool
noTreeViewColumnDropFunc_WithClosures :: Maybe TreeViewColumnDropFunc_WithClosures
noTreeViewColumnDropFunc_WithClosures :: Maybe TreeViewColumnDropFunc_WithClosures
noTreeViewColumnDropFunc_WithClosures = Maybe TreeViewColumnDropFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeViewColumnDropFunc :: TreeViewColumnDropFunc -> TreeViewColumnDropFunc_WithClosures
drop_closures_TreeViewColumnDropFunc :: TreeViewColumnDropFunc -> TreeViewColumnDropFunc_WithClosures
drop_closures_TreeViewColumnDropFunc TreeViewColumnDropFunc
_f TreeView
treeView TreeViewColumn
column TreeViewColumn
prevColumn TreeViewColumn
nextColumn Ptr ()
_ = TreeViewColumnDropFunc
_f TreeView
treeView TreeViewColumn
column TreeViewColumn
prevColumn TreeViewColumn
nextColumn
genClosure_TreeViewColumnDropFunc :: MonadIO m => TreeViewColumnDropFunc -> m (GClosure C_TreeViewColumnDropFunc)
genClosure_TreeViewColumnDropFunc :: forall (m :: * -> *).
MonadIO m =>
TreeViewColumnDropFunc -> m (GClosure C_TreeViewColumnDropFunc)
genClosure_TreeViewColumnDropFunc TreeViewColumnDropFunc
cb = IO (GClosure C_TreeViewColumnDropFunc)
-> m (GClosure C_TreeViewColumnDropFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewColumnDropFunc)
-> m (GClosure C_TreeViewColumnDropFunc))
-> IO (GClosure C_TreeViewColumnDropFunc)
-> m (GClosure C_TreeViewColumnDropFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeViewColumnDropFunc_WithClosures
cb' = TreeViewColumnDropFunc -> TreeViewColumnDropFunc_WithClosures
drop_closures_TreeViewColumnDropFunc TreeViewColumnDropFunc
cb
let cb'' :: C_TreeViewColumnDropFunc
cb'' = Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
-> TreeViewColumnDropFunc_WithClosures -> C_TreeViewColumnDropFunc
wrap_TreeViewColumnDropFunc Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
forall a. Maybe a
Nothing TreeViewColumnDropFunc_WithClosures
cb'
C_TreeViewColumnDropFunc -> IO (FunPtr C_TreeViewColumnDropFunc)
mk_TreeViewColumnDropFunc C_TreeViewColumnDropFunc
cb'' IO (FunPtr C_TreeViewColumnDropFunc)
-> (FunPtr C_TreeViewColumnDropFunc
-> IO (GClosure C_TreeViewColumnDropFunc))
-> IO (GClosure C_TreeViewColumnDropFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewColumnDropFunc
-> IO (GClosure C_TreeViewColumnDropFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewColumnDropFunc ::
Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc)) ->
TreeViewColumnDropFunc_WithClosures ->
C_TreeViewColumnDropFunc
wrap_TreeViewColumnDropFunc :: Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
-> TreeViewColumnDropFunc_WithClosures -> C_TreeViewColumnDropFunc
wrap_TreeViewColumnDropFunc Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
gi'funptrptr TreeViewColumnDropFunc_WithClosures
gi'cb Ptr TreeView
treeView Ptr TreeViewColumn
column Ptr TreeViewColumn
prevColumn Ptr TreeViewColumn
nextColumn Ptr ()
data_ = do
treeView' <- ((ManagedPtr TreeView -> TreeView) -> Ptr TreeView -> IO TreeView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeView -> TreeView
Gtk.TreeView.TreeView) Ptr TreeView
treeView
column' <- (newObject Gtk.TreeViewColumn.TreeViewColumn) column
prevColumn' <- (newObject Gtk.TreeViewColumn.TreeViewColumn) prevColumn
nextColumn' <- (newObject Gtk.TreeViewColumn.TreeViewColumn) nextColumn
result <- gi'cb treeView' column' prevColumn' nextColumn' data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TreeSelectionFunc =
Ptr Gtk.TreeSelection.TreeSelection ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreePath.TreePath ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TreeSelectionFunc :: FunPtr C_TreeSelectionFunc -> C_TreeSelectionFunc
dynamic_TreeSelectionFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeSelection.IsTreeSelection a, Gtk.TreeModel.IsTreeModel b) =>
FunPtr C_TreeSelectionFunc
-> a
-> b
-> Gtk.TreePath.TreePath
-> Bool
-> Ptr ()
-> m Bool
dynamic_TreeSelectionFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeSelection a, IsTreeModel b) =>
FunPtr C_TreeSelectionFunc
-> a -> b -> TreePath -> Bool -> Ptr () -> m Bool
dynamic_TreeSelectionFunc FunPtr C_TreeSelectionFunc
__funPtr a
selection b
model TreePath
path Bool
pathCurrentlySelected Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
selection' <- a -> IO (Ptr TreeSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
selection
model' <- unsafeManagedPtrCastPtr model
path' <- unsafeManagedPtrGetPtr path
let pathCurrentlySelected' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
pathCurrentlySelected
result <- (__dynamic_C_TreeSelectionFunc __funPtr) selection' model' path' pathCurrentlySelected' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr selection
touchManagedPtr model
touchManagedPtr path
return result'
foreign import ccall "wrapper"
mk_TreeSelectionFunc :: C_TreeSelectionFunc -> IO (FunPtr C_TreeSelectionFunc)
{-# DEPRECATED TreeSelectionFunc ["(Since version 4.20)","There is no replacement"] #-}
type TreeSelectionFunc =
Gtk.TreeSelection.TreeSelection
-> Gtk.TreeModel.TreeModel
-> Gtk.TreePath.TreePath
-> Bool
-> IO Bool
noTreeSelectionFunc :: Maybe TreeSelectionFunc
noTreeSelectionFunc :: Maybe TreeSelectionFunc
noTreeSelectionFunc = Maybe TreeSelectionFunc
forall a. Maybe a
Nothing
type TreeSelectionFunc_WithClosures =
Gtk.TreeSelection.TreeSelection
-> Gtk.TreeModel.TreeModel
-> Gtk.TreePath.TreePath
-> Bool
-> Ptr ()
-> IO Bool
noTreeSelectionFunc_WithClosures :: Maybe TreeSelectionFunc_WithClosures
noTreeSelectionFunc_WithClosures :: Maybe TreeSelectionFunc_WithClosures
noTreeSelectionFunc_WithClosures = Maybe TreeSelectionFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeSelectionFunc :: TreeSelectionFunc -> TreeSelectionFunc_WithClosures
drop_closures_TreeSelectionFunc :: TreeSelectionFunc -> TreeSelectionFunc_WithClosures
drop_closures_TreeSelectionFunc TreeSelectionFunc
_f TreeSelection
selection TreeModel
model TreePath
path Bool
pathCurrentlySelected Ptr ()
_ = TreeSelectionFunc
_f TreeSelection
selection TreeModel
model TreePath
path Bool
pathCurrentlySelected
genClosure_TreeSelectionFunc :: MonadIO m => TreeSelectionFunc -> m (GClosure C_TreeSelectionFunc)
genClosure_TreeSelectionFunc :: forall (m :: * -> *).
MonadIO m =>
TreeSelectionFunc -> m (GClosure C_TreeSelectionFunc)
genClosure_TreeSelectionFunc TreeSelectionFunc
cb = IO (GClosure C_TreeSelectionFunc)
-> m (GClosure C_TreeSelectionFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeSelectionFunc)
-> m (GClosure C_TreeSelectionFunc))
-> IO (GClosure C_TreeSelectionFunc)
-> m (GClosure C_TreeSelectionFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeSelectionFunc_WithClosures
cb' = TreeSelectionFunc -> TreeSelectionFunc_WithClosures
drop_closures_TreeSelectionFunc TreeSelectionFunc
cb
let cb'' :: C_TreeSelectionFunc
cb'' = Maybe (Ptr (FunPtr C_TreeSelectionFunc))
-> TreeSelectionFunc_WithClosures -> C_TreeSelectionFunc
wrap_TreeSelectionFunc Maybe (Ptr (FunPtr C_TreeSelectionFunc))
forall a. Maybe a
Nothing TreeSelectionFunc_WithClosures
cb'
C_TreeSelectionFunc -> IO (FunPtr C_TreeSelectionFunc)
mk_TreeSelectionFunc C_TreeSelectionFunc
cb'' IO (FunPtr C_TreeSelectionFunc)
-> (FunPtr C_TreeSelectionFunc
-> IO (GClosure C_TreeSelectionFunc))
-> IO (GClosure C_TreeSelectionFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeSelectionFunc -> IO (GClosure C_TreeSelectionFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeSelectionFunc ::
Maybe (Ptr (FunPtr C_TreeSelectionFunc)) ->
TreeSelectionFunc_WithClosures ->
C_TreeSelectionFunc
wrap_TreeSelectionFunc :: Maybe (Ptr (FunPtr C_TreeSelectionFunc))
-> TreeSelectionFunc_WithClosures -> C_TreeSelectionFunc
wrap_TreeSelectionFunc Maybe (Ptr (FunPtr C_TreeSelectionFunc))
gi'funptrptr TreeSelectionFunc_WithClosures
gi'cb Ptr TreeSelection
selection Ptr TreeModel
model Ptr TreePath
path CInt
pathCurrentlySelected Ptr ()
data_ = do
selection' <- ((ManagedPtr TreeSelection -> TreeSelection)
-> Ptr TreeSelection -> IO TreeSelection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeSelection -> TreeSelection
Gtk.TreeSelection.TreeSelection) Ptr TreeSelection
selection
model' <- (newObject Gtk.TreeModel.TreeModel) model
B.ManagedPtr.withTransient path $ \TreePath
path' -> do
let pathCurrentlySelected' :: Bool
pathCurrentlySelected' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
pathCurrentlySelected
result <- TreeSelectionFunc_WithClosures
gi'cb TreeSelection
selection' TreeModel
model' TreePath
path' Bool
pathCurrentlySelected' Ptr ()
data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TreeSelectionForeachFunc =
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_TreeSelectionForeachFunc :: FunPtr C_TreeSelectionForeachFunc -> C_TreeSelectionForeachFunc
dynamic_TreeSelectionForeachFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
FunPtr C_TreeSelectionForeachFunc
-> a
-> Gtk.TreePath.TreePath
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m ()
dynamic_TreeSelectionForeachFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
FunPtr C_TreeSelectionForeachFunc
-> a -> TreePath -> TreeIter -> Ptr () -> m ()
dynamic_TreeSelectionForeachFunc FunPtr C_TreeSelectionForeachFunc
__funPtr a
model TreePath
path TreeIter
iter Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
path' <- unsafeManagedPtrGetPtr path
iter' <- unsafeManagedPtrGetPtr iter
(__dynamic_C_TreeSelectionForeachFunc __funPtr) model' path' iter' data_
touchManagedPtr model
touchManagedPtr path
touchManagedPtr iter
return ()
foreign import ccall "wrapper"
mk_TreeSelectionForeachFunc :: C_TreeSelectionForeachFunc -> IO (FunPtr C_TreeSelectionForeachFunc)
{-# DEPRECATED TreeSelectionForeachFunc ["(Since version 4.20)","There is no replacement"] #-}
type TreeSelectionForeachFunc =
Gtk.TreeModel.TreeModel
-> Gtk.TreePath.TreePath
-> Gtk.TreeIter.TreeIter
-> IO ()
noTreeSelectionForeachFunc :: Maybe TreeSelectionForeachFunc
noTreeSelectionForeachFunc :: Maybe TreeSelectionForeachFunc
noTreeSelectionForeachFunc = Maybe TreeSelectionForeachFunc
forall a. Maybe a
Nothing
type TreeSelectionForeachFunc_WithClosures =
Gtk.TreeModel.TreeModel
-> Gtk.TreePath.TreePath
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO ()
noTreeSelectionForeachFunc_WithClosures :: Maybe TreeSelectionForeachFunc_WithClosures
noTreeSelectionForeachFunc_WithClosures :: Maybe TreeSelectionForeachFunc_WithClosures
noTreeSelectionForeachFunc_WithClosures = Maybe TreeSelectionForeachFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeSelectionForeachFunc :: TreeSelectionForeachFunc -> TreeSelectionForeachFunc_WithClosures
drop_closures_TreeSelectionForeachFunc :: TreeSelectionForeachFunc -> TreeSelectionForeachFunc_WithClosures
drop_closures_TreeSelectionForeachFunc TreeSelectionForeachFunc
_f TreeModel
model TreePath
path TreeIter
iter Ptr ()
_ = TreeSelectionForeachFunc
_f TreeModel
model TreePath
path TreeIter
iter
genClosure_TreeSelectionForeachFunc :: MonadIO m => TreeSelectionForeachFunc -> m (GClosure C_TreeSelectionForeachFunc)
genClosure_TreeSelectionForeachFunc :: forall (m :: * -> *).
MonadIO m =>
TreeSelectionForeachFunc -> m (GClosure C_TreeSelectionForeachFunc)
genClosure_TreeSelectionForeachFunc TreeSelectionForeachFunc
cb = IO (GClosure C_TreeSelectionForeachFunc)
-> m (GClosure C_TreeSelectionForeachFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeSelectionForeachFunc)
-> m (GClosure C_TreeSelectionForeachFunc))
-> IO (GClosure C_TreeSelectionForeachFunc)
-> m (GClosure C_TreeSelectionForeachFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeSelectionForeachFunc_WithClosures
cb' = TreeSelectionForeachFunc -> TreeSelectionForeachFunc_WithClosures
drop_closures_TreeSelectionForeachFunc TreeSelectionForeachFunc
cb
let cb'' :: C_TreeSelectionForeachFunc
cb'' = Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc))
-> TreeSelectionForeachFunc_WithClosures
-> C_TreeSelectionForeachFunc
wrap_TreeSelectionForeachFunc Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc))
forall a. Maybe a
Nothing TreeSelectionForeachFunc_WithClosures
cb'
C_TreeSelectionForeachFunc
-> IO (FunPtr C_TreeSelectionForeachFunc)
mk_TreeSelectionForeachFunc C_TreeSelectionForeachFunc
cb'' IO (FunPtr C_TreeSelectionForeachFunc)
-> (FunPtr C_TreeSelectionForeachFunc
-> IO (GClosure C_TreeSelectionForeachFunc))
-> IO (GClosure C_TreeSelectionForeachFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeSelectionForeachFunc
-> IO (GClosure C_TreeSelectionForeachFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeSelectionForeachFunc ::
Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc)) ->
TreeSelectionForeachFunc_WithClosures ->
C_TreeSelectionForeachFunc
wrap_TreeSelectionForeachFunc :: Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc))
-> TreeSelectionForeachFunc_WithClosures
-> C_TreeSelectionForeachFunc
wrap_TreeSelectionForeachFunc Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc))
gi'funptrptr TreeSelectionForeachFunc_WithClosures
gi'cb Ptr TreeModel
model Ptr TreePath
path Ptr TreeIter
iter Ptr ()
data_ = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
B.ManagedPtr.withTransient path $ \TreePath
path' -> do
Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
TreeSelectionForeachFunc_WithClosures
gi'cb TreeModel
model' TreePath
path' TreeIter
iter' Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc))
gi'funptrptr
type C_TreeModelForeachFunc =
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TreeModelForeachFunc :: FunPtr C_TreeModelForeachFunc -> C_TreeModelForeachFunc
dynamic_TreeModelForeachFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
FunPtr C_TreeModelForeachFunc
-> a
-> Gtk.TreePath.TreePath
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m Bool
dynamic_TreeModelForeachFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
FunPtr C_TreeModelForeachFunc
-> a -> TreePath -> TreeIter -> Ptr () -> m Bool
dynamic_TreeModelForeachFunc FunPtr C_TreeModelForeachFunc
__funPtr a
model TreePath
path TreeIter
iter Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
path' <- unsafeManagedPtrGetPtr path
iter' <- unsafeManagedPtrGetPtr iter
result <- (__dynamic_C_TreeModelForeachFunc __funPtr) model' path' iter' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr model
touchManagedPtr path
touchManagedPtr iter
return result'
foreign import ccall "wrapper"
mk_TreeModelForeachFunc :: C_TreeModelForeachFunc -> IO (FunPtr C_TreeModelForeachFunc)
{-# DEPRECATED TreeModelForeachFunc ["(Since version 4.20)","There is no replacement."] #-}
type TreeModelForeachFunc =
Gtk.TreeModel.TreeModel
-> Gtk.TreePath.TreePath
-> Gtk.TreeIter.TreeIter
-> IO Bool
noTreeModelForeachFunc :: Maybe TreeModelForeachFunc
noTreeModelForeachFunc :: Maybe TreeModelForeachFunc
noTreeModelForeachFunc = Maybe TreeModelForeachFunc
forall a. Maybe a
Nothing
type TreeModelForeachFunc_WithClosures =
Gtk.TreeModel.TreeModel
-> Gtk.TreePath.TreePath
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO Bool
noTreeModelForeachFunc_WithClosures :: Maybe TreeModelForeachFunc_WithClosures
noTreeModelForeachFunc_WithClosures :: Maybe TreeModelForeachFunc_WithClosures
noTreeModelForeachFunc_WithClosures = Maybe TreeModelForeachFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeModelForeachFunc :: TreeModelForeachFunc -> TreeModelForeachFunc_WithClosures
drop_closures_TreeModelForeachFunc :: TreeModelForeachFunc -> TreeModelForeachFunc_WithClosures
drop_closures_TreeModelForeachFunc TreeModelForeachFunc
_f TreeModel
model TreePath
path TreeIter
iter Ptr ()
_ = TreeModelForeachFunc
_f TreeModel
model TreePath
path TreeIter
iter
genClosure_TreeModelForeachFunc :: MonadIO m => TreeModelForeachFunc -> m (GClosure C_TreeModelForeachFunc)
genClosure_TreeModelForeachFunc :: forall (m :: * -> *).
MonadIO m =>
TreeModelForeachFunc -> m (GClosure C_TreeModelForeachFunc)
genClosure_TreeModelForeachFunc TreeModelForeachFunc
cb = IO (GClosure C_TreeModelForeachFunc)
-> m (GClosure C_TreeModelForeachFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeModelForeachFunc)
-> m (GClosure C_TreeModelForeachFunc))
-> IO (GClosure C_TreeModelForeachFunc)
-> m (GClosure C_TreeModelForeachFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeModelForeachFunc_WithClosures
cb' = TreeModelForeachFunc -> TreeModelForeachFunc_WithClosures
drop_closures_TreeModelForeachFunc TreeModelForeachFunc
cb
let cb'' :: C_TreeModelForeachFunc
cb'' = Maybe (Ptr (FunPtr C_TreeModelForeachFunc))
-> TreeModelForeachFunc_WithClosures -> C_TreeModelForeachFunc
wrap_TreeModelForeachFunc Maybe (Ptr (FunPtr C_TreeModelForeachFunc))
forall a. Maybe a
Nothing TreeModelForeachFunc_WithClosures
cb'
C_TreeModelForeachFunc -> IO (FunPtr C_TreeModelForeachFunc)
mk_TreeModelForeachFunc C_TreeModelForeachFunc
cb'' IO (FunPtr C_TreeModelForeachFunc)
-> (FunPtr C_TreeModelForeachFunc
-> IO (GClosure C_TreeModelForeachFunc))
-> IO (GClosure C_TreeModelForeachFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeModelForeachFunc
-> IO (GClosure C_TreeModelForeachFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeModelForeachFunc ::
Maybe (Ptr (FunPtr C_TreeModelForeachFunc)) ->
TreeModelForeachFunc_WithClosures ->
C_TreeModelForeachFunc
wrap_TreeModelForeachFunc :: Maybe (Ptr (FunPtr C_TreeModelForeachFunc))
-> TreeModelForeachFunc_WithClosures -> C_TreeModelForeachFunc
wrap_TreeModelForeachFunc Maybe (Ptr (FunPtr C_TreeModelForeachFunc))
gi'funptrptr TreeModelForeachFunc_WithClosures
gi'cb Ptr TreeModel
model Ptr TreePath
path Ptr TreeIter
iter Ptr ()
data_ = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
B.ManagedPtr.withTransient path $ \TreePath
path' -> do
Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
result <- TreeModelForeachFunc_WithClosures
gi'cb TreeModel
model' TreePath
path' TreeIter
iter' Ptr ()
data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TreeModelFilterVisibleFunc =
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TreeModelFilterVisibleFunc :: FunPtr C_TreeModelFilterVisibleFunc -> C_TreeModelFilterVisibleFunc
dynamic_TreeModelFilterVisibleFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
FunPtr C_TreeModelFilterVisibleFunc
-> a
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m Bool
dynamic_TreeModelFilterVisibleFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
FunPtr C_TreeViewRowSeparatorFunc
-> a -> TreeIter -> Ptr () -> m Bool
dynamic_TreeModelFilterVisibleFunc FunPtr C_TreeViewRowSeparatorFunc
__funPtr a
model TreeIter
iter Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
iter' <- unsafeManagedPtrGetPtr iter
result <- (__dynamic_C_TreeModelFilterVisibleFunc __funPtr) model' iter' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr model
touchManagedPtr iter
return result'
foreign import ccall "wrapper"
mk_TreeModelFilterVisibleFunc :: C_TreeModelFilterVisibleFunc -> IO (FunPtr C_TreeModelFilterVisibleFunc)
{-# DEPRECATED TreeModelFilterVisibleFunc ["(Since version 4.20)","There is no replacement"] #-}
type TreeModelFilterVisibleFunc =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> IO Bool
noTreeModelFilterVisibleFunc :: Maybe TreeModelFilterVisibleFunc
noTreeModelFilterVisibleFunc :: Maybe TreeViewRowSeparatorFunc
noTreeModelFilterVisibleFunc = Maybe TreeViewRowSeparatorFunc
forall a. Maybe a
Nothing
type TreeModelFilterVisibleFunc_WithClosures =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO Bool
noTreeModelFilterVisibleFunc_WithClosures :: Maybe TreeModelFilterVisibleFunc_WithClosures
noTreeModelFilterVisibleFunc_WithClosures :: Maybe TreeViewRowSeparatorFunc_WithClosures
noTreeModelFilterVisibleFunc_WithClosures = Maybe TreeViewRowSeparatorFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeModelFilterVisibleFunc :: TreeModelFilterVisibleFunc -> TreeModelFilterVisibleFunc_WithClosures
drop_closures_TreeModelFilterVisibleFunc :: TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures
drop_closures_TreeModelFilterVisibleFunc TreeViewRowSeparatorFunc
_f TreeModel
model TreeIter
iter Ptr ()
_ = TreeViewRowSeparatorFunc
_f TreeModel
model TreeIter
iter
genClosure_TreeModelFilterVisibleFunc :: MonadIO m => TreeModelFilterVisibleFunc -> m (GClosure C_TreeModelFilterVisibleFunc)
genClosure_TreeModelFilterVisibleFunc :: forall (m :: * -> *).
MonadIO m =>
TreeViewRowSeparatorFunc -> m (GClosure C_TreeViewRowSeparatorFunc)
genClosure_TreeModelFilterVisibleFunc TreeViewRowSeparatorFunc
cb = IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc))
-> IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeViewRowSeparatorFunc_WithClosures
cb' = TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures
drop_closures_TreeModelFilterVisibleFunc TreeViewRowSeparatorFunc
cb
let cb'' :: C_TreeViewRowSeparatorFunc
cb'' = Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
-> TreeViewRowSeparatorFunc_WithClosures
-> C_TreeViewRowSeparatorFunc
wrap_TreeModelFilterVisibleFunc Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
forall a. Maybe a
Nothing TreeViewRowSeparatorFunc_WithClosures
cb'
C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
mk_TreeModelFilterVisibleFunc C_TreeViewRowSeparatorFunc
cb'' IO (FunPtr C_TreeViewRowSeparatorFunc)
-> (FunPtr C_TreeViewRowSeparatorFunc
-> IO (GClosure C_TreeViewRowSeparatorFunc))
-> IO (GClosure C_TreeViewRowSeparatorFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewRowSeparatorFunc
-> IO (GClosure C_TreeViewRowSeparatorFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeModelFilterVisibleFunc ::
Maybe (Ptr (FunPtr C_TreeModelFilterVisibleFunc)) ->
TreeModelFilterVisibleFunc_WithClosures ->
C_TreeModelFilterVisibleFunc
wrap_TreeModelFilterVisibleFunc :: Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
-> TreeViewRowSeparatorFunc_WithClosures
-> C_TreeViewRowSeparatorFunc
wrap_TreeModelFilterVisibleFunc Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
gi'funptrptr TreeViewRowSeparatorFunc_WithClosures
gi'cb Ptr TreeModel
model Ptr TreeIter
iter Ptr ()
data_ = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
result <- TreeViewRowSeparatorFunc_WithClosures
gi'cb TreeModel
model' TreeIter
iter' Ptr ()
data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TreeModelFilterModifyFunc =
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr GValue ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_TreeModelFilterModifyFunc :: FunPtr C_TreeModelFilterModifyFunc -> C_TreeModelFilterModifyFunc
dynamic_TreeModelFilterModifyFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
FunPtr C_TreeModelFilterModifyFunc
-> a
-> Gtk.TreeIter.TreeIter
-> GValue
-> Int32
-> Ptr ()
-> m ()
dynamic_TreeModelFilterModifyFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
FunPtr C_TreeModelFilterModifyFunc
-> a -> TreeIter -> GValue -> Int32 -> Ptr () -> m ()
dynamic_TreeModelFilterModifyFunc FunPtr C_TreeModelFilterModifyFunc
__funPtr a
model TreeIter
iter GValue
value Int32
column Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
iter' <- unsafeManagedPtrGetPtr iter
value' <- unsafeManagedPtrGetPtr value
(__dynamic_C_TreeModelFilterModifyFunc __funPtr) model' iter' value' column data_
touchManagedPtr model
touchManagedPtr iter
touchManagedPtr value
return ()
foreign import ccall "wrapper"
mk_TreeModelFilterModifyFunc :: C_TreeModelFilterModifyFunc -> IO (FunPtr C_TreeModelFilterModifyFunc)
{-# DEPRECATED TreeModelFilterModifyFunc ["(Since version 4.20)","There is no replacement"] #-}
type TreeModelFilterModifyFunc =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> GValue
-> Int32
-> IO ()
noTreeModelFilterModifyFunc :: Maybe TreeModelFilterModifyFunc
noTreeModelFilterModifyFunc :: Maybe TreeModelFilterModifyFunc
noTreeModelFilterModifyFunc = Maybe TreeModelFilterModifyFunc
forall a. Maybe a
Nothing
type TreeModelFilterModifyFunc_WithClosures =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> GValue
-> Int32
-> Ptr ()
-> IO ()
noTreeModelFilterModifyFunc_WithClosures :: Maybe TreeModelFilterModifyFunc_WithClosures
noTreeModelFilterModifyFunc_WithClosures :: Maybe TreeModelFilterModifyFunc_WithClosures
noTreeModelFilterModifyFunc_WithClosures = Maybe TreeModelFilterModifyFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeModelFilterModifyFunc :: TreeModelFilterModifyFunc -> TreeModelFilterModifyFunc_WithClosures
drop_closures_TreeModelFilterModifyFunc :: TreeModelFilterModifyFunc -> TreeModelFilterModifyFunc_WithClosures
drop_closures_TreeModelFilterModifyFunc TreeModelFilterModifyFunc
_f TreeModel
model TreeIter
iter GValue
value Int32
column Ptr ()
_ = TreeModelFilterModifyFunc
_f TreeModel
model TreeIter
iter GValue
value Int32
column
genClosure_TreeModelFilterModifyFunc :: MonadIO m => TreeModelFilterModifyFunc -> m (GClosure C_TreeModelFilterModifyFunc)
genClosure_TreeModelFilterModifyFunc :: forall (m :: * -> *).
MonadIO m =>
TreeModelFilterModifyFunc
-> m (GClosure C_TreeModelFilterModifyFunc)
genClosure_TreeModelFilterModifyFunc TreeModelFilterModifyFunc
cb = IO (GClosure C_TreeModelFilterModifyFunc)
-> m (GClosure C_TreeModelFilterModifyFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeModelFilterModifyFunc)
-> m (GClosure C_TreeModelFilterModifyFunc))
-> IO (GClosure C_TreeModelFilterModifyFunc)
-> m (GClosure C_TreeModelFilterModifyFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeModelFilterModifyFunc_WithClosures
cb' = TreeModelFilterModifyFunc -> TreeModelFilterModifyFunc_WithClosures
drop_closures_TreeModelFilterModifyFunc TreeModelFilterModifyFunc
cb
let cb'' :: C_TreeModelFilterModifyFunc
cb'' = Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc))
-> TreeModelFilterModifyFunc_WithClosures
-> C_TreeModelFilterModifyFunc
wrap_TreeModelFilterModifyFunc Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc))
forall a. Maybe a
Nothing TreeModelFilterModifyFunc_WithClosures
cb'
C_TreeModelFilterModifyFunc
-> IO (FunPtr C_TreeModelFilterModifyFunc)
mk_TreeModelFilterModifyFunc C_TreeModelFilterModifyFunc
cb'' IO (FunPtr C_TreeModelFilterModifyFunc)
-> (FunPtr C_TreeModelFilterModifyFunc
-> IO (GClosure C_TreeModelFilterModifyFunc))
-> IO (GClosure C_TreeModelFilterModifyFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeModelFilterModifyFunc
-> IO (GClosure C_TreeModelFilterModifyFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeModelFilterModifyFunc ::
Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc)) ->
TreeModelFilterModifyFunc_WithClosures ->
C_TreeModelFilterModifyFunc
wrap_TreeModelFilterModifyFunc :: Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc))
-> TreeModelFilterModifyFunc_WithClosures
-> C_TreeModelFilterModifyFunc
wrap_TreeModelFilterModifyFunc Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc))
gi'funptrptr TreeModelFilterModifyFunc_WithClosures
gi'cb Ptr TreeModel
model Ptr TreeIter
iter Ptr GValue
value Int32
column Ptr ()
data_ = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
gi'cb model' iter' value' column data_
maybeReleaseFunPtr gi'funptrptr
type C_TreeListModelCreateModelFunc =
Ptr GObject.Object.Object ->
Ptr () ->
IO (Ptr Gio.ListModel.ListModel)
foreign import ccall "dynamic" __dynamic_C_TreeListModelCreateModelFunc :: FunPtr C_TreeListModelCreateModelFunc -> C_TreeListModelCreateModelFunc
dynamic_TreeListModelCreateModelFunc ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
FunPtr C_TreeListModelCreateModelFunc
-> a
-> Ptr ()
-> m (Maybe Gio.ListModel.ListModel)
dynamic_TreeListModelCreateModelFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_TreeListModelCreateModelFunc
-> a -> Ptr () -> m (Maybe ListModel)
dynamic_TreeListModelCreateModelFunc FunPtr C_TreeListModelCreateModelFunc
__funPtr a
item Ptr ()
userData = IO (Maybe ListModel) -> m (Maybe ListModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListModel) -> m (Maybe ListModel))
-> IO (Maybe ListModel) -> m (Maybe ListModel)
forall a b. (a -> b) -> a -> b
$ do
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
result <- (__dynamic_C_TreeListModelCreateModelFunc __funPtr) item' userData
maybeResult <- convertIfNonNull result $ \Ptr ListModel
result' -> do
result'' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result'
return result''
touchManagedPtr item
return maybeResult
foreign import ccall "wrapper"
mk_TreeListModelCreateModelFunc :: C_TreeListModelCreateModelFunc -> IO (FunPtr C_TreeListModelCreateModelFunc)
type TreeListModelCreateModelFunc =
GObject.Object.Object
-> IO (Maybe Gio.ListModel.ListModel)
noTreeListModelCreateModelFunc :: Maybe TreeListModelCreateModelFunc
noTreeListModelCreateModelFunc :: Maybe TreeListModelCreateModelFunc
noTreeListModelCreateModelFunc = Maybe TreeListModelCreateModelFunc
forall a. Maybe a
Nothing
type TreeListModelCreateModelFunc_WithClosures =
GObject.Object.Object
-> Ptr ()
-> IO (Maybe Gio.ListModel.ListModel)
noTreeListModelCreateModelFunc_WithClosures :: Maybe TreeListModelCreateModelFunc_WithClosures
noTreeListModelCreateModelFunc_WithClosures :: Maybe TreeListModelCreateModelFunc_WithClosures
noTreeListModelCreateModelFunc_WithClosures = Maybe TreeListModelCreateModelFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeListModelCreateModelFunc :: TreeListModelCreateModelFunc -> TreeListModelCreateModelFunc_WithClosures
drop_closures_TreeListModelCreateModelFunc :: TreeListModelCreateModelFunc
-> TreeListModelCreateModelFunc_WithClosures
drop_closures_TreeListModelCreateModelFunc TreeListModelCreateModelFunc
_f Object
item Ptr ()
_ = TreeListModelCreateModelFunc
_f Object
item
genClosure_TreeListModelCreateModelFunc :: MonadIO m => TreeListModelCreateModelFunc -> m (GClosure C_TreeListModelCreateModelFunc)
genClosure_TreeListModelCreateModelFunc :: forall (m :: * -> *).
MonadIO m =>
TreeListModelCreateModelFunc
-> m (GClosure C_TreeListModelCreateModelFunc)
genClosure_TreeListModelCreateModelFunc TreeListModelCreateModelFunc
cb = IO (GClosure C_TreeListModelCreateModelFunc)
-> m (GClosure C_TreeListModelCreateModelFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeListModelCreateModelFunc)
-> m (GClosure C_TreeListModelCreateModelFunc))
-> IO (GClosure C_TreeListModelCreateModelFunc)
-> m (GClosure C_TreeListModelCreateModelFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeListModelCreateModelFunc_WithClosures
cb' = TreeListModelCreateModelFunc
-> TreeListModelCreateModelFunc_WithClosures
drop_closures_TreeListModelCreateModelFunc TreeListModelCreateModelFunc
cb
let cb'' :: C_TreeListModelCreateModelFunc
cb'' = Maybe (Ptr (FunPtr C_TreeListModelCreateModelFunc))
-> TreeListModelCreateModelFunc_WithClosures
-> C_TreeListModelCreateModelFunc
wrap_TreeListModelCreateModelFunc Maybe (Ptr (FunPtr C_TreeListModelCreateModelFunc))
forall a. Maybe a
Nothing TreeListModelCreateModelFunc_WithClosures
cb'
C_TreeListModelCreateModelFunc
-> IO (FunPtr C_TreeListModelCreateModelFunc)
mk_TreeListModelCreateModelFunc C_TreeListModelCreateModelFunc
cb'' IO (FunPtr C_TreeListModelCreateModelFunc)
-> (FunPtr C_TreeListModelCreateModelFunc
-> IO (GClosure C_TreeListModelCreateModelFunc))
-> IO (GClosure C_TreeListModelCreateModelFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeListModelCreateModelFunc
-> IO (GClosure C_TreeListModelCreateModelFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeListModelCreateModelFunc ::
Maybe (Ptr (FunPtr C_TreeListModelCreateModelFunc)) ->
TreeListModelCreateModelFunc_WithClosures ->
C_TreeListModelCreateModelFunc
wrap_TreeListModelCreateModelFunc :: Maybe (Ptr (FunPtr C_TreeListModelCreateModelFunc))
-> TreeListModelCreateModelFunc_WithClosures
-> C_TreeListModelCreateModelFunc
wrap_TreeListModelCreateModelFunc Maybe (Ptr (FunPtr C_TreeListModelCreateModelFunc))
gi'funptrptr TreeListModelCreateModelFunc_WithClosures
gi'cb Ptr Object
item Ptr ()
userData = do
item' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
item
result <- gi'cb item' userData
maybeReleaseFunPtr gi'funptrptr
maybeM FP.nullPtr result $ \ListModel
result' -> do
result'' <- ListModel -> IO (Ptr ListModel)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject ListModel
result'
return result''
type C_TreeIterCompareFunc =
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO Int32
foreign import ccall "dynamic" __dynamic_C_TreeIterCompareFunc :: FunPtr C_TreeIterCompareFunc -> C_TreeIterCompareFunc
dynamic_TreeIterCompareFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
FunPtr C_TreeIterCompareFunc
-> a
-> Gtk.TreeIter.TreeIter
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m Int32
dynamic_TreeIterCompareFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
FunPtr C_TreeIterCompareFunc
-> a -> TreeIter -> TreeIter -> Ptr () -> m Int32
dynamic_TreeIterCompareFunc FunPtr C_TreeIterCompareFunc
__funPtr a
model TreeIter
a TreeIter
b Ptr ()
userData = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
a' <- unsafeManagedPtrGetPtr a
b' <- unsafeManagedPtrGetPtr b
result <- (__dynamic_C_TreeIterCompareFunc __funPtr) model' a' b' userData
touchManagedPtr model
touchManagedPtr a
touchManagedPtr b
return result
foreign import ccall "wrapper"
mk_TreeIterCompareFunc :: C_TreeIterCompareFunc -> IO (FunPtr C_TreeIterCompareFunc)
{-# DEPRECATED TreeIterCompareFunc ["(Since version 4.20)","There is no replacement"] #-}
type TreeIterCompareFunc =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Gtk.TreeIter.TreeIter
-> IO Int32
noTreeIterCompareFunc :: Maybe TreeIterCompareFunc
noTreeIterCompareFunc :: Maybe TreeIterCompareFunc
noTreeIterCompareFunc = Maybe TreeIterCompareFunc
forall a. Maybe a
Nothing
type TreeIterCompareFunc_WithClosures =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO Int32
noTreeIterCompareFunc_WithClosures :: Maybe TreeIterCompareFunc_WithClosures
noTreeIterCompareFunc_WithClosures :: Maybe TreeIterCompareFunc_WithClosures
noTreeIterCompareFunc_WithClosures = Maybe TreeIterCompareFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeIterCompareFunc :: TreeIterCompareFunc -> TreeIterCompareFunc_WithClosures
drop_closures_TreeIterCompareFunc :: TreeIterCompareFunc -> TreeIterCompareFunc_WithClosures
drop_closures_TreeIterCompareFunc TreeIterCompareFunc
_f TreeModel
model TreeIter
a TreeIter
b Ptr ()
_ = TreeIterCompareFunc
_f TreeModel
model TreeIter
a TreeIter
b
genClosure_TreeIterCompareFunc :: MonadIO m => TreeIterCompareFunc -> m (GClosure C_TreeIterCompareFunc)
genClosure_TreeIterCompareFunc :: forall (m :: * -> *).
MonadIO m =>
TreeIterCompareFunc -> m (GClosure C_TreeIterCompareFunc)
genClosure_TreeIterCompareFunc TreeIterCompareFunc
cb = IO (GClosure C_TreeIterCompareFunc)
-> m (GClosure C_TreeIterCompareFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeIterCompareFunc)
-> m (GClosure C_TreeIterCompareFunc))
-> IO (GClosure C_TreeIterCompareFunc)
-> m (GClosure C_TreeIterCompareFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeIterCompareFunc_WithClosures
cb' = TreeIterCompareFunc -> TreeIterCompareFunc_WithClosures
drop_closures_TreeIterCompareFunc TreeIterCompareFunc
cb
let cb'' :: C_TreeIterCompareFunc
cb'' = Maybe (Ptr (FunPtr C_TreeIterCompareFunc))
-> TreeIterCompareFunc_WithClosures -> C_TreeIterCompareFunc
wrap_TreeIterCompareFunc Maybe (Ptr (FunPtr C_TreeIterCompareFunc))
forall a. Maybe a
Nothing TreeIterCompareFunc_WithClosures
cb'
C_TreeIterCompareFunc -> IO (FunPtr C_TreeIterCompareFunc)
mk_TreeIterCompareFunc C_TreeIterCompareFunc
cb'' IO (FunPtr C_TreeIterCompareFunc)
-> (FunPtr C_TreeIterCompareFunc
-> IO (GClosure C_TreeIterCompareFunc))
-> IO (GClosure C_TreeIterCompareFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeIterCompareFunc -> IO (GClosure C_TreeIterCompareFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeIterCompareFunc ::
Maybe (Ptr (FunPtr C_TreeIterCompareFunc)) ->
TreeIterCompareFunc_WithClosures ->
C_TreeIterCompareFunc
wrap_TreeIterCompareFunc :: Maybe (Ptr (FunPtr C_TreeIterCompareFunc))
-> TreeIterCompareFunc_WithClosures -> C_TreeIterCompareFunc
wrap_TreeIterCompareFunc Maybe (Ptr (FunPtr C_TreeIterCompareFunc))
gi'funptrptr TreeIterCompareFunc_WithClosures
gi'cb Ptr TreeModel
model Ptr TreeIter
a Ptr TreeIter
b Ptr ()
userData = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
B.ManagedPtr.withTransient a $ \TreeIter
a' -> do
Ptr TreeIter -> (TreeIter -> IO Int32) -> IO Int32
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
b ((TreeIter -> IO Int32) -> IO Int32)
-> (TreeIter -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \TreeIter
b' -> do
result <- TreeIterCompareFunc_WithClosures
gi'cb TreeModel
model' TreeIter
a' TreeIter
b' Ptr ()
userData
maybeReleaseFunPtr gi'funptrptr
return result
type C_TreeCellDataFunc =
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_TreeCellDataFunc :: FunPtr C_TreeCellDataFunc -> C_TreeCellDataFunc
dynamic_TreeCellDataFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeViewColumn.IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b, Gtk.TreeModel.IsTreeModel c) =>
FunPtr C_TreeCellDataFunc
-> a
-> b
-> c
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m ()
dynamic_TreeCellDataFunc :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b,
IsTreeModel c) =>
FunPtr C_TreeCellDataFunc
-> a -> b -> c -> TreeIter -> Ptr () -> m ()
dynamic_TreeCellDataFunc FunPtr C_TreeCellDataFunc
__funPtr a
treeColumn b
cell c
treeModel TreeIter
iter Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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 ()
foreign import ccall "wrapper"
mk_TreeCellDataFunc :: C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
{-# DEPRECATED TreeCellDataFunc ["(Since version 4.20)","There is no replacement"] #-}
type TreeCellDataFunc =
Gtk.TreeViewColumn.TreeViewColumn
-> Gtk.CellRenderer.CellRenderer
-> Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> IO ()
noTreeCellDataFunc :: Maybe TreeCellDataFunc
noTreeCellDataFunc :: Maybe TreeCellDataFunc
noTreeCellDataFunc = Maybe TreeCellDataFunc
forall a. Maybe a
Nothing
type TreeCellDataFunc_WithClosures =
Gtk.TreeViewColumn.TreeViewColumn
-> Gtk.CellRenderer.CellRenderer
-> Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO ()
noTreeCellDataFunc_WithClosures :: Maybe TreeCellDataFunc_WithClosures
noTreeCellDataFunc_WithClosures :: Maybe TreeCellDataFunc_WithClosures
noTreeCellDataFunc_WithClosures = Maybe TreeCellDataFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeCellDataFunc :: TreeCellDataFunc -> TreeCellDataFunc_WithClosures
drop_closures_TreeCellDataFunc :: TreeCellDataFunc -> TreeCellDataFunc_WithClosures
drop_closures_TreeCellDataFunc TreeCellDataFunc
_f TreeViewColumn
treeColumn CellRenderer
cell TreeModel
treeModel TreeIter
iter Ptr ()
_ = TreeCellDataFunc
_f TreeViewColumn
treeColumn CellRenderer
cell TreeModel
treeModel TreeIter
iter
genClosure_TreeCellDataFunc :: MonadIO m => TreeCellDataFunc -> m (GClosure C_TreeCellDataFunc)
genClosure_TreeCellDataFunc :: forall (m :: * -> *).
MonadIO m =>
TreeCellDataFunc -> m (GClosure C_TreeCellDataFunc)
genClosure_TreeCellDataFunc TreeCellDataFunc
cb = IO (GClosure C_TreeCellDataFunc) -> m (GClosure C_TreeCellDataFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeCellDataFunc)
-> m (GClosure C_TreeCellDataFunc))
-> IO (GClosure C_TreeCellDataFunc)
-> m (GClosure C_TreeCellDataFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeCellDataFunc_WithClosures
cb' = TreeCellDataFunc -> TreeCellDataFunc_WithClosures
drop_closures_TreeCellDataFunc TreeCellDataFunc
cb
let cb'' :: C_TreeCellDataFunc
cb'' = Maybe (Ptr (FunPtr C_TreeCellDataFunc))
-> TreeCellDataFunc_WithClosures -> C_TreeCellDataFunc
wrap_TreeCellDataFunc Maybe (Ptr (FunPtr C_TreeCellDataFunc))
forall a. Maybe a
Nothing TreeCellDataFunc_WithClosures
cb'
C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
mk_TreeCellDataFunc C_TreeCellDataFunc
cb'' IO (FunPtr C_TreeCellDataFunc)
-> (FunPtr C_TreeCellDataFunc -> IO (GClosure C_TreeCellDataFunc))
-> IO (GClosure C_TreeCellDataFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeCellDataFunc -> IO (GClosure C_TreeCellDataFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeCellDataFunc ::
Maybe (Ptr (FunPtr C_TreeCellDataFunc)) ->
TreeCellDataFunc_WithClosures ->
C_TreeCellDataFunc
wrap_TreeCellDataFunc :: Maybe (Ptr (FunPtr C_TreeCellDataFunc))
-> TreeCellDataFunc_WithClosures -> C_TreeCellDataFunc
wrap_TreeCellDataFunc Maybe (Ptr (FunPtr C_TreeCellDataFunc))
gi'funptrptr TreeCellDataFunc_WithClosures
gi'cb Ptr TreeViewColumn
treeColumn Ptr CellRenderer
cell Ptr TreeModel
treeModel Ptr TreeIter
iter Ptr ()
data_ = do
treeColumn' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn) Ptr TreeViewColumn
treeColumn
cell' <- (newObject Gtk.CellRenderer.CellRenderer) cell
treeModel' <- (newObject Gtk.TreeModel.TreeModel) treeModel
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
TreeCellDataFunc_WithClosures
gi'cb TreeViewColumn
treeColumn' CellRenderer
cell' TreeModel
treeModel' TreeIter
iter' Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeCellDataFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeCellDataFunc))
gi'funptrptr
type C_TickCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.FrameClock.FrameClock ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TickCallback :: FunPtr C_TickCallback -> C_TickCallback
dynamic_TickCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.FrameClock.IsFrameClock b) =>
FunPtr C_TickCallback
-> a
-> b
-> Ptr ()
-> m Bool
dynamic_TickCallback :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsFrameClock b) =>
FunPtr C_TickCallback -> a -> b -> Ptr () -> m Bool
dynamic_TickCallback FunPtr C_TickCallback
__funPtr a
widget b
frameClock Ptr ()
userData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
frameClock' <- unsafeManagedPtrCastPtr frameClock
result <- (__dynamic_C_TickCallback __funPtr) widget' frameClock' userData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
touchManagedPtr frameClock
return result'
foreign import ccall "wrapper"
mk_TickCallback :: C_TickCallback -> IO (FunPtr C_TickCallback)
type TickCallback =
Gtk.Widget.Widget
-> Gdk.FrameClock.FrameClock
-> IO Bool
noTickCallback :: Maybe TickCallback
noTickCallback :: Maybe TickCallback
noTickCallback = Maybe TickCallback
forall a. Maybe a
Nothing
type TickCallback_WithClosures =
Gtk.Widget.Widget
-> Gdk.FrameClock.FrameClock
-> Ptr ()
-> IO Bool
noTickCallback_WithClosures :: Maybe TickCallback_WithClosures
noTickCallback_WithClosures :: Maybe TickCallback_WithClosures
noTickCallback_WithClosures = Maybe TickCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_TickCallback :: TickCallback -> TickCallback_WithClosures
drop_closures_TickCallback :: TickCallback -> TickCallback_WithClosures
drop_closures_TickCallback TickCallback
_f Widget
widget FrameClock
frameClock Ptr ()
_ = TickCallback
_f Widget
widget FrameClock
frameClock
genClosure_TickCallback :: MonadIO m => TickCallback -> m (GClosure C_TickCallback)
genClosure_TickCallback :: forall (m :: * -> *).
MonadIO m =>
TickCallback -> m (GClosure C_TickCallback)
genClosure_TickCallback TickCallback
cb = IO (GClosure C_TickCallback) -> m (GClosure C_TickCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TickCallback) -> m (GClosure C_TickCallback))
-> IO (GClosure C_TickCallback) -> m (GClosure C_TickCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TickCallback_WithClosures
cb' = TickCallback -> TickCallback_WithClosures
drop_closures_TickCallback TickCallback
cb
let cb'' :: C_TickCallback
cb'' = Maybe (Ptr (FunPtr C_TickCallback))
-> TickCallback_WithClosures -> C_TickCallback
wrap_TickCallback Maybe (Ptr (FunPtr C_TickCallback))
forall a. Maybe a
Nothing TickCallback_WithClosures
cb'
C_TickCallback -> IO (FunPtr C_TickCallback)
mk_TickCallback C_TickCallback
cb'' IO (FunPtr C_TickCallback)
-> (FunPtr C_TickCallback -> IO (GClosure C_TickCallback))
-> IO (GClosure C_TickCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TickCallback -> IO (GClosure C_TickCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TickCallback ::
Maybe (Ptr (FunPtr C_TickCallback)) ->
TickCallback_WithClosures ->
C_TickCallback
wrap_TickCallback :: Maybe (Ptr (FunPtr C_TickCallback))
-> TickCallback_WithClosures -> C_TickCallback
wrap_TickCallback Maybe (Ptr (FunPtr C_TickCallback))
gi'funptrptr TickCallback_WithClosures
gi'cb Ptr Widget
widget Ptr FrameClock
frameClock Ptr ()
userData = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
frameClock' <- (newObject Gdk.FrameClock.FrameClock) frameClock
result <- gi'cb widget' frameClock' userData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TextTagTableForeach =
Ptr Gtk.TextTag.TextTag ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_TextTagTableForeach :: FunPtr C_TextTagTableForeach -> C_TextTagTableForeach
dynamic_TextTagTableForeach ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextTag.IsTextTag a) =>
FunPtr C_TextTagTableForeach
-> a
-> Ptr ()
-> m ()
dynamic_TextTagTableForeach :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextTag a) =>
FunPtr C_TextTagTableForeach -> a -> Ptr () -> m ()
dynamic_TextTagTableForeach FunPtr C_TextTagTableForeach
__funPtr a
tag Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
tag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tag
(__dynamic_C_TextTagTableForeach __funPtr) tag' data_
touchManagedPtr tag
return ()
foreign import ccall "wrapper"
mk_TextTagTableForeach :: C_TextTagTableForeach -> IO (FunPtr C_TextTagTableForeach)
type TextTagTableForeach =
Gtk.TextTag.TextTag
-> IO ()
noTextTagTableForeach :: Maybe TextTagTableForeach
noTextTagTableForeach :: Maybe TextTagTableForeach
noTextTagTableForeach = Maybe TextTagTableForeach
forall a. Maybe a
Nothing
type TextTagTableForeach_WithClosures =
Gtk.TextTag.TextTag
-> Ptr ()
-> IO ()
noTextTagTableForeach_WithClosures :: Maybe TextTagTableForeach_WithClosures
noTextTagTableForeach_WithClosures :: Maybe TextTagTableForeach_WithClosures
noTextTagTableForeach_WithClosures = Maybe TextTagTableForeach_WithClosures
forall a. Maybe a
Nothing
drop_closures_TextTagTableForeach :: TextTagTableForeach -> TextTagTableForeach_WithClosures
drop_closures_TextTagTableForeach :: TextTagTableForeach -> TextTagTableForeach_WithClosures
drop_closures_TextTagTableForeach TextTagTableForeach
_f TextTag
tag Ptr ()
_ = TextTagTableForeach
_f TextTag
tag
genClosure_TextTagTableForeach :: MonadIO m => TextTagTableForeach -> m (GClosure C_TextTagTableForeach)
genClosure_TextTagTableForeach :: forall (m :: * -> *).
MonadIO m =>
TextTagTableForeach -> m (GClosure C_TextTagTableForeach)
genClosure_TextTagTableForeach TextTagTableForeach
cb = IO (GClosure C_TextTagTableForeach)
-> m (GClosure C_TextTagTableForeach)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TextTagTableForeach)
-> m (GClosure C_TextTagTableForeach))
-> IO (GClosure C_TextTagTableForeach)
-> m (GClosure C_TextTagTableForeach)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TextTagTableForeach_WithClosures
cb' = TextTagTableForeach -> TextTagTableForeach_WithClosures
drop_closures_TextTagTableForeach TextTagTableForeach
cb
let cb'' :: C_TextTagTableForeach
cb'' = Maybe (Ptr (FunPtr C_TextTagTableForeach))
-> TextTagTableForeach_WithClosures -> C_TextTagTableForeach
wrap_TextTagTableForeach Maybe (Ptr (FunPtr C_TextTagTableForeach))
forall a. Maybe a
Nothing TextTagTableForeach_WithClosures
cb'
C_TextTagTableForeach -> IO (FunPtr C_TextTagTableForeach)
mk_TextTagTableForeach C_TextTagTableForeach
cb'' IO (FunPtr C_TextTagTableForeach)
-> (FunPtr C_TextTagTableForeach
-> IO (GClosure C_TextTagTableForeach))
-> IO (GClosure C_TextTagTableForeach)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TextTagTableForeach -> IO (GClosure C_TextTagTableForeach)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TextTagTableForeach ::
Maybe (Ptr (FunPtr C_TextTagTableForeach)) ->
TextTagTableForeach_WithClosures ->
C_TextTagTableForeach
wrap_TextTagTableForeach :: Maybe (Ptr (FunPtr C_TextTagTableForeach))
-> TextTagTableForeach_WithClosures -> C_TextTagTableForeach
wrap_TextTagTableForeach Maybe (Ptr (FunPtr C_TextTagTableForeach))
gi'funptrptr TextTagTableForeach_WithClosures
gi'cb Ptr TextTag
tag Ptr ()
data_ = do
tag' <- ((ManagedPtr TextTag -> TextTag) -> Ptr TextTag -> IO TextTag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextTag -> TextTag
Gtk.TextTag.TextTag) Ptr TextTag
tag
gi'cb tag' data_
maybeReleaseFunPtr gi'funptrptr
type C_TextCharPredicate =
CInt ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_TextCharPredicate :: FunPtr C_TextCharPredicate -> C_TextCharPredicate
dynamic_TextCharPredicate ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_TextCharPredicate
-> Char
-> Ptr ()
-> m Bool
dynamic_TextCharPredicate :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TextCharPredicate -> Char -> Ptr () -> m Bool
dynamic_TextCharPredicate FunPtr C_TextCharPredicate
__funPtr Char
ch Ptr ()
userData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
let ch' :: CInt
ch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Char -> Int) -> Char -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Int
SP.ord) Char
ch
result <- (FunPtr C_TextCharPredicate -> C_TextCharPredicate
__dynamic_C_TextCharPredicate FunPtr C_TextCharPredicate
__funPtr) CInt
ch' Ptr ()
userData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
return result'
foreign import ccall "wrapper"
mk_TextCharPredicate :: C_TextCharPredicate -> IO (FunPtr C_TextCharPredicate)
type TextCharPredicate =
Char
-> IO Bool
noTextCharPredicate :: Maybe TextCharPredicate
noTextCharPredicate :: Maybe TextCharPredicate
noTextCharPredicate = Maybe TextCharPredicate
forall a. Maybe a
Nothing
type TextCharPredicate_WithClosures =
Char
-> Ptr ()
-> IO Bool
noTextCharPredicate_WithClosures :: Maybe TextCharPredicate_WithClosures
noTextCharPredicate_WithClosures :: Maybe TextCharPredicate_WithClosures
noTextCharPredicate_WithClosures = Maybe TextCharPredicate_WithClosures
forall a. Maybe a
Nothing
drop_closures_TextCharPredicate :: TextCharPredicate -> TextCharPredicate_WithClosures
drop_closures_TextCharPredicate :: TextCharPredicate -> TextCharPredicate_WithClosures
drop_closures_TextCharPredicate TextCharPredicate
_f Char
ch Ptr ()
_ = TextCharPredicate
_f Char
ch
genClosure_TextCharPredicate :: MonadIO m => TextCharPredicate -> m (GClosure C_TextCharPredicate)
genClosure_TextCharPredicate :: forall (m :: * -> *).
MonadIO m =>
TextCharPredicate -> m (GClosure C_TextCharPredicate)
genClosure_TextCharPredicate TextCharPredicate
cb = IO (GClosure C_TextCharPredicate)
-> m (GClosure C_TextCharPredicate)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TextCharPredicate)
-> m (GClosure C_TextCharPredicate))
-> IO (GClosure C_TextCharPredicate)
-> m (GClosure C_TextCharPredicate)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TextCharPredicate_WithClosures
cb' = TextCharPredicate -> TextCharPredicate_WithClosures
drop_closures_TextCharPredicate TextCharPredicate
cb
let cb'' :: C_TextCharPredicate
cb'' = Maybe (Ptr (FunPtr C_TextCharPredicate))
-> TextCharPredicate_WithClosures -> C_TextCharPredicate
wrap_TextCharPredicate Maybe (Ptr (FunPtr C_TextCharPredicate))
forall a. Maybe a
Nothing TextCharPredicate_WithClosures
cb'
C_TextCharPredicate -> IO (FunPtr C_TextCharPredicate)
mk_TextCharPredicate C_TextCharPredicate
cb'' IO (FunPtr C_TextCharPredicate)
-> (FunPtr C_TextCharPredicate
-> IO (GClosure C_TextCharPredicate))
-> IO (GClosure C_TextCharPredicate)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TextCharPredicate -> IO (GClosure C_TextCharPredicate)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TextCharPredicate ::
Maybe (Ptr (FunPtr C_TextCharPredicate)) ->
TextCharPredicate_WithClosures ->
C_TextCharPredicate
wrap_TextCharPredicate :: Maybe (Ptr (FunPtr C_TextCharPredicate))
-> TextCharPredicate_WithClosures -> C_TextCharPredicate
wrap_TextCharPredicate Maybe (Ptr (FunPtr C_TextCharPredicate))
gi'funptrptr TextCharPredicate_WithClosures
gi'cb CInt
ch Ptr ()
userData = do
let ch' :: Char
ch' = (Int -> Char
chr (Int -> Char) -> (CInt -> Int) -> CInt -> Char
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
ch
result <- TextCharPredicate_WithClosures
gi'cb Char
ch' Ptr ()
userData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_TextBufferCommitNotify =
Ptr Gtk.TextBuffer.TextBuffer ->
CUInt ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_TextBufferCommitNotify :: FunPtr C_TextBufferCommitNotify -> C_TextBufferCommitNotify
dynamic_TextBufferCommitNotify ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextBuffer.IsTextBuffer a) =>
FunPtr C_TextBufferCommitNotify
-> a
-> [Gtk.Flags.TextBufferNotifyFlags]
-> Word32
-> Word32
-> Ptr ()
-> m ()
dynamic_TextBufferCommitNotify :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
FunPtr C_TextBufferCommitNotify
-> a
-> [TextBufferNotifyFlags]
-> Word32
-> Word32
-> Ptr ()
-> m ()
dynamic_TextBufferCommitNotify FunPtr C_TextBufferCommitNotify
__funPtr a
buffer [TextBufferNotifyFlags]
flags Word32
position Word32
length_ Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
buffer' <- a -> IO (Ptr TextBuffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
let flags' = [TextBufferNotifyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TextBufferNotifyFlags]
flags
(__dynamic_C_TextBufferCommitNotify __funPtr) buffer' flags' position length_ userData
touchManagedPtr buffer
return ()
foreign import ccall "wrapper"
mk_TextBufferCommitNotify :: C_TextBufferCommitNotify -> IO (FunPtr C_TextBufferCommitNotify)
type TextBufferCommitNotify =
Gtk.TextBuffer.TextBuffer
-> [Gtk.Flags.TextBufferNotifyFlags]
-> Word32
-> Word32
-> IO ()
noTextBufferCommitNotify :: Maybe TextBufferCommitNotify
noTextBufferCommitNotify :: Maybe TextBufferCommitNotify
noTextBufferCommitNotify = Maybe TextBufferCommitNotify
forall a. Maybe a
Nothing
type TextBufferCommitNotify_WithClosures =
Gtk.TextBuffer.TextBuffer
-> [Gtk.Flags.TextBufferNotifyFlags]
-> Word32
-> Word32
-> Ptr ()
-> IO ()
noTextBufferCommitNotify_WithClosures :: Maybe TextBufferCommitNotify_WithClosures
noTextBufferCommitNotify_WithClosures :: Maybe TextBufferCommitNotify_WithClosures
noTextBufferCommitNotify_WithClosures = Maybe TextBufferCommitNotify_WithClosures
forall a. Maybe a
Nothing
drop_closures_TextBufferCommitNotify :: TextBufferCommitNotify -> TextBufferCommitNotify_WithClosures
drop_closures_TextBufferCommitNotify :: TextBufferCommitNotify -> TextBufferCommitNotify_WithClosures
drop_closures_TextBufferCommitNotify TextBufferCommitNotify
_f TextBuffer
buffer [TextBufferNotifyFlags]
flags Word32
position Word32
length_ Ptr ()
_ = TextBufferCommitNotify
_f TextBuffer
buffer [TextBufferNotifyFlags]
flags Word32
position Word32
length_
genClosure_TextBufferCommitNotify :: MonadIO m => TextBufferCommitNotify -> m (GClosure C_TextBufferCommitNotify)
genClosure_TextBufferCommitNotify :: forall (m :: * -> *).
MonadIO m =>
TextBufferCommitNotify -> m (GClosure C_TextBufferCommitNotify)
genClosure_TextBufferCommitNotify TextBufferCommitNotify
cb = IO (GClosure C_TextBufferCommitNotify)
-> m (GClosure C_TextBufferCommitNotify)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TextBufferCommitNotify)
-> m (GClosure C_TextBufferCommitNotify))
-> IO (GClosure C_TextBufferCommitNotify)
-> m (GClosure C_TextBufferCommitNotify)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TextBufferCommitNotify_WithClosures
cb' = TextBufferCommitNotify -> TextBufferCommitNotify_WithClosures
drop_closures_TextBufferCommitNotify TextBufferCommitNotify
cb
let cb'' :: C_TextBufferCommitNotify
cb'' = Maybe (Ptr (FunPtr C_TextBufferCommitNotify))
-> TextBufferCommitNotify_WithClosures -> C_TextBufferCommitNotify
wrap_TextBufferCommitNotify Maybe (Ptr (FunPtr C_TextBufferCommitNotify))
forall a. Maybe a
Nothing TextBufferCommitNotify_WithClosures
cb'
C_TextBufferCommitNotify -> IO (FunPtr C_TextBufferCommitNotify)
mk_TextBufferCommitNotify C_TextBufferCommitNotify
cb'' IO (FunPtr C_TextBufferCommitNotify)
-> (FunPtr C_TextBufferCommitNotify
-> IO (GClosure C_TextBufferCommitNotify))
-> IO (GClosure C_TextBufferCommitNotify)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TextBufferCommitNotify
-> IO (GClosure C_TextBufferCommitNotify)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TextBufferCommitNotify ::
Maybe (Ptr (FunPtr C_TextBufferCommitNotify)) ->
TextBufferCommitNotify_WithClosures ->
C_TextBufferCommitNotify
wrap_TextBufferCommitNotify :: Maybe (Ptr (FunPtr C_TextBufferCommitNotify))
-> TextBufferCommitNotify_WithClosures -> C_TextBufferCommitNotify
wrap_TextBufferCommitNotify Maybe (Ptr (FunPtr C_TextBufferCommitNotify))
gi'funptrptr TextBufferCommitNotify_WithClosures
gi'cb Ptr TextBuffer
buffer CUInt
flags Word32
position Word32
length_ Ptr ()
userData = do
buffer' <- ((ManagedPtr TextBuffer -> TextBuffer)
-> Ptr TextBuffer -> IO TextBuffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextBuffer -> TextBuffer
Gtk.TextBuffer.TextBuffer) Ptr TextBuffer
buffer
let flags' = CUInt -> [TextBufferNotifyFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
flags
gi'cb buffer' flags' position length_ userData
maybeReleaseFunPtr gi'funptrptr
type C_ShortcutFunc =
Ptr Gtk.Widget.Widget ->
Ptr GVariant ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_ShortcutFunc :: FunPtr C_ShortcutFunc -> C_ShortcutFunc
dynamic_ShortcutFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_ShortcutFunc
-> a
-> Maybe (GVariant)
-> Ptr ()
-> m Bool
dynamic_ShortcutFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_ShortcutFunc -> a -> Maybe GVariant -> Ptr () -> m Bool
dynamic_ShortcutFunc FunPtr C_ShortcutFunc
__funPtr a
widget Maybe GVariant
args Ptr ()
userData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
maybeArgs <- case args of
Maybe GVariant
Nothing -> Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
forall a. Ptr a
FP.nullPtr
Just GVariant
jArgs -> do
jArgs' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jArgs
return jArgs'
result <- (__dynamic_C_ShortcutFunc __funPtr) widget' maybeArgs userData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr widget
whenJust args touchManagedPtr
return result'
foreign import ccall "wrapper"
mk_ShortcutFunc :: C_ShortcutFunc -> IO (FunPtr C_ShortcutFunc)
type ShortcutFunc =
Gtk.Widget.Widget
-> Maybe GVariant
-> IO Bool
noShortcutFunc :: Maybe ShortcutFunc
noShortcutFunc :: Maybe ShortcutFunc
noShortcutFunc = Maybe ShortcutFunc
forall a. Maybe a
Nothing
type ShortcutFunc_WithClosures =
Gtk.Widget.Widget
-> Maybe GVariant
-> Ptr ()
-> IO Bool
noShortcutFunc_WithClosures :: Maybe ShortcutFunc_WithClosures
noShortcutFunc_WithClosures :: Maybe ShortcutFunc_WithClosures
noShortcutFunc_WithClosures = Maybe ShortcutFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_ShortcutFunc :: ShortcutFunc -> ShortcutFunc_WithClosures
drop_closures_ShortcutFunc :: ShortcutFunc -> ShortcutFunc_WithClosures
drop_closures_ShortcutFunc ShortcutFunc
_f Widget
widget Maybe GVariant
args Ptr ()
_ = ShortcutFunc
_f Widget
widget Maybe GVariant
args
genClosure_ShortcutFunc :: MonadIO m => ShortcutFunc -> m (GClosure C_ShortcutFunc)
genClosure_ShortcutFunc :: forall (m :: * -> *).
MonadIO m =>
ShortcutFunc -> m (GClosure C_ShortcutFunc)
genClosure_ShortcutFunc ShortcutFunc
cb = IO (GClosure C_ShortcutFunc) -> m (GClosure C_ShortcutFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ShortcutFunc) -> m (GClosure C_ShortcutFunc))
-> IO (GClosure C_ShortcutFunc) -> m (GClosure C_ShortcutFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ShortcutFunc_WithClosures
cb' = ShortcutFunc -> ShortcutFunc_WithClosures
drop_closures_ShortcutFunc ShortcutFunc
cb
let cb'' :: C_ShortcutFunc
cb'' = Maybe (Ptr (FunPtr C_ShortcutFunc))
-> ShortcutFunc_WithClosures -> C_ShortcutFunc
wrap_ShortcutFunc Maybe (Ptr (FunPtr C_ShortcutFunc))
forall a. Maybe a
Nothing ShortcutFunc_WithClosures
cb'
C_ShortcutFunc -> IO (FunPtr C_ShortcutFunc)
mk_ShortcutFunc C_ShortcutFunc
cb'' IO (FunPtr C_ShortcutFunc)
-> (FunPtr C_ShortcutFunc -> IO (GClosure C_ShortcutFunc))
-> IO (GClosure C_ShortcutFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ShortcutFunc -> IO (GClosure C_ShortcutFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ShortcutFunc ::
Maybe (Ptr (FunPtr C_ShortcutFunc)) ->
ShortcutFunc_WithClosures ->
C_ShortcutFunc
wrap_ShortcutFunc :: Maybe (Ptr (FunPtr C_ShortcutFunc))
-> ShortcutFunc_WithClosures -> C_ShortcutFunc
wrap_ShortcutFunc Maybe (Ptr (FunPtr C_ShortcutFunc))
gi'funptrptr ShortcutFunc_WithClosures
gi'cb Ptr Widget
widget Ptr GVariant
args Ptr ()
userData = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
maybeArgs <-
if args == FP.nullPtr
then return Nothing
else do
args' <- B.GVariant.newGVariantFromPtr args
return $ Just args'
result <- gi'cb widget' maybeArgs userData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_ScaleFormatValueFunc =
Ptr Gtk.Scale.Scale ->
CDouble ->
Ptr () ->
IO CString
foreign import ccall "dynamic" __dynamic_C_ScaleFormatValueFunc :: FunPtr C_ScaleFormatValueFunc -> C_ScaleFormatValueFunc
dynamic_ScaleFormatValueFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Scale.IsScale a) =>
FunPtr C_ScaleFormatValueFunc
-> a
-> Double
-> Ptr ()
-> m T.Text
dynamic_ScaleFormatValueFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
FunPtr C_ScaleFormatValueFunc -> a -> Double -> Ptr () -> m Text
dynamic_ScaleFormatValueFunc FunPtr C_ScaleFormatValueFunc
__funPtr a
scale Double
value Ptr ()
userData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
let value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
result <- (__dynamic_C_ScaleFormatValueFunc __funPtr) scale' value' userData
checkUnexpectedReturnNULL "scaleFormatValueFunc" result
result' <- cstringToText result
freeMem result
touchManagedPtr scale
return result'
foreign import ccall "wrapper"
mk_ScaleFormatValueFunc :: C_ScaleFormatValueFunc -> IO (FunPtr C_ScaleFormatValueFunc)
type ScaleFormatValueFunc =
Gtk.Scale.Scale
-> Double
-> IO T.Text
noScaleFormatValueFunc :: Maybe ScaleFormatValueFunc
noScaleFormatValueFunc :: Maybe ScaleFormatValueFunc
noScaleFormatValueFunc = Maybe ScaleFormatValueFunc
forall a. Maybe a
Nothing
type ScaleFormatValueFunc_WithClosures =
Gtk.Scale.Scale
-> Double
-> Ptr ()
-> IO T.Text
noScaleFormatValueFunc_WithClosures :: Maybe ScaleFormatValueFunc_WithClosures
noScaleFormatValueFunc_WithClosures :: Maybe ScaleFormatValueFunc_WithClosures
noScaleFormatValueFunc_WithClosures = Maybe ScaleFormatValueFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_ScaleFormatValueFunc :: ScaleFormatValueFunc -> ScaleFormatValueFunc_WithClosures
drop_closures_ScaleFormatValueFunc :: ScaleFormatValueFunc -> ScaleFormatValueFunc_WithClosures
drop_closures_ScaleFormatValueFunc ScaleFormatValueFunc
_f Scale
scale Double
value Ptr ()
_ = ScaleFormatValueFunc
_f Scale
scale Double
value
genClosure_ScaleFormatValueFunc :: MonadIO m => ScaleFormatValueFunc -> m (GClosure C_ScaleFormatValueFunc)
genClosure_ScaleFormatValueFunc :: forall (m :: * -> *).
MonadIO m =>
ScaleFormatValueFunc -> m (GClosure C_ScaleFormatValueFunc)
genClosure_ScaleFormatValueFunc ScaleFormatValueFunc
cb = IO (GClosure C_ScaleFormatValueFunc)
-> m (GClosure C_ScaleFormatValueFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ScaleFormatValueFunc)
-> m (GClosure C_ScaleFormatValueFunc))
-> IO (GClosure C_ScaleFormatValueFunc)
-> m (GClosure C_ScaleFormatValueFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ScaleFormatValueFunc_WithClosures
cb' = ScaleFormatValueFunc -> ScaleFormatValueFunc_WithClosures
drop_closures_ScaleFormatValueFunc ScaleFormatValueFunc
cb
let cb'' :: C_ScaleFormatValueFunc
cb'' = Maybe (Ptr (FunPtr C_ScaleFormatValueFunc))
-> ScaleFormatValueFunc_WithClosures -> C_ScaleFormatValueFunc
wrap_ScaleFormatValueFunc Maybe (Ptr (FunPtr C_ScaleFormatValueFunc))
forall a. Maybe a
Nothing ScaleFormatValueFunc_WithClosures
cb'
C_ScaleFormatValueFunc -> IO (FunPtr C_ScaleFormatValueFunc)
mk_ScaleFormatValueFunc C_ScaleFormatValueFunc
cb'' IO (FunPtr C_ScaleFormatValueFunc)
-> (FunPtr C_ScaleFormatValueFunc
-> IO (GClosure C_ScaleFormatValueFunc))
-> IO (GClosure C_ScaleFormatValueFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ScaleFormatValueFunc
-> IO (GClosure C_ScaleFormatValueFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ScaleFormatValueFunc ::
Maybe (Ptr (FunPtr C_ScaleFormatValueFunc)) ->
ScaleFormatValueFunc_WithClosures ->
C_ScaleFormatValueFunc
wrap_ScaleFormatValueFunc :: Maybe (Ptr (FunPtr C_ScaleFormatValueFunc))
-> ScaleFormatValueFunc_WithClosures -> C_ScaleFormatValueFunc
wrap_ScaleFormatValueFunc Maybe (Ptr (FunPtr C_ScaleFormatValueFunc))
gi'funptrptr ScaleFormatValueFunc_WithClosures
gi'cb Ptr Scale
scale CDouble
value Ptr ()
userData = do
scale' <- ((ManagedPtr Scale -> Scale) -> Ptr Scale -> IO Scale
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Scale -> Scale
Gtk.Scale.Scale) Ptr Scale
scale
let value' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
result <- gi'cb scale' value' userData
maybeReleaseFunPtr gi'funptrptr
result' <- textToCString result
return result'
type C_PrinterFunc =
Ptr Gtk.Printer.Printer ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_PrinterFunc :: FunPtr C_PrinterFunc -> C_PrinterFunc
dynamic_PrinterFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Printer.IsPrinter a) =>
FunPtr C_PrinterFunc
-> a
-> Ptr ()
-> m Bool
dynamic_PrinterFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrinter a) =>
FunPtr C_PrinterFunc -> a -> Ptr () -> m Bool
dynamic_PrinterFunc FunPtr C_PrinterFunc
__funPtr a
printer Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
printer' <- a -> IO (Ptr Printer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
printer
result <- (__dynamic_C_PrinterFunc __funPtr) printer' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr printer
return result'
foreign import ccall "wrapper"
mk_PrinterFunc :: C_PrinterFunc -> IO (FunPtr C_PrinterFunc)
type PrinterFunc =
Gtk.Printer.Printer
-> IO Bool
noPrinterFunc :: Maybe PrinterFunc
noPrinterFunc :: Maybe PrinterFunc
noPrinterFunc = Maybe PrinterFunc
forall a. Maybe a
Nothing
type PrinterFunc_WithClosures =
Gtk.Printer.Printer
-> Ptr ()
-> IO Bool
noPrinterFunc_WithClosures :: Maybe PrinterFunc_WithClosures
noPrinterFunc_WithClosures :: Maybe PrinterFunc_WithClosures
noPrinterFunc_WithClosures = Maybe PrinterFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_PrinterFunc :: PrinterFunc -> PrinterFunc_WithClosures
drop_closures_PrinterFunc :: PrinterFunc -> PrinterFunc_WithClosures
drop_closures_PrinterFunc PrinterFunc
_f Printer
printer Ptr ()
_ = PrinterFunc
_f Printer
printer
genClosure_PrinterFunc :: MonadIO m => PrinterFunc -> m (GClosure C_PrinterFunc)
genClosure_PrinterFunc :: forall (m :: * -> *).
MonadIO m =>
PrinterFunc -> m (GClosure C_PrinterFunc)
genClosure_PrinterFunc PrinterFunc
cb = IO (GClosure C_PrinterFunc) -> m (GClosure C_PrinterFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PrinterFunc) -> m (GClosure C_PrinterFunc))
-> IO (GClosure C_PrinterFunc) -> m (GClosure C_PrinterFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: PrinterFunc_WithClosures
cb' = PrinterFunc -> PrinterFunc_WithClosures
drop_closures_PrinterFunc PrinterFunc
cb
let cb'' :: C_PrinterFunc
cb'' = Maybe (Ptr (FunPtr C_PrinterFunc))
-> PrinterFunc_WithClosures -> C_PrinterFunc
wrap_PrinterFunc Maybe (Ptr (FunPtr C_PrinterFunc))
forall a. Maybe a
Nothing PrinterFunc_WithClosures
cb'
C_PrinterFunc -> IO (FunPtr C_PrinterFunc)
mk_PrinterFunc C_PrinterFunc
cb'' IO (FunPtr C_PrinterFunc)
-> (FunPtr C_PrinterFunc -> IO (GClosure C_PrinterFunc))
-> IO (GClosure C_PrinterFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PrinterFunc -> IO (GClosure C_PrinterFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PrinterFunc ::
Maybe (Ptr (FunPtr C_PrinterFunc)) ->
PrinterFunc_WithClosures ->
C_PrinterFunc
wrap_PrinterFunc :: Maybe (Ptr (FunPtr C_PrinterFunc))
-> PrinterFunc_WithClosures -> C_PrinterFunc
wrap_PrinterFunc Maybe (Ptr (FunPtr C_PrinterFunc))
gi'funptrptr PrinterFunc_WithClosures
gi'cb Ptr Printer
printer Ptr ()
data_ = do
printer' <- ((ManagedPtr Printer -> Printer) -> Ptr Printer -> IO Printer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Printer -> Printer
Gtk.Printer.Printer) Ptr Printer
printer
result <- gi'cb printer' data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_PrintSettingsFunc =
CString ->
CString ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PrintSettingsFunc :: FunPtr C_PrintSettingsFunc -> C_PrintSettingsFunc
dynamic_PrintSettingsFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PrintSettingsFunc
-> T.Text
-> T.Text
-> Ptr ()
-> m ()
dynamic_PrintSettingsFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PrintSettingsFunc -> Text -> Text -> Ptr () -> m ()
dynamic_PrintSettingsFunc FunPtr C_PrintSettingsFunc
__funPtr Text
key Text
value Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
key' <- Text -> IO CString
textToCString Text
key
value' <- textToCString value
(__dynamic_C_PrintSettingsFunc __funPtr) key' value' userData
freeMem key'
freeMem value'
return ()
foreign import ccall "wrapper"
mk_PrintSettingsFunc :: C_PrintSettingsFunc -> IO (FunPtr C_PrintSettingsFunc)
type PrintSettingsFunc =
T.Text
-> T.Text
-> IO ()
noPrintSettingsFunc :: Maybe PrintSettingsFunc
noPrintSettingsFunc :: Maybe PrintSettingsFunc
noPrintSettingsFunc = Maybe PrintSettingsFunc
forall a. Maybe a
Nothing
type PrintSettingsFunc_WithClosures =
T.Text
-> T.Text
-> Ptr ()
-> IO ()
noPrintSettingsFunc_WithClosures :: Maybe PrintSettingsFunc_WithClosures
noPrintSettingsFunc_WithClosures :: Maybe PrintSettingsFunc_WithClosures
noPrintSettingsFunc_WithClosures = Maybe PrintSettingsFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_PrintSettingsFunc :: PrintSettingsFunc -> PrintSettingsFunc_WithClosures
drop_closures_PrintSettingsFunc :: PrintSettingsFunc -> PrintSettingsFunc_WithClosures
drop_closures_PrintSettingsFunc PrintSettingsFunc
_f Text
key Text
value Ptr ()
_ = PrintSettingsFunc
_f Text
key Text
value
genClosure_PrintSettingsFunc :: MonadIO m => PrintSettingsFunc -> m (GClosure C_PrintSettingsFunc)
genClosure_PrintSettingsFunc :: forall (m :: * -> *).
MonadIO m =>
PrintSettingsFunc -> m (GClosure C_PrintSettingsFunc)
genClosure_PrintSettingsFunc PrintSettingsFunc
cb = IO (GClosure C_PrintSettingsFunc)
-> m (GClosure C_PrintSettingsFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PrintSettingsFunc)
-> m (GClosure C_PrintSettingsFunc))
-> IO (GClosure C_PrintSettingsFunc)
-> m (GClosure C_PrintSettingsFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: PrintSettingsFunc_WithClosures
cb' = PrintSettingsFunc -> PrintSettingsFunc_WithClosures
drop_closures_PrintSettingsFunc PrintSettingsFunc
cb
let cb'' :: C_PrintSettingsFunc
cb'' = Maybe (Ptr (FunPtr C_PrintSettingsFunc))
-> PrintSettingsFunc_WithClosures -> C_PrintSettingsFunc
wrap_PrintSettingsFunc Maybe (Ptr (FunPtr C_PrintSettingsFunc))
forall a. Maybe a
Nothing PrintSettingsFunc_WithClosures
cb'
C_PrintSettingsFunc -> IO (FunPtr C_PrintSettingsFunc)
mk_PrintSettingsFunc C_PrintSettingsFunc
cb'' IO (FunPtr C_PrintSettingsFunc)
-> (FunPtr C_PrintSettingsFunc
-> IO (GClosure C_PrintSettingsFunc))
-> IO (GClosure C_PrintSettingsFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PrintSettingsFunc -> IO (GClosure C_PrintSettingsFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PrintSettingsFunc ::
Maybe (Ptr (FunPtr C_PrintSettingsFunc)) ->
PrintSettingsFunc_WithClosures ->
C_PrintSettingsFunc
wrap_PrintSettingsFunc :: Maybe (Ptr (FunPtr C_PrintSettingsFunc))
-> PrintSettingsFunc_WithClosures -> C_PrintSettingsFunc
wrap_PrintSettingsFunc Maybe (Ptr (FunPtr C_PrintSettingsFunc))
gi'funptrptr PrintSettingsFunc_WithClosures
gi'cb CString
key CString
value Ptr ()
userData = do
key' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
key
value' <- cstringToText value
gi'cb key' value' userData
maybeReleaseFunPtr gi'funptrptr
type C_PrintJobCompleteFunc =
Ptr Gtk.PrintJob.PrintJob ->
Ptr () ->
Ptr GError ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PrintJobCompleteFunc :: FunPtr C_PrintJobCompleteFunc -> C_PrintJobCompleteFunc
dynamic_PrintJobCompleteFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.PrintJob.IsPrintJob a) =>
FunPtr C_PrintJobCompleteFunc
-> a
-> Ptr ()
-> GError
-> m ()
dynamic_PrintJobCompleteFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintJob a) =>
FunPtr C_PrintJobCompleteFunc -> a -> Ptr () -> GError -> m ()
dynamic_PrintJobCompleteFunc FunPtr C_PrintJobCompleteFunc
__funPtr a
printJob Ptr ()
userData GError
error_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
printJob' <- a -> IO (Ptr PrintJob)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
printJob
error_' <- unsafeManagedPtrGetPtr error_
(__dynamic_C_PrintJobCompleteFunc __funPtr) printJob' userData error_'
touchManagedPtr printJob
touchManagedPtr error_
return ()
foreign import ccall "wrapper"
mk_PrintJobCompleteFunc :: C_PrintJobCompleteFunc -> IO (FunPtr C_PrintJobCompleteFunc)
type PrintJobCompleteFunc =
Gtk.PrintJob.PrintJob
-> GError
-> IO ()
noPrintJobCompleteFunc :: Maybe PrintJobCompleteFunc
noPrintJobCompleteFunc :: Maybe PrintJobCompleteFunc
noPrintJobCompleteFunc = Maybe PrintJobCompleteFunc
forall a. Maybe a
Nothing
type PrintJobCompleteFunc_WithClosures =
Gtk.PrintJob.PrintJob
-> Ptr ()
-> GError
-> IO ()
noPrintJobCompleteFunc_WithClosures :: Maybe PrintJobCompleteFunc_WithClosures
noPrintJobCompleteFunc_WithClosures :: Maybe PrintJobCompleteFunc_WithClosures
noPrintJobCompleteFunc_WithClosures = Maybe PrintJobCompleteFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_PrintJobCompleteFunc :: PrintJobCompleteFunc -> PrintJobCompleteFunc_WithClosures
drop_closures_PrintJobCompleteFunc :: PrintJobCompleteFunc -> PrintJobCompleteFunc_WithClosures
drop_closures_PrintJobCompleteFunc PrintJobCompleteFunc
_f PrintJob
printJob Ptr ()
_ GError
error_ = PrintJobCompleteFunc
_f PrintJob
printJob GError
error_
genClosure_PrintJobCompleteFunc :: MonadIO m => PrintJobCompleteFunc -> m (GClosure C_PrintJobCompleteFunc)
genClosure_PrintJobCompleteFunc :: forall (m :: * -> *).
MonadIO m =>
PrintJobCompleteFunc -> m (GClosure C_PrintJobCompleteFunc)
genClosure_PrintJobCompleteFunc PrintJobCompleteFunc
cb = IO (GClosure C_PrintJobCompleteFunc)
-> m (GClosure C_PrintJobCompleteFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PrintJobCompleteFunc)
-> m (GClosure C_PrintJobCompleteFunc))
-> IO (GClosure C_PrintJobCompleteFunc)
-> m (GClosure C_PrintJobCompleteFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: PrintJobCompleteFunc_WithClosures
cb' = PrintJobCompleteFunc -> PrintJobCompleteFunc_WithClosures
drop_closures_PrintJobCompleteFunc PrintJobCompleteFunc
cb
let cb'' :: C_PrintJobCompleteFunc
cb'' = Maybe (Ptr (FunPtr C_PrintJobCompleteFunc))
-> PrintJobCompleteFunc_WithClosures -> C_PrintJobCompleteFunc
wrap_PrintJobCompleteFunc Maybe (Ptr (FunPtr C_PrintJobCompleteFunc))
forall a. Maybe a
Nothing PrintJobCompleteFunc_WithClosures
cb'
C_PrintJobCompleteFunc -> IO (FunPtr C_PrintJobCompleteFunc)
mk_PrintJobCompleteFunc C_PrintJobCompleteFunc
cb'' IO (FunPtr C_PrintJobCompleteFunc)
-> (FunPtr C_PrintJobCompleteFunc
-> IO (GClosure C_PrintJobCompleteFunc))
-> IO (GClosure C_PrintJobCompleteFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PrintJobCompleteFunc
-> IO (GClosure C_PrintJobCompleteFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PrintJobCompleteFunc ::
Maybe (Ptr (FunPtr C_PrintJobCompleteFunc)) ->
PrintJobCompleteFunc_WithClosures ->
C_PrintJobCompleteFunc
wrap_PrintJobCompleteFunc :: Maybe (Ptr (FunPtr C_PrintJobCompleteFunc))
-> PrintJobCompleteFunc_WithClosures -> C_PrintJobCompleteFunc
wrap_PrintJobCompleteFunc Maybe (Ptr (FunPtr C_PrintJobCompleteFunc))
gi'funptrptr PrintJobCompleteFunc_WithClosures
gi'cb Ptr PrintJob
printJob Ptr ()
userData Ptr GError
error_ = do
printJob' <- ((ManagedPtr PrintJob -> PrintJob) -> Ptr PrintJob -> IO PrintJob
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PrintJob -> PrintJob
Gtk.PrintJob.PrintJob) Ptr PrintJob
printJob
error_' <- (newBoxed GError) error_
gi'cb printJob' userData error_'
maybeReleaseFunPtr gi'funptrptr
type C_PageSetupDoneFunc =
Ptr Gtk.PageSetup.PageSetup ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PageSetupDoneFunc :: FunPtr C_PageSetupDoneFunc -> C_PageSetupDoneFunc
dynamic_PageSetupDoneFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.PageSetup.IsPageSetup a) =>
FunPtr C_PageSetupDoneFunc
-> a
-> Ptr ()
-> m ()
dynamic_PageSetupDoneFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPageSetup a) =>
FunPtr C_PageSetupDoneFunc -> a -> Ptr () -> m ()
dynamic_PageSetupDoneFunc FunPtr C_PageSetupDoneFunc
__funPtr a
pageSetup Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
pageSetup' <- a -> IO (Ptr PageSetup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pageSetup
(__dynamic_C_PageSetupDoneFunc __funPtr) pageSetup' data_
touchManagedPtr pageSetup
return ()
foreign import ccall "wrapper"
mk_PageSetupDoneFunc :: C_PageSetupDoneFunc -> IO (FunPtr C_PageSetupDoneFunc)
type PageSetupDoneFunc =
Gtk.PageSetup.PageSetup
-> IO ()
noPageSetupDoneFunc :: Maybe PageSetupDoneFunc
noPageSetupDoneFunc :: Maybe PageSetupDoneFunc
noPageSetupDoneFunc = Maybe PageSetupDoneFunc
forall a. Maybe a
Nothing
type PageSetupDoneFunc_WithClosures =
Gtk.PageSetup.PageSetup
-> Ptr ()
-> IO ()
noPageSetupDoneFunc_WithClosures :: Maybe PageSetupDoneFunc_WithClosures
noPageSetupDoneFunc_WithClosures :: Maybe PageSetupDoneFunc_WithClosures
noPageSetupDoneFunc_WithClosures = Maybe PageSetupDoneFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_PageSetupDoneFunc :: PageSetupDoneFunc -> PageSetupDoneFunc_WithClosures
drop_closures_PageSetupDoneFunc :: PageSetupDoneFunc -> PageSetupDoneFunc_WithClosures
drop_closures_PageSetupDoneFunc PageSetupDoneFunc
_f PageSetup
pageSetup Ptr ()
_ = PageSetupDoneFunc
_f PageSetup
pageSetup
genClosure_PageSetupDoneFunc :: MonadIO m => PageSetupDoneFunc -> m (GClosure C_PageSetupDoneFunc)
genClosure_PageSetupDoneFunc :: forall (m :: * -> *).
MonadIO m =>
PageSetupDoneFunc -> m (GClosure C_PageSetupDoneFunc)
genClosure_PageSetupDoneFunc PageSetupDoneFunc
cb = IO (GClosure C_PageSetupDoneFunc)
-> m (GClosure C_PageSetupDoneFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PageSetupDoneFunc)
-> m (GClosure C_PageSetupDoneFunc))
-> IO (GClosure C_PageSetupDoneFunc)
-> m (GClosure C_PageSetupDoneFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: PageSetupDoneFunc_WithClosures
cb' = PageSetupDoneFunc -> PageSetupDoneFunc_WithClosures
drop_closures_PageSetupDoneFunc PageSetupDoneFunc
cb
let cb'' :: C_PageSetupDoneFunc
cb'' = Maybe (Ptr (FunPtr C_PageSetupDoneFunc))
-> PageSetupDoneFunc_WithClosures -> C_PageSetupDoneFunc
wrap_PageSetupDoneFunc Maybe (Ptr (FunPtr C_PageSetupDoneFunc))
forall a. Maybe a
Nothing PageSetupDoneFunc_WithClosures
cb'
C_PageSetupDoneFunc -> IO (FunPtr C_PageSetupDoneFunc)
mk_PageSetupDoneFunc C_PageSetupDoneFunc
cb'' IO (FunPtr C_PageSetupDoneFunc)
-> (FunPtr C_PageSetupDoneFunc
-> IO (GClosure C_PageSetupDoneFunc))
-> IO (GClosure C_PageSetupDoneFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PageSetupDoneFunc -> IO (GClosure C_PageSetupDoneFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PageSetupDoneFunc ::
Maybe (Ptr (FunPtr C_PageSetupDoneFunc)) ->
PageSetupDoneFunc_WithClosures ->
C_PageSetupDoneFunc
wrap_PageSetupDoneFunc :: Maybe (Ptr (FunPtr C_PageSetupDoneFunc))
-> PageSetupDoneFunc_WithClosures -> C_PageSetupDoneFunc
wrap_PageSetupDoneFunc Maybe (Ptr (FunPtr C_PageSetupDoneFunc))
gi'funptrptr PageSetupDoneFunc_WithClosures
gi'cb Ptr PageSetup
pageSetup Ptr ()
data_ = do
pageSetup' <- ((ManagedPtr PageSetup -> PageSetup)
-> Ptr PageSetup -> IO PageSetup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PageSetup -> PageSetup
Gtk.PageSetup.PageSetup) Ptr PageSetup
pageSetup
gi'cb pageSetup' data_
maybeReleaseFunPtr gi'funptrptr
type =
Ptr Gtk.MenuButton.MenuButton ->
Ptr () ->
IO ()
foreign import ccall "dynamic" :: FunPtr C_MenuButtonCreatePopupFunc -> C_MenuButtonCreatePopupFunc
dynamic_MenuButtonCreatePopupFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.MenuButton.IsMenuButton a) =>
FunPtr C_MenuButtonCreatePopupFunc
-> a
-> Ptr ()
-> m ()
FunPtr C_MenuButtonCreatePopupFunc
__funPtr a
menuButton Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
menuButton' <- a -> IO (Ptr MenuButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuButton
(__dynamic_C_MenuButtonCreatePopupFunc __funPtr) menuButton' userData
touchManagedPtr menuButton
return ()
foreign import ccall "wrapper"
:: C_MenuButtonCreatePopupFunc -> IO (FunPtr C_MenuButtonCreatePopupFunc)
type =
Gtk.MenuButton.MenuButton
-> IO ()
noMenuButtonCreatePopupFunc :: Maybe MenuButtonCreatePopupFunc
= Maybe MenuButtonCreatePopupFunc
forall a. Maybe a
Nothing
type =
Gtk.MenuButton.MenuButton
-> Ptr ()
-> IO ()
noMenuButtonCreatePopupFunc_WithClosures :: Maybe MenuButtonCreatePopupFunc_WithClosures
= Maybe MenuButtonCreatePopupFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_MenuButtonCreatePopupFunc :: MenuButtonCreatePopupFunc -> MenuButtonCreatePopupFunc_WithClosures
MenuButtonCreatePopupFunc
_f MenuButton
menuButton Ptr ()
_ = MenuButtonCreatePopupFunc
_f MenuButton
menuButton
genClosure_MenuButtonCreatePopupFunc :: MonadIO m => MenuButtonCreatePopupFunc -> m (GClosure C_MenuButtonCreatePopupFunc)
MenuButtonCreatePopupFunc
cb = IO (GClosure C_MenuButtonCreatePopupFunc)
-> m (GClosure C_MenuButtonCreatePopupFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuButtonCreatePopupFunc)
-> m (GClosure C_MenuButtonCreatePopupFunc))
-> IO (GClosure C_MenuButtonCreatePopupFunc)
-> m (GClosure C_MenuButtonCreatePopupFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: MenuButtonCreatePopupFunc_WithClosures
cb' = MenuButtonCreatePopupFunc -> MenuButtonCreatePopupFunc_WithClosures
drop_closures_MenuButtonCreatePopupFunc MenuButtonCreatePopupFunc
cb
let cb'' :: C_MenuButtonCreatePopupFunc
cb'' = Maybe (Ptr (FunPtr C_MenuButtonCreatePopupFunc))
-> MenuButtonCreatePopupFunc_WithClosures
-> C_MenuButtonCreatePopupFunc
wrap_MenuButtonCreatePopupFunc Maybe (Ptr (FunPtr C_MenuButtonCreatePopupFunc))
forall a. Maybe a
Nothing MenuButtonCreatePopupFunc_WithClosures
cb'
C_MenuButtonCreatePopupFunc
-> IO (FunPtr C_MenuButtonCreatePopupFunc)
mk_MenuButtonCreatePopupFunc C_MenuButtonCreatePopupFunc
cb'' IO (FunPtr C_MenuButtonCreatePopupFunc)
-> (FunPtr C_MenuButtonCreatePopupFunc
-> IO (GClosure C_MenuButtonCreatePopupFunc))
-> IO (GClosure C_MenuButtonCreatePopupFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuButtonCreatePopupFunc
-> IO (GClosure C_MenuButtonCreatePopupFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuButtonCreatePopupFunc ::
Maybe (Ptr (FunPtr C_MenuButtonCreatePopupFunc)) ->
MenuButtonCreatePopupFunc_WithClosures ->
C_MenuButtonCreatePopupFunc
Maybe (Ptr (FunPtr C_MenuButtonCreatePopupFunc))
gi'funptrptr MenuButtonCreatePopupFunc_WithClosures
gi'cb Ptr MenuButton
menuButton Ptr ()
userData = do
menuButton' <- ((ManagedPtr MenuButton -> MenuButton)
-> Ptr MenuButton -> IO MenuButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuButton -> MenuButton
Gtk.MenuButton.MenuButton) Ptr MenuButton
menuButton
gi'cb menuButton' userData
maybeReleaseFunPtr gi'funptrptr
type C_MapListModelMapFunc =
Ptr GObject.Object.Object ->
Ptr () ->
IO (Ptr GObject.Object.Object)
foreign import ccall "dynamic" __dynamic_C_MapListModelMapFunc :: FunPtr C_MapListModelMapFunc -> C_MapListModelMapFunc
dynamic_MapListModelMapFunc ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
FunPtr C_MapListModelMapFunc
-> a
-> Ptr ()
-> m GObject.Object.Object
dynamic_MapListModelMapFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_MapListModelMapFunc -> a -> Ptr () -> m Object
dynamic_MapListModelMapFunc FunPtr C_MapListModelMapFunc
__funPtr a
item Ptr ()
userData = IO Object -> m Object
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
item
result <- (__dynamic_C_MapListModelMapFunc __funPtr) item' userData
checkUnexpectedReturnNULL "mapListModelMapFunc" result
result' <- (wrapObject GObject.Object.Object) result
touchManagedPtr item
return result'
foreign import ccall "wrapper"
mk_MapListModelMapFunc :: C_MapListModelMapFunc -> IO (FunPtr C_MapListModelMapFunc)
type MapListModelMapFunc =
GObject.Object.Object
-> IO GObject.Object.Object
noMapListModelMapFunc :: Maybe MapListModelMapFunc
noMapListModelMapFunc :: Maybe (Object -> IO Object)
noMapListModelMapFunc = Maybe (Object -> IO Object)
forall a. Maybe a
Nothing
type MapListModelMapFunc_WithClosures =
GObject.Object.Object
-> Ptr ()
-> IO GObject.Object.Object
noMapListModelMapFunc_WithClosures :: Maybe MapListModelMapFunc_WithClosures
noMapListModelMapFunc_WithClosures :: Maybe MapListModelMapFunc_WithClosures
noMapListModelMapFunc_WithClosures = Maybe MapListModelMapFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_MapListModelMapFunc :: MapListModelMapFunc -> MapListModelMapFunc_WithClosures
drop_closures_MapListModelMapFunc :: (Object -> IO Object) -> MapListModelMapFunc_WithClosures
drop_closures_MapListModelMapFunc Object -> IO Object
_f Object
item Ptr ()
_ = Object -> IO Object
_f Object
item
genClosure_MapListModelMapFunc :: MonadIO m => MapListModelMapFunc -> m (GClosure C_MapListModelMapFunc)
genClosure_MapListModelMapFunc :: forall (m :: * -> *).
MonadIO m =>
(Object -> IO Object) -> m (GClosure C_MapListModelMapFunc)
genClosure_MapListModelMapFunc Object -> IO Object
cb = IO (GClosure C_MapListModelMapFunc)
-> m (GClosure C_MapListModelMapFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MapListModelMapFunc)
-> m (GClosure C_MapListModelMapFunc))
-> IO (GClosure C_MapListModelMapFunc)
-> m (GClosure C_MapListModelMapFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: MapListModelMapFunc_WithClosures
cb' = (Object -> IO Object) -> MapListModelMapFunc_WithClosures
drop_closures_MapListModelMapFunc Object -> IO Object
cb
let cb'' :: C_MapListModelMapFunc
cb'' = Maybe (Ptr (FunPtr C_MapListModelMapFunc))
-> MapListModelMapFunc_WithClosures -> C_MapListModelMapFunc
wrap_MapListModelMapFunc Maybe (Ptr (FunPtr C_MapListModelMapFunc))
forall a. Maybe a
Nothing MapListModelMapFunc_WithClosures
cb'
C_MapListModelMapFunc -> IO (FunPtr C_MapListModelMapFunc)
mk_MapListModelMapFunc C_MapListModelMapFunc
cb'' IO (FunPtr C_MapListModelMapFunc)
-> (FunPtr C_MapListModelMapFunc
-> IO (GClosure C_MapListModelMapFunc))
-> IO (GClosure C_MapListModelMapFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MapListModelMapFunc -> IO (GClosure C_MapListModelMapFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MapListModelMapFunc ::
Maybe (Ptr (FunPtr C_MapListModelMapFunc)) ->
MapListModelMapFunc_WithClosures ->
C_MapListModelMapFunc
wrap_MapListModelMapFunc :: Maybe (Ptr (FunPtr C_MapListModelMapFunc))
-> MapListModelMapFunc_WithClosures -> C_MapListModelMapFunc
wrap_MapListModelMapFunc Maybe (Ptr (FunPtr C_MapListModelMapFunc))
gi'funptrptr MapListModelMapFunc_WithClosures
gi'cb Ptr Object
item Ptr ()
userData = do
item' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
item
result <- gi'cb item' userData
maybeReleaseFunPtr gi'funptrptr
result' <- B.ManagedPtr.disownObject result
return result'
type =
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "dynamic" :: FunPtr C_ListBoxUpdateHeaderFunc -> C_ListBoxUpdateHeaderFunc
dynamic_ListBoxUpdateHeaderFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.ListBoxRow.IsListBoxRow a, Gtk.ListBoxRow.IsListBoxRow b) =>
FunPtr C_ListBoxUpdateHeaderFunc
-> a
-> Maybe (b)
-> Ptr ()
-> m ()
FunPtr C_ListBoxUpdateHeaderFunc
__funPtr a
row Maybe b
before Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
row' <- a -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
row
maybeBefore <- case before of
Maybe b
Nothing -> Ptr ListBoxRow -> IO (Ptr ListBoxRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListBoxRow
forall a. Ptr a
FP.nullPtr
Just b
jBefore -> do
jBefore' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jBefore
return jBefore'
(__dynamic_C_ListBoxUpdateHeaderFunc __funPtr) row' maybeBefore userData
touchManagedPtr row
whenJust before touchManagedPtr
return ()
foreign import ccall "wrapper"
:: C_ListBoxUpdateHeaderFunc -> IO (FunPtr C_ListBoxUpdateHeaderFunc)
type =
Gtk.ListBoxRow.ListBoxRow
-> Maybe Gtk.ListBoxRow.ListBoxRow
-> IO ()
noListBoxUpdateHeaderFunc :: Maybe ListBoxUpdateHeaderFunc
= Maybe ListBoxUpdateHeaderFunc
forall a. Maybe a
Nothing
type =
Gtk.ListBoxRow.ListBoxRow
-> Maybe Gtk.ListBoxRow.ListBoxRow
-> Ptr ()
-> IO ()
noListBoxUpdateHeaderFunc_WithClosures :: Maybe ListBoxUpdateHeaderFunc_WithClosures
= Maybe ListBoxUpdateHeaderFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_ListBoxUpdateHeaderFunc :: ListBoxUpdateHeaderFunc -> ListBoxUpdateHeaderFunc_WithClosures
ListBoxUpdateHeaderFunc
_f ListBoxRow
row Maybe ListBoxRow
before Ptr ()
_ = ListBoxUpdateHeaderFunc
_f ListBoxRow
row Maybe ListBoxRow
before
genClosure_ListBoxUpdateHeaderFunc :: MonadIO m => ListBoxUpdateHeaderFunc -> m (GClosure C_ListBoxUpdateHeaderFunc)
ListBoxUpdateHeaderFunc
cb = IO (GClosure C_ListBoxUpdateHeaderFunc)
-> m (GClosure C_ListBoxUpdateHeaderFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxUpdateHeaderFunc)
-> m (GClosure C_ListBoxUpdateHeaderFunc))
-> IO (GClosure C_ListBoxUpdateHeaderFunc)
-> m (GClosure C_ListBoxUpdateHeaderFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ListBoxUpdateHeaderFunc_WithClosures
cb' = ListBoxUpdateHeaderFunc -> ListBoxUpdateHeaderFunc_WithClosures
drop_closures_ListBoxUpdateHeaderFunc ListBoxUpdateHeaderFunc
cb
let cb'' :: C_ListBoxUpdateHeaderFunc
cb'' = Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc))
-> ListBoxUpdateHeaderFunc_WithClosures
-> C_ListBoxUpdateHeaderFunc
wrap_ListBoxUpdateHeaderFunc Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc))
forall a. Maybe a
Nothing ListBoxUpdateHeaderFunc_WithClosures
cb'
C_ListBoxUpdateHeaderFunc -> IO (FunPtr C_ListBoxUpdateHeaderFunc)
mk_ListBoxUpdateHeaderFunc C_ListBoxUpdateHeaderFunc
cb'' IO (FunPtr C_ListBoxUpdateHeaderFunc)
-> (FunPtr C_ListBoxUpdateHeaderFunc
-> IO (GClosure C_ListBoxUpdateHeaderFunc))
-> IO (GClosure C_ListBoxUpdateHeaderFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxUpdateHeaderFunc
-> IO (GClosure C_ListBoxUpdateHeaderFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxUpdateHeaderFunc ::
Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc)) ->
ListBoxUpdateHeaderFunc_WithClosures ->
C_ListBoxUpdateHeaderFunc
Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc))
gi'funptrptr ListBoxUpdateHeaderFunc_WithClosures
gi'cb Ptr ListBoxRow
row Ptr ListBoxRow
before Ptr ()
userData = do
row' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
row
maybeBefore <-
if before == FP.nullPtr
then return Nothing
else do
before' <- (newObject Gtk.ListBoxRow.ListBoxRow) before
return $ Just before'
gi'cb row' maybeBefore userData
maybeReleaseFunPtr gi'funptrptr
type C_ListBoxSortFunc =
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO Int32
foreign import ccall "dynamic" __dynamic_C_ListBoxSortFunc :: FunPtr C_ListBoxSortFunc -> C_ListBoxSortFunc
dynamic_ListBoxSortFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.ListBoxRow.IsListBoxRow a, Gtk.ListBoxRow.IsListBoxRow b) =>
FunPtr C_ListBoxSortFunc
-> a
-> b
-> Ptr ()
-> m Int32
dynamic_ListBoxSortFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBoxRow a, IsListBoxRow b) =>
FunPtr C_ListBoxSortFunc -> a -> b -> Ptr () -> m Int32
dynamic_ListBoxSortFunc FunPtr C_ListBoxSortFunc
__funPtr a
row1 b
row2 Ptr ()
userData = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
row1' <- a -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
row1
row2' <- unsafeManagedPtrCastPtr row2
result <- (__dynamic_C_ListBoxSortFunc __funPtr) row1' row2' userData
touchManagedPtr row1
touchManagedPtr row2
return result
foreign import ccall "wrapper"
mk_ListBoxSortFunc :: C_ListBoxSortFunc -> IO (FunPtr C_ListBoxSortFunc)
type ListBoxSortFunc =
Gtk.ListBoxRow.ListBoxRow
-> Gtk.ListBoxRow.ListBoxRow
-> IO Int32
noListBoxSortFunc :: Maybe ListBoxSortFunc
noListBoxSortFunc :: Maybe ListBoxSortFunc
noListBoxSortFunc = Maybe ListBoxSortFunc
forall a. Maybe a
Nothing
type ListBoxSortFunc_WithClosures =
Gtk.ListBoxRow.ListBoxRow
-> Gtk.ListBoxRow.ListBoxRow
-> Ptr ()
-> IO Int32
noListBoxSortFunc_WithClosures :: Maybe ListBoxSortFunc_WithClosures
noListBoxSortFunc_WithClosures :: Maybe ListBoxSortFunc_WithClosures
noListBoxSortFunc_WithClosures = Maybe ListBoxSortFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_ListBoxSortFunc :: ListBoxSortFunc -> ListBoxSortFunc_WithClosures
drop_closures_ListBoxSortFunc :: ListBoxSortFunc -> ListBoxSortFunc_WithClosures
drop_closures_ListBoxSortFunc ListBoxSortFunc
_f ListBoxRow
row1 ListBoxRow
row2 Ptr ()
_ = ListBoxSortFunc
_f ListBoxRow
row1 ListBoxRow
row2
genClosure_ListBoxSortFunc :: MonadIO m => ListBoxSortFunc -> m (GClosure C_ListBoxSortFunc)
genClosure_ListBoxSortFunc :: forall (m :: * -> *).
MonadIO m =>
ListBoxSortFunc -> m (GClosure C_ListBoxSortFunc)
genClosure_ListBoxSortFunc ListBoxSortFunc
cb = IO (GClosure C_ListBoxSortFunc) -> m (GClosure C_ListBoxSortFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxSortFunc) -> m (GClosure C_ListBoxSortFunc))
-> IO (GClosure C_ListBoxSortFunc)
-> m (GClosure C_ListBoxSortFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ListBoxSortFunc_WithClosures
cb' = ListBoxSortFunc -> ListBoxSortFunc_WithClosures
drop_closures_ListBoxSortFunc ListBoxSortFunc
cb
let cb'' :: C_ListBoxSortFunc
cb'' = Maybe (Ptr (FunPtr C_ListBoxSortFunc))
-> ListBoxSortFunc_WithClosures -> C_ListBoxSortFunc
wrap_ListBoxSortFunc Maybe (Ptr (FunPtr C_ListBoxSortFunc))
forall a. Maybe a
Nothing ListBoxSortFunc_WithClosures
cb'
C_ListBoxSortFunc -> IO (FunPtr C_ListBoxSortFunc)
mk_ListBoxSortFunc C_ListBoxSortFunc
cb'' IO (FunPtr C_ListBoxSortFunc)
-> (FunPtr C_ListBoxSortFunc -> IO (GClosure C_ListBoxSortFunc))
-> IO (GClosure C_ListBoxSortFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxSortFunc -> IO (GClosure C_ListBoxSortFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxSortFunc ::
Maybe (Ptr (FunPtr C_ListBoxSortFunc)) ->
ListBoxSortFunc_WithClosures ->
C_ListBoxSortFunc
wrap_ListBoxSortFunc :: Maybe (Ptr (FunPtr C_ListBoxSortFunc))
-> ListBoxSortFunc_WithClosures -> C_ListBoxSortFunc
wrap_ListBoxSortFunc Maybe (Ptr (FunPtr C_ListBoxSortFunc))
gi'funptrptr ListBoxSortFunc_WithClosures
gi'cb Ptr ListBoxRow
row1 Ptr ListBoxRow
row2 Ptr ()
userData = do
row1' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
row1
row2' <- (newObject Gtk.ListBoxRow.ListBoxRow) row2
result <- gi'cb row1' row2' userData
maybeReleaseFunPtr gi'funptrptr
return result
type C_ListBoxForeachFunc =
Ptr Gtk.ListBox.ListBox ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_ListBoxForeachFunc :: FunPtr C_ListBoxForeachFunc -> C_ListBoxForeachFunc
dynamic_ListBoxForeachFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.ListBox.IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) =>
FunPtr C_ListBoxForeachFunc
-> a
-> b
-> Ptr ()
-> m ()
dynamic_ListBoxForeachFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsListBoxRow b) =>
FunPtr C_ListBoxForeachFunc -> a -> b -> Ptr () -> m ()
dynamic_ListBoxForeachFunc FunPtr C_ListBoxForeachFunc
__funPtr a
box b
row Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
row' <- unsafeManagedPtrCastPtr row
(__dynamic_C_ListBoxForeachFunc __funPtr) box' row' userData
touchManagedPtr box
touchManagedPtr row
return ()
foreign import ccall "wrapper"
mk_ListBoxForeachFunc :: C_ListBoxForeachFunc -> IO (FunPtr C_ListBoxForeachFunc)
type ListBoxForeachFunc =
Gtk.ListBox.ListBox
-> Gtk.ListBoxRow.ListBoxRow
-> IO ()
noListBoxForeachFunc :: Maybe ListBoxForeachFunc
noListBoxForeachFunc :: Maybe ListBoxForeachFunc
noListBoxForeachFunc = Maybe ListBoxForeachFunc
forall a. Maybe a
Nothing
type ListBoxForeachFunc_WithClosures =
Gtk.ListBox.ListBox
-> Gtk.ListBoxRow.ListBoxRow
-> Ptr ()
-> IO ()
noListBoxForeachFunc_WithClosures :: Maybe ListBoxForeachFunc_WithClosures
noListBoxForeachFunc_WithClosures :: Maybe ListBoxForeachFunc_WithClosures
noListBoxForeachFunc_WithClosures = Maybe ListBoxForeachFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_ListBoxForeachFunc :: ListBoxForeachFunc -> ListBoxForeachFunc_WithClosures
drop_closures_ListBoxForeachFunc :: ListBoxForeachFunc -> ListBoxForeachFunc_WithClosures
drop_closures_ListBoxForeachFunc ListBoxForeachFunc
_f ListBox
box ListBoxRow
row Ptr ()
_ = ListBoxForeachFunc
_f ListBox
box ListBoxRow
row
genClosure_ListBoxForeachFunc :: MonadIO m => ListBoxForeachFunc -> m (GClosure C_ListBoxForeachFunc)
genClosure_ListBoxForeachFunc :: forall (m :: * -> *).
MonadIO m =>
ListBoxForeachFunc -> m (GClosure C_ListBoxForeachFunc)
genClosure_ListBoxForeachFunc ListBoxForeachFunc
cb = IO (GClosure C_ListBoxForeachFunc)
-> m (GClosure C_ListBoxForeachFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxForeachFunc)
-> m (GClosure C_ListBoxForeachFunc))
-> IO (GClosure C_ListBoxForeachFunc)
-> m (GClosure C_ListBoxForeachFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ListBoxForeachFunc_WithClosures
cb' = ListBoxForeachFunc -> ListBoxForeachFunc_WithClosures
drop_closures_ListBoxForeachFunc ListBoxForeachFunc
cb
let cb'' :: C_ListBoxForeachFunc
cb'' = Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
-> ListBoxForeachFunc_WithClosures -> C_ListBoxForeachFunc
wrap_ListBoxForeachFunc Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
forall a. Maybe a
Nothing ListBoxForeachFunc_WithClosures
cb'
C_ListBoxForeachFunc -> IO (FunPtr C_ListBoxForeachFunc)
mk_ListBoxForeachFunc C_ListBoxForeachFunc
cb'' IO (FunPtr C_ListBoxForeachFunc)
-> (FunPtr C_ListBoxForeachFunc
-> IO (GClosure C_ListBoxForeachFunc))
-> IO (GClosure C_ListBoxForeachFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxForeachFunc -> IO (GClosure C_ListBoxForeachFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxForeachFunc ::
Maybe (Ptr (FunPtr C_ListBoxForeachFunc)) ->
ListBoxForeachFunc_WithClosures ->
C_ListBoxForeachFunc
wrap_ListBoxForeachFunc :: Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
-> ListBoxForeachFunc_WithClosures -> C_ListBoxForeachFunc
wrap_ListBoxForeachFunc Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
gi'funptrptr ListBoxForeachFunc_WithClosures
gi'cb Ptr ListBox
box Ptr ListBoxRow
row Ptr ()
userData = do
box' <- ((ManagedPtr ListBox -> ListBox) -> Ptr ListBox -> IO ListBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBox -> ListBox
Gtk.ListBox.ListBox) Ptr ListBox
box
row' <- (newObject Gtk.ListBoxRow.ListBoxRow) row
gi'cb box' row' userData
maybeReleaseFunPtr gi'funptrptr
type C_ListBoxFilterFunc =
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_ListBoxFilterFunc :: FunPtr C_ListBoxFilterFunc -> C_ListBoxFilterFunc
dynamic_ListBoxFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.ListBoxRow.IsListBoxRow a) =>
FunPtr C_ListBoxFilterFunc
-> a
-> Ptr ()
-> m Bool
dynamic_ListBoxFilterFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBoxRow a) =>
FunPtr C_ListBoxFilterFunc -> a -> Ptr () -> m Bool
dynamic_ListBoxFilterFunc FunPtr C_ListBoxFilterFunc
__funPtr a
row Ptr ()
userData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
row' <- a -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
row
result <- (__dynamic_C_ListBoxFilterFunc __funPtr) row' userData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr row
return result'
foreign import ccall "wrapper"
mk_ListBoxFilterFunc :: C_ListBoxFilterFunc -> IO (FunPtr C_ListBoxFilterFunc)
type ListBoxFilterFunc =
Gtk.ListBoxRow.ListBoxRow
-> IO Bool
noListBoxFilterFunc :: Maybe ListBoxFilterFunc
noListBoxFilterFunc :: Maybe ListBoxFilterFunc
noListBoxFilterFunc = Maybe ListBoxFilterFunc
forall a. Maybe a
Nothing
type ListBoxFilterFunc_WithClosures =
Gtk.ListBoxRow.ListBoxRow
-> Ptr ()
-> IO Bool
noListBoxFilterFunc_WithClosures :: Maybe ListBoxFilterFunc_WithClosures
noListBoxFilterFunc_WithClosures :: Maybe ListBoxFilterFunc_WithClosures
noListBoxFilterFunc_WithClosures = Maybe ListBoxFilterFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_ListBoxFilterFunc :: ListBoxFilterFunc -> ListBoxFilterFunc_WithClosures
drop_closures_ListBoxFilterFunc :: ListBoxFilterFunc -> ListBoxFilterFunc_WithClosures
drop_closures_ListBoxFilterFunc ListBoxFilterFunc
_f ListBoxRow
row Ptr ()
_ = ListBoxFilterFunc
_f ListBoxRow
row
genClosure_ListBoxFilterFunc :: MonadIO m => ListBoxFilterFunc -> m (GClosure C_ListBoxFilterFunc)
genClosure_ListBoxFilterFunc :: forall (m :: * -> *).
MonadIO m =>
ListBoxFilterFunc -> m (GClosure C_ListBoxFilterFunc)
genClosure_ListBoxFilterFunc ListBoxFilterFunc
cb = IO (GClosure C_ListBoxFilterFunc)
-> m (GClosure C_ListBoxFilterFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxFilterFunc)
-> m (GClosure C_ListBoxFilterFunc))
-> IO (GClosure C_ListBoxFilterFunc)
-> m (GClosure C_ListBoxFilterFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ListBoxFilterFunc_WithClosures
cb' = ListBoxFilterFunc -> ListBoxFilterFunc_WithClosures
drop_closures_ListBoxFilterFunc ListBoxFilterFunc
cb
let cb'' :: C_ListBoxFilterFunc
cb'' = Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
-> ListBoxFilterFunc_WithClosures -> C_ListBoxFilterFunc
wrap_ListBoxFilterFunc Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
forall a. Maybe a
Nothing ListBoxFilterFunc_WithClosures
cb'
C_ListBoxFilterFunc -> IO (FunPtr C_ListBoxFilterFunc)
mk_ListBoxFilterFunc C_ListBoxFilterFunc
cb'' IO (FunPtr C_ListBoxFilterFunc)
-> (FunPtr C_ListBoxFilterFunc
-> IO (GClosure C_ListBoxFilterFunc))
-> IO (GClosure C_ListBoxFilterFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxFilterFunc -> IO (GClosure C_ListBoxFilterFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxFilterFunc ::
Maybe (Ptr (FunPtr C_ListBoxFilterFunc)) ->
ListBoxFilterFunc_WithClosures ->
C_ListBoxFilterFunc
wrap_ListBoxFilterFunc :: Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
-> ListBoxFilterFunc_WithClosures -> C_ListBoxFilterFunc
wrap_ListBoxFilterFunc Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
gi'funptrptr ListBoxFilterFunc_WithClosures
gi'cb Ptr ListBoxRow
row Ptr ()
userData = do
row' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
row
result <- gi'cb row' userData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_ListBoxCreateWidgetFunc =
Ptr GObject.Object.Object ->
Ptr () ->
IO (Ptr Gtk.Widget.Widget)
foreign import ccall "dynamic" __dynamic_C_ListBoxCreateWidgetFunc :: FunPtr C_ListBoxCreateWidgetFunc -> C_ListBoxCreateWidgetFunc
dynamic_ListBoxCreateWidgetFunc ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
FunPtr C_ListBoxCreateWidgetFunc
-> a
-> Ptr ()
-> m Gtk.Widget.Widget
dynamic_ListBoxCreateWidgetFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ListBoxCreateWidgetFunc -> a -> Ptr () -> m Widget
dynamic_ListBoxCreateWidgetFunc FunPtr C_ListBoxCreateWidgetFunc
__funPtr a
item Ptr ()
userData = IO Widget -> m Widget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
result <- (__dynamic_C_ListBoxCreateWidgetFunc __funPtr) item' userData
checkUnexpectedReturnNULL "listBoxCreateWidgetFunc" result
result' <- (wrapObject Gtk.Widget.Widget) result
touchManagedPtr item
return result'
foreign import ccall "wrapper"
mk_ListBoxCreateWidgetFunc :: C_ListBoxCreateWidgetFunc -> IO (FunPtr C_ListBoxCreateWidgetFunc)
type ListBoxCreateWidgetFunc =
GObject.Object.Object
-> IO Gtk.Widget.Widget
noListBoxCreateWidgetFunc :: Maybe ListBoxCreateWidgetFunc
noListBoxCreateWidgetFunc :: Maybe ListBoxCreateWidgetFunc
noListBoxCreateWidgetFunc = Maybe ListBoxCreateWidgetFunc
forall a. Maybe a
Nothing
type ListBoxCreateWidgetFunc_WithClosures =
GObject.Object.Object
-> Ptr ()
-> IO Gtk.Widget.Widget
noListBoxCreateWidgetFunc_WithClosures :: Maybe ListBoxCreateWidgetFunc_WithClosures
noListBoxCreateWidgetFunc_WithClosures :: Maybe ListBoxCreateWidgetFunc_WithClosures
noListBoxCreateWidgetFunc_WithClosures = Maybe ListBoxCreateWidgetFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_ListBoxCreateWidgetFunc :: ListBoxCreateWidgetFunc -> ListBoxCreateWidgetFunc_WithClosures
drop_closures_ListBoxCreateWidgetFunc :: ListBoxCreateWidgetFunc -> ListBoxCreateWidgetFunc_WithClosures
drop_closures_ListBoxCreateWidgetFunc ListBoxCreateWidgetFunc
_f Object
item Ptr ()
_ = ListBoxCreateWidgetFunc
_f Object
item
genClosure_ListBoxCreateWidgetFunc :: MonadIO m => ListBoxCreateWidgetFunc -> m (GClosure C_ListBoxCreateWidgetFunc)
genClosure_ListBoxCreateWidgetFunc :: forall (m :: * -> *).
MonadIO m =>
ListBoxCreateWidgetFunc -> m (GClosure C_ListBoxCreateWidgetFunc)
genClosure_ListBoxCreateWidgetFunc ListBoxCreateWidgetFunc
cb = IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc))
-> IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ListBoxCreateWidgetFunc_WithClosures
cb' = ListBoxCreateWidgetFunc -> ListBoxCreateWidgetFunc_WithClosures
drop_closures_ListBoxCreateWidgetFunc ListBoxCreateWidgetFunc
cb
let cb'' :: C_ListBoxCreateWidgetFunc
cb'' = Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
-> ListBoxCreateWidgetFunc_WithClosures
-> C_ListBoxCreateWidgetFunc
wrap_ListBoxCreateWidgetFunc Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
forall a. Maybe a
Nothing ListBoxCreateWidgetFunc_WithClosures
cb'
C_ListBoxCreateWidgetFunc -> IO (FunPtr C_ListBoxCreateWidgetFunc)
mk_ListBoxCreateWidgetFunc C_ListBoxCreateWidgetFunc
cb'' IO (FunPtr C_ListBoxCreateWidgetFunc)
-> (FunPtr C_ListBoxCreateWidgetFunc
-> IO (GClosure C_ListBoxCreateWidgetFunc))
-> IO (GClosure C_ListBoxCreateWidgetFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxCreateWidgetFunc
-> IO (GClosure C_ListBoxCreateWidgetFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxCreateWidgetFunc ::
Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc)) ->
ListBoxCreateWidgetFunc_WithClosures ->
C_ListBoxCreateWidgetFunc
wrap_ListBoxCreateWidgetFunc :: Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
-> ListBoxCreateWidgetFunc_WithClosures
-> C_ListBoxCreateWidgetFunc
wrap_ListBoxCreateWidgetFunc Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
gi'funptrptr ListBoxCreateWidgetFunc_WithClosures
gi'cb Ptr Object
item Ptr ()
userData = do
item' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
item
result <- gi'cb item' userData
maybeReleaseFunPtr gi'funptrptr
result' <- B.ManagedPtr.disownObject result
return result'
type C_IconViewForeachFunc =
Ptr Gtk.IconView.IconView ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_IconViewForeachFunc :: FunPtr C_IconViewForeachFunc -> C_IconViewForeachFunc
dynamic_IconViewForeachFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.IconView.IsIconView a) =>
FunPtr C_IconViewForeachFunc
-> a
-> Gtk.TreePath.TreePath
-> Ptr ()
-> m ()
dynamic_IconViewForeachFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
FunPtr C_IconViewForeachFunc -> a -> TreePath -> Ptr () -> m ()
dynamic_IconViewForeachFunc FunPtr C_IconViewForeachFunc
__funPtr a
iconView TreePath
path Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
path' <- unsafeManagedPtrGetPtr path
(__dynamic_C_IconViewForeachFunc __funPtr) iconView' path' data_
touchManagedPtr iconView
touchManagedPtr path
return ()
foreign import ccall "wrapper"
mk_IconViewForeachFunc :: C_IconViewForeachFunc -> IO (FunPtr C_IconViewForeachFunc)
{-# DEPRECATED IconViewForeachFunc ["(Since version 4.20)","There is no replacement."] #-}
type IconViewForeachFunc =
Gtk.IconView.IconView
-> Gtk.TreePath.TreePath
-> IO ()
noIconViewForeachFunc :: Maybe IconViewForeachFunc
noIconViewForeachFunc :: Maybe IconViewForeachFunc
noIconViewForeachFunc = Maybe IconViewForeachFunc
forall a. Maybe a
Nothing
type IconViewForeachFunc_WithClosures =
Gtk.IconView.IconView
-> Gtk.TreePath.TreePath
-> Ptr ()
-> IO ()
noIconViewForeachFunc_WithClosures :: Maybe IconViewForeachFunc_WithClosures
noIconViewForeachFunc_WithClosures :: Maybe IconViewForeachFunc_WithClosures
noIconViewForeachFunc_WithClosures = Maybe IconViewForeachFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_IconViewForeachFunc :: IconViewForeachFunc -> IconViewForeachFunc_WithClosures
drop_closures_IconViewForeachFunc :: IconViewForeachFunc -> IconViewForeachFunc_WithClosures
drop_closures_IconViewForeachFunc IconViewForeachFunc
_f IconView
iconView TreePath
path Ptr ()
_ = IconViewForeachFunc
_f IconView
iconView TreePath
path
genClosure_IconViewForeachFunc :: MonadIO m => IconViewForeachFunc -> m (GClosure C_IconViewForeachFunc)
genClosure_IconViewForeachFunc :: forall (m :: * -> *).
MonadIO m =>
IconViewForeachFunc -> m (GClosure C_IconViewForeachFunc)
genClosure_IconViewForeachFunc IconViewForeachFunc
cb = IO (GClosure C_IconViewForeachFunc)
-> m (GClosure C_IconViewForeachFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewForeachFunc)
-> m (GClosure C_IconViewForeachFunc))
-> IO (GClosure C_IconViewForeachFunc)
-> m (GClosure C_IconViewForeachFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: IconViewForeachFunc_WithClosures
cb' = IconViewForeachFunc -> IconViewForeachFunc_WithClosures
drop_closures_IconViewForeachFunc IconViewForeachFunc
cb
let cb'' :: C_IconViewForeachFunc
cb'' = Maybe (Ptr (FunPtr C_IconViewForeachFunc))
-> IconViewForeachFunc_WithClosures -> C_IconViewForeachFunc
wrap_IconViewForeachFunc Maybe (Ptr (FunPtr C_IconViewForeachFunc))
forall a. Maybe a
Nothing IconViewForeachFunc_WithClosures
cb'
C_IconViewForeachFunc -> IO (FunPtr C_IconViewForeachFunc)
mk_IconViewForeachFunc C_IconViewForeachFunc
cb'' IO (FunPtr C_IconViewForeachFunc)
-> (FunPtr C_IconViewForeachFunc
-> IO (GClosure C_IconViewForeachFunc))
-> IO (GClosure C_IconViewForeachFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewForeachFunc -> IO (GClosure C_IconViewForeachFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewForeachFunc ::
Maybe (Ptr (FunPtr C_IconViewForeachFunc)) ->
IconViewForeachFunc_WithClosures ->
C_IconViewForeachFunc
wrap_IconViewForeachFunc :: Maybe (Ptr (FunPtr C_IconViewForeachFunc))
-> IconViewForeachFunc_WithClosures -> C_IconViewForeachFunc
wrap_IconViewForeachFunc Maybe (Ptr (FunPtr C_IconViewForeachFunc))
gi'funptrptr IconViewForeachFunc_WithClosures
gi'cb Ptr IconView
iconView Ptr TreePath
path Ptr ()
data_ = do
iconView' <- ((ManagedPtr IconView -> IconView) -> Ptr IconView -> IO IconView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr IconView -> IconView
Gtk.IconView.IconView) Ptr IconView
iconView
B.ManagedPtr.withTransient path $ \TreePath
path' -> do
IconViewForeachFunc_WithClosures
gi'cb IconView
iconView' TreePath
path' Ptr ()
data_
Maybe (Ptr (FunPtr C_IconViewForeachFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_IconViewForeachFunc))
gi'funptrptr
type C_FontFilterFunc =
Ptr Pango.FontFamily.FontFamily ->
Ptr Pango.FontFace.FontFace ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_FontFilterFunc :: FunPtr C_FontFilterFunc -> C_FontFilterFunc
dynamic_FontFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m, Pango.FontFamily.IsFontFamily a, Pango.FontFace.IsFontFace b) =>
FunPtr C_FontFilterFunc
-> a
-> b
-> Ptr ()
-> m Bool
dynamic_FontFilterFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFontFamily a, IsFontFace b) =>
FunPtr C_FontFilterFunc -> a -> b -> Ptr () -> m Bool
dynamic_FontFilterFunc FunPtr C_FontFilterFunc
__funPtr a
family b
face Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
family' <- a -> IO (Ptr FontFamily)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
family
face' <- unsafeManagedPtrCastPtr face
result <- (__dynamic_C_FontFilterFunc __funPtr) family' face' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr family
touchManagedPtr face
return result'
foreign import ccall "wrapper"
mk_FontFilterFunc :: C_FontFilterFunc -> IO (FunPtr C_FontFilterFunc)
{-# DEPRECATED FontFilterFunc ["(Since version 4.20)","There is no replacement"] #-}
type FontFilterFunc =
Pango.FontFamily.FontFamily
-> Pango.FontFace.FontFace
-> IO Bool
noFontFilterFunc :: Maybe FontFilterFunc
noFontFilterFunc :: Maybe FontFilterFunc
noFontFilterFunc = Maybe FontFilterFunc
forall a. Maybe a
Nothing
type FontFilterFunc_WithClosures =
Pango.FontFamily.FontFamily
-> Pango.FontFace.FontFace
-> Ptr ()
-> IO Bool
noFontFilterFunc_WithClosures :: Maybe FontFilterFunc_WithClosures
noFontFilterFunc_WithClosures :: Maybe FontFilterFunc_WithClosures
noFontFilterFunc_WithClosures = Maybe FontFilterFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_FontFilterFunc :: FontFilterFunc -> FontFilterFunc_WithClosures
drop_closures_FontFilterFunc :: FontFilterFunc -> FontFilterFunc_WithClosures
drop_closures_FontFilterFunc FontFilterFunc
_f FontFamily
family FontFace
face Ptr ()
_ = FontFilterFunc
_f FontFamily
family FontFace
face
genClosure_FontFilterFunc :: MonadIO m => FontFilterFunc -> m (GClosure C_FontFilterFunc)
genClosure_FontFilterFunc :: forall (m :: * -> *).
MonadIO m =>
FontFilterFunc -> m (GClosure C_FontFilterFunc)
genClosure_FontFilterFunc FontFilterFunc
cb = IO (GClosure C_FontFilterFunc) -> m (GClosure C_FontFilterFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FontFilterFunc) -> m (GClosure C_FontFilterFunc))
-> IO (GClosure C_FontFilterFunc) -> m (GClosure C_FontFilterFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: FontFilterFunc_WithClosures
cb' = FontFilterFunc -> FontFilterFunc_WithClosures
drop_closures_FontFilterFunc FontFilterFunc
cb
let cb'' :: C_FontFilterFunc
cb'' = Maybe (Ptr (FunPtr C_FontFilterFunc))
-> FontFilterFunc_WithClosures -> C_FontFilterFunc
wrap_FontFilterFunc Maybe (Ptr (FunPtr C_FontFilterFunc))
forall a. Maybe a
Nothing FontFilterFunc_WithClosures
cb'
C_FontFilterFunc -> IO (FunPtr C_FontFilterFunc)
mk_FontFilterFunc C_FontFilterFunc
cb'' IO (FunPtr C_FontFilterFunc)
-> (FunPtr C_FontFilterFunc -> IO (GClosure C_FontFilterFunc))
-> IO (GClosure C_FontFilterFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FontFilterFunc -> IO (GClosure C_FontFilterFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FontFilterFunc ::
Maybe (Ptr (FunPtr C_FontFilterFunc)) ->
FontFilterFunc_WithClosures ->
C_FontFilterFunc
wrap_FontFilterFunc :: Maybe (Ptr (FunPtr C_FontFilterFunc))
-> FontFilterFunc_WithClosures -> C_FontFilterFunc
wrap_FontFilterFunc Maybe (Ptr (FunPtr C_FontFilterFunc))
gi'funptrptr FontFilterFunc_WithClosures
gi'cb Ptr FontFamily
family Ptr FontFace
face Ptr ()
data_ = do
family' <- ((ManagedPtr FontFamily -> FontFamily)
-> Ptr FontFamily -> IO FontFamily
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FontFamily -> FontFamily
Pango.FontFamily.FontFamily) Ptr FontFamily
family
face' <- (newObject Pango.FontFace.FontFace) face
result <- gi'cb family' face' data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_FlowBoxSortFunc =
Ptr Gtk.FlowBoxChild.FlowBoxChild ->
Ptr Gtk.FlowBoxChild.FlowBoxChild ->
Ptr () ->
IO Int32
foreign import ccall "dynamic" __dynamic_C_FlowBoxSortFunc :: FunPtr C_FlowBoxSortFunc -> C_FlowBoxSortFunc
dynamic_FlowBoxSortFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.FlowBoxChild.IsFlowBoxChild a, Gtk.FlowBoxChild.IsFlowBoxChild b) =>
FunPtr C_FlowBoxSortFunc
-> a
-> b
-> Ptr ()
-> m Int32
dynamic_FlowBoxSortFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBoxChild a, IsFlowBoxChild b) =>
FunPtr C_FlowBoxSortFunc -> a -> b -> Ptr () -> m Int32
dynamic_FlowBoxSortFunc FunPtr C_FlowBoxSortFunc
__funPtr a
child1 b
child2 Ptr ()
userData = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
child1' <- a -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child1
child2' <- unsafeManagedPtrCastPtr child2
result <- (__dynamic_C_FlowBoxSortFunc __funPtr) child1' child2' userData
touchManagedPtr child1
touchManagedPtr child2
return result
foreign import ccall "wrapper"
mk_FlowBoxSortFunc :: C_FlowBoxSortFunc -> IO (FunPtr C_FlowBoxSortFunc)
type FlowBoxSortFunc =
Gtk.FlowBoxChild.FlowBoxChild
-> Gtk.FlowBoxChild.FlowBoxChild
-> IO Int32
noFlowBoxSortFunc :: Maybe FlowBoxSortFunc
noFlowBoxSortFunc :: Maybe FlowBoxSortFunc
noFlowBoxSortFunc = Maybe FlowBoxSortFunc
forall a. Maybe a
Nothing
type FlowBoxSortFunc_WithClosures =
Gtk.FlowBoxChild.FlowBoxChild
-> Gtk.FlowBoxChild.FlowBoxChild
-> Ptr ()
-> IO Int32
noFlowBoxSortFunc_WithClosures :: Maybe FlowBoxSortFunc_WithClosures
noFlowBoxSortFunc_WithClosures :: Maybe FlowBoxSortFunc_WithClosures
noFlowBoxSortFunc_WithClosures = Maybe FlowBoxSortFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_FlowBoxSortFunc :: FlowBoxSortFunc -> FlowBoxSortFunc_WithClosures
drop_closures_FlowBoxSortFunc :: FlowBoxSortFunc -> FlowBoxSortFunc_WithClosures
drop_closures_FlowBoxSortFunc FlowBoxSortFunc
_f FlowBoxChild
child1 FlowBoxChild
child2 Ptr ()
_ = FlowBoxSortFunc
_f FlowBoxChild
child1 FlowBoxChild
child2
genClosure_FlowBoxSortFunc :: MonadIO m => FlowBoxSortFunc -> m (GClosure C_FlowBoxSortFunc)
genClosure_FlowBoxSortFunc :: forall (m :: * -> *).
MonadIO m =>
FlowBoxSortFunc -> m (GClosure C_FlowBoxSortFunc)
genClosure_FlowBoxSortFunc FlowBoxSortFunc
cb = IO (GClosure C_FlowBoxSortFunc) -> m (GClosure C_FlowBoxSortFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxSortFunc) -> m (GClosure C_FlowBoxSortFunc))
-> IO (GClosure C_FlowBoxSortFunc)
-> m (GClosure C_FlowBoxSortFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: FlowBoxSortFunc_WithClosures
cb' = FlowBoxSortFunc -> FlowBoxSortFunc_WithClosures
drop_closures_FlowBoxSortFunc FlowBoxSortFunc
cb
let cb'' :: C_FlowBoxSortFunc
cb'' = Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
-> FlowBoxSortFunc_WithClosures -> C_FlowBoxSortFunc
wrap_FlowBoxSortFunc Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
forall a. Maybe a
Nothing FlowBoxSortFunc_WithClosures
cb'
C_FlowBoxSortFunc -> IO (FunPtr C_FlowBoxSortFunc)
mk_FlowBoxSortFunc C_FlowBoxSortFunc
cb'' IO (FunPtr C_FlowBoxSortFunc)
-> (FunPtr C_FlowBoxSortFunc -> IO (GClosure C_FlowBoxSortFunc))
-> IO (GClosure C_FlowBoxSortFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxSortFunc -> IO (GClosure C_FlowBoxSortFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxSortFunc ::
Maybe (Ptr (FunPtr C_FlowBoxSortFunc)) ->
FlowBoxSortFunc_WithClosures ->
C_FlowBoxSortFunc
wrap_FlowBoxSortFunc :: Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
-> FlowBoxSortFunc_WithClosures -> C_FlowBoxSortFunc
wrap_FlowBoxSortFunc Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
gi'funptrptr FlowBoxSortFunc_WithClosures
gi'cb Ptr FlowBoxChild
child1 Ptr FlowBoxChild
child2 Ptr ()
userData = do
child1' <- ((ManagedPtr FlowBoxChild -> FlowBoxChild)
-> Ptr FlowBoxChild -> IO FlowBoxChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBoxChild -> FlowBoxChild
Gtk.FlowBoxChild.FlowBoxChild) Ptr FlowBoxChild
child1
child2' <- (newObject Gtk.FlowBoxChild.FlowBoxChild) child2
result <- gi'cb child1' child2' userData
maybeReleaseFunPtr gi'funptrptr
return result
type C_FlowBoxForeachFunc =
Ptr Gtk.FlowBox.FlowBox ->
Ptr Gtk.FlowBoxChild.FlowBoxChild ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_FlowBoxForeachFunc :: FunPtr C_FlowBoxForeachFunc -> C_FlowBoxForeachFunc
dynamic_FlowBoxForeachFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.FlowBox.IsFlowBox a, Gtk.FlowBoxChild.IsFlowBoxChild b) =>
FunPtr C_FlowBoxForeachFunc
-> a
-> b
-> Ptr ()
-> m ()
dynamic_FlowBoxForeachFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsFlowBoxChild b) =>
FunPtr C_FlowBoxForeachFunc -> a -> b -> Ptr () -> m ()
dynamic_FlowBoxForeachFunc FunPtr C_FlowBoxForeachFunc
__funPtr a
box b
child Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
child' <- unsafeManagedPtrCastPtr child
(__dynamic_C_FlowBoxForeachFunc __funPtr) box' child' userData
touchManagedPtr box
touchManagedPtr child
return ()
foreign import ccall "wrapper"
mk_FlowBoxForeachFunc :: C_FlowBoxForeachFunc -> IO (FunPtr C_FlowBoxForeachFunc)
type FlowBoxForeachFunc =
Gtk.FlowBox.FlowBox
-> Gtk.FlowBoxChild.FlowBoxChild
-> IO ()
noFlowBoxForeachFunc :: Maybe FlowBoxForeachFunc
noFlowBoxForeachFunc :: Maybe FlowBoxForeachFunc
noFlowBoxForeachFunc = Maybe FlowBoxForeachFunc
forall a. Maybe a
Nothing
type FlowBoxForeachFunc_WithClosures =
Gtk.FlowBox.FlowBox
-> Gtk.FlowBoxChild.FlowBoxChild
-> Ptr ()
-> IO ()
noFlowBoxForeachFunc_WithClosures :: Maybe FlowBoxForeachFunc_WithClosures
noFlowBoxForeachFunc_WithClosures :: Maybe FlowBoxForeachFunc_WithClosures
noFlowBoxForeachFunc_WithClosures = Maybe FlowBoxForeachFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_FlowBoxForeachFunc :: FlowBoxForeachFunc -> FlowBoxForeachFunc_WithClosures
drop_closures_FlowBoxForeachFunc :: FlowBoxForeachFunc -> FlowBoxForeachFunc_WithClosures
drop_closures_FlowBoxForeachFunc FlowBoxForeachFunc
_f FlowBox
box FlowBoxChild
child Ptr ()
_ = FlowBoxForeachFunc
_f FlowBox
box FlowBoxChild
child
genClosure_FlowBoxForeachFunc :: MonadIO m => FlowBoxForeachFunc -> m (GClosure C_FlowBoxForeachFunc)
genClosure_FlowBoxForeachFunc :: forall (m :: * -> *).
MonadIO m =>
FlowBoxForeachFunc -> m (GClosure C_FlowBoxForeachFunc)
genClosure_FlowBoxForeachFunc FlowBoxForeachFunc
cb = IO (GClosure C_FlowBoxForeachFunc)
-> m (GClosure C_FlowBoxForeachFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxForeachFunc)
-> m (GClosure C_FlowBoxForeachFunc))
-> IO (GClosure C_FlowBoxForeachFunc)
-> m (GClosure C_FlowBoxForeachFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: FlowBoxForeachFunc_WithClosures
cb' = FlowBoxForeachFunc -> FlowBoxForeachFunc_WithClosures
drop_closures_FlowBoxForeachFunc FlowBoxForeachFunc
cb
let cb'' :: C_FlowBoxForeachFunc
cb'' = Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
-> FlowBoxForeachFunc_WithClosures -> C_FlowBoxForeachFunc
wrap_FlowBoxForeachFunc Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
forall a. Maybe a
Nothing FlowBoxForeachFunc_WithClosures
cb'
C_FlowBoxForeachFunc -> IO (FunPtr C_FlowBoxForeachFunc)
mk_FlowBoxForeachFunc C_FlowBoxForeachFunc
cb'' IO (FunPtr C_FlowBoxForeachFunc)
-> (FunPtr C_FlowBoxForeachFunc
-> IO (GClosure C_FlowBoxForeachFunc))
-> IO (GClosure C_FlowBoxForeachFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxForeachFunc -> IO (GClosure C_FlowBoxForeachFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxForeachFunc ::
Maybe (Ptr (FunPtr C_FlowBoxForeachFunc)) ->
FlowBoxForeachFunc_WithClosures ->
C_FlowBoxForeachFunc
wrap_FlowBoxForeachFunc :: Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
-> FlowBoxForeachFunc_WithClosures -> C_FlowBoxForeachFunc
wrap_FlowBoxForeachFunc Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
gi'funptrptr FlowBoxForeachFunc_WithClosures
gi'cb Ptr FlowBox
box Ptr FlowBoxChild
child Ptr ()
userData = do
box' <- ((ManagedPtr FlowBox -> FlowBox) -> Ptr FlowBox -> IO FlowBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBox -> FlowBox
Gtk.FlowBox.FlowBox) Ptr FlowBox
box
child' <- (newObject Gtk.FlowBoxChild.FlowBoxChild) child
gi'cb box' child' userData
maybeReleaseFunPtr gi'funptrptr
type C_FlowBoxFilterFunc =
Ptr Gtk.FlowBoxChild.FlowBoxChild ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_FlowBoxFilterFunc :: FunPtr C_FlowBoxFilterFunc -> C_FlowBoxFilterFunc
dynamic_FlowBoxFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.FlowBoxChild.IsFlowBoxChild a) =>
FunPtr C_FlowBoxFilterFunc
-> a
-> Ptr ()
-> m Bool
dynamic_FlowBoxFilterFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBoxChild a) =>
FunPtr C_FlowBoxFilterFunc -> a -> Ptr () -> m Bool
dynamic_FlowBoxFilterFunc FunPtr C_FlowBoxFilterFunc
__funPtr a
child Ptr ()
userData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
child' <- a -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
result <- (__dynamic_C_FlowBoxFilterFunc __funPtr) child' userData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr child
return result'
foreign import ccall "wrapper"
mk_FlowBoxFilterFunc :: C_FlowBoxFilterFunc -> IO (FunPtr C_FlowBoxFilterFunc)
type FlowBoxFilterFunc =
Gtk.FlowBoxChild.FlowBoxChild
-> IO Bool
noFlowBoxFilterFunc :: Maybe FlowBoxFilterFunc
noFlowBoxFilterFunc :: Maybe FlowBoxFilterFunc
noFlowBoxFilterFunc = Maybe FlowBoxFilterFunc
forall a. Maybe a
Nothing
type FlowBoxFilterFunc_WithClosures =
Gtk.FlowBoxChild.FlowBoxChild
-> Ptr ()
-> IO Bool
noFlowBoxFilterFunc_WithClosures :: Maybe FlowBoxFilterFunc_WithClosures
noFlowBoxFilterFunc_WithClosures :: Maybe FlowBoxFilterFunc_WithClosures
noFlowBoxFilterFunc_WithClosures = Maybe FlowBoxFilterFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_FlowBoxFilterFunc :: FlowBoxFilterFunc -> FlowBoxFilterFunc_WithClosures
drop_closures_FlowBoxFilterFunc :: FlowBoxFilterFunc -> FlowBoxFilterFunc_WithClosures
drop_closures_FlowBoxFilterFunc FlowBoxFilterFunc
_f FlowBoxChild
child Ptr ()
_ = FlowBoxFilterFunc
_f FlowBoxChild
child
genClosure_FlowBoxFilterFunc :: MonadIO m => FlowBoxFilterFunc -> m (GClosure C_FlowBoxFilterFunc)
genClosure_FlowBoxFilterFunc :: forall (m :: * -> *).
MonadIO m =>
FlowBoxFilterFunc -> m (GClosure C_FlowBoxFilterFunc)
genClosure_FlowBoxFilterFunc FlowBoxFilterFunc
cb = IO (GClosure C_FlowBoxFilterFunc)
-> m (GClosure C_FlowBoxFilterFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxFilterFunc)
-> m (GClosure C_FlowBoxFilterFunc))
-> IO (GClosure C_FlowBoxFilterFunc)
-> m (GClosure C_FlowBoxFilterFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: FlowBoxFilterFunc_WithClosures
cb' = FlowBoxFilterFunc -> FlowBoxFilterFunc_WithClosures
drop_closures_FlowBoxFilterFunc FlowBoxFilterFunc
cb
let cb'' :: C_FlowBoxFilterFunc
cb'' = Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
-> FlowBoxFilterFunc_WithClosures -> C_FlowBoxFilterFunc
wrap_FlowBoxFilterFunc Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
forall a. Maybe a
Nothing FlowBoxFilterFunc_WithClosures
cb'
C_FlowBoxFilterFunc -> IO (FunPtr C_FlowBoxFilterFunc)
mk_FlowBoxFilterFunc C_FlowBoxFilterFunc
cb'' IO (FunPtr C_FlowBoxFilterFunc)
-> (FunPtr C_FlowBoxFilterFunc
-> IO (GClosure C_FlowBoxFilterFunc))
-> IO (GClosure C_FlowBoxFilterFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxFilterFunc -> IO (GClosure C_FlowBoxFilterFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxFilterFunc ::
Maybe (Ptr (FunPtr C_FlowBoxFilterFunc)) ->
FlowBoxFilterFunc_WithClosures ->
C_FlowBoxFilterFunc
wrap_FlowBoxFilterFunc :: Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
-> FlowBoxFilterFunc_WithClosures -> C_FlowBoxFilterFunc
wrap_FlowBoxFilterFunc Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
gi'funptrptr FlowBoxFilterFunc_WithClosures
gi'cb Ptr FlowBoxChild
child Ptr ()
userData = do
child' <- ((ManagedPtr FlowBoxChild -> FlowBoxChild)
-> Ptr FlowBoxChild -> IO FlowBoxChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBoxChild -> FlowBoxChild
Gtk.FlowBoxChild.FlowBoxChild) Ptr FlowBoxChild
child
result <- gi'cb child' userData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_FlowBoxCreateWidgetFunc =
Ptr GObject.Object.Object ->
Ptr () ->
IO (Ptr Gtk.Widget.Widget)
foreign import ccall "dynamic" __dynamic_C_FlowBoxCreateWidgetFunc :: FunPtr C_FlowBoxCreateWidgetFunc -> C_FlowBoxCreateWidgetFunc
dynamic_FlowBoxCreateWidgetFunc ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
FunPtr C_FlowBoxCreateWidgetFunc
-> a
-> Ptr ()
-> m Gtk.Widget.Widget
dynamic_FlowBoxCreateWidgetFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ListBoxCreateWidgetFunc -> a -> Ptr () -> m Widget
dynamic_FlowBoxCreateWidgetFunc FunPtr C_ListBoxCreateWidgetFunc
__funPtr a
item Ptr ()
userData = IO Widget -> m Widget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
result <- (__dynamic_C_FlowBoxCreateWidgetFunc __funPtr) item' userData
checkUnexpectedReturnNULL "flowBoxCreateWidgetFunc" result
result' <- (wrapObject Gtk.Widget.Widget) result
touchManagedPtr item
return result'
foreign import ccall "wrapper"
mk_FlowBoxCreateWidgetFunc :: C_FlowBoxCreateWidgetFunc -> IO (FunPtr C_FlowBoxCreateWidgetFunc)
type FlowBoxCreateWidgetFunc =
GObject.Object.Object
-> IO Gtk.Widget.Widget
noFlowBoxCreateWidgetFunc :: Maybe FlowBoxCreateWidgetFunc
noFlowBoxCreateWidgetFunc :: Maybe ListBoxCreateWidgetFunc
noFlowBoxCreateWidgetFunc = Maybe ListBoxCreateWidgetFunc
forall a. Maybe a
Nothing
type FlowBoxCreateWidgetFunc_WithClosures =
GObject.Object.Object
-> Ptr ()
-> IO Gtk.Widget.Widget
noFlowBoxCreateWidgetFunc_WithClosures :: Maybe FlowBoxCreateWidgetFunc_WithClosures
noFlowBoxCreateWidgetFunc_WithClosures :: Maybe ListBoxCreateWidgetFunc_WithClosures
noFlowBoxCreateWidgetFunc_WithClosures = Maybe ListBoxCreateWidgetFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_FlowBoxCreateWidgetFunc :: FlowBoxCreateWidgetFunc -> FlowBoxCreateWidgetFunc_WithClosures
drop_closures_FlowBoxCreateWidgetFunc :: ListBoxCreateWidgetFunc -> ListBoxCreateWidgetFunc_WithClosures
drop_closures_FlowBoxCreateWidgetFunc ListBoxCreateWidgetFunc
_f Object
item Ptr ()
_ = ListBoxCreateWidgetFunc
_f Object
item
genClosure_FlowBoxCreateWidgetFunc :: MonadIO m => FlowBoxCreateWidgetFunc -> m (GClosure C_FlowBoxCreateWidgetFunc)
genClosure_FlowBoxCreateWidgetFunc :: forall (m :: * -> *).
MonadIO m =>
ListBoxCreateWidgetFunc -> m (GClosure C_ListBoxCreateWidgetFunc)
genClosure_FlowBoxCreateWidgetFunc ListBoxCreateWidgetFunc
cb = IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc))
-> IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ListBoxCreateWidgetFunc_WithClosures
cb' = ListBoxCreateWidgetFunc -> ListBoxCreateWidgetFunc_WithClosures
drop_closures_FlowBoxCreateWidgetFunc ListBoxCreateWidgetFunc
cb
let cb'' :: C_ListBoxCreateWidgetFunc
cb'' = Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
-> ListBoxCreateWidgetFunc_WithClosures
-> C_ListBoxCreateWidgetFunc
wrap_FlowBoxCreateWidgetFunc Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
forall a. Maybe a
Nothing ListBoxCreateWidgetFunc_WithClosures
cb'
C_ListBoxCreateWidgetFunc -> IO (FunPtr C_ListBoxCreateWidgetFunc)
mk_FlowBoxCreateWidgetFunc C_ListBoxCreateWidgetFunc
cb'' IO (FunPtr C_ListBoxCreateWidgetFunc)
-> (FunPtr C_ListBoxCreateWidgetFunc
-> IO (GClosure C_ListBoxCreateWidgetFunc))
-> IO (GClosure C_ListBoxCreateWidgetFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxCreateWidgetFunc
-> IO (GClosure C_ListBoxCreateWidgetFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxCreateWidgetFunc ::
Maybe (Ptr (FunPtr C_FlowBoxCreateWidgetFunc)) ->
FlowBoxCreateWidgetFunc_WithClosures ->
C_FlowBoxCreateWidgetFunc
wrap_FlowBoxCreateWidgetFunc :: Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
-> ListBoxCreateWidgetFunc_WithClosures
-> C_ListBoxCreateWidgetFunc
wrap_FlowBoxCreateWidgetFunc Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
gi'funptrptr ListBoxCreateWidgetFunc_WithClosures
gi'cb Ptr Object
item Ptr ()
userData = do
item' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
item
result <- gi'cb item' userData
maybeReleaseFunPtr gi'funptrptr
result' <- B.ManagedPtr.disownObject result
return result'
type C_ExpressionNotify =
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_ExpressionNotify :: FunPtr C_ExpressionNotify -> C_ExpressionNotify
dynamic_ExpressionNotify ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_ExpressionNotify
-> Ptr ()
-> m ()
dynamic_ExpressionNotify :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ExpressionNotify -> Ptr () -> m ()
dynamic_ExpressionNotify FunPtr C_ExpressionNotify
__funPtr Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
(FunPtr C_ExpressionNotify -> C_ExpressionNotify
__dynamic_C_ExpressionNotify FunPtr C_ExpressionNotify
__funPtr) Ptr ()
userData
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_ExpressionNotify :: C_ExpressionNotify -> IO (FunPtr C_ExpressionNotify)
type ExpressionNotify =
IO ()
noExpressionNotify :: Maybe ExpressionNotify
noExpressionNotify :: Maybe (IO ())
noExpressionNotify = Maybe (IO ())
forall a. Maybe a
Nothing
type ExpressionNotify_WithClosures =
Ptr ()
-> IO ()
noExpressionNotify_WithClosures :: Maybe ExpressionNotify_WithClosures
noExpressionNotify_WithClosures :: Maybe C_ExpressionNotify
noExpressionNotify_WithClosures = Maybe C_ExpressionNotify
forall a. Maybe a
Nothing
drop_closures_ExpressionNotify :: ExpressionNotify -> ExpressionNotify_WithClosures
drop_closures_ExpressionNotify :: IO () -> C_ExpressionNotify
drop_closures_ExpressionNotify IO ()
_f Ptr ()
_ = IO ()
_f
genClosure_ExpressionNotify :: MonadIO m => ExpressionNotify -> m (GClosure C_ExpressionNotify)
genClosure_ExpressionNotify :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_ExpressionNotify)
genClosure_ExpressionNotify IO ()
cb = IO (GClosure C_ExpressionNotify) -> m (GClosure C_ExpressionNotify)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ExpressionNotify)
-> m (GClosure C_ExpressionNotify))
-> IO (GClosure C_ExpressionNotify)
-> m (GClosure C_ExpressionNotify)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ExpressionNotify
cb' = IO () -> C_ExpressionNotify
drop_closures_ExpressionNotify IO ()
cb
let cb'' :: C_ExpressionNotify
cb'' = Maybe (Ptr (FunPtr C_ExpressionNotify))
-> C_ExpressionNotify -> C_ExpressionNotify
wrap_ExpressionNotify Maybe (Ptr (FunPtr C_ExpressionNotify))
forall a. Maybe a
Nothing C_ExpressionNotify
cb'
C_ExpressionNotify -> IO (FunPtr C_ExpressionNotify)
mk_ExpressionNotify C_ExpressionNotify
cb'' IO (FunPtr C_ExpressionNotify)
-> (FunPtr C_ExpressionNotify -> IO (GClosure C_ExpressionNotify))
-> IO (GClosure C_ExpressionNotify)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ExpressionNotify -> IO (GClosure C_ExpressionNotify)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ExpressionNotify ::
Maybe (Ptr (FunPtr C_ExpressionNotify)) ->
ExpressionNotify_WithClosures ->
C_ExpressionNotify
wrap_ExpressionNotify :: Maybe (Ptr (FunPtr C_ExpressionNotify))
-> C_ExpressionNotify -> C_ExpressionNotify
wrap_ExpressionNotify Maybe (Ptr (FunPtr C_ExpressionNotify))
gi'funptrptr C_ExpressionNotify
gi'cb Ptr ()
userData = do
C_ExpressionNotify
gi'cb Ptr ()
userData
Maybe (Ptr (FunPtr C_ExpressionNotify)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ExpressionNotify))
gi'funptrptr
type C_EntryCompletionMatchFunc =
Ptr Gtk.EntryCompletion.EntryCompletion ->
CString ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_EntryCompletionMatchFunc :: FunPtr C_EntryCompletionMatchFunc -> C_EntryCompletionMatchFunc
dynamic_EntryCompletionMatchFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.EntryCompletion.IsEntryCompletion a) =>
FunPtr C_EntryCompletionMatchFunc
-> a
-> T.Text
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m Bool
dynamic_EntryCompletionMatchFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEntryCompletion a) =>
FunPtr C_EntryCompletionMatchFunc
-> a -> Text -> TreeIter -> Ptr () -> m Bool
dynamic_EntryCompletionMatchFunc FunPtr C_EntryCompletionMatchFunc
__funPtr a
completion Text
key TreeIter
iter Ptr ()
userData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
completion' <- a -> IO (Ptr EntryCompletion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
key' <- textToCString key
iter' <- unsafeManagedPtrGetPtr iter
result <- (__dynamic_C_EntryCompletionMatchFunc __funPtr) completion' key' iter' userData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr completion
touchManagedPtr iter
freeMem key'
return result'
foreign import ccall "wrapper"
mk_EntryCompletionMatchFunc :: C_EntryCompletionMatchFunc -> IO (FunPtr C_EntryCompletionMatchFunc)
{-# DEPRECATED EntryCompletionMatchFunc ["(Since version 4.20)","There is no replacement"] #-}
type EntryCompletionMatchFunc =
Gtk.EntryCompletion.EntryCompletion
-> T.Text
-> Gtk.TreeIter.TreeIter
-> IO Bool
noEntryCompletionMatchFunc :: Maybe EntryCompletionMatchFunc
noEntryCompletionMatchFunc :: Maybe EntryCompletionMatchFunc
noEntryCompletionMatchFunc = Maybe EntryCompletionMatchFunc
forall a. Maybe a
Nothing
type EntryCompletionMatchFunc_WithClosures =
Gtk.EntryCompletion.EntryCompletion
-> T.Text
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO Bool
noEntryCompletionMatchFunc_WithClosures :: Maybe EntryCompletionMatchFunc_WithClosures
noEntryCompletionMatchFunc_WithClosures :: Maybe EntryCompletionMatchFunc_WithClosures
noEntryCompletionMatchFunc_WithClosures = Maybe EntryCompletionMatchFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_EntryCompletionMatchFunc :: EntryCompletionMatchFunc -> EntryCompletionMatchFunc_WithClosures
drop_closures_EntryCompletionMatchFunc :: EntryCompletionMatchFunc -> EntryCompletionMatchFunc_WithClosures
drop_closures_EntryCompletionMatchFunc EntryCompletionMatchFunc
_f EntryCompletion
completion Text
key TreeIter
iter Ptr ()
_ = EntryCompletionMatchFunc
_f EntryCompletion
completion Text
key TreeIter
iter
genClosure_EntryCompletionMatchFunc :: MonadIO m => EntryCompletionMatchFunc -> m (GClosure C_EntryCompletionMatchFunc)
genClosure_EntryCompletionMatchFunc :: forall (m :: * -> *).
MonadIO m =>
EntryCompletionMatchFunc -> m (GClosure C_EntryCompletionMatchFunc)
genClosure_EntryCompletionMatchFunc EntryCompletionMatchFunc
cb = IO (GClosure C_EntryCompletionMatchFunc)
-> m (GClosure C_EntryCompletionMatchFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryCompletionMatchFunc)
-> m (GClosure C_EntryCompletionMatchFunc))
-> IO (GClosure C_EntryCompletionMatchFunc)
-> m (GClosure C_EntryCompletionMatchFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: EntryCompletionMatchFunc_WithClosures
cb' = EntryCompletionMatchFunc -> EntryCompletionMatchFunc_WithClosures
drop_closures_EntryCompletionMatchFunc EntryCompletionMatchFunc
cb
let cb'' :: C_EntryCompletionMatchFunc
cb'' = Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc))
-> EntryCompletionMatchFunc_WithClosures
-> C_EntryCompletionMatchFunc
wrap_EntryCompletionMatchFunc Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc))
forall a. Maybe a
Nothing EntryCompletionMatchFunc_WithClosures
cb'
C_EntryCompletionMatchFunc
-> IO (FunPtr C_EntryCompletionMatchFunc)
mk_EntryCompletionMatchFunc C_EntryCompletionMatchFunc
cb'' IO (FunPtr C_EntryCompletionMatchFunc)
-> (FunPtr C_EntryCompletionMatchFunc
-> IO (GClosure C_EntryCompletionMatchFunc))
-> IO (GClosure C_EntryCompletionMatchFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryCompletionMatchFunc
-> IO (GClosure C_EntryCompletionMatchFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryCompletionMatchFunc ::
Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc)) ->
EntryCompletionMatchFunc_WithClosures ->
C_EntryCompletionMatchFunc
wrap_EntryCompletionMatchFunc :: Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc))
-> EntryCompletionMatchFunc_WithClosures
-> C_EntryCompletionMatchFunc
wrap_EntryCompletionMatchFunc Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc))
gi'funptrptr EntryCompletionMatchFunc_WithClosures
gi'cb Ptr EntryCompletion
completion CString
key Ptr TreeIter
iter Ptr ()
userData = do
completion' <- ((ManagedPtr EntryCompletion -> EntryCompletion)
-> Ptr EntryCompletion -> IO EntryCompletion
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr EntryCompletion -> EntryCompletion
Gtk.EntryCompletion.EntryCompletion) Ptr EntryCompletion
completion
key' <- cstringToText key
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
result <- EntryCompletionMatchFunc_WithClosures
gi'cb EntryCompletion
completion' Text
key' TreeIter
iter' Ptr ()
userData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_DrawingAreaDrawFunc =
Ptr Gtk.DrawingArea.DrawingArea ->
Ptr Cairo.Context.Context ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_DrawingAreaDrawFunc :: FunPtr C_DrawingAreaDrawFunc -> C_DrawingAreaDrawFunc
dynamic_DrawingAreaDrawFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.DrawingArea.IsDrawingArea a) =>
FunPtr C_DrawingAreaDrawFunc
-> a
-> Cairo.Context.Context
-> Int32
-> Int32
-> Ptr ()
-> m ()
dynamic_DrawingAreaDrawFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDrawingArea a) =>
FunPtr C_DrawingAreaDrawFunc
-> a -> Context -> Int32 -> Int32 -> Ptr () -> m ()
dynamic_DrawingAreaDrawFunc FunPtr C_DrawingAreaDrawFunc
__funPtr a
drawingArea Context
cr Int32
width Int32
height Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
drawingArea' <- a -> IO (Ptr DrawingArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawingArea
cr' <- unsafeManagedPtrGetPtr cr
(__dynamic_C_DrawingAreaDrawFunc __funPtr) drawingArea' cr' width height userData
touchManagedPtr drawingArea
touchManagedPtr cr
return ()
foreign import ccall "wrapper"
mk_DrawingAreaDrawFunc :: C_DrawingAreaDrawFunc -> IO (FunPtr C_DrawingAreaDrawFunc)
type DrawingAreaDrawFunc =
Gtk.DrawingArea.DrawingArea
-> Cairo.Context.Context
-> Int32
-> Int32
-> IO ()
noDrawingAreaDrawFunc :: Maybe DrawingAreaDrawFunc
noDrawingAreaDrawFunc :: Maybe DrawingAreaDrawFunc
noDrawingAreaDrawFunc = Maybe DrawingAreaDrawFunc
forall a. Maybe a
Nothing
type DrawingAreaDrawFunc_WithClosures =
Gtk.DrawingArea.DrawingArea
-> Cairo.Context.Context
-> Int32
-> Int32
-> Ptr ()
-> IO ()
noDrawingAreaDrawFunc_WithClosures :: Maybe DrawingAreaDrawFunc_WithClosures
noDrawingAreaDrawFunc_WithClosures :: Maybe DrawingAreaDrawFunc_WithClosures
noDrawingAreaDrawFunc_WithClosures = Maybe DrawingAreaDrawFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_DrawingAreaDrawFunc :: DrawingAreaDrawFunc -> DrawingAreaDrawFunc_WithClosures
drop_closures_DrawingAreaDrawFunc :: DrawingAreaDrawFunc -> DrawingAreaDrawFunc_WithClosures
drop_closures_DrawingAreaDrawFunc DrawingAreaDrawFunc
_f DrawingArea
drawingArea Context
cr Int32
width Int32
height Ptr ()
_ = DrawingAreaDrawFunc
_f DrawingArea
drawingArea Context
cr Int32
width Int32
height
genClosure_DrawingAreaDrawFunc :: MonadIO m => DrawingAreaDrawFunc -> m (GClosure C_DrawingAreaDrawFunc)
genClosure_DrawingAreaDrawFunc :: forall (m :: * -> *).
MonadIO m =>
DrawingAreaDrawFunc -> m (GClosure C_DrawingAreaDrawFunc)
genClosure_DrawingAreaDrawFunc DrawingAreaDrawFunc
cb = IO (GClosure C_DrawingAreaDrawFunc)
-> m (GClosure C_DrawingAreaDrawFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_DrawingAreaDrawFunc)
-> m (GClosure C_DrawingAreaDrawFunc))
-> IO (GClosure C_DrawingAreaDrawFunc)
-> m (GClosure C_DrawingAreaDrawFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: DrawingAreaDrawFunc_WithClosures
cb' = DrawingAreaDrawFunc -> DrawingAreaDrawFunc_WithClosures
drop_closures_DrawingAreaDrawFunc DrawingAreaDrawFunc
cb
let cb'' :: C_DrawingAreaDrawFunc
cb'' = Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc))
-> DrawingAreaDrawFunc_WithClosures -> C_DrawingAreaDrawFunc
wrap_DrawingAreaDrawFunc Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc))
forall a. Maybe a
Nothing DrawingAreaDrawFunc_WithClosures
cb'
C_DrawingAreaDrawFunc -> IO (FunPtr C_DrawingAreaDrawFunc)
mk_DrawingAreaDrawFunc C_DrawingAreaDrawFunc
cb'' IO (FunPtr C_DrawingAreaDrawFunc)
-> (FunPtr C_DrawingAreaDrawFunc
-> IO (GClosure C_DrawingAreaDrawFunc))
-> IO (GClosure C_DrawingAreaDrawFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_DrawingAreaDrawFunc -> IO (GClosure C_DrawingAreaDrawFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_DrawingAreaDrawFunc ::
Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc)) ->
DrawingAreaDrawFunc_WithClosures ->
C_DrawingAreaDrawFunc
wrap_DrawingAreaDrawFunc :: Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc))
-> DrawingAreaDrawFunc_WithClosures -> C_DrawingAreaDrawFunc
wrap_DrawingAreaDrawFunc Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc))
gi'funptrptr DrawingAreaDrawFunc_WithClosures
gi'cb Ptr DrawingArea
drawingArea Ptr Context
cr Int32
width Int32
height Ptr ()
userData = do
drawingArea' <- ((ManagedPtr DrawingArea -> DrawingArea)
-> Ptr DrawingArea -> IO DrawingArea
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DrawingArea -> DrawingArea
Gtk.DrawingArea.DrawingArea) Ptr DrawingArea
drawingArea
B.ManagedPtr.withTransient cr $ \Context
cr' -> do
DrawingAreaDrawFunc_WithClosures
gi'cb DrawingArea
drawingArea' Context
cr' Int32
width Int32
height Ptr ()
userData
Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc))
gi'funptrptr
type C_CustomRequestModeFunc =
Ptr Gtk.Widget.Widget ->
IO CUInt
foreign import ccall "dynamic" __dynamic_C_CustomRequestModeFunc :: FunPtr C_CustomRequestModeFunc -> C_CustomRequestModeFunc
dynamic_CustomRequestModeFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_CustomRequestModeFunc
-> a
-> m Gtk.Enums.SizeRequestMode
dynamic_CustomRequestModeFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassGetRequestModeFieldCallback
-> a -> m SizeRequestMode
dynamic_CustomRequestModeFunc FunPtr C_WidgetClassGetRequestModeFieldCallback
__funPtr a
widget = IO SizeRequestMode -> m SizeRequestMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SizeRequestMode -> m SizeRequestMode)
-> IO SizeRequestMode -> m SizeRequestMode
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
result <- (__dynamic_C_CustomRequestModeFunc __funPtr) widget'
let result' = (Int -> SizeRequestMode
forall a. Enum a => Int -> a
toEnum (Int -> SizeRequestMode)
-> (CUInt -> Int) -> CUInt -> SizeRequestMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr widget
return result'
foreign import ccall "wrapper"
mk_CustomRequestModeFunc :: C_CustomRequestModeFunc -> IO (FunPtr C_CustomRequestModeFunc)
type CustomRequestModeFunc =
Gtk.Widget.Widget
-> IO Gtk.Enums.SizeRequestMode
noCustomRequestModeFunc :: Maybe CustomRequestModeFunc
noCustomRequestModeFunc :: Maybe WidgetClassGetRequestModeFieldCallback
noCustomRequestModeFunc = Maybe WidgetClassGetRequestModeFieldCallback
forall a. Maybe a
Nothing
genClosure_CustomRequestModeFunc :: MonadIO m => CustomRequestModeFunc -> m (GClosure C_CustomRequestModeFunc)
genClosure_CustomRequestModeFunc :: forall (m :: * -> *).
MonadIO m =>
WidgetClassGetRequestModeFieldCallback
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
genClosure_CustomRequestModeFunc WidgetClassGetRequestModeFieldCallback
cb = IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback))
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassGetRequestModeFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
-> WidgetClassGetRequestModeFieldCallback
-> C_WidgetClassGetRequestModeFieldCallback
wrap_CustomRequestModeFunc Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
forall a. Maybe a
Nothing WidgetClassGetRequestModeFieldCallback
cb
C_WidgetClassGetRequestModeFieldCallback
-> IO (FunPtr C_WidgetClassGetRequestModeFieldCallback)
mk_CustomRequestModeFunc C_WidgetClassGetRequestModeFieldCallback
cb' IO (FunPtr C_WidgetClassGetRequestModeFieldCallback)
-> (FunPtr C_WidgetClassGetRequestModeFieldCallback
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback))
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassGetRequestModeFieldCallback
-> IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CustomRequestModeFunc ::
Maybe (Ptr (FunPtr C_CustomRequestModeFunc)) ->
CustomRequestModeFunc ->
C_CustomRequestModeFunc
wrap_CustomRequestModeFunc :: Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
-> WidgetClassGetRequestModeFieldCallback
-> C_WidgetClassGetRequestModeFieldCallback
wrap_CustomRequestModeFunc Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
gi'funptrptr WidgetClassGetRequestModeFieldCallback
gi'cb Ptr Widget
widget = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
result <- gi'cb widget'
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SizeRequestMode -> Int) -> SizeRequestMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SizeRequestMode -> Int
forall a. Enum a => a -> Int
fromEnum) SizeRequestMode
result
return result'
type C_CustomMeasureFunc =
Ptr Gtk.Widget.Widget ->
CUInt ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
foreign import ccall "dynamic" __dynamic_C_CustomMeasureFunc :: FunPtr C_CustomMeasureFunc -> C_CustomMeasureFunc
dynamic_CustomMeasureFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_CustomMeasureFunc
-> a
-> Gtk.Enums.Orientation
-> Int32
-> m ((Int32, Int32, Int32, Int32))
dynamic_CustomMeasureFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassMeasureFieldCallback
-> a -> Orientation -> Int32 -> m (Int32, Int32, Int32, Int32)
dynamic_CustomMeasureFunc FunPtr C_WidgetClassMeasureFieldCallback
__funPtr a
widget Orientation
orientation Int32
forSize = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
minimum <- allocMem :: IO (Ptr Int32)
natural <- allocMem :: IO (Ptr Int32)
minimumBaseline <- allocMem :: IO (Ptr Int32)
naturalBaseline <- allocMem :: IO (Ptr Int32)
(__dynamic_C_CustomMeasureFunc __funPtr) widget' orientation' forSize minimum natural minimumBaseline naturalBaseline
minimum' <- peek minimum
natural' <- peek natural
minimumBaseline' <- peek minimumBaseline
naturalBaseline' <- peek naturalBaseline
touchManagedPtr widget
freeMem minimum
freeMem natural
freeMem minimumBaseline
freeMem naturalBaseline
return (minimum', natural', minimumBaseline', naturalBaseline')
foreign import ccall "wrapper"
mk_CustomMeasureFunc :: C_CustomMeasureFunc -> IO (FunPtr C_CustomMeasureFunc)
type CustomMeasureFunc =
Gtk.Widget.Widget
-> Gtk.Enums.Orientation
-> Int32
-> IO ((Int32, Int32, Int32, Int32))
noCustomMeasureFunc :: Maybe CustomMeasureFunc
noCustomMeasureFunc :: Maybe WidgetClassMeasureFieldCallback
noCustomMeasureFunc = Maybe WidgetClassMeasureFieldCallback
forall a. Maybe a
Nothing
genClosure_CustomMeasureFunc :: MonadIO m => CustomMeasureFunc -> m (GClosure C_CustomMeasureFunc)
genClosure_CustomMeasureFunc :: forall (m :: * -> *).
MonadIO m =>
WidgetClassMeasureFieldCallback
-> m (GClosure C_WidgetClassMeasureFieldCallback)
genClosure_CustomMeasureFunc WidgetClassMeasureFieldCallback
cb = IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback))
-> IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassMeasureFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
-> WidgetClassMeasureFieldCallback
-> C_WidgetClassMeasureFieldCallback
wrap_CustomMeasureFunc Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
forall a. Maybe a
Nothing WidgetClassMeasureFieldCallback
cb
C_WidgetClassMeasureFieldCallback
-> IO (FunPtr C_WidgetClassMeasureFieldCallback)
mk_CustomMeasureFunc C_WidgetClassMeasureFieldCallback
cb' IO (FunPtr C_WidgetClassMeasureFieldCallback)
-> (FunPtr C_WidgetClassMeasureFieldCallback
-> IO (GClosure C_WidgetClassMeasureFieldCallback))
-> IO (GClosure C_WidgetClassMeasureFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassMeasureFieldCallback
-> IO (GClosure C_WidgetClassMeasureFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CustomMeasureFunc ::
Maybe (Ptr (FunPtr C_CustomMeasureFunc)) ->
CustomMeasureFunc ->
C_CustomMeasureFunc
wrap_CustomMeasureFunc :: Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
-> WidgetClassMeasureFieldCallback
-> C_WidgetClassMeasureFieldCallback
wrap_CustomMeasureFunc Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
gi'funptrptr WidgetClassMeasureFieldCallback
gi'cb Ptr Widget
widget CUInt
orientation Int32
forSize Ptr Int32
minimum Ptr Int32
natural Ptr Int32
minimumBaseline Ptr Int32
naturalBaseline = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
let orientation' = (Int -> Orientation
forall a. Enum a => Int -> a
toEnum (Int -> Orientation) -> (CUInt -> Int) -> CUInt -> Orientation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
orientation
(outminimum, outnatural, outminimumBaseline, outnaturalBaseline) <- gi'cb widget' orientation' forSize
poke minimum outminimum
poke natural outnatural
poke minimumBaseline outminimumBaseline
poke naturalBaseline outnaturalBaseline
maybeReleaseFunPtr gi'funptrptr
type C_CustomFilterFunc =
Ptr GObject.Object.Object ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_CustomFilterFunc :: FunPtr C_CustomFilterFunc -> C_CustomFilterFunc
dynamic_CustomFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
FunPtr C_CustomFilterFunc
-> a
-> Ptr ()
-> m Bool
dynamic_CustomFilterFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_CustomFilterFunc -> a -> Ptr () -> m Bool
dynamic_CustomFilterFunc FunPtr C_CustomFilterFunc
__funPtr a
item Ptr ()
userData = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
result <- (__dynamic_C_CustomFilterFunc __funPtr) item' userData
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr item
return result'
foreign import ccall "wrapper"
mk_CustomFilterFunc :: C_CustomFilterFunc -> IO (FunPtr C_CustomFilterFunc)
type CustomFilterFunc =
GObject.Object.Object
-> IO Bool
noCustomFilterFunc :: Maybe CustomFilterFunc
noCustomFilterFunc :: Maybe CustomFilterFunc
noCustomFilterFunc = Maybe CustomFilterFunc
forall a. Maybe a
Nothing
type CustomFilterFunc_WithClosures =
GObject.Object.Object
-> Ptr ()
-> IO Bool
noCustomFilterFunc_WithClosures :: Maybe CustomFilterFunc_WithClosures
noCustomFilterFunc_WithClosures :: Maybe CustomFilterFunc_WithClosures
noCustomFilterFunc_WithClosures = Maybe CustomFilterFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_CustomFilterFunc :: CustomFilterFunc -> CustomFilterFunc_WithClosures
drop_closures_CustomFilterFunc :: CustomFilterFunc -> CustomFilterFunc_WithClosures
drop_closures_CustomFilterFunc CustomFilterFunc
_f Object
item Ptr ()
_ = CustomFilterFunc
_f Object
item
genClosure_CustomFilterFunc :: MonadIO m => CustomFilterFunc -> m (GClosure C_CustomFilterFunc)
genClosure_CustomFilterFunc :: forall (m :: * -> *).
MonadIO m =>
CustomFilterFunc -> m (GClosure C_CustomFilterFunc)
genClosure_CustomFilterFunc CustomFilterFunc
cb = IO (GClosure C_CustomFilterFunc) -> m (GClosure C_CustomFilterFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CustomFilterFunc)
-> m (GClosure C_CustomFilterFunc))
-> IO (GClosure C_CustomFilterFunc)
-> m (GClosure C_CustomFilterFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: CustomFilterFunc_WithClosures
cb' = CustomFilterFunc -> CustomFilterFunc_WithClosures
drop_closures_CustomFilterFunc CustomFilterFunc
cb
let cb'' :: C_CustomFilterFunc
cb'' = Maybe (Ptr (FunPtr C_CustomFilterFunc))
-> CustomFilterFunc_WithClosures -> C_CustomFilterFunc
wrap_CustomFilterFunc Maybe (Ptr (FunPtr C_CustomFilterFunc))
forall a. Maybe a
Nothing CustomFilterFunc_WithClosures
cb'
C_CustomFilterFunc -> IO (FunPtr C_CustomFilterFunc)
mk_CustomFilterFunc C_CustomFilterFunc
cb'' IO (FunPtr C_CustomFilterFunc)
-> (FunPtr C_CustomFilterFunc -> IO (GClosure C_CustomFilterFunc))
-> IO (GClosure C_CustomFilterFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CustomFilterFunc -> IO (GClosure C_CustomFilterFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CustomFilterFunc ::
Maybe (Ptr (FunPtr C_CustomFilterFunc)) ->
CustomFilterFunc_WithClosures ->
C_CustomFilterFunc
wrap_CustomFilterFunc :: Maybe (Ptr (FunPtr C_CustomFilterFunc))
-> CustomFilterFunc_WithClosures -> C_CustomFilterFunc
wrap_CustomFilterFunc Maybe (Ptr (FunPtr C_CustomFilterFunc))
gi'funptrptr CustomFilterFunc_WithClosures
gi'cb Ptr Object
item Ptr ()
userData = do
item' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
item
result <- gi'cb item' userData
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_CustomAllocateFunc =
Ptr Gtk.Widget.Widget ->
Int32 ->
Int32 ->
Int32 ->
IO ()
foreign import ccall "dynamic" __dynamic_C_CustomAllocateFunc :: FunPtr C_CustomAllocateFunc -> C_CustomAllocateFunc
dynamic_CustomAllocateFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_CustomAllocateFunc
-> a
-> Int32
-> Int32
-> Int32
-> m ()
dynamic_CustomAllocateFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_WidgetClassSizeAllocateFieldCallback
-> a -> Int32 -> Int32 -> Int32 -> m ()
dynamic_CustomAllocateFunc FunPtr C_WidgetClassSizeAllocateFieldCallback
__funPtr a
widget Int32
width Int32
height Int32
baseline = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(__dynamic_C_CustomAllocateFunc __funPtr) widget' width height baseline
touchManagedPtr widget
return ()
foreign import ccall "wrapper"
mk_CustomAllocateFunc :: C_CustomAllocateFunc -> IO (FunPtr C_CustomAllocateFunc)
type CustomAllocateFunc =
Gtk.Widget.Widget
-> Int32
-> Int32
-> Int32
-> IO ()
noCustomAllocateFunc :: Maybe CustomAllocateFunc
noCustomAllocateFunc :: Maybe WidgetClassSizeAllocateFieldCallback
noCustomAllocateFunc = Maybe WidgetClassSizeAllocateFieldCallback
forall a. Maybe a
Nothing
genClosure_CustomAllocateFunc :: MonadIO m => CustomAllocateFunc -> m (GClosure C_CustomAllocateFunc)
genClosure_CustomAllocateFunc :: forall (m :: * -> *).
MonadIO m =>
WidgetClassSizeAllocateFieldCallback
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
genClosure_CustomAllocateFunc WidgetClassSizeAllocateFieldCallback
cb = IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback))
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassSizeAllocateFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
-> WidgetClassSizeAllocateFieldCallback
-> C_WidgetClassSizeAllocateFieldCallback
wrap_CustomAllocateFunc Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
forall a. Maybe a
Nothing WidgetClassSizeAllocateFieldCallback
cb
C_WidgetClassSizeAllocateFieldCallback
-> IO (FunPtr C_WidgetClassSizeAllocateFieldCallback)
mk_CustomAllocateFunc C_WidgetClassSizeAllocateFieldCallback
cb' IO (FunPtr C_WidgetClassSizeAllocateFieldCallback)
-> (FunPtr C_WidgetClassSizeAllocateFieldCallback
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback))
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassSizeAllocateFieldCallback
-> IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CustomAllocateFunc ::
Maybe (Ptr (FunPtr C_CustomAllocateFunc)) ->
CustomAllocateFunc ->
C_CustomAllocateFunc
wrap_CustomAllocateFunc :: Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
-> WidgetClassSizeAllocateFieldCallback
-> C_WidgetClassSizeAllocateFieldCallback
wrap_CustomAllocateFunc Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
gi'funptrptr WidgetClassSizeAllocateFieldCallback
gi'cb Ptr Widget
widget Int32
width Int32
height Int32
baseline = do
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
gi'cb widget' width height baseline
maybeReleaseFunPtr gi'funptrptr
type C_CellLayoutDataFunc =
Ptr Gtk.CellLayout.CellLayout ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_CellLayoutDataFunc :: FunPtr C_CellLayoutDataFunc -> C_CellLayoutDataFunc
dynamic_CellLayoutDataFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellLayout.IsCellLayout a, Gtk.CellRenderer.IsCellRenderer b, Gtk.TreeModel.IsTreeModel c) =>
FunPtr C_CellLayoutDataFunc
-> a
-> b
-> c
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> m ()
dynamic_CellLayoutDataFunc :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellLayout a, IsCellRenderer b,
IsTreeModel c) =>
FunPtr C_CellLayoutDataFunc
-> a -> b -> c -> TreeIter -> Ptr () -> m ()
dynamic_CellLayoutDataFunc FunPtr C_CellLayoutDataFunc
__funPtr a
cellLayout b
cell c
treeModel TreeIter
iter Ptr ()
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
cellLayout' <- a -> IO (Ptr CellLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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 ()
foreign import ccall "wrapper"
mk_CellLayoutDataFunc :: C_CellLayoutDataFunc -> IO (FunPtr C_CellLayoutDataFunc)
{-# DEPRECATED CellLayoutDataFunc ["(Since version 4.20)","There is no replacement"] #-}
type CellLayoutDataFunc =
Gtk.CellLayout.CellLayout
-> Gtk.CellRenderer.CellRenderer
-> Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> IO ()
noCellLayoutDataFunc :: Maybe CellLayoutDataFunc
noCellLayoutDataFunc :: Maybe CellLayoutDataFunc
noCellLayoutDataFunc = Maybe CellLayoutDataFunc
forall a. Maybe a
Nothing
type CellLayoutDataFunc_WithClosures =
Gtk.CellLayout.CellLayout
-> Gtk.CellRenderer.CellRenderer
-> Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Ptr ()
-> IO ()
noCellLayoutDataFunc_WithClosures :: Maybe CellLayoutDataFunc_WithClosures
noCellLayoutDataFunc_WithClosures :: Maybe CellLayoutDataFunc_WithClosures
noCellLayoutDataFunc_WithClosures = Maybe CellLayoutDataFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_CellLayoutDataFunc :: CellLayoutDataFunc -> CellLayoutDataFunc_WithClosures
drop_closures_CellLayoutDataFunc :: CellLayoutDataFunc -> CellLayoutDataFunc_WithClosures
drop_closures_CellLayoutDataFunc CellLayoutDataFunc
_f CellLayout
cellLayout CellRenderer
cell TreeModel
treeModel TreeIter
iter Ptr ()
_ = CellLayoutDataFunc
_f CellLayout
cellLayout CellRenderer
cell TreeModel
treeModel TreeIter
iter
genClosure_CellLayoutDataFunc :: MonadIO m => CellLayoutDataFunc -> m (GClosure C_CellLayoutDataFunc)
genClosure_CellLayoutDataFunc :: forall (m :: * -> *).
MonadIO m =>
CellLayoutDataFunc -> m (GClosure C_CellLayoutDataFunc)
genClosure_CellLayoutDataFunc CellLayoutDataFunc
cb = IO (GClosure C_CellLayoutDataFunc)
-> m (GClosure C_CellLayoutDataFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellLayoutDataFunc)
-> m (GClosure C_CellLayoutDataFunc))
-> IO (GClosure C_CellLayoutDataFunc)
-> m (GClosure C_CellLayoutDataFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: CellLayoutDataFunc_WithClosures
cb' = CellLayoutDataFunc -> CellLayoutDataFunc_WithClosures
drop_closures_CellLayoutDataFunc CellLayoutDataFunc
cb
let cb'' :: C_CellLayoutDataFunc
cb'' = Maybe (Ptr (FunPtr C_CellLayoutDataFunc))
-> CellLayoutDataFunc_WithClosures -> C_CellLayoutDataFunc
wrap_CellLayoutDataFunc Maybe (Ptr (FunPtr C_CellLayoutDataFunc))
forall a. Maybe a
Nothing CellLayoutDataFunc_WithClosures
cb'
C_CellLayoutDataFunc -> IO (FunPtr C_CellLayoutDataFunc)
mk_CellLayoutDataFunc C_CellLayoutDataFunc
cb'' IO (FunPtr C_CellLayoutDataFunc)
-> (FunPtr C_CellLayoutDataFunc
-> IO (GClosure C_CellLayoutDataFunc))
-> IO (GClosure C_CellLayoutDataFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellLayoutDataFunc -> IO (GClosure C_CellLayoutDataFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellLayoutDataFunc ::
Maybe (Ptr (FunPtr C_CellLayoutDataFunc)) ->
CellLayoutDataFunc_WithClosures ->
C_CellLayoutDataFunc
wrap_CellLayoutDataFunc :: Maybe (Ptr (FunPtr C_CellLayoutDataFunc))
-> CellLayoutDataFunc_WithClosures -> C_CellLayoutDataFunc
wrap_CellLayoutDataFunc Maybe (Ptr (FunPtr C_CellLayoutDataFunc))
gi'funptrptr CellLayoutDataFunc_WithClosures
gi'cb Ptr CellLayout
cellLayout Ptr CellRenderer
cell Ptr TreeModel
treeModel Ptr TreeIter
iter Ptr ()
data_ = do
cellLayout' <- ((ManagedPtr CellLayout -> CellLayout)
-> Ptr CellLayout -> IO CellLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellLayout -> CellLayout
Gtk.CellLayout.CellLayout) Ptr CellLayout
cellLayout
cell' <- (newObject Gtk.CellRenderer.CellRenderer) cell
treeModel' <- (newObject Gtk.TreeModel.TreeModel) treeModel
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
CellLayoutDataFunc_WithClosures
gi'cb CellLayout
cellLayout' CellRenderer
cell' TreeModel
treeModel' TreeIter
iter' Ptr ()
data_
Maybe (Ptr (FunPtr C_CellLayoutDataFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_CellLayoutDataFunc))
gi'funptrptr
type C_CellCallback =
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_CellCallback :: FunPtr C_CellCallback -> C_CellCallback
dynamic_CellCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellRenderer.IsCellRenderer a) =>
FunPtr C_CellCallback
-> a
-> Ptr ()
-> m Bool
dynamic_CellCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRenderer a) =>
FunPtr C_CellCallback -> a -> Ptr () -> m Bool
dynamic_CellCallback FunPtr C_CellCallback
__funPtr a
renderer Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
renderer' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
result <- (__dynamic_C_CellCallback __funPtr) renderer' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr renderer
return result'
foreign import ccall "wrapper"
mk_CellCallback :: C_CellCallback -> IO (FunPtr C_CellCallback)
{-# DEPRECATED CellCallback ["(Since version 4.20)","There is no replacement"] #-}
type CellCallback =
Gtk.CellRenderer.CellRenderer
-> IO Bool
noCellCallback :: Maybe CellCallback
noCellCallback :: Maybe CellCallback
noCellCallback = Maybe CellCallback
forall a. Maybe a
Nothing
type CellCallback_WithClosures =
Gtk.CellRenderer.CellRenderer
-> Ptr ()
-> IO Bool
noCellCallback_WithClosures :: Maybe CellCallback_WithClosures
noCellCallback_WithClosures :: Maybe CellCallback_WithClosures
noCellCallback_WithClosures = Maybe CellCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_CellCallback :: CellCallback -> CellCallback_WithClosures
drop_closures_CellCallback :: CellCallback -> CellCallback_WithClosures
drop_closures_CellCallback CellCallback
_f CellRenderer
renderer Ptr ()
_ = CellCallback
_f CellRenderer
renderer
genClosure_CellCallback :: MonadIO m => CellCallback -> m (GClosure C_CellCallback)
genClosure_CellCallback :: forall (m :: * -> *).
MonadIO m =>
CellCallback -> m (GClosure C_CellCallback)
genClosure_CellCallback CellCallback
cb = IO (GClosure C_CellCallback) -> m (GClosure C_CellCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellCallback) -> m (GClosure C_CellCallback))
-> IO (GClosure C_CellCallback) -> m (GClosure C_CellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: CellCallback_WithClosures
cb' = CellCallback -> CellCallback_WithClosures
drop_closures_CellCallback CellCallback
cb
let cb'' :: C_CellCallback
cb'' = Maybe (Ptr (FunPtr C_CellCallback))
-> CellCallback_WithClosures -> C_CellCallback
wrap_CellCallback Maybe (Ptr (FunPtr C_CellCallback))
forall a. Maybe a
Nothing CellCallback_WithClosures
cb'
C_CellCallback -> IO (FunPtr C_CellCallback)
mk_CellCallback C_CellCallback
cb'' IO (FunPtr C_CellCallback)
-> (FunPtr C_CellCallback -> IO (GClosure C_CellCallback))
-> IO (GClosure C_CellCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellCallback -> IO (GClosure C_CellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellCallback ::
Maybe (Ptr (FunPtr C_CellCallback)) ->
CellCallback_WithClosures ->
C_CellCallback
wrap_CellCallback :: Maybe (Ptr (FunPtr C_CellCallback))
-> CellCallback_WithClosures -> C_CellCallback
wrap_CellCallback Maybe (Ptr (FunPtr C_CellCallback))
gi'funptrptr CellCallback_WithClosures
gi'cb Ptr CellRenderer
renderer Ptr ()
data_ = do
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
result <- gi'cb renderer' data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_CellAllocCallback =
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_CellAllocCallback :: FunPtr C_CellAllocCallback -> C_CellAllocCallback
dynamic_CellAllocCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellRenderer.IsCellRenderer a) =>
FunPtr C_CellAllocCallback
-> a
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Ptr ()
-> m Bool
dynamic_CellAllocCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRenderer a) =>
FunPtr C_CellAllocCallback
-> a -> Rectangle -> Rectangle -> Ptr () -> m Bool
dynamic_CellAllocCallback FunPtr C_CellAllocCallback
__funPtr a
renderer Rectangle
cellArea Rectangle
cellBackground Ptr ()
data_ = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
renderer' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
cellArea' <- unsafeManagedPtrGetPtr cellArea
cellBackground' <- unsafeManagedPtrGetPtr cellBackground
result <- (__dynamic_C_CellAllocCallback __funPtr) renderer' cellArea' cellBackground' data_
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr renderer
touchManagedPtr cellArea
touchManagedPtr cellBackground
return result'
foreign import ccall "wrapper"
mk_CellAllocCallback :: C_CellAllocCallback -> IO (FunPtr C_CellAllocCallback)
{-# DEPRECATED CellAllocCallback ["(Since version 4.20)","There is no replacement"] #-}
type CellAllocCallback =
Gtk.CellRenderer.CellRenderer
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> IO Bool
noCellAllocCallback :: Maybe CellAllocCallback
noCellAllocCallback :: Maybe CellAllocCallback
noCellAllocCallback = Maybe CellAllocCallback
forall a. Maybe a
Nothing
type CellAllocCallback_WithClosures =
Gtk.CellRenderer.CellRenderer
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Ptr ()
-> IO Bool
noCellAllocCallback_WithClosures :: Maybe CellAllocCallback_WithClosures
noCellAllocCallback_WithClosures :: Maybe CellAllocCallback_WithClosures
noCellAllocCallback_WithClosures = Maybe CellAllocCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_CellAllocCallback :: CellAllocCallback -> CellAllocCallback_WithClosures
drop_closures_CellAllocCallback :: CellAllocCallback -> CellAllocCallback_WithClosures
drop_closures_CellAllocCallback CellAllocCallback
_f CellRenderer
renderer Rectangle
cellArea Rectangle
cellBackground Ptr ()
_ = CellAllocCallback
_f CellRenderer
renderer Rectangle
cellArea Rectangle
cellBackground
genClosure_CellAllocCallback :: MonadIO m => CellAllocCallback -> m (GClosure C_CellAllocCallback)
genClosure_CellAllocCallback :: forall (m :: * -> *).
MonadIO m =>
CellAllocCallback -> m (GClosure C_CellAllocCallback)
genClosure_CellAllocCallback CellAllocCallback
cb = IO (GClosure C_CellAllocCallback)
-> m (GClosure C_CellAllocCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellAllocCallback)
-> m (GClosure C_CellAllocCallback))
-> IO (GClosure C_CellAllocCallback)
-> m (GClosure C_CellAllocCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: CellAllocCallback_WithClosures
cb' = CellAllocCallback -> CellAllocCallback_WithClosures
drop_closures_CellAllocCallback CellAllocCallback
cb
let cb'' :: C_CellAllocCallback
cb'' = Maybe (Ptr (FunPtr C_CellAllocCallback))
-> CellAllocCallback_WithClosures -> C_CellAllocCallback
wrap_CellAllocCallback Maybe (Ptr (FunPtr C_CellAllocCallback))
forall a. Maybe a
Nothing CellAllocCallback_WithClosures
cb'
C_CellAllocCallback -> IO (FunPtr C_CellAllocCallback)
mk_CellAllocCallback C_CellAllocCallback
cb'' IO (FunPtr C_CellAllocCallback)
-> (FunPtr C_CellAllocCallback
-> IO (GClosure C_CellAllocCallback))
-> IO (GClosure C_CellAllocCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellAllocCallback -> IO (GClosure C_CellAllocCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellAllocCallback ::
Maybe (Ptr (FunPtr C_CellAllocCallback)) ->
CellAllocCallback_WithClosures ->
C_CellAllocCallback
wrap_CellAllocCallback :: Maybe (Ptr (FunPtr C_CellAllocCallback))
-> CellAllocCallback_WithClosures -> C_CellAllocCallback
wrap_CellAllocCallback Maybe (Ptr (FunPtr C_CellAllocCallback))
gi'funptrptr CellAllocCallback_WithClosures
gi'cb Ptr CellRenderer
renderer Ptr Rectangle
cellArea Ptr Rectangle
cellBackground Ptr ()
data_ = do
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
B.ManagedPtr.withTransient cellArea $ \Rectangle
cellArea' -> do
Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Rectangle
cellBackground ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Rectangle
cellBackground' -> do
result <- CellAllocCallback_WithClosures
gi'cb CellRenderer
renderer' Rectangle
cellArea' Rectangle
cellBackground' Ptr ()
data_
maybeReleaseFunPtr gi'funptrptr
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
type C_BuildableParserTextFieldCallback =
Ptr Gtk.BuildableParseContext.BuildableParseContext ->
CString ->
FCT.CSize ->
Ptr () ->
Ptr (Ptr GError) ->
IO ()
foreign import ccall "dynamic" __dynamic_C_BuildableParserTextFieldCallback :: FunPtr C_BuildableParserTextFieldCallback -> C_BuildableParserTextFieldCallback
dynamic_BuildableParserTextFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserTextFieldCallback
-> Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> FCT.CSize
-> Ptr ()
-> m ()
dynamic_BuildableParserTextFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserTextFieldCallback
-> BuildableParseContext -> Text -> CSize -> Ptr () -> m ()
dynamic_BuildableParserTextFieldCallback FunPtr C_BuildableParserTextFieldCallback
__funPtr BuildableParseContext
context Text
text CSize
textLen Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
text' <- textToCString text
onException (do
propagateGError $ (__dynamic_C_BuildableParserTextFieldCallback __funPtr) context' text' textLen userData
touchManagedPtr context
freeMem text'
return ()
) (do
freeMem text'
)
foreign import ccall "wrapper"
mk_BuildableParserTextFieldCallback :: C_BuildableParserTextFieldCallback -> IO (FunPtr C_BuildableParserTextFieldCallback)
type BuildableParserTextFieldCallback =
Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> FCT.CSize
-> IO ()
noBuildableParserTextFieldCallback :: Maybe BuildableParserTextFieldCallback
noBuildableParserTextFieldCallback :: Maybe BuildableParserTextFieldCallback
noBuildableParserTextFieldCallback = Maybe BuildableParserTextFieldCallback
forall a. Maybe a
Nothing
type BuildableParserTextFieldCallback_WithClosures =
Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> FCT.CSize
-> Ptr ()
-> IO ()
noBuildableParserTextFieldCallback_WithClosures :: Maybe BuildableParserTextFieldCallback_WithClosures
noBuildableParserTextFieldCallback_WithClosures :: Maybe BuildableParserTextFieldCallback_WithClosures
noBuildableParserTextFieldCallback_WithClosures = Maybe BuildableParserTextFieldCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_BuildableParserTextFieldCallback :: BuildableParserTextFieldCallback -> BuildableParserTextFieldCallback_WithClosures
drop_closures_BuildableParserTextFieldCallback :: BuildableParserTextFieldCallback
-> BuildableParserTextFieldCallback_WithClosures
drop_closures_BuildableParserTextFieldCallback BuildableParserTextFieldCallback
_f BuildableParseContext
context Text
text CSize
textLen Ptr ()
_ = BuildableParserTextFieldCallback
_f BuildableParseContext
context Text
text CSize
textLen
type C_BuildableParserStartElementFieldCallback =
Ptr Gtk.BuildableParseContext.BuildableParseContext ->
CString ->
CString ->
CString ->
Ptr () ->
Ptr (Ptr GError) ->
IO ()
foreign import ccall "dynamic" __dynamic_C_BuildableParserStartElementFieldCallback :: FunPtr C_BuildableParserStartElementFieldCallback -> C_BuildableParserStartElementFieldCallback
dynamic_BuildableParserStartElementFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserStartElementFieldCallback
-> Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> T.Text
-> T.Text
-> Ptr ()
-> m ()
dynamic_BuildableParserStartElementFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserStartElementFieldCallback
-> BuildableParseContext -> Text -> Text -> Text -> Ptr () -> m ()
dynamic_BuildableParserStartElementFieldCallback FunPtr C_BuildableParserStartElementFieldCallback
__funPtr BuildableParseContext
context Text
elementName Text
attributeNames Text
attributeValues Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
elementName' <- textToCString elementName
attributeNames' <- textToCString attributeNames
attributeValues' <- textToCString attributeValues
onException (do
propagateGError $ (__dynamic_C_BuildableParserStartElementFieldCallback __funPtr) context' elementName' attributeNames' attributeValues' userData
touchManagedPtr context
freeMem elementName'
freeMem attributeNames'
freeMem attributeValues'
return ()
) (do
freeMem elementName'
freeMem attributeNames'
freeMem attributeValues'
)
foreign import ccall "wrapper"
mk_BuildableParserStartElementFieldCallback :: C_BuildableParserStartElementFieldCallback -> IO (FunPtr C_BuildableParserStartElementFieldCallback)
type BuildableParserStartElementFieldCallback =
Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> T.Text
-> T.Text
-> IO ()
noBuildableParserStartElementFieldCallback :: Maybe BuildableParserStartElementFieldCallback
noBuildableParserStartElementFieldCallback :: Maybe BuildableParserStartElementFieldCallback
noBuildableParserStartElementFieldCallback = Maybe BuildableParserStartElementFieldCallback
forall a. Maybe a
Nothing
type BuildableParserStartElementFieldCallback_WithClosures =
Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> T.Text
-> T.Text
-> Ptr ()
-> IO ()
noBuildableParserStartElementFieldCallback_WithClosures :: Maybe BuildableParserStartElementFieldCallback_WithClosures
noBuildableParserStartElementFieldCallback_WithClosures :: Maybe BuildableParserStartElementFieldCallback_WithClosures
noBuildableParserStartElementFieldCallback_WithClosures = Maybe BuildableParserStartElementFieldCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_BuildableParserStartElementFieldCallback :: BuildableParserStartElementFieldCallback -> BuildableParserStartElementFieldCallback_WithClosures
drop_closures_BuildableParserStartElementFieldCallback :: BuildableParserStartElementFieldCallback
-> BuildableParserStartElementFieldCallback_WithClosures
drop_closures_BuildableParserStartElementFieldCallback BuildableParserStartElementFieldCallback
_f BuildableParseContext
context Text
elementName Text
attributeNames Text
attributeValues Ptr ()
_ = BuildableParserStartElementFieldCallback
_f BuildableParseContext
context Text
elementName Text
attributeNames Text
attributeValues
type C_BuildableParserErrorFieldCallback =
Ptr Gtk.BuildableParseContext.BuildableParseContext ->
Ptr GError ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_BuildableParserErrorFieldCallback :: FunPtr C_BuildableParserErrorFieldCallback -> C_BuildableParserErrorFieldCallback
dynamic_BuildableParserErrorFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserErrorFieldCallback
-> Gtk.BuildableParseContext.BuildableParseContext
-> GError
-> Ptr ()
-> m ()
dynamic_BuildableParserErrorFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserErrorFieldCallback
-> BuildableParseContext -> GError -> Ptr () -> m ()
dynamic_BuildableParserErrorFieldCallback FunPtr C_BuildableParserErrorFieldCallback
__funPtr BuildableParseContext
context GError
error_ Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
error_' <- unsafeManagedPtrGetPtr error_
(__dynamic_C_BuildableParserErrorFieldCallback __funPtr) context' error_' userData
touchManagedPtr context
touchManagedPtr error_
return ()
foreign import ccall "wrapper"
mk_BuildableParserErrorFieldCallback :: C_BuildableParserErrorFieldCallback -> IO (FunPtr C_BuildableParserErrorFieldCallback)
type BuildableParserErrorFieldCallback =
Gtk.BuildableParseContext.BuildableParseContext
-> GError
-> IO ()
noBuildableParserErrorFieldCallback :: Maybe BuildableParserErrorFieldCallback
noBuildableParserErrorFieldCallback :: Maybe BuildableParserErrorFieldCallback
noBuildableParserErrorFieldCallback = Maybe BuildableParserErrorFieldCallback
forall a. Maybe a
Nothing
type BuildableParserErrorFieldCallback_WithClosures =
Gtk.BuildableParseContext.BuildableParseContext
-> GError
-> Ptr ()
-> IO ()
noBuildableParserErrorFieldCallback_WithClosures :: Maybe BuildableParserErrorFieldCallback_WithClosures
noBuildableParserErrorFieldCallback_WithClosures :: Maybe BuildableParserErrorFieldCallback_WithClosures
noBuildableParserErrorFieldCallback_WithClosures = Maybe BuildableParserErrorFieldCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_BuildableParserErrorFieldCallback :: BuildableParserErrorFieldCallback -> BuildableParserErrorFieldCallback_WithClosures
drop_closures_BuildableParserErrorFieldCallback :: BuildableParserErrorFieldCallback
-> BuildableParserErrorFieldCallback_WithClosures
drop_closures_BuildableParserErrorFieldCallback BuildableParserErrorFieldCallback
_f BuildableParseContext
context GError
error_ Ptr ()
_ = BuildableParserErrorFieldCallback
_f BuildableParseContext
context GError
error_
genClosure_BuildableParserErrorFieldCallback :: MonadIO m => BuildableParserErrorFieldCallback -> m (GClosure C_BuildableParserErrorFieldCallback)
genClosure_BuildableParserErrorFieldCallback :: forall (m :: * -> *).
MonadIO m =>
BuildableParserErrorFieldCallback
-> m (GClosure C_BuildableParserErrorFieldCallback)
genClosure_BuildableParserErrorFieldCallback BuildableParserErrorFieldCallback
cb = IO (GClosure C_BuildableParserErrorFieldCallback)
-> m (GClosure C_BuildableParserErrorFieldCallback)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_BuildableParserErrorFieldCallback)
-> m (GClosure C_BuildableParserErrorFieldCallback))
-> IO (GClosure C_BuildableParserErrorFieldCallback)
-> m (GClosure C_BuildableParserErrorFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: BuildableParserErrorFieldCallback_WithClosures
cb' = BuildableParserErrorFieldCallback
-> BuildableParserErrorFieldCallback_WithClosures
drop_closures_BuildableParserErrorFieldCallback BuildableParserErrorFieldCallback
cb
let cb'' :: C_BuildableParserErrorFieldCallback
cb'' = Maybe (Ptr (FunPtr C_BuildableParserErrorFieldCallback))
-> BuildableParserErrorFieldCallback_WithClosures
-> C_BuildableParserErrorFieldCallback
wrap_BuildableParserErrorFieldCallback Maybe (Ptr (FunPtr C_BuildableParserErrorFieldCallback))
forall a. Maybe a
Nothing BuildableParserErrorFieldCallback_WithClosures
cb'
C_BuildableParserErrorFieldCallback
-> IO (FunPtr C_BuildableParserErrorFieldCallback)
mk_BuildableParserErrorFieldCallback C_BuildableParserErrorFieldCallback
cb'' IO (FunPtr C_BuildableParserErrorFieldCallback)
-> (FunPtr C_BuildableParserErrorFieldCallback
-> IO (GClosure C_BuildableParserErrorFieldCallback))
-> IO (GClosure C_BuildableParserErrorFieldCallback)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_BuildableParserErrorFieldCallback
-> IO (GClosure C_BuildableParserErrorFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_BuildableParserErrorFieldCallback ::
Maybe (Ptr (FunPtr C_BuildableParserErrorFieldCallback)) ->
BuildableParserErrorFieldCallback_WithClosures ->
C_BuildableParserErrorFieldCallback
wrap_BuildableParserErrorFieldCallback :: Maybe (Ptr (FunPtr C_BuildableParserErrorFieldCallback))
-> BuildableParserErrorFieldCallback_WithClosures
-> C_BuildableParserErrorFieldCallback
wrap_BuildableParserErrorFieldCallback Maybe (Ptr (FunPtr C_BuildableParserErrorFieldCallback))
gi'funptrptr BuildableParserErrorFieldCallback_WithClosures
gi'cb Ptr BuildableParseContext
context Ptr GError
error_ Ptr ()
userData = do
context' <- ((ManagedPtr BuildableParseContext -> BuildableParseContext)
-> Ptr BuildableParseContext -> IO BuildableParseContext
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr BuildableParseContext -> BuildableParseContext
Gtk.BuildableParseContext.BuildableParseContext) Ptr BuildableParseContext
context
error_' <- (newBoxed GError) error_
gi'cb context' error_' userData
maybeReleaseFunPtr gi'funptrptr
type C_BuildableParserEndElementFieldCallback =
Ptr Gtk.BuildableParseContext.BuildableParseContext ->
CString ->
Ptr () ->
Ptr (Ptr GError) ->
IO ()
foreign import ccall "dynamic" __dynamic_C_BuildableParserEndElementFieldCallback :: FunPtr C_BuildableParserEndElementFieldCallback -> C_BuildableParserEndElementFieldCallback
dynamic_BuildableParserEndElementFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserEndElementFieldCallback
-> Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> Ptr ()
-> m ()
dynamic_BuildableParserEndElementFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_BuildableParserEndElementFieldCallback
-> BuildableParseContext -> Text -> Ptr () -> m ()
dynamic_BuildableParserEndElementFieldCallback FunPtr C_BuildableParserEndElementFieldCallback
__funPtr BuildableParseContext
context Text
elementName Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
elementName' <- textToCString elementName
onException (do
propagateGError $ (__dynamic_C_BuildableParserEndElementFieldCallback __funPtr) context' elementName' userData
touchManagedPtr context
freeMem elementName'
return ()
) (do
freeMem elementName'
)
foreign import ccall "wrapper"
mk_BuildableParserEndElementFieldCallback :: C_BuildableParserEndElementFieldCallback -> IO (FunPtr C_BuildableParserEndElementFieldCallback)
type BuildableParserEndElementFieldCallback =
Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> IO ()
noBuildableParserEndElementFieldCallback :: Maybe BuildableParserEndElementFieldCallback
noBuildableParserEndElementFieldCallback :: Maybe BuildableParserEndElementFieldCallback
noBuildableParserEndElementFieldCallback = Maybe BuildableParserEndElementFieldCallback
forall a. Maybe a
Nothing
type BuildableParserEndElementFieldCallback_WithClosures =
Gtk.BuildableParseContext.BuildableParseContext
-> T.Text
-> Ptr ()
-> IO ()
noBuildableParserEndElementFieldCallback_WithClosures :: Maybe BuildableParserEndElementFieldCallback_WithClosures
noBuildableParserEndElementFieldCallback_WithClosures :: Maybe BuildableParserEndElementFieldCallback_WithClosures
noBuildableParserEndElementFieldCallback_WithClosures = Maybe BuildableParserEndElementFieldCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_BuildableParserEndElementFieldCallback :: BuildableParserEndElementFieldCallback -> BuildableParserEndElementFieldCallback_WithClosures
drop_closures_BuildableParserEndElementFieldCallback :: BuildableParserEndElementFieldCallback
-> BuildableParserEndElementFieldCallback_WithClosures
drop_closures_BuildableParserEndElementFieldCallback BuildableParserEndElementFieldCallback
_f BuildableParseContext
context Text
elementName Ptr ()
_ = BuildableParserEndElementFieldCallback
_f BuildableParseContext
context Text
elementName
type C_AssistantPageFunc =
Int32 ->
Ptr () ->
IO Int32
foreign import ccall "dynamic" __dynamic_C_AssistantPageFunc :: FunPtr C_AssistantPageFunc -> C_AssistantPageFunc
dynamic_AssistantPageFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_AssistantPageFunc
-> Int32
-> Ptr ()
-> m Int32
dynamic_AssistantPageFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_AssistantPageFunc -> Int32 -> Ptr () -> m Int32
dynamic_AssistantPageFunc FunPtr C_AssistantPageFunc
__funPtr Int32
currentPage Ptr ()
data_ = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
result <- (FunPtr C_AssistantPageFunc -> C_AssistantPageFunc
__dynamic_C_AssistantPageFunc FunPtr C_AssistantPageFunc
__funPtr) Int32
currentPage Ptr ()
data_
return result
foreign import ccall "wrapper"
mk_AssistantPageFunc :: C_AssistantPageFunc -> IO (FunPtr C_AssistantPageFunc)
type AssistantPageFunc =
Int32
-> IO Int32
noAssistantPageFunc :: Maybe AssistantPageFunc
noAssistantPageFunc :: Maybe (Int32 -> IO Int32)
noAssistantPageFunc = Maybe (Int32 -> IO Int32)
forall a. Maybe a
Nothing
type AssistantPageFunc_WithClosures =
Int32
-> Ptr ()
-> IO Int32
noAssistantPageFunc_WithClosures :: Maybe AssistantPageFunc_WithClosures
noAssistantPageFunc_WithClosures :: Maybe C_AssistantPageFunc
noAssistantPageFunc_WithClosures = Maybe C_AssistantPageFunc
forall a. Maybe a
Nothing
drop_closures_AssistantPageFunc :: AssistantPageFunc -> AssistantPageFunc_WithClosures
drop_closures_AssistantPageFunc :: (Int32 -> IO Int32) -> C_AssistantPageFunc
drop_closures_AssistantPageFunc Int32 -> IO Int32
_f Int32
currentPage Ptr ()
_ = Int32 -> IO Int32
_f Int32
currentPage
genClosure_AssistantPageFunc :: MonadIO m => AssistantPageFunc -> m (GClosure C_AssistantPageFunc)
genClosure_AssistantPageFunc :: forall (m :: * -> *).
MonadIO m =>
(Int32 -> IO Int32) -> m (GClosure C_AssistantPageFunc)
genClosure_AssistantPageFunc Int32 -> IO Int32
cb = IO (GClosure C_AssistantPageFunc)
-> m (GClosure C_AssistantPageFunc)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AssistantPageFunc)
-> m (GClosure C_AssistantPageFunc))
-> IO (GClosure C_AssistantPageFunc)
-> m (GClosure C_AssistantPageFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AssistantPageFunc
cb' = (Int32 -> IO Int32) -> C_AssistantPageFunc
drop_closures_AssistantPageFunc Int32 -> IO Int32
cb
let cb'' :: C_AssistantPageFunc
cb'' = Maybe (Ptr (FunPtr C_AssistantPageFunc))
-> C_AssistantPageFunc -> C_AssistantPageFunc
wrap_AssistantPageFunc Maybe (Ptr (FunPtr C_AssistantPageFunc))
forall a. Maybe a
Nothing C_AssistantPageFunc
cb'
C_AssistantPageFunc -> IO (FunPtr C_AssistantPageFunc)
mk_AssistantPageFunc C_AssistantPageFunc
cb'' IO (FunPtr C_AssistantPageFunc)
-> (FunPtr C_AssistantPageFunc
-> IO (GClosure C_AssistantPageFunc))
-> IO (GClosure C_AssistantPageFunc)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AssistantPageFunc -> IO (GClosure C_AssistantPageFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AssistantPageFunc ::
Maybe (Ptr (FunPtr C_AssistantPageFunc)) ->
AssistantPageFunc_WithClosures ->
C_AssistantPageFunc
wrap_AssistantPageFunc :: Maybe (Ptr (FunPtr C_AssistantPageFunc))
-> C_AssistantPageFunc -> C_AssistantPageFunc
wrap_AssistantPageFunc Maybe (Ptr (FunPtr C_AssistantPageFunc))
gi'funptrptr C_AssistantPageFunc
gi'cb Int32
currentPage Ptr ()
data_ = do
result <- C_AssistantPageFunc
gi'cb Int32
currentPage Ptr ()
data_
maybeReleaseFunPtr gi'funptrptr
return result