#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Callbacks
(
AccelGroupActivate ,
C_AccelGroupActivate ,
dynamic_AccelGroupActivate ,
genClosure_AccelGroupActivate ,
mk_AccelGroupActivate ,
noAccelGroupActivate ,
wrap_AccelGroupActivate ,
AccelGroupFindFunc ,
AccelGroupFindFunc_WithClosures ,
C_AccelGroupFindFunc ,
drop_closures_AccelGroupFindFunc ,
dynamic_AccelGroupFindFunc ,
genClosure_AccelGroupFindFunc ,
mk_AccelGroupFindFunc ,
noAccelGroupFindFunc ,
noAccelGroupFindFunc_WithClosures ,
wrap_AccelGroupFindFunc ,
AccelMapForeach ,
C_AccelMapForeach ,
dynamic_AccelMapForeach ,
genClosure_AccelMapForeach ,
mk_AccelMapForeach ,
noAccelMapForeach ,
wrap_AccelMapForeach ,
AssistantPageFunc ,
AssistantPageFunc_WithClosures ,
C_AssistantPageFunc ,
drop_closures_AssistantPageFunc ,
dynamic_AssistantPageFunc ,
genClosure_AssistantPageFunc ,
mk_AssistantPageFunc ,
noAssistantPageFunc ,
noAssistantPageFunc_WithClosures ,
wrap_AssistantPageFunc ,
BuilderConnectFunc ,
BuilderConnectFunc_WithClosures ,
C_BuilderConnectFunc ,
drop_closures_BuilderConnectFunc ,
dynamic_BuilderConnectFunc ,
genClosure_BuilderConnectFunc ,
mk_BuilderConnectFunc ,
noBuilderConnectFunc ,
noBuilderConnectFunc_WithClosures ,
wrap_BuilderConnectFunc ,
C_CalendarDetailFunc ,
CalendarDetailFunc ,
CalendarDetailFunc_WithClosures ,
drop_closures_CalendarDetailFunc ,
dynamic_CalendarDetailFunc ,
genClosure_CalendarDetailFunc ,
mk_CalendarDetailFunc ,
noCalendarDetailFunc ,
noCalendarDetailFunc_WithClosures ,
wrap_CalendarDetailFunc ,
C_Callback ,
Callback ,
Callback_WithClosures ,
drop_closures_Callback ,
dynamic_Callback ,
genClosure_Callback ,
mk_Callback ,
noCallback ,
noCallback_WithClosures ,
wrap_Callback ,
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_ContainerClassAddFieldCallback ,
ContainerClassAddFieldCallback ,
dynamic_ContainerClassAddFieldCallback ,
genClosure_ContainerClassAddFieldCallback,
mk_ContainerClassAddFieldCallback ,
noContainerClassAddFieldCallback ,
wrap_ContainerClassAddFieldCallback ,
C_ContainerClassChildTypeFieldCallback ,
ContainerClassChildTypeFieldCallback ,
dynamic_ContainerClassChildTypeFieldCallback,
genClosure_ContainerClassChildTypeFieldCallback,
mk_ContainerClassChildTypeFieldCallback ,
noContainerClassChildTypeFieldCallback ,
wrap_ContainerClassChildTypeFieldCallback,
C_ContainerClassForallFieldCallback ,
ContainerClassForallFieldCallback ,
ContainerClassForallFieldCallback_WithClosures,
drop_closures_ContainerClassForallFieldCallback,
dynamic_ContainerClassForallFieldCallback,
genClosure_ContainerClassForallFieldCallback,
mk_ContainerClassForallFieldCallback ,
noContainerClassForallFieldCallback ,
noContainerClassForallFieldCallback_WithClosures,
wrap_ContainerClassForallFieldCallback ,
C_ContainerClassGetPathForChildFieldCallback,
ContainerClassGetPathForChildFieldCallback,
dynamic_ContainerClassGetPathForChildFieldCallback,
genClosure_ContainerClassGetPathForChildFieldCallback,
mk_ContainerClassGetPathForChildFieldCallback,
noContainerClassGetPathForChildFieldCallback,
wrap_ContainerClassGetPathForChildFieldCallback,
C_ContainerClassRemoveFieldCallback ,
ContainerClassRemoveFieldCallback ,
dynamic_ContainerClassRemoveFieldCallback,
genClosure_ContainerClassRemoveFieldCallback,
mk_ContainerClassRemoveFieldCallback ,
noContainerClassRemoveFieldCallback ,
wrap_ContainerClassRemoveFieldCallback ,
C_ContainerClassSetFocusChildFieldCallback,
ContainerClassSetFocusChildFieldCallback,
dynamic_ContainerClassSetFocusChildFieldCallback,
genClosure_ContainerClassSetFocusChildFieldCallback,
mk_ContainerClassSetFocusChildFieldCallback,
noContainerClassSetFocusChildFieldCallback,
wrap_ContainerClassSetFocusChildFieldCallback,
C_CustomAllocateFunc ,
CustomAllocateFunc ,
dynamic_CustomAllocateFunc ,
genClosure_CustomAllocateFunc ,
mk_CustomAllocateFunc ,
noCustomAllocateFunc ,
wrap_CustomAllocateFunc ,
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_FileFilterFunc ,
FileFilterFunc ,
FileFilterFunc_WithClosures ,
drop_closures_FileFilterFunc ,
dynamic_FileFilterFunc ,
genClosure_FileFilterFunc ,
mk_FileFilterFunc ,
noFileFilterFunc ,
noFileFilterFunc_WithClosures ,
wrap_FileFilterFunc ,
C_FilterListModelFilterFunc ,
FilterListModelFilterFunc ,
FilterListModelFilterFunc_WithClosures ,
drop_closures_FilterListModelFilterFunc ,
dynamic_FilterListModelFilterFunc ,
genClosure_FilterListModelFilterFunc ,
mk_FilterListModelFilterFunc ,
noFilterListModelFilterFunc ,
noFilterListModelFilterFunc_WithClosures,
wrap_FilterListModelFilterFunc ,
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_MenuDetachFunc ,
MenuDetachFunc ,
dynamic_MenuDetachFunc ,
genClosure_MenuDetachFunc ,
mk_MenuDetachFunc ,
noMenuDetachFunc ,
wrap_MenuDetachFunc ,
C_PageSetupDoneFunc ,
PageSetupDoneFunc ,
PageSetupDoneFunc_WithClosures ,
drop_closures_PageSetupDoneFunc ,
dynamic_PageSetupDoneFunc ,
genClosure_PageSetupDoneFunc ,
mk_PageSetupDoneFunc ,
noPageSetupDoneFunc ,
noPageSetupDoneFunc_WithClosures ,
wrap_PageSetupDoneFunc ,
C_PrintSettingsFunc ,
PrintSettingsFunc ,
PrintSettingsFunc_WithClosures ,
drop_closures_PrintSettingsFunc ,
dynamic_PrintSettingsFunc ,
genClosure_PrintSettingsFunc ,
mk_PrintSettingsFunc ,
noPrintSettingsFunc ,
noPrintSettingsFunc_WithClosures ,
wrap_PrintSettingsFunc ,
C_RcPropertyParser ,
RcPropertyParser ,
dynamic_RcPropertyParser ,
genClosure_RcPropertyParser ,
mk_RcPropertyParser ,
noRcPropertyParser ,
wrap_RcPropertyParser ,
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_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_TreeViewSearchPositionFunc ,
TreeViewSearchPositionFunc ,
TreeViewSearchPositionFunc_WithClosures ,
drop_closures_TreeViewSearchPositionFunc,
dynamic_TreeViewSearchPositionFunc ,
genClosure_TreeViewSearchPositionFunc ,
mk_TreeViewSearchPositionFunc ,
noTreeViewSearchPositionFunc ,
noTreeViewSearchPositionFunc_WithClosures,
wrap_TreeViewSearchPositionFunc ,
C_WidgetClassCanActivateAccelFieldCallback,
WidgetClassCanActivateAccelFieldCallback,
dynamic_WidgetClassCanActivateAccelFieldCallback,
genClosure_WidgetClassCanActivateAccelFieldCallback,
mk_WidgetClassCanActivateAccelFieldCallback,
noWidgetClassCanActivateAccelFieldCallback,
wrap_WidgetClassCanActivateAccelFieldCallback,
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_WidgetClassDestroyFieldCallback ,
WidgetClassDestroyFieldCallback ,
dynamic_WidgetClassDestroyFieldCallback ,
genClosure_WidgetClassDestroyFieldCallback,
mk_WidgetClassDestroyFieldCallback ,
noWidgetClassDestroyFieldCallback ,
wrap_WidgetClassDestroyFieldCallback ,
C_WidgetClassDirectionChangedFieldCallback,
WidgetClassDirectionChangedFieldCallback,
dynamic_WidgetClassDirectionChangedFieldCallback,
genClosure_WidgetClassDirectionChangedFieldCallback,
mk_WidgetClassDirectionChangedFieldCallback,
noWidgetClassDirectionChangedFieldCallback,
wrap_WidgetClassDirectionChangedFieldCallback,
C_WidgetClassDragBeginFieldCallback ,
WidgetClassDragBeginFieldCallback ,
dynamic_WidgetClassDragBeginFieldCallback,
genClosure_WidgetClassDragBeginFieldCallback,
mk_WidgetClassDragBeginFieldCallback ,
noWidgetClassDragBeginFieldCallback ,
wrap_WidgetClassDragBeginFieldCallback ,
C_WidgetClassDragDataDeleteFieldCallback,
WidgetClassDragDataDeleteFieldCallback ,
dynamic_WidgetClassDragDataDeleteFieldCallback,
genClosure_WidgetClassDragDataDeleteFieldCallback,
mk_WidgetClassDragDataDeleteFieldCallback,
noWidgetClassDragDataDeleteFieldCallback,
wrap_WidgetClassDragDataDeleteFieldCallback,
C_WidgetClassDragDataGetFieldCallback ,
WidgetClassDragDataGetFieldCallback ,
dynamic_WidgetClassDragDataGetFieldCallback,
genClosure_WidgetClassDragDataGetFieldCallback,
mk_WidgetClassDragDataGetFieldCallback ,
noWidgetClassDragDataGetFieldCallback ,
wrap_WidgetClassDragDataGetFieldCallback,
C_WidgetClassDragDataReceivedFieldCallback,
WidgetClassDragDataReceivedFieldCallback,
dynamic_WidgetClassDragDataReceivedFieldCallback,
genClosure_WidgetClassDragDataReceivedFieldCallback,
mk_WidgetClassDragDataReceivedFieldCallback,
noWidgetClassDragDataReceivedFieldCallback,
wrap_WidgetClassDragDataReceivedFieldCallback,
C_WidgetClassDragDropFieldCallback ,
WidgetClassDragDropFieldCallback ,
dynamic_WidgetClassDragDropFieldCallback,
genClosure_WidgetClassDragDropFieldCallback,
mk_WidgetClassDragDropFieldCallback ,
noWidgetClassDragDropFieldCallback ,
wrap_WidgetClassDragDropFieldCallback ,
C_WidgetClassDragEndFieldCallback ,
WidgetClassDragEndFieldCallback ,
dynamic_WidgetClassDragEndFieldCallback ,
genClosure_WidgetClassDragEndFieldCallback,
mk_WidgetClassDragEndFieldCallback ,
noWidgetClassDragEndFieldCallback ,
wrap_WidgetClassDragEndFieldCallback ,
C_WidgetClassDragFailedFieldCallback ,
WidgetClassDragFailedFieldCallback ,
dynamic_WidgetClassDragFailedFieldCallback,
genClosure_WidgetClassDragFailedFieldCallback,
mk_WidgetClassDragFailedFieldCallback ,
noWidgetClassDragFailedFieldCallback ,
wrap_WidgetClassDragFailedFieldCallback ,
C_WidgetClassDragLeaveFieldCallback ,
WidgetClassDragLeaveFieldCallback ,
dynamic_WidgetClassDragLeaveFieldCallback,
genClosure_WidgetClassDragLeaveFieldCallback,
mk_WidgetClassDragLeaveFieldCallback ,
noWidgetClassDragLeaveFieldCallback ,
wrap_WidgetClassDragLeaveFieldCallback ,
C_WidgetClassDragMotionFieldCallback ,
WidgetClassDragMotionFieldCallback ,
dynamic_WidgetClassDragMotionFieldCallback,
genClosure_WidgetClassDragMotionFieldCallback,
mk_WidgetClassDragMotionFieldCallback ,
noWidgetClassDragMotionFieldCallback ,
wrap_WidgetClassDragMotionFieldCallback ,
C_WidgetClassFocusFieldCallback ,
WidgetClassFocusFieldCallback ,
dynamic_WidgetClassFocusFieldCallback ,
genClosure_WidgetClassFocusFieldCallback,
mk_WidgetClassFocusFieldCallback ,
noWidgetClassFocusFieldCallback ,
wrap_WidgetClassFocusFieldCallback ,
C_WidgetClassGetAccessibleFieldCallback ,
WidgetClassGetAccessibleFieldCallback ,
dynamic_WidgetClassGetAccessibleFieldCallback,
genClosure_WidgetClassGetAccessibleFieldCallback,
mk_WidgetClassGetAccessibleFieldCallback,
noWidgetClassGetAccessibleFieldCallback ,
wrap_WidgetClassGetAccessibleFieldCallback,
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_WidgetClassGrabNotifyFieldCallback ,
WidgetClassGrabNotifyFieldCallback ,
dynamic_WidgetClassGrabNotifyFieldCallback,
genClosure_WidgetClassGrabNotifyFieldCallback,
mk_WidgetClassGrabNotifyFieldCallback ,
noWidgetClassGrabNotifyFieldCallback ,
wrap_WidgetClassGrabNotifyFieldCallback ,
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_WidgetClassPopupMenuFieldCallback ,
WidgetClassPopupMenuFieldCallback ,
dynamic_WidgetClassPopupMenuFieldCallback,
genClosure_WidgetClassPopupMenuFieldCallback,
mk_WidgetClassPopupMenuFieldCallback ,
noWidgetClassPopupMenuFieldCallback ,
wrap_WidgetClassPopupMenuFieldCallback ,
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_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_WidgetClassStyleUpdatedFieldCallback ,
WidgetClassStyleUpdatedFieldCallback ,
dynamic_WidgetClassStyleUpdatedFieldCallback,
genClosure_WidgetClassStyleUpdatedFieldCallback,
mk_WidgetClassStyleUpdatedFieldCallback ,
noWidgetClassStyleUpdatedFieldCallback ,
wrap_WidgetClassStyleUpdatedFieldCallback,
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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GObject.Flags as GObject.Flags
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Objects.Drag as Gdk.Drag
import qualified GI.Gdk.Objects.Drop as Gdk.Drop
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
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.AccelGroup as Gtk.AccelGroup
import {-# SOURCE #-} qualified GI.Gtk.Objects.Builder as Gtk.Builder
import {-# SOURCE #-} qualified GI.Gtk.Objects.Calendar as Gtk.Calendar
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
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.Menu as Gtk.Menu
import {-# SOURCE #-} qualified GI.Gtk.Objects.PageSetup as Gtk.PageSetup
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
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.AccelKey as Gtk.AccelKey
import {-# SOURCE #-} qualified GI.Gtk.Structs.FileFilterInfo as Gtk.FileFilterInfo
import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
import {-# SOURCE #-} qualified GI.Gtk.Structs.WidgetPath as Gtk.WidgetPath
import qualified GI.Pango.Objects.FontFace as Pango.FontFace
import qualified GI.Pango.Objects.FontFamily as Pango.FontFamily
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassUnrootFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassUnrootFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassUnrootFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassUnrealizeFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassUnrealizeFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassUnrealizeFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassUnmapFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassUnmapFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassUnmapFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr
type C_WidgetClassStyleUpdatedFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassStyleUpdatedFieldCallback :: FunPtr C_WidgetClassStyleUpdatedFieldCallback -> C_WidgetClassStyleUpdatedFieldCallback
dynamic_WidgetClassStyleUpdatedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassStyleUpdatedFieldCallback
-> a
-> m ()
dynamic_WidgetClassStyleUpdatedFieldCallback :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassStyleUpdatedFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassStyleUpdatedFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassStyleUpdatedFieldCallback :: C_WidgetClassStyleUpdatedFieldCallback -> IO (FunPtr C_WidgetClassStyleUpdatedFieldCallback)
type WidgetClassStyleUpdatedFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassStyleUpdatedFieldCallback :: Maybe WidgetClassStyleUpdatedFieldCallback
noWidgetClassStyleUpdatedFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassStyleUpdatedFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassStyleUpdatedFieldCallback :: MonadIO m => WidgetClassStyleUpdatedFieldCallback -> m (GClosure C_WidgetClassStyleUpdatedFieldCallback)
genClosure_WidgetClassStyleUpdatedFieldCallback :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassStyleUpdatedFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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_WidgetClassStyleUpdatedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassStyleUpdatedFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
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_WidgetClassStyleUpdatedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassStyleUpdatedFieldCallback)) ->
WidgetClassStyleUpdatedFieldCallback ->
C_WidgetClassStyleUpdatedFieldCallback
wrap_WidgetClassStyleUpdatedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassStyleUpdatedFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> a -> [StateFlags] -> m ()
dynamic_WidgetClassStateFlagsChangedFieldCallback __funPtr :: FunPtr C_WidgetClassStateFlagsChangedFieldCallback
__funPtr widget :: a
widget previousStateFlags :: [StateFlags]
previousStateFlags = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let previousStateFlags' :: CUInt
previousStateFlags' = [StateFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
previousStateFlags
(FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
__dynamic_C_WidgetClassStateFlagsChangedFieldCallback FunPtr C_WidgetClassStateFlagsChangedFieldCallback
__funPtr) Ptr Widget
widget' CUInt
previousStateFlags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassStateFlagsChangedFieldCallback
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
genClosure_WidgetClassStateFlagsChangedFieldCallback cb :: WidgetClassStateFlagsChangedFieldCallback
cb = IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback))
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassStateFlagsChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
-> WidgetClassStateFlagsChangedFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
wrap_WidgetClassStateFlagsChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassStateFlagsChangedFieldCallback
cb
C_WidgetClassStateFlagsChangedFieldCallback
-> IO (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)
mk_WidgetClassStateFlagsChangedFieldCallback C_WidgetClassStateFlagsChangedFieldCallback
cb' IO (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)
-> (FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback))
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
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_WidgetClassStateFlagsChangedFieldCallback))
-> WidgetClassStateFlagsChangedFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
wrap_WidgetClassStateFlagsChangedFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
funptrptr _cb :: WidgetClassStateFlagsChangedFieldCallback
_cb widget :: Ptr Widget
widget previousStateFlags :: CUInt
previousStateFlags = do
Widget
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' :: [StateFlags]
previousStateFlags' = CUInt -> [StateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
previousStateFlags
WidgetClassStateFlagsChangedFieldCallback
_cb Widget
widget' [StateFlags]
previousStateFlags'
Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
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 :: FunPtr C_WidgetClassSnapshotFieldCallback -> a -> b -> m ()
dynamic_WidgetClassSnapshotFieldCallback __funPtr :: FunPtr C_WidgetClassSnapshotFieldCallback
__funPtr widget :: a
widget snapshot :: b
snapshot = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Snapshot
snapshot' <- b -> IO (Ptr Snapshot)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
snapshot
(FunPtr C_WidgetClassSnapshotFieldCallback
-> C_WidgetClassSnapshotFieldCallback
__dynamic_C_WidgetClassSnapshotFieldCallback FunPtr C_WidgetClassSnapshotFieldCallback
__funPtr) Ptr Widget
widget' Ptr Snapshot
snapshot'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
snapshot
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassSnapshotFieldCallback
-> m (GClosure C_WidgetClassSnapshotFieldCallback)
genClosure_WidgetClassSnapshotFieldCallback cb :: WidgetClassSnapshotFieldCallback
cb = IO (GClosure C_WidgetClassSnapshotFieldCallback)
-> m (GClosure C_WidgetClassSnapshotFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback))
funptrptr _cb :: WidgetClassSnapshotFieldCallback
_cb widget :: Ptr Widget
widget snapshot :: Ptr Snapshot
snapshot = do
Widget
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
snapshot' <- ((ManagedPtr Snapshot -> Snapshot) -> Ptr Snapshot -> IO Snapshot
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Snapshot -> Snapshot
Gtk.Snapshot.Snapshot) Ptr Snapshot
snapshot
WidgetClassSnapshotFieldCallback
_cb Widget
widget' Snapshot
snapshot'
Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassSnapshotFieldCallback))
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 :: FunPtr C_WidgetClassSizeAllocateFieldCallback
-> a -> Int32 -> Int32 -> Int32 -> m ()
dynamic_WidgetClassSizeAllocateFieldCallback __funPtr :: FunPtr C_WidgetClassSizeAllocateFieldCallback
__funPtr widget :: a
widget width :: Int32
width height :: Int32
height baseline :: Int32
baseline = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassSizeAllocateFieldCallback
-> C_WidgetClassSizeAllocateFieldCallback
__dynamic_C_WidgetClassSizeAllocateFieldCallback FunPtr C_WidgetClassSizeAllocateFieldCallback
__funPtr) Ptr Widget
widget' Int32
width Int32
height Int32
baseline
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassSizeAllocateFieldCallback
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
genClosure_WidgetClassSizeAllocateFieldCallback cb :: WidgetClassSizeAllocateFieldCallback
cb = IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
funptrptr _cb :: WidgetClassSizeAllocateFieldCallback
_cb widget :: Ptr Widget
widget width :: Int32
width height :: Int32
height baseline :: Int32
baseline = do
Widget
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
WidgetClassSizeAllocateFieldCallback
_cb Widget
widget' Int32
width Int32
height Int32
baseline
Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassShowFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassShowFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassShowFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassRootFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassRootFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassRootFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassRealizeFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassRealizeFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassRealizeFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassQueryTooltipFieldCallback
-> a -> Int32 -> Int32 -> Bool -> b -> m Bool
dynamic_WidgetClassQueryTooltipFieldCallback __funPtr :: FunPtr C_WidgetClassQueryTooltipFieldCallback
__funPtr widget :: a
widget x :: Int32
x y :: Int32
y keyboardTooltip :: Bool
keyboardTooltip tooltip :: b
tooltip = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let keyboardTooltip' :: CInt
keyboardTooltip' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
keyboardTooltip
Ptr Tooltip
tooltip' <- b -> IO (Ptr Tooltip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tooltip
CInt
result <- (FunPtr C_WidgetClassQueryTooltipFieldCallback
-> C_WidgetClassQueryTooltipFieldCallback
__dynamic_C_WidgetClassQueryTooltipFieldCallback FunPtr C_WidgetClassQueryTooltipFieldCallback
__funPtr) Ptr Widget
widget' Int32
x Int32
y CInt
keyboardTooltip' Ptr Tooltip
tooltip'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tooltip
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 :: WidgetClassQueryTooltipFieldCallback
-> m (GClosure C_WidgetClassQueryTooltipFieldCallback)
genClosure_WidgetClassQueryTooltipFieldCallback cb :: WidgetClassQueryTooltipFieldCallback
cb = IO (GClosure C_WidgetClassQueryTooltipFieldCallback)
-> m (GClosure C_WidgetClassQueryTooltipFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback))
funptrptr _cb :: WidgetClassQueryTooltipFieldCallback
_cb widget :: Ptr Widget
widget x :: Int32
x y :: Int32
y keyboardTooltip :: CInt
keyboardTooltip tooltip :: Ptr Tooltip
tooltip = do
Widget
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' :: Bool
keyboardTooltip' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
keyboardTooltip
Tooltip
tooltip' <- ((ManagedPtr Tooltip -> Tooltip) -> Ptr Tooltip -> IO Tooltip
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Tooltip -> Tooltip
Gtk.Tooltip.Tooltip) Ptr Tooltip
tooltip
Bool
result <- WidgetClassQueryTooltipFieldCallback
_cb Widget
widget' Int32
x Int32
y Bool
keyboardTooltip' Tooltip
tooltip'
Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassQueryTooltipFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type =
Ptr Gtk.Widget.Widget ->
IO CInt
foreign import ccall "dynamic" :: FunPtr C_WidgetClassPopupMenuFieldCallback -> C_WidgetClassPopupMenuFieldCallback
dynamic_WidgetClassPopupMenuFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassPopupMenuFieldCallback
-> a
-> m Bool
__funPtr :: FunPtr C_WidgetClassPopupMenuFieldCallback
__funPtr widget :: a
widget = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CInt
result <- (FunPtr C_WidgetClassPopupMenuFieldCallback
-> C_WidgetClassPopupMenuFieldCallback
__dynamic_C_WidgetClassPopupMenuFieldCallback FunPtr C_WidgetClassPopupMenuFieldCallback
__funPtr) Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
:: C_WidgetClassPopupMenuFieldCallback -> IO (FunPtr C_WidgetClassPopupMenuFieldCallback)
type =
Gtk.Widget.Widget
-> IO Bool
noWidgetClassPopupMenuFieldCallback :: Maybe WidgetClassPopupMenuFieldCallback
= Maybe WidgetClassPopupMenuFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassPopupMenuFieldCallback :: MonadIO m => WidgetClassPopupMenuFieldCallback -> m (GClosure C_WidgetClassPopupMenuFieldCallback)
cb :: WidgetClassPopupMenuFieldCallback
cb = IO (GClosure C_WidgetClassPopupMenuFieldCallback)
-> m (GClosure C_WidgetClassPopupMenuFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassPopupMenuFieldCallback)
-> m (GClosure C_WidgetClassPopupMenuFieldCallback))
-> IO (GClosure C_WidgetClassPopupMenuFieldCallback)
-> m (GClosure C_WidgetClassPopupMenuFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassPopupMenuFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassPopupMenuFieldCallback))
-> WidgetClassPopupMenuFieldCallback
-> C_WidgetClassPopupMenuFieldCallback
wrap_WidgetClassPopupMenuFieldCallback Maybe (Ptr (FunPtr C_WidgetClassPopupMenuFieldCallback))
forall a. Maybe a
Nothing WidgetClassPopupMenuFieldCallback
cb
C_WidgetClassPopupMenuFieldCallback
-> IO (FunPtr C_WidgetClassPopupMenuFieldCallback)
mk_WidgetClassPopupMenuFieldCallback C_WidgetClassPopupMenuFieldCallback
cb' IO (FunPtr C_WidgetClassPopupMenuFieldCallback)
-> (FunPtr C_WidgetClassPopupMenuFieldCallback
-> IO (GClosure C_WidgetClassPopupMenuFieldCallback))
-> IO (GClosure C_WidgetClassPopupMenuFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassPopupMenuFieldCallback
-> IO (GClosure C_WidgetClassPopupMenuFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassPopupMenuFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassPopupMenuFieldCallback)) ->
WidgetClassPopupMenuFieldCallback ->
C_WidgetClassPopupMenuFieldCallback
funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassPopupMenuFieldCallback))
funptrptr _cb :: WidgetClassPopupMenuFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
Bool
result <- WidgetClassPopupMenuFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassPopupMenuFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassPopupMenuFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> a -> DirectionType -> m ()
dynamic_WidgetClassMoveFocusFieldCallback __funPtr :: FunPtr C_WidgetClassStateFlagsChangedFieldCallback
__funPtr widget :: a
widget direction :: DirectionType
direction = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let direction' :: CUInt
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
(FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
__dynamic_C_WidgetClassMoveFocusFieldCallback FunPtr C_WidgetClassStateFlagsChangedFieldCallback
__funPtr) Ptr Widget
widget' CUInt
direction'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassMoveFocusFieldCallback
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
genClosure_WidgetClassMoveFocusFieldCallback cb :: WidgetClassMoveFocusFieldCallback
cb = IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback))
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassStateFlagsChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
-> WidgetClassMoveFocusFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
wrap_WidgetClassMoveFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassMoveFocusFieldCallback
cb
C_WidgetClassStateFlagsChangedFieldCallback
-> IO (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)
mk_WidgetClassMoveFocusFieldCallback C_WidgetClassStateFlagsChangedFieldCallback
cb' IO (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)
-> (FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback))
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
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_WidgetClassStateFlagsChangedFieldCallback))
-> WidgetClassMoveFocusFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
wrap_WidgetClassMoveFocusFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
funptrptr _cb :: WidgetClassMoveFocusFieldCallback
_cb widget :: Ptr Widget
widget direction :: CUInt
direction = do
Widget
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' :: DirectionType
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
WidgetClassMoveFocusFieldCallback
_cb Widget
widget' DirectionType
direction'
Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
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 :: FunPtr C_WidgetClassMnemonicActivateFieldCallback
-> a -> Bool -> m Bool
dynamic_WidgetClassMnemonicActivateFieldCallback __funPtr :: FunPtr C_WidgetClassMnemonicActivateFieldCallback
__funPtr widget :: a
widget groupCycling :: Bool
groupCycling = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let groupCycling' :: CInt
groupCycling' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
groupCycling
CInt
result <- (FunPtr C_WidgetClassMnemonicActivateFieldCallback
-> C_WidgetClassMnemonicActivateFieldCallback
__dynamic_C_WidgetClassMnemonicActivateFieldCallback FunPtr C_WidgetClassMnemonicActivateFieldCallback
__funPtr) Ptr Widget
widget' CInt
groupCycling'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 :: WidgetClassMnemonicActivateFieldCallback
-> m (GClosure C_WidgetClassMnemonicActivateFieldCallback)
genClosure_WidgetClassMnemonicActivateFieldCallback cb :: WidgetClassMnemonicActivateFieldCallback
cb = IO (GClosure C_WidgetClassMnemonicActivateFieldCallback)
-> m (GClosure C_WidgetClassMnemonicActivateFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback))
funptrptr _cb :: WidgetClassMnemonicActivateFieldCallback
_cb widget :: Ptr Widget
widget groupCycling :: CInt
groupCycling = do
Widget
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' :: Bool
groupCycling' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
groupCycling
Bool
result <- WidgetClassMnemonicActivateFieldCallback
_cb Widget
widget' Bool
groupCycling'
Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassMnemonicActivateFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_WidgetClassMeasureFieldCallback
-> a -> Orientation -> Int32 -> m (Int32, Int32, Int32, Int32)
dynamic_WidgetClassMeasureFieldCallback __funPtr :: FunPtr C_WidgetClassMeasureFieldCallback
__funPtr widget :: a
widget orientation :: Orientation
orientation forSize :: Int32
forSize = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let orientation' :: CUInt
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
Ptr Int32
minimum <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
natural <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
minimumBaseline <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalBaseline <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
(FunPtr C_WidgetClassMeasureFieldCallback
-> C_WidgetClassMeasureFieldCallback
__dynamic_C_WidgetClassMeasureFieldCallback FunPtr C_WidgetClassMeasureFieldCallback
__funPtr) Ptr Widget
widget' CUInt
orientation' Int32
forSize Ptr Int32
minimum Ptr Int32
natural Ptr Int32
minimumBaseline Ptr Int32
naturalBaseline
Int32
minimum' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimum
Int32
natural' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
natural
Int32
minimumBaseline' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumBaseline
Int32
naturalBaseline' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalBaseline
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimum
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
natural
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumBaseline
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalBaseline
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
minimum', Int32
natural', Int32
minimumBaseline', Int32
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 :: WidgetClassMeasureFieldCallback
-> m (GClosure C_WidgetClassMeasureFieldCallback)
genClosure_WidgetClassMeasureFieldCallback cb :: WidgetClassMeasureFieldCallback
cb = IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
funptrptr _cb :: WidgetClassMeasureFieldCallback
_cb widget :: Ptr Widget
widget orientation :: CUInt
orientation forSize :: Int32
forSize minimum :: Ptr Int32
minimum natural :: Ptr Int32
natural minimumBaseline :: Ptr Int32
minimumBaseline naturalBaseline :: Ptr Int32
naturalBaseline = do
Widget
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' :: Orientation
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 :: Int32
outminimum, outnatural :: Int32
outnatural, outminimumBaseline :: Int32
outminimumBaseline, outnaturalBaseline :: Int32
outnaturalBaseline) <- WidgetClassMeasureFieldCallback
_cb Widget
widget' Orientation
orientation' Int32
forSize
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
minimum Int32
outminimum
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
natural Int32
outnatural
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
minimumBaseline Int32
outminimumBaseline
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
naturalBaseline Int32
outnaturalBaseline
Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassMapFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassMapFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassMapFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassKeynavFailedFieldCallback
-> a -> DirectionType -> m Bool
dynamic_WidgetClassKeynavFailedFieldCallback __funPtr :: FunPtr C_WidgetClassKeynavFailedFieldCallback
__funPtr widget :: a
widget direction :: DirectionType
direction = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let direction' :: CUInt
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
CInt
result <- (FunPtr C_WidgetClassKeynavFailedFieldCallback
-> C_WidgetClassKeynavFailedFieldCallback
__dynamic_C_WidgetClassKeynavFailedFieldCallback FunPtr C_WidgetClassKeynavFailedFieldCallback
__funPtr) Ptr Widget
widget' CUInt
direction'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 :: WidgetClassKeynavFailedFieldCallback
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
genClosure_WidgetClassKeynavFailedFieldCallback cb :: WidgetClassKeynavFailedFieldCallback
cb = IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
funptrptr _cb :: WidgetClassKeynavFailedFieldCallback
_cb widget :: Ptr Widget
widget direction :: CUInt
direction = do
Widget
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' :: DirectionType
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
Bool
result <- WidgetClassKeynavFailedFieldCallback
_cb Widget
widget' DirectionType
direction'
Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassHideFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassHideFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassHideFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr
type C_WidgetClassGrabNotifyFieldCallback =
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassGrabNotifyFieldCallback :: FunPtr C_WidgetClassGrabNotifyFieldCallback -> C_WidgetClassGrabNotifyFieldCallback
dynamic_WidgetClassGrabNotifyFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassGrabNotifyFieldCallback
-> a
-> Bool
-> m ()
dynamic_WidgetClassGrabNotifyFieldCallback :: FunPtr C_WidgetClassGrabNotifyFieldCallback -> a -> Bool -> m ()
dynamic_WidgetClassGrabNotifyFieldCallback __funPtr :: FunPtr C_WidgetClassGrabNotifyFieldCallback
__funPtr widget :: a
widget wasGrabbed :: Bool
wasGrabbed = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let wasGrabbed' :: CInt
wasGrabbed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
wasGrabbed
(FunPtr C_WidgetClassGrabNotifyFieldCallback
-> C_WidgetClassGrabNotifyFieldCallback
__dynamic_C_WidgetClassGrabNotifyFieldCallback FunPtr C_WidgetClassGrabNotifyFieldCallback
__funPtr) Ptr Widget
widget' CInt
wasGrabbed'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassGrabNotifyFieldCallback :: C_WidgetClassGrabNotifyFieldCallback -> IO (FunPtr C_WidgetClassGrabNotifyFieldCallback)
type WidgetClassGrabNotifyFieldCallback =
Gtk.Widget.Widget
-> Bool
-> IO ()
noWidgetClassGrabNotifyFieldCallback :: Maybe WidgetClassGrabNotifyFieldCallback
noWidgetClassGrabNotifyFieldCallback :: Maybe WidgetClassGrabNotifyFieldCallback
noWidgetClassGrabNotifyFieldCallback = Maybe WidgetClassGrabNotifyFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassGrabNotifyFieldCallback :: MonadIO m => WidgetClassGrabNotifyFieldCallback -> m (GClosure C_WidgetClassGrabNotifyFieldCallback)
genClosure_WidgetClassGrabNotifyFieldCallback :: WidgetClassGrabNotifyFieldCallback
-> m (GClosure C_WidgetClassGrabNotifyFieldCallback)
genClosure_WidgetClassGrabNotifyFieldCallback cb :: WidgetClassGrabNotifyFieldCallback
cb = IO (GClosure C_WidgetClassGrabNotifyFieldCallback)
-> m (GClosure C_WidgetClassGrabNotifyFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassGrabNotifyFieldCallback)
-> m (GClosure C_WidgetClassGrabNotifyFieldCallback))
-> IO (GClosure C_WidgetClassGrabNotifyFieldCallback)
-> m (GClosure C_WidgetClassGrabNotifyFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassGrabNotifyFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassGrabNotifyFieldCallback))
-> WidgetClassGrabNotifyFieldCallback
-> C_WidgetClassGrabNotifyFieldCallback
wrap_WidgetClassGrabNotifyFieldCallback Maybe (Ptr (FunPtr C_WidgetClassGrabNotifyFieldCallback))
forall a. Maybe a
Nothing WidgetClassGrabNotifyFieldCallback
cb
C_WidgetClassGrabNotifyFieldCallback
-> IO (FunPtr C_WidgetClassGrabNotifyFieldCallback)
mk_WidgetClassGrabNotifyFieldCallback C_WidgetClassGrabNotifyFieldCallback
cb' IO (FunPtr C_WidgetClassGrabNotifyFieldCallback)
-> (FunPtr C_WidgetClassGrabNotifyFieldCallback
-> IO (GClosure C_WidgetClassGrabNotifyFieldCallback))
-> IO (GClosure C_WidgetClassGrabNotifyFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassGrabNotifyFieldCallback
-> IO (GClosure C_WidgetClassGrabNotifyFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassGrabNotifyFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassGrabNotifyFieldCallback)) ->
WidgetClassGrabNotifyFieldCallback ->
C_WidgetClassGrabNotifyFieldCallback
wrap_WidgetClassGrabNotifyFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassGrabNotifyFieldCallback))
-> WidgetClassGrabNotifyFieldCallback
-> C_WidgetClassGrabNotifyFieldCallback
wrap_WidgetClassGrabNotifyFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassGrabNotifyFieldCallback))
funptrptr _cb :: WidgetClassGrabNotifyFieldCallback
_cb widget :: Ptr Widget
widget wasGrabbed :: CInt
wasGrabbed = do
Widget
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 wasGrabbed' :: Bool
wasGrabbed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
wasGrabbed
WidgetClassGrabNotifyFieldCallback
_cb Widget
widget' Bool
wasGrabbed'
Maybe (Ptr (FunPtr C_WidgetClassGrabNotifyFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassGrabNotifyFieldCallback))
funptrptr
type C_WidgetClassGrabFocusFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
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 ()
dynamic_WidgetClassGrabFocusFieldCallback :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassGrabFocusFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassGrabFocusFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassGrabFocusFieldCallback :: C_WidgetClassGrabFocusFieldCallback -> IO (FunPtr C_WidgetClassGrabFocusFieldCallback)
type WidgetClassGrabFocusFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassGrabFocusFieldCallback :: Maybe WidgetClassGrabFocusFieldCallback
noWidgetClassGrabFocusFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassGrabFocusFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassGrabFocusFieldCallback :: MonadIO m => WidgetClassGrabFocusFieldCallback -> m (GClosure C_WidgetClassGrabFocusFieldCallback)
genClosure_WidgetClassGrabFocusFieldCallback :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassGrabFocusFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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_WidgetClassGrabFocusFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassGrabFocusFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
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_WidgetClassGrabFocusFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassGrabFocusFieldCallback)) ->
WidgetClassGrabFocusFieldCallback ->
C_WidgetClassGrabFocusFieldCallback
wrap_WidgetClassGrabFocusFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassGrabFocusFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr
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 :: FunPtr C_WidgetClassGetRequestModeFieldCallback
-> a -> m SizeRequestMode
dynamic_WidgetClassGetRequestModeFieldCallback __funPtr :: FunPtr C_WidgetClassGetRequestModeFieldCallback
__funPtr widget :: a
widget = IO SizeRequestMode -> m SizeRequestMode
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CUInt
result <- (FunPtr C_WidgetClassGetRequestModeFieldCallback
-> C_WidgetClassGetRequestModeFieldCallback
__dynamic_C_WidgetClassGetRequestModeFieldCallback FunPtr C_WidgetClassGetRequestModeFieldCallback
__funPtr) Ptr Widget
widget'
let result' :: SizeRequestMode
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
SizeRequestMode -> IO SizeRequestMode
forall (m :: * -> *) a. Monad m => a -> m a
return SizeRequestMode
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 :: WidgetClassGetRequestModeFieldCallback
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
genClosure_WidgetClassGetRequestModeFieldCallback cb :: WidgetClassGetRequestModeFieldCallback
cb = IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
funptrptr _cb :: WidgetClassGetRequestModeFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
SizeRequestMode
result <- WidgetClassGetRequestModeFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
funptrptr
let result' :: CUInt
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
CUInt -> IO CUInt
forall (m :: * -> *) a. Monad m => a -> m a
return CUInt
result'
type C_WidgetClassGetAccessibleFieldCallback =
Ptr Gtk.Widget.Widget ->
IO (Ptr Atk.Object.Object)
foreign import ccall "dynamic" __dynamic_C_WidgetClassGetAccessibleFieldCallback :: FunPtr C_WidgetClassGetAccessibleFieldCallback -> C_WidgetClassGetAccessibleFieldCallback
dynamic_WidgetClassGetAccessibleFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassGetAccessibleFieldCallback
-> a
-> m Atk.Object.Object
dynamic_WidgetClassGetAccessibleFieldCallback :: FunPtr C_WidgetClassGetAccessibleFieldCallback -> a -> m Object
dynamic_WidgetClassGetAccessibleFieldCallback __funPtr :: FunPtr C_WidgetClassGetAccessibleFieldCallback
__funPtr widget :: a
widget = IO Object -> m Object
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Object
result <- (FunPtr C_WidgetClassGetAccessibleFieldCallback
-> C_WidgetClassGetAccessibleFieldCallback
__dynamic_C_WidgetClassGetAccessibleFieldCallback FunPtr C_WidgetClassGetAccessibleFieldCallback
__funPtr) Ptr Widget
widget'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetClassGetAccessibleFieldCallback" Ptr Object
result
Object
result' <- ((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
Atk.Object.Object) Ptr Object
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
foreign import ccall "wrapper"
mk_WidgetClassGetAccessibleFieldCallback :: C_WidgetClassGetAccessibleFieldCallback -> IO (FunPtr C_WidgetClassGetAccessibleFieldCallback)
type WidgetClassGetAccessibleFieldCallback =
Gtk.Widget.Widget
-> IO Atk.Object.Object
noWidgetClassGetAccessibleFieldCallback :: Maybe WidgetClassGetAccessibleFieldCallback
noWidgetClassGetAccessibleFieldCallback :: Maybe WidgetClassGetAccessibleFieldCallback
noWidgetClassGetAccessibleFieldCallback = Maybe WidgetClassGetAccessibleFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassGetAccessibleFieldCallback :: MonadIO m => WidgetClassGetAccessibleFieldCallback -> m (GClosure C_WidgetClassGetAccessibleFieldCallback)
genClosure_WidgetClassGetAccessibleFieldCallback :: WidgetClassGetAccessibleFieldCallback
-> m (GClosure C_WidgetClassGetAccessibleFieldCallback)
genClosure_WidgetClassGetAccessibleFieldCallback cb :: WidgetClassGetAccessibleFieldCallback
cb = IO (GClosure C_WidgetClassGetAccessibleFieldCallback)
-> m (GClosure C_WidgetClassGetAccessibleFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassGetAccessibleFieldCallback)
-> m (GClosure C_WidgetClassGetAccessibleFieldCallback))
-> IO (GClosure C_WidgetClassGetAccessibleFieldCallback)
-> m (GClosure C_WidgetClassGetAccessibleFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassGetAccessibleFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassGetAccessibleFieldCallback))
-> WidgetClassGetAccessibleFieldCallback
-> C_WidgetClassGetAccessibleFieldCallback
wrap_WidgetClassGetAccessibleFieldCallback Maybe (Ptr (FunPtr C_WidgetClassGetAccessibleFieldCallback))
forall a. Maybe a
Nothing WidgetClassGetAccessibleFieldCallback
cb
C_WidgetClassGetAccessibleFieldCallback
-> IO (FunPtr C_WidgetClassGetAccessibleFieldCallback)
mk_WidgetClassGetAccessibleFieldCallback C_WidgetClassGetAccessibleFieldCallback
cb' IO (FunPtr C_WidgetClassGetAccessibleFieldCallback)
-> (FunPtr C_WidgetClassGetAccessibleFieldCallback
-> IO (GClosure C_WidgetClassGetAccessibleFieldCallback))
-> IO (GClosure C_WidgetClassGetAccessibleFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassGetAccessibleFieldCallback
-> IO (GClosure C_WidgetClassGetAccessibleFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassGetAccessibleFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassGetAccessibleFieldCallback)) ->
WidgetClassGetAccessibleFieldCallback ->
C_WidgetClassGetAccessibleFieldCallback
wrap_WidgetClassGetAccessibleFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassGetAccessibleFieldCallback))
-> WidgetClassGetAccessibleFieldCallback
-> C_WidgetClassGetAccessibleFieldCallback
wrap_WidgetClassGetAccessibleFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassGetAccessibleFieldCallback))
funptrptr _cb :: WidgetClassGetAccessibleFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
Object
result <- WidgetClassGetAccessibleFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassGetAccessibleFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassGetAccessibleFieldCallback))
funptrptr
Ptr Object
result' <- Object -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr Object
result
Ptr Object -> IO (Ptr Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
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 :: FunPtr C_WidgetClassKeynavFailedFieldCallback
-> a -> DirectionType -> m Bool
dynamic_WidgetClassFocusFieldCallback __funPtr :: FunPtr C_WidgetClassKeynavFailedFieldCallback
__funPtr widget :: a
widget direction :: DirectionType
direction = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let direction' :: CUInt
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
CInt
result <- (FunPtr C_WidgetClassKeynavFailedFieldCallback
-> C_WidgetClassKeynavFailedFieldCallback
__dynamic_C_WidgetClassFocusFieldCallback FunPtr C_WidgetClassKeynavFailedFieldCallback
__funPtr) Ptr Widget
widget' CUInt
direction'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 :: WidgetClassKeynavFailedFieldCallback
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
genClosure_WidgetClassFocusFieldCallback cb :: WidgetClassKeynavFailedFieldCallback
cb = IO (GClosure C_WidgetClassKeynavFailedFieldCallback)
-> m (GClosure C_WidgetClassKeynavFailedFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
funptrptr _cb :: WidgetClassKeynavFailedFieldCallback
_cb widget :: Ptr Widget
widget direction :: CUInt
direction = do
Widget
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' :: DirectionType
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
Bool
result <- WidgetClassKeynavFailedFieldCallback
_cb Widget
widget' DirectionType
direction'
Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassKeynavFailedFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_WidgetClassDragMotionFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drop.Drop ->
Int32 ->
Int32 ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragMotionFieldCallback :: FunPtr C_WidgetClassDragMotionFieldCallback -> C_WidgetClassDragMotionFieldCallback
dynamic_WidgetClassDragMotionFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drop.IsDrop b) =>
FunPtr C_WidgetClassDragMotionFieldCallback
-> a
-> b
-> Int32
-> Int32
-> m Bool
dynamic_WidgetClassDragMotionFieldCallback :: FunPtr C_WidgetClassDragMotionFieldCallback
-> a -> b -> Int32 -> Int32 -> m Bool
dynamic_WidgetClassDragMotionFieldCallback __funPtr :: FunPtr C_WidgetClassDragMotionFieldCallback
__funPtr widget :: a
widget drop :: b
drop x :: Int32
x y :: Int32
y = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drop
drop' <- b -> IO (Ptr Drop)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drop
CInt
result <- (FunPtr C_WidgetClassDragMotionFieldCallback
-> C_WidgetClassDragMotionFieldCallback
__dynamic_C_WidgetClassDragMotionFieldCallback FunPtr C_WidgetClassDragMotionFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drop
drop' Int32
x Int32
y
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drop
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_WidgetClassDragMotionFieldCallback :: C_WidgetClassDragMotionFieldCallback -> IO (FunPtr C_WidgetClassDragMotionFieldCallback)
type WidgetClassDragMotionFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drop.Drop
-> Int32
-> Int32
-> IO Bool
noWidgetClassDragMotionFieldCallback :: Maybe WidgetClassDragMotionFieldCallback
noWidgetClassDragMotionFieldCallback :: Maybe WidgetClassDragMotionFieldCallback
noWidgetClassDragMotionFieldCallback = Maybe WidgetClassDragMotionFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragMotionFieldCallback :: MonadIO m => WidgetClassDragMotionFieldCallback -> m (GClosure C_WidgetClassDragMotionFieldCallback)
genClosure_WidgetClassDragMotionFieldCallback :: WidgetClassDragMotionFieldCallback
-> m (GClosure C_WidgetClassDragMotionFieldCallback)
genClosure_WidgetClassDragMotionFieldCallback cb :: WidgetClassDragMotionFieldCallback
cb = IO (GClosure C_WidgetClassDragMotionFieldCallback)
-> m (GClosure C_WidgetClassDragMotionFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragMotionFieldCallback)
-> m (GClosure C_WidgetClassDragMotionFieldCallback))
-> IO (GClosure C_WidgetClassDragMotionFieldCallback)
-> m (GClosure C_WidgetClassDragMotionFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragMotionFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
-> WidgetClassDragMotionFieldCallback
-> C_WidgetClassDragMotionFieldCallback
wrap_WidgetClassDragMotionFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragMotionFieldCallback
cb
C_WidgetClassDragMotionFieldCallback
-> IO (FunPtr C_WidgetClassDragMotionFieldCallback)
mk_WidgetClassDragMotionFieldCallback C_WidgetClassDragMotionFieldCallback
cb' IO (FunPtr C_WidgetClassDragMotionFieldCallback)
-> (FunPtr C_WidgetClassDragMotionFieldCallback
-> IO (GClosure C_WidgetClassDragMotionFieldCallback))
-> IO (GClosure C_WidgetClassDragMotionFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragMotionFieldCallback
-> IO (GClosure C_WidgetClassDragMotionFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragMotionFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback)) ->
WidgetClassDragMotionFieldCallback ->
C_WidgetClassDragMotionFieldCallback
wrap_WidgetClassDragMotionFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
-> WidgetClassDragMotionFieldCallback
-> C_WidgetClassDragMotionFieldCallback
wrap_WidgetClassDragMotionFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
funptrptr _cb :: WidgetClassDragMotionFieldCallback
_cb widget :: Ptr Widget
widget drop :: Ptr Drop
drop x :: Int32
x y :: Int32
y = do
Widget
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
Drop
drop' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
drop
Bool
result <- WidgetClassDragMotionFieldCallback
_cb Widget
widget' Drop
drop' Int32
x Int32
y
Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_WidgetClassDragLeaveFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drop.Drop ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragLeaveFieldCallback :: FunPtr C_WidgetClassDragLeaveFieldCallback -> C_WidgetClassDragLeaveFieldCallback
dynamic_WidgetClassDragLeaveFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drop.IsDrop b) =>
FunPtr C_WidgetClassDragLeaveFieldCallback
-> a
-> b
-> m ()
dynamic_WidgetClassDragLeaveFieldCallback :: FunPtr C_WidgetClassDragLeaveFieldCallback -> a -> b -> m ()
dynamic_WidgetClassDragLeaveFieldCallback __funPtr :: FunPtr C_WidgetClassDragLeaveFieldCallback
__funPtr widget :: a
widget drop :: b
drop = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drop
drop' <- b -> IO (Ptr Drop)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drop
(FunPtr C_WidgetClassDragLeaveFieldCallback
-> C_WidgetClassDragLeaveFieldCallback
__dynamic_C_WidgetClassDragLeaveFieldCallback FunPtr C_WidgetClassDragLeaveFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drop
drop'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drop
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassDragLeaveFieldCallback :: C_WidgetClassDragLeaveFieldCallback -> IO (FunPtr C_WidgetClassDragLeaveFieldCallback)
type WidgetClassDragLeaveFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drop.Drop
-> IO ()
noWidgetClassDragLeaveFieldCallback :: Maybe WidgetClassDragLeaveFieldCallback
noWidgetClassDragLeaveFieldCallback :: Maybe WidgetClassDragLeaveFieldCallback
noWidgetClassDragLeaveFieldCallback = Maybe WidgetClassDragLeaveFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragLeaveFieldCallback :: MonadIO m => WidgetClassDragLeaveFieldCallback -> m (GClosure C_WidgetClassDragLeaveFieldCallback)
genClosure_WidgetClassDragLeaveFieldCallback :: WidgetClassDragLeaveFieldCallback
-> m (GClosure C_WidgetClassDragLeaveFieldCallback)
genClosure_WidgetClassDragLeaveFieldCallback cb :: WidgetClassDragLeaveFieldCallback
cb = IO (GClosure C_WidgetClassDragLeaveFieldCallback)
-> m (GClosure C_WidgetClassDragLeaveFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragLeaveFieldCallback)
-> m (GClosure C_WidgetClassDragLeaveFieldCallback))
-> IO (GClosure C_WidgetClassDragLeaveFieldCallback)
-> m (GClosure C_WidgetClassDragLeaveFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragLeaveFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragLeaveFieldCallback))
-> WidgetClassDragLeaveFieldCallback
-> C_WidgetClassDragLeaveFieldCallback
wrap_WidgetClassDragLeaveFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragLeaveFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragLeaveFieldCallback
cb
C_WidgetClassDragLeaveFieldCallback
-> IO (FunPtr C_WidgetClassDragLeaveFieldCallback)
mk_WidgetClassDragLeaveFieldCallback C_WidgetClassDragLeaveFieldCallback
cb' IO (FunPtr C_WidgetClassDragLeaveFieldCallback)
-> (FunPtr C_WidgetClassDragLeaveFieldCallback
-> IO (GClosure C_WidgetClassDragLeaveFieldCallback))
-> IO (GClosure C_WidgetClassDragLeaveFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragLeaveFieldCallback
-> IO (GClosure C_WidgetClassDragLeaveFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragLeaveFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragLeaveFieldCallback)) ->
WidgetClassDragLeaveFieldCallback ->
C_WidgetClassDragLeaveFieldCallback
wrap_WidgetClassDragLeaveFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragLeaveFieldCallback))
-> WidgetClassDragLeaveFieldCallback
-> C_WidgetClassDragLeaveFieldCallback
wrap_WidgetClassDragLeaveFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragLeaveFieldCallback))
funptrptr _cb :: WidgetClassDragLeaveFieldCallback
_cb widget :: Ptr Widget
widget drop :: Ptr Drop
drop = do
Widget
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
Drop
drop' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
drop
WidgetClassDragLeaveFieldCallback
_cb Widget
widget' Drop
drop'
Maybe (Ptr (FunPtr C_WidgetClassDragLeaveFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragLeaveFieldCallback))
funptrptr
type C_WidgetClassDragFailedFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drag.Drag ->
CUInt ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragFailedFieldCallback :: FunPtr C_WidgetClassDragFailedFieldCallback -> C_WidgetClassDragFailedFieldCallback
dynamic_WidgetClassDragFailedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drag.IsDrag b) =>
FunPtr C_WidgetClassDragFailedFieldCallback
-> a
-> b
-> Gtk.Enums.DragResult
-> m Bool
dynamic_WidgetClassDragFailedFieldCallback :: FunPtr C_WidgetClassDragFailedFieldCallback
-> a -> b -> DragResult -> m Bool
dynamic_WidgetClassDragFailedFieldCallback __funPtr :: FunPtr C_WidgetClassDragFailedFieldCallback
__funPtr widget :: a
widget drag :: b
drag result_ :: DragResult
result_ = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drag
drag' <- b -> IO (Ptr Drag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drag
let result_' :: CUInt
result_' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (DragResult -> Int) -> DragResult -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DragResult -> Int
forall a. Enum a => a -> Int
fromEnum) DragResult
result_
CInt
result <- (FunPtr C_WidgetClassDragFailedFieldCallback
-> C_WidgetClassDragFailedFieldCallback
__dynamic_C_WidgetClassDragFailedFieldCallback FunPtr C_WidgetClassDragFailedFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drag
drag' CUInt
result_'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drag
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_WidgetClassDragFailedFieldCallback :: C_WidgetClassDragFailedFieldCallback -> IO (FunPtr C_WidgetClassDragFailedFieldCallback)
type WidgetClassDragFailedFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drag.Drag
-> Gtk.Enums.DragResult
-> IO Bool
noWidgetClassDragFailedFieldCallback :: Maybe WidgetClassDragFailedFieldCallback
noWidgetClassDragFailedFieldCallback :: Maybe WidgetClassDragFailedFieldCallback
noWidgetClassDragFailedFieldCallback = Maybe WidgetClassDragFailedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragFailedFieldCallback :: MonadIO m => WidgetClassDragFailedFieldCallback -> m (GClosure C_WidgetClassDragFailedFieldCallback)
genClosure_WidgetClassDragFailedFieldCallback :: WidgetClassDragFailedFieldCallback
-> m (GClosure C_WidgetClassDragFailedFieldCallback)
genClosure_WidgetClassDragFailedFieldCallback cb :: WidgetClassDragFailedFieldCallback
cb = IO (GClosure C_WidgetClassDragFailedFieldCallback)
-> m (GClosure C_WidgetClassDragFailedFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragFailedFieldCallback)
-> m (GClosure C_WidgetClassDragFailedFieldCallback))
-> IO (GClosure C_WidgetClassDragFailedFieldCallback)
-> m (GClosure C_WidgetClassDragFailedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragFailedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragFailedFieldCallback))
-> WidgetClassDragFailedFieldCallback
-> C_WidgetClassDragFailedFieldCallback
wrap_WidgetClassDragFailedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragFailedFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragFailedFieldCallback
cb
C_WidgetClassDragFailedFieldCallback
-> IO (FunPtr C_WidgetClassDragFailedFieldCallback)
mk_WidgetClassDragFailedFieldCallback C_WidgetClassDragFailedFieldCallback
cb' IO (FunPtr C_WidgetClassDragFailedFieldCallback)
-> (FunPtr C_WidgetClassDragFailedFieldCallback
-> IO (GClosure C_WidgetClassDragFailedFieldCallback))
-> IO (GClosure C_WidgetClassDragFailedFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragFailedFieldCallback
-> IO (GClosure C_WidgetClassDragFailedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragFailedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragFailedFieldCallback)) ->
WidgetClassDragFailedFieldCallback ->
C_WidgetClassDragFailedFieldCallback
wrap_WidgetClassDragFailedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragFailedFieldCallback))
-> WidgetClassDragFailedFieldCallback
-> C_WidgetClassDragFailedFieldCallback
wrap_WidgetClassDragFailedFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragFailedFieldCallback))
funptrptr _cb :: WidgetClassDragFailedFieldCallback
_cb widget :: Ptr Widget
widget drag :: Ptr Drag
drag result_ :: CUInt
result_ = do
Widget
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
Drag
drag' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
drag
let result_' :: DragResult
result_' = (Int -> DragResult
forall a. Enum a => Int -> a
toEnum (Int -> DragResult) -> (CUInt -> Int) -> CUInt -> DragResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result_
Bool
result <- WidgetClassDragFailedFieldCallback
_cb Widget
widget' Drag
drag' DragResult
result_'
Maybe (Ptr (FunPtr C_WidgetClassDragFailedFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragFailedFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_WidgetClassDragEndFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drag.Drag ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragEndFieldCallback :: FunPtr C_WidgetClassDragEndFieldCallback -> C_WidgetClassDragEndFieldCallback
dynamic_WidgetClassDragEndFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drag.IsDrag b) =>
FunPtr C_WidgetClassDragEndFieldCallback
-> a
-> b
-> m ()
dynamic_WidgetClassDragEndFieldCallback :: FunPtr C_WidgetClassDragEndFieldCallback -> a -> b -> m ()
dynamic_WidgetClassDragEndFieldCallback __funPtr :: FunPtr C_WidgetClassDragEndFieldCallback
__funPtr widget :: a
widget drag :: b
drag = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drag
drag' <- b -> IO (Ptr Drag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drag
(FunPtr C_WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
__dynamic_C_WidgetClassDragEndFieldCallback FunPtr C_WidgetClassDragEndFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drag
drag'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drag
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassDragEndFieldCallback :: C_WidgetClassDragEndFieldCallback -> IO (FunPtr C_WidgetClassDragEndFieldCallback)
type WidgetClassDragEndFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drag.Drag
-> IO ()
noWidgetClassDragEndFieldCallback :: Maybe WidgetClassDragEndFieldCallback
noWidgetClassDragEndFieldCallback :: Maybe WidgetClassDragEndFieldCallback
noWidgetClassDragEndFieldCallback = Maybe WidgetClassDragEndFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragEndFieldCallback :: MonadIO m => WidgetClassDragEndFieldCallback -> m (GClosure C_WidgetClassDragEndFieldCallback)
genClosure_WidgetClassDragEndFieldCallback :: WidgetClassDragEndFieldCallback
-> m (GClosure C_WidgetClassDragEndFieldCallback)
genClosure_WidgetClassDragEndFieldCallback cb :: WidgetClassDragEndFieldCallback
cb = IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback))
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragEndFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
-> WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
wrap_WidgetClassDragEndFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragEndFieldCallback
cb
C_WidgetClassDragEndFieldCallback
-> IO (FunPtr C_WidgetClassDragEndFieldCallback)
mk_WidgetClassDragEndFieldCallback C_WidgetClassDragEndFieldCallback
cb' IO (FunPtr C_WidgetClassDragEndFieldCallback)
-> (FunPtr C_WidgetClassDragEndFieldCallback
-> IO (GClosure C_WidgetClassDragEndFieldCallback))
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragEndFieldCallback
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragEndFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback)) ->
WidgetClassDragEndFieldCallback ->
C_WidgetClassDragEndFieldCallback
wrap_WidgetClassDragEndFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
-> WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
wrap_WidgetClassDragEndFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
funptrptr _cb :: WidgetClassDragEndFieldCallback
_cb widget :: Ptr Widget
widget drag :: Ptr Drag
drag = do
Widget
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
Drag
drag' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
drag
WidgetClassDragEndFieldCallback
_cb Widget
widget' Drag
drag'
Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
funptrptr
type C_WidgetClassDragDropFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drop.Drop ->
Int32 ->
Int32 ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragDropFieldCallback :: FunPtr C_WidgetClassDragDropFieldCallback -> C_WidgetClassDragDropFieldCallback
dynamic_WidgetClassDragDropFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drop.IsDrop b) =>
FunPtr C_WidgetClassDragDropFieldCallback
-> a
-> b
-> Int32
-> Int32
-> m Bool
dynamic_WidgetClassDragDropFieldCallback :: FunPtr C_WidgetClassDragMotionFieldCallback
-> a -> b -> Int32 -> Int32 -> m Bool
dynamic_WidgetClassDragDropFieldCallback __funPtr :: FunPtr C_WidgetClassDragMotionFieldCallback
__funPtr widget :: a
widget drop :: b
drop x :: Int32
x y :: Int32
y = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drop
drop' <- b -> IO (Ptr Drop)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drop
CInt
result <- (FunPtr C_WidgetClassDragMotionFieldCallback
-> C_WidgetClassDragMotionFieldCallback
__dynamic_C_WidgetClassDragDropFieldCallback FunPtr C_WidgetClassDragMotionFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drop
drop' Int32
x Int32
y
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drop
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_WidgetClassDragDropFieldCallback :: C_WidgetClassDragDropFieldCallback -> IO (FunPtr C_WidgetClassDragDropFieldCallback)
type WidgetClassDragDropFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drop.Drop
-> Int32
-> Int32
-> IO Bool
noWidgetClassDragDropFieldCallback :: Maybe WidgetClassDragDropFieldCallback
noWidgetClassDragDropFieldCallback :: Maybe WidgetClassDragMotionFieldCallback
noWidgetClassDragDropFieldCallback = Maybe WidgetClassDragMotionFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragDropFieldCallback :: MonadIO m => WidgetClassDragDropFieldCallback -> m (GClosure C_WidgetClassDragDropFieldCallback)
genClosure_WidgetClassDragDropFieldCallback :: WidgetClassDragMotionFieldCallback
-> m (GClosure C_WidgetClassDragMotionFieldCallback)
genClosure_WidgetClassDragDropFieldCallback cb :: WidgetClassDragMotionFieldCallback
cb = IO (GClosure C_WidgetClassDragMotionFieldCallback)
-> m (GClosure C_WidgetClassDragMotionFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragMotionFieldCallback)
-> m (GClosure C_WidgetClassDragMotionFieldCallback))
-> IO (GClosure C_WidgetClassDragMotionFieldCallback)
-> m (GClosure C_WidgetClassDragMotionFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragMotionFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
-> WidgetClassDragMotionFieldCallback
-> C_WidgetClassDragMotionFieldCallback
wrap_WidgetClassDragDropFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragMotionFieldCallback
cb
C_WidgetClassDragMotionFieldCallback
-> IO (FunPtr C_WidgetClassDragMotionFieldCallback)
mk_WidgetClassDragDropFieldCallback C_WidgetClassDragMotionFieldCallback
cb' IO (FunPtr C_WidgetClassDragMotionFieldCallback)
-> (FunPtr C_WidgetClassDragMotionFieldCallback
-> IO (GClosure C_WidgetClassDragMotionFieldCallback))
-> IO (GClosure C_WidgetClassDragMotionFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragMotionFieldCallback
-> IO (GClosure C_WidgetClassDragMotionFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragDropFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragDropFieldCallback)) ->
WidgetClassDragDropFieldCallback ->
C_WidgetClassDragDropFieldCallback
wrap_WidgetClassDragDropFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
-> WidgetClassDragMotionFieldCallback
-> C_WidgetClassDragMotionFieldCallback
wrap_WidgetClassDragDropFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
funptrptr _cb :: WidgetClassDragMotionFieldCallback
_cb widget :: Ptr Widget
widget drop :: Ptr Drop
drop x :: Int32
x y :: Int32
y = do
Widget
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
Drop
drop' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
drop
Bool
result <- WidgetClassDragMotionFieldCallback
_cb Widget
widget' Drop
drop' Int32
x Int32
y
Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragMotionFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_WidgetClassDragDataReceivedFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drop.Drop ->
Ptr Gtk.SelectionData.SelectionData ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragDataReceivedFieldCallback :: FunPtr C_WidgetClassDragDataReceivedFieldCallback -> C_WidgetClassDragDataReceivedFieldCallback
dynamic_WidgetClassDragDataReceivedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drop.IsDrop b) =>
FunPtr C_WidgetClassDragDataReceivedFieldCallback
-> a
-> b
-> Gtk.SelectionData.SelectionData
-> m ()
dynamic_WidgetClassDragDataReceivedFieldCallback :: FunPtr C_WidgetClassDragDataReceivedFieldCallback
-> a -> b -> SelectionData -> m ()
dynamic_WidgetClassDragDataReceivedFieldCallback __funPtr :: FunPtr C_WidgetClassDragDataReceivedFieldCallback
__funPtr widget :: a
widget drop :: b
drop selectionData :: SelectionData
selectionData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drop
drop' <- b -> IO (Ptr Drop)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drop
Ptr SelectionData
selectionData' <- SelectionData -> IO (Ptr SelectionData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
(FunPtr C_WidgetClassDragDataReceivedFieldCallback
-> C_WidgetClassDragDataReceivedFieldCallback
__dynamic_C_WidgetClassDragDataReceivedFieldCallback FunPtr C_WidgetClassDragDataReceivedFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drop
drop' Ptr SelectionData
selectionData'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drop
SelectionData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassDragDataReceivedFieldCallback :: C_WidgetClassDragDataReceivedFieldCallback -> IO (FunPtr C_WidgetClassDragDataReceivedFieldCallback)
type WidgetClassDragDataReceivedFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drop.Drop
-> Gtk.SelectionData.SelectionData
-> IO ()
noWidgetClassDragDataReceivedFieldCallback :: Maybe WidgetClassDragDataReceivedFieldCallback
noWidgetClassDragDataReceivedFieldCallback :: Maybe WidgetClassDragDataReceivedFieldCallback
noWidgetClassDragDataReceivedFieldCallback = Maybe WidgetClassDragDataReceivedFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragDataReceivedFieldCallback :: MonadIO m => WidgetClassDragDataReceivedFieldCallback -> m (GClosure C_WidgetClassDragDataReceivedFieldCallback)
genClosure_WidgetClassDragDataReceivedFieldCallback :: WidgetClassDragDataReceivedFieldCallback
-> m (GClosure C_WidgetClassDragDataReceivedFieldCallback)
genClosure_WidgetClassDragDataReceivedFieldCallback cb :: WidgetClassDragDataReceivedFieldCallback
cb = IO (GClosure C_WidgetClassDragDataReceivedFieldCallback)
-> m (GClosure C_WidgetClassDragDataReceivedFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragDataReceivedFieldCallback)
-> m (GClosure C_WidgetClassDragDataReceivedFieldCallback))
-> IO (GClosure C_WidgetClassDragDataReceivedFieldCallback)
-> m (GClosure C_WidgetClassDragDataReceivedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragDataReceivedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragDataReceivedFieldCallback))
-> WidgetClassDragDataReceivedFieldCallback
-> C_WidgetClassDragDataReceivedFieldCallback
wrap_WidgetClassDragDataReceivedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragDataReceivedFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragDataReceivedFieldCallback
cb
C_WidgetClassDragDataReceivedFieldCallback
-> IO (FunPtr C_WidgetClassDragDataReceivedFieldCallback)
mk_WidgetClassDragDataReceivedFieldCallback C_WidgetClassDragDataReceivedFieldCallback
cb' IO (FunPtr C_WidgetClassDragDataReceivedFieldCallback)
-> (FunPtr C_WidgetClassDragDataReceivedFieldCallback
-> IO (GClosure C_WidgetClassDragDataReceivedFieldCallback))
-> IO (GClosure C_WidgetClassDragDataReceivedFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragDataReceivedFieldCallback
-> IO (GClosure C_WidgetClassDragDataReceivedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragDataReceivedFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragDataReceivedFieldCallback)) ->
WidgetClassDragDataReceivedFieldCallback ->
C_WidgetClassDragDataReceivedFieldCallback
wrap_WidgetClassDragDataReceivedFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragDataReceivedFieldCallback))
-> WidgetClassDragDataReceivedFieldCallback
-> C_WidgetClassDragDataReceivedFieldCallback
wrap_WidgetClassDragDataReceivedFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragDataReceivedFieldCallback))
funptrptr _cb :: WidgetClassDragDataReceivedFieldCallback
_cb widget :: Ptr Widget
widget drop :: Ptr Drop
drop selectionData :: Ptr SelectionData
selectionData = do
Widget
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
Drop
drop' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
drop
(ManagedPtr SelectionData -> SelectionData)
-> Ptr SelectionData -> (SelectionData -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr SelectionData -> SelectionData
Gtk.SelectionData.SelectionData Ptr SelectionData
selectionData ((SelectionData -> IO ()) -> IO ())
-> (SelectionData -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \selectionData' :: SelectionData
selectionData' -> do
WidgetClassDragDataReceivedFieldCallback
_cb Widget
widget' Drop
drop' SelectionData
selectionData'
Maybe (Ptr (FunPtr C_WidgetClassDragDataReceivedFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragDataReceivedFieldCallback))
funptrptr
type C_WidgetClassDragDataGetFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drag.Drag ->
Ptr Gtk.SelectionData.SelectionData ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragDataGetFieldCallback :: FunPtr C_WidgetClassDragDataGetFieldCallback -> C_WidgetClassDragDataGetFieldCallback
dynamic_WidgetClassDragDataGetFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drag.IsDrag b) =>
FunPtr C_WidgetClassDragDataGetFieldCallback
-> a
-> b
-> Gtk.SelectionData.SelectionData
-> m ()
dynamic_WidgetClassDragDataGetFieldCallback :: FunPtr C_WidgetClassDragDataGetFieldCallback
-> a -> b -> SelectionData -> m ()
dynamic_WidgetClassDragDataGetFieldCallback __funPtr :: FunPtr C_WidgetClassDragDataGetFieldCallback
__funPtr widget :: a
widget drag :: b
drag selectionData :: SelectionData
selectionData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drag
drag' <- b -> IO (Ptr Drag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drag
Ptr SelectionData
selectionData' <- SelectionData -> IO (Ptr SelectionData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
(FunPtr C_WidgetClassDragDataGetFieldCallback
-> C_WidgetClassDragDataGetFieldCallback
__dynamic_C_WidgetClassDragDataGetFieldCallback FunPtr C_WidgetClassDragDataGetFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drag
drag' Ptr SelectionData
selectionData'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drag
SelectionData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassDragDataGetFieldCallback :: C_WidgetClassDragDataGetFieldCallback -> IO (FunPtr C_WidgetClassDragDataGetFieldCallback)
type WidgetClassDragDataGetFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drag.Drag
-> Gtk.SelectionData.SelectionData
-> IO ()
noWidgetClassDragDataGetFieldCallback :: Maybe WidgetClassDragDataGetFieldCallback
noWidgetClassDragDataGetFieldCallback :: Maybe WidgetClassDragDataGetFieldCallback
noWidgetClassDragDataGetFieldCallback = Maybe WidgetClassDragDataGetFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragDataGetFieldCallback :: MonadIO m => WidgetClassDragDataGetFieldCallback -> m (GClosure C_WidgetClassDragDataGetFieldCallback)
genClosure_WidgetClassDragDataGetFieldCallback :: WidgetClassDragDataGetFieldCallback
-> m (GClosure C_WidgetClassDragDataGetFieldCallback)
genClosure_WidgetClassDragDataGetFieldCallback cb :: WidgetClassDragDataGetFieldCallback
cb = IO (GClosure C_WidgetClassDragDataGetFieldCallback)
-> m (GClosure C_WidgetClassDragDataGetFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragDataGetFieldCallback)
-> m (GClosure C_WidgetClassDragDataGetFieldCallback))
-> IO (GClosure C_WidgetClassDragDataGetFieldCallback)
-> m (GClosure C_WidgetClassDragDataGetFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragDataGetFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragDataGetFieldCallback))
-> WidgetClassDragDataGetFieldCallback
-> C_WidgetClassDragDataGetFieldCallback
wrap_WidgetClassDragDataGetFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragDataGetFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragDataGetFieldCallback
cb
C_WidgetClassDragDataGetFieldCallback
-> IO (FunPtr C_WidgetClassDragDataGetFieldCallback)
mk_WidgetClassDragDataGetFieldCallback C_WidgetClassDragDataGetFieldCallback
cb' IO (FunPtr C_WidgetClassDragDataGetFieldCallback)
-> (FunPtr C_WidgetClassDragDataGetFieldCallback
-> IO (GClosure C_WidgetClassDragDataGetFieldCallback))
-> IO (GClosure C_WidgetClassDragDataGetFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragDataGetFieldCallback
-> IO (GClosure C_WidgetClassDragDataGetFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragDataGetFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragDataGetFieldCallback)) ->
WidgetClassDragDataGetFieldCallback ->
C_WidgetClassDragDataGetFieldCallback
wrap_WidgetClassDragDataGetFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragDataGetFieldCallback))
-> WidgetClassDragDataGetFieldCallback
-> C_WidgetClassDragDataGetFieldCallback
wrap_WidgetClassDragDataGetFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragDataGetFieldCallback))
funptrptr _cb :: WidgetClassDragDataGetFieldCallback
_cb widget :: Ptr Widget
widget drag :: Ptr Drag
drag selectionData :: Ptr SelectionData
selectionData = do
Widget
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
Drag
drag' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
drag
(ManagedPtr SelectionData -> SelectionData)
-> Ptr SelectionData -> (SelectionData -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr SelectionData -> SelectionData
Gtk.SelectionData.SelectionData Ptr SelectionData
selectionData ((SelectionData -> IO ()) -> IO ())
-> (SelectionData -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \selectionData' :: SelectionData
selectionData' -> do
WidgetClassDragDataGetFieldCallback
_cb Widget
widget' Drag
drag' SelectionData
selectionData'
Maybe (Ptr (FunPtr C_WidgetClassDragDataGetFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragDataGetFieldCallback))
funptrptr
type C_WidgetClassDragDataDeleteFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drag.Drag ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragDataDeleteFieldCallback :: FunPtr C_WidgetClassDragDataDeleteFieldCallback -> C_WidgetClassDragDataDeleteFieldCallback
dynamic_WidgetClassDragDataDeleteFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drag.IsDrag b) =>
FunPtr C_WidgetClassDragDataDeleteFieldCallback
-> a
-> b
-> m ()
dynamic_WidgetClassDragDataDeleteFieldCallback :: FunPtr C_WidgetClassDragEndFieldCallback -> a -> b -> m ()
dynamic_WidgetClassDragDataDeleteFieldCallback __funPtr :: FunPtr C_WidgetClassDragEndFieldCallback
__funPtr widget :: a
widget drag :: b
drag = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drag
drag' <- b -> IO (Ptr Drag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drag
(FunPtr C_WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
__dynamic_C_WidgetClassDragDataDeleteFieldCallback FunPtr C_WidgetClassDragEndFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drag
drag'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drag
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassDragDataDeleteFieldCallback :: C_WidgetClassDragDataDeleteFieldCallback -> IO (FunPtr C_WidgetClassDragDataDeleteFieldCallback)
type WidgetClassDragDataDeleteFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drag.Drag
-> IO ()
noWidgetClassDragDataDeleteFieldCallback :: Maybe WidgetClassDragDataDeleteFieldCallback
noWidgetClassDragDataDeleteFieldCallback :: Maybe WidgetClassDragEndFieldCallback
noWidgetClassDragDataDeleteFieldCallback = Maybe WidgetClassDragEndFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragDataDeleteFieldCallback :: MonadIO m => WidgetClassDragDataDeleteFieldCallback -> m (GClosure C_WidgetClassDragDataDeleteFieldCallback)
genClosure_WidgetClassDragDataDeleteFieldCallback :: WidgetClassDragEndFieldCallback
-> m (GClosure C_WidgetClassDragEndFieldCallback)
genClosure_WidgetClassDragDataDeleteFieldCallback cb :: WidgetClassDragEndFieldCallback
cb = IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback))
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragEndFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
-> WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
wrap_WidgetClassDragDataDeleteFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragEndFieldCallback
cb
C_WidgetClassDragEndFieldCallback
-> IO (FunPtr C_WidgetClassDragEndFieldCallback)
mk_WidgetClassDragDataDeleteFieldCallback C_WidgetClassDragEndFieldCallback
cb' IO (FunPtr C_WidgetClassDragEndFieldCallback)
-> (FunPtr C_WidgetClassDragEndFieldCallback
-> IO (GClosure C_WidgetClassDragEndFieldCallback))
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragEndFieldCallback
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragDataDeleteFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragDataDeleteFieldCallback)) ->
WidgetClassDragDataDeleteFieldCallback ->
C_WidgetClassDragDataDeleteFieldCallback
wrap_WidgetClassDragDataDeleteFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
-> WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
wrap_WidgetClassDragDataDeleteFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
funptrptr _cb :: WidgetClassDragEndFieldCallback
_cb widget :: Ptr Widget
widget drag :: Ptr Drag
drag = do
Widget
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
Drag
drag' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
drag
WidgetClassDragEndFieldCallback
_cb Widget
widget' Drag
drag'
Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
funptrptr
type C_WidgetClassDragBeginFieldCallback =
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Drag.Drag ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDragBeginFieldCallback :: FunPtr C_WidgetClassDragBeginFieldCallback -> C_WidgetClassDragBeginFieldCallback
dynamic_WidgetClassDragBeginFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gdk.Drag.IsDrag b) =>
FunPtr C_WidgetClassDragBeginFieldCallback
-> a
-> b
-> m ()
dynamic_WidgetClassDragBeginFieldCallback :: FunPtr C_WidgetClassDragEndFieldCallback -> a -> b -> m ()
dynamic_WidgetClassDragBeginFieldCallback __funPtr :: FunPtr C_WidgetClassDragEndFieldCallback
__funPtr widget :: a
widget drag :: b
drag = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drag
drag' <- b -> IO (Ptr Drag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drag
(FunPtr C_WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
__dynamic_C_WidgetClassDragBeginFieldCallback FunPtr C_WidgetClassDragEndFieldCallback
__funPtr) Ptr Widget
widget' Ptr Drag
drag'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drag
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassDragBeginFieldCallback :: C_WidgetClassDragBeginFieldCallback -> IO (FunPtr C_WidgetClassDragBeginFieldCallback)
type WidgetClassDragBeginFieldCallback =
Gtk.Widget.Widget
-> Gdk.Drag.Drag
-> IO ()
noWidgetClassDragBeginFieldCallback :: Maybe WidgetClassDragBeginFieldCallback
noWidgetClassDragBeginFieldCallback :: Maybe WidgetClassDragEndFieldCallback
noWidgetClassDragBeginFieldCallback = Maybe WidgetClassDragEndFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDragBeginFieldCallback :: MonadIO m => WidgetClassDragBeginFieldCallback -> m (GClosure C_WidgetClassDragBeginFieldCallback)
genClosure_WidgetClassDragBeginFieldCallback :: WidgetClassDragEndFieldCallback
-> m (GClosure C_WidgetClassDragEndFieldCallback)
genClosure_WidgetClassDragBeginFieldCallback cb :: WidgetClassDragEndFieldCallback
cb = IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback))
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
-> m (GClosure C_WidgetClassDragEndFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassDragEndFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
-> WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
wrap_WidgetClassDragBeginFieldCallback Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
forall a. Maybe a
Nothing WidgetClassDragEndFieldCallback
cb
C_WidgetClassDragEndFieldCallback
-> IO (FunPtr C_WidgetClassDragEndFieldCallback)
mk_WidgetClassDragBeginFieldCallback C_WidgetClassDragEndFieldCallback
cb' IO (FunPtr C_WidgetClassDragEndFieldCallback)
-> (FunPtr C_WidgetClassDragEndFieldCallback
-> IO (GClosure C_WidgetClassDragEndFieldCallback))
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassDragEndFieldCallback
-> IO (GClosure C_WidgetClassDragEndFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassDragBeginFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDragBeginFieldCallback)) ->
WidgetClassDragBeginFieldCallback ->
C_WidgetClassDragBeginFieldCallback
wrap_WidgetClassDragBeginFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
-> WidgetClassDragEndFieldCallback
-> C_WidgetClassDragEndFieldCallback
wrap_WidgetClassDragBeginFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
funptrptr _cb :: WidgetClassDragEndFieldCallback
_cb widget :: Ptr Widget
widget drag :: Ptr Drag
drag = do
Widget
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
Drag
drag' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
drag
WidgetClassDragEndFieldCallback
_cb Widget
widget' Drag
drag'
Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassDragEndFieldCallback))
funptrptr
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 :: FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> a -> TextDirection -> m ()
dynamic_WidgetClassDirectionChangedFieldCallback __funPtr :: FunPtr C_WidgetClassStateFlagsChangedFieldCallback
__funPtr widget :: a
widget previousDirection :: TextDirection
previousDirection = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let previousDirection' :: CUInt
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
(FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
__dynamic_C_WidgetClassDirectionChangedFieldCallback FunPtr C_WidgetClassStateFlagsChangedFieldCallback
__funPtr) Ptr Widget
widget' CUInt
previousDirection'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassDirectionChangedFieldCallback
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
genClosure_WidgetClassDirectionChangedFieldCallback cb :: WidgetClassDirectionChangedFieldCallback
cb = IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback))
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
-> m (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassStateFlagsChangedFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
-> WidgetClassDirectionChangedFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
wrap_WidgetClassDirectionChangedFieldCallback Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
forall a. Maybe a
Nothing WidgetClassDirectionChangedFieldCallback
cb
C_WidgetClassStateFlagsChangedFieldCallback
-> IO (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)
mk_WidgetClassDirectionChangedFieldCallback C_WidgetClassStateFlagsChangedFieldCallback
cb' IO (FunPtr C_WidgetClassStateFlagsChangedFieldCallback)
-> (FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback))
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassStateFlagsChangedFieldCallback
-> IO (GClosure C_WidgetClassStateFlagsChangedFieldCallback)
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_WidgetClassStateFlagsChangedFieldCallback))
-> WidgetClassDirectionChangedFieldCallback
-> C_WidgetClassStateFlagsChangedFieldCallback
wrap_WidgetClassDirectionChangedFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
funptrptr _cb :: WidgetClassDirectionChangedFieldCallback
_cb widget :: Ptr Widget
widget previousDirection :: CUInt
previousDirection = do
Widget
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' :: TextDirection
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
WidgetClassDirectionChangedFieldCallback
_cb Widget
widget' TextDirection
previousDirection'
Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassStateFlagsChangedFieldCallback))
funptrptr
type C_WidgetClassDestroyFieldCallback =
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_WidgetClassDestroyFieldCallback :: FunPtr C_WidgetClassDestroyFieldCallback -> C_WidgetClassDestroyFieldCallback
dynamic_WidgetClassDestroyFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassDestroyFieldCallback
-> a
-> m ()
dynamic_WidgetClassDestroyFieldCallback :: FunPtr C_WidgetClassUnrootFieldCallback -> a -> m ()
dynamic_WidgetClassDestroyFieldCallback __funPtr :: FunPtr C_WidgetClassUnrootFieldCallback
__funPtr widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
__dynamic_C_WidgetClassDestroyFieldCallback FunPtr C_WidgetClassUnrootFieldCallback
__funPtr) Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_WidgetClassDestroyFieldCallback :: C_WidgetClassDestroyFieldCallback -> IO (FunPtr C_WidgetClassDestroyFieldCallback)
type WidgetClassDestroyFieldCallback =
Gtk.Widget.Widget
-> IO ()
noWidgetClassDestroyFieldCallback :: Maybe WidgetClassDestroyFieldCallback
noWidgetClassDestroyFieldCallback :: Maybe WidgetClassUnrootFieldCallback
noWidgetClassDestroyFieldCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassDestroyFieldCallback :: MonadIO m => WidgetClassDestroyFieldCallback -> m (GClosure C_WidgetClassDestroyFieldCallback)
genClosure_WidgetClassDestroyFieldCallback :: WidgetClassUnrootFieldCallback
-> m (GClosure C_WidgetClassUnrootFieldCallback)
genClosure_WidgetClassDestroyFieldCallback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_WidgetClassUnrootFieldCallback)
-> m (GClosure C_WidgetClassUnrootFieldCallback)
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_WidgetClassDestroyFieldCallback Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
forall a. Maybe a
Nothing WidgetClassUnrootFieldCallback
cb
C_WidgetClassUnrootFieldCallback
-> IO (FunPtr C_WidgetClassUnrootFieldCallback)
mk_WidgetClassDestroyFieldCallback C_WidgetClassUnrootFieldCallback
cb' IO (FunPtr C_WidgetClassUnrootFieldCallback)
-> (FunPtr C_WidgetClassUnrootFieldCallback
-> IO (GClosure C_WidgetClassUnrootFieldCallback))
-> IO (GClosure C_WidgetClassUnrootFieldCallback)
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_WidgetClassDestroyFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassDestroyFieldCallback)) ->
WidgetClassDestroyFieldCallback ->
C_WidgetClassDestroyFieldCallback
wrap_WidgetClassDestroyFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
-> WidgetClassUnrootFieldCallback
-> C_WidgetClassUnrootFieldCallback
wrap_WidgetClassDestroyFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
funptrptr _cb :: WidgetClassUnrootFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
WidgetClassUnrootFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassUnrootFieldCallback))
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 :: FunPtr C_WidgetClassContainsFieldCallback
-> a -> Double -> Double -> m Bool
dynamic_WidgetClassContainsFieldCallback __funPtr :: FunPtr C_WidgetClassContainsFieldCallback
__funPtr widget :: a
widget x :: Double
x y :: Double
y = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let x' :: CDouble
x' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
x
let y' :: CDouble
y' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
y
CInt
result <- (FunPtr C_WidgetClassContainsFieldCallback
-> C_WidgetClassContainsFieldCallback
__dynamic_C_WidgetClassContainsFieldCallback FunPtr C_WidgetClassContainsFieldCallback
__funPtr) Ptr Widget
widget' CDouble
x' CDouble
y'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 :: WidgetClassContainsFieldCallback
-> m (GClosure C_WidgetClassContainsFieldCallback)
genClosure_WidgetClassContainsFieldCallback cb :: WidgetClassContainsFieldCallback
cb = IO (GClosure C_WidgetClassContainsFieldCallback)
-> m (GClosure C_WidgetClassContainsFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback))
funptrptr _cb :: WidgetClassContainsFieldCallback
_cb widget :: Ptr Widget
widget x :: CDouble
x y :: CDouble
y = do
Widget
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' :: Double
x' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
x
let y' :: Double
y' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
y
Bool
result <- WidgetClassContainsFieldCallback
_cb Widget
widget' Double
x' Double
y'
Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassContainsFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_WidgetClassComputeExpandFieldCallback
-> a -> Bool -> Bool -> m ()
dynamic_WidgetClassComputeExpandFieldCallback __funPtr :: FunPtr C_WidgetClassComputeExpandFieldCallback
__funPtr widget :: a
widget hexpandP :: Bool
hexpandP vexpandP :: Bool
vexpandP = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let hexpandP' :: CInt
hexpandP' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
hexpandP
let vexpandP' :: CInt
vexpandP' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
vexpandP
(FunPtr C_WidgetClassComputeExpandFieldCallback
-> C_WidgetClassComputeExpandFieldCallback
__dynamic_C_WidgetClassComputeExpandFieldCallback FunPtr C_WidgetClassComputeExpandFieldCallback
__funPtr) Ptr Widget
widget' CInt
hexpandP' CInt
vexpandP'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassComputeExpandFieldCallback
-> m (GClosure C_WidgetClassComputeExpandFieldCallback)
genClosure_WidgetClassComputeExpandFieldCallback cb :: WidgetClassComputeExpandFieldCallback
cb = IO (GClosure C_WidgetClassComputeExpandFieldCallback)
-> m (GClosure C_WidgetClassComputeExpandFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback))
funptrptr _cb :: WidgetClassComputeExpandFieldCallback
_cb widget :: Ptr Widget
widget hexpandP :: CInt
hexpandP vexpandP :: CInt
vexpandP = do
Widget
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' :: Bool
hexpandP' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
hexpandP
let vexpandP' :: Bool
vexpandP' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
vexpandP
WidgetClassComputeExpandFieldCallback
_cb Widget
widget' Bool
hexpandP' Bool
vexpandP'
Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassComputeExpandFieldCallback))
funptrptr
type C_WidgetClassCanActivateAccelFieldCallback =
Ptr Gtk.Widget.Widget ->
Word32 ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_WidgetClassCanActivateAccelFieldCallback :: FunPtr C_WidgetClassCanActivateAccelFieldCallback -> C_WidgetClassCanActivateAccelFieldCallback
dynamic_WidgetClassCanActivateAccelFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_WidgetClassCanActivateAccelFieldCallback
-> a
-> Word32
-> m Bool
dynamic_WidgetClassCanActivateAccelFieldCallback :: FunPtr C_WidgetClassCanActivateAccelFieldCallback
-> a -> Word32 -> m Bool
dynamic_WidgetClassCanActivateAccelFieldCallback __funPtr :: FunPtr C_WidgetClassCanActivateAccelFieldCallback
__funPtr widget :: a
widget signalId :: Word32
signalId = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CInt
result <- (FunPtr C_WidgetClassCanActivateAccelFieldCallback
-> C_WidgetClassCanActivateAccelFieldCallback
__dynamic_C_WidgetClassCanActivateAccelFieldCallback FunPtr C_WidgetClassCanActivateAccelFieldCallback
__funPtr) Ptr Widget
widget' Word32
signalId
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_WidgetClassCanActivateAccelFieldCallback :: C_WidgetClassCanActivateAccelFieldCallback -> IO (FunPtr C_WidgetClassCanActivateAccelFieldCallback)
type WidgetClassCanActivateAccelFieldCallback =
Gtk.Widget.Widget
-> Word32
-> IO Bool
noWidgetClassCanActivateAccelFieldCallback :: Maybe WidgetClassCanActivateAccelFieldCallback
noWidgetClassCanActivateAccelFieldCallback :: Maybe WidgetClassCanActivateAccelFieldCallback
noWidgetClassCanActivateAccelFieldCallback = Maybe WidgetClassCanActivateAccelFieldCallback
forall a. Maybe a
Nothing
genClosure_WidgetClassCanActivateAccelFieldCallback :: MonadIO m => WidgetClassCanActivateAccelFieldCallback -> m (GClosure C_WidgetClassCanActivateAccelFieldCallback)
genClosure_WidgetClassCanActivateAccelFieldCallback :: WidgetClassCanActivateAccelFieldCallback
-> m (GClosure C_WidgetClassCanActivateAccelFieldCallback)
genClosure_WidgetClassCanActivateAccelFieldCallback cb :: WidgetClassCanActivateAccelFieldCallback
cb = IO (GClosure C_WidgetClassCanActivateAccelFieldCallback)
-> m (GClosure C_WidgetClassCanActivateAccelFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetClassCanActivateAccelFieldCallback)
-> m (GClosure C_WidgetClassCanActivateAccelFieldCallback))
-> IO (GClosure C_WidgetClassCanActivateAccelFieldCallback)
-> m (GClosure C_WidgetClassCanActivateAccelFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetClassCanActivateAccelFieldCallback
cb' = Maybe (Ptr (FunPtr C_WidgetClassCanActivateAccelFieldCallback))
-> WidgetClassCanActivateAccelFieldCallback
-> C_WidgetClassCanActivateAccelFieldCallback
wrap_WidgetClassCanActivateAccelFieldCallback Maybe (Ptr (FunPtr C_WidgetClassCanActivateAccelFieldCallback))
forall a. Maybe a
Nothing WidgetClassCanActivateAccelFieldCallback
cb
C_WidgetClassCanActivateAccelFieldCallback
-> IO (FunPtr C_WidgetClassCanActivateAccelFieldCallback)
mk_WidgetClassCanActivateAccelFieldCallback C_WidgetClassCanActivateAccelFieldCallback
cb' IO (FunPtr C_WidgetClassCanActivateAccelFieldCallback)
-> (FunPtr C_WidgetClassCanActivateAccelFieldCallback
-> IO (GClosure C_WidgetClassCanActivateAccelFieldCallback))
-> IO (GClosure C_WidgetClassCanActivateAccelFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetClassCanActivateAccelFieldCallback
-> IO (GClosure C_WidgetClassCanActivateAccelFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetClassCanActivateAccelFieldCallback ::
Maybe (Ptr (FunPtr C_WidgetClassCanActivateAccelFieldCallback)) ->
WidgetClassCanActivateAccelFieldCallback ->
C_WidgetClassCanActivateAccelFieldCallback
wrap_WidgetClassCanActivateAccelFieldCallback :: Maybe (Ptr (FunPtr C_WidgetClassCanActivateAccelFieldCallback))
-> WidgetClassCanActivateAccelFieldCallback
-> C_WidgetClassCanActivateAccelFieldCallback
wrap_WidgetClassCanActivateAccelFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassCanActivateAccelFieldCallback))
funptrptr _cb :: WidgetClassCanActivateAccelFieldCallback
_cb widget :: Ptr Widget
widget signalId :: Word32
signalId = do
Widget
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
Bool
result <- WidgetClassCanActivateAccelFieldCallback
_cb Widget
widget' Word32
signalId
Maybe (Ptr (FunPtr C_WidgetClassCanActivateAccelFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassCanActivateAccelFieldCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_TreeViewSearchPositionFunc =
Ptr Gtk.TreeView.TreeView ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_TreeViewSearchPositionFunc :: FunPtr C_TreeViewSearchPositionFunc -> C_TreeViewSearchPositionFunc
dynamic_TreeViewSearchPositionFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeView.IsTreeView a, Gtk.Widget.IsWidget b) =>
FunPtr C_TreeViewSearchPositionFunc
-> a
-> b
-> Ptr ()
-> m ()
dynamic_TreeViewSearchPositionFunc :: FunPtr C_TreeViewSearchPositionFunc -> a -> b -> Ptr () -> m ()
dynamic_TreeViewSearchPositionFunc __funPtr :: FunPtr C_TreeViewSearchPositionFunc
__funPtr treeView :: a
treeView searchDialog :: b
searchDialog userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Widget
searchDialog' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
searchDialog
(FunPtr C_TreeViewSearchPositionFunc -> C_TreeViewSearchPositionFunc
__dynamic_C_TreeViewSearchPositionFunc FunPtr C_TreeViewSearchPositionFunc
__funPtr) Ptr TreeView
treeView' Ptr Widget
searchDialog' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
searchDialog
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_TreeViewSearchPositionFunc :: C_TreeViewSearchPositionFunc -> IO (FunPtr C_TreeViewSearchPositionFunc)
type TreeViewSearchPositionFunc =
Gtk.TreeView.TreeView
-> Gtk.Widget.Widget
-> IO ()
noTreeViewSearchPositionFunc :: Maybe TreeViewSearchPositionFunc
noTreeViewSearchPositionFunc :: Maybe TreeViewSearchPositionFunc
noTreeViewSearchPositionFunc = Maybe TreeViewSearchPositionFunc
forall a. Maybe a
Nothing
type TreeViewSearchPositionFunc_WithClosures =
Gtk.TreeView.TreeView
-> Gtk.Widget.Widget
-> Ptr ()
-> IO ()
noTreeViewSearchPositionFunc_WithClosures :: Maybe TreeViewSearchPositionFunc_WithClosures
noTreeViewSearchPositionFunc_WithClosures :: Maybe TreeViewSearchPositionFunc_WithClosures
noTreeViewSearchPositionFunc_WithClosures = Maybe TreeViewSearchPositionFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_TreeViewSearchPositionFunc :: TreeViewSearchPositionFunc -> TreeViewSearchPositionFunc_WithClosures
drop_closures_TreeViewSearchPositionFunc :: TreeViewSearchPositionFunc
-> TreeViewSearchPositionFunc_WithClosures
drop_closures_TreeViewSearchPositionFunc _f :: TreeViewSearchPositionFunc
_f treeView :: TreeView
treeView searchDialog :: Widget
searchDialog _ = TreeViewSearchPositionFunc
_f TreeView
treeView Widget
searchDialog
genClosure_TreeViewSearchPositionFunc :: MonadIO m => TreeViewSearchPositionFunc -> m (GClosure C_TreeViewSearchPositionFunc)
genClosure_TreeViewSearchPositionFunc :: TreeViewSearchPositionFunc
-> m (GClosure C_TreeViewSearchPositionFunc)
genClosure_TreeViewSearchPositionFunc cb :: TreeViewSearchPositionFunc
cb = IO (GClosure C_TreeViewSearchPositionFunc)
-> m (GClosure C_TreeViewSearchPositionFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSearchPositionFunc)
-> m (GClosure C_TreeViewSearchPositionFunc))
-> IO (GClosure C_TreeViewSearchPositionFunc)
-> m (GClosure C_TreeViewSearchPositionFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: TreeViewSearchPositionFunc_WithClosures
cb' = TreeViewSearchPositionFunc
-> TreeViewSearchPositionFunc_WithClosures
drop_closures_TreeViewSearchPositionFunc TreeViewSearchPositionFunc
cb
let cb'' :: C_TreeViewSearchPositionFunc
cb'' = Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc))
-> TreeViewSearchPositionFunc_WithClosures
-> C_TreeViewSearchPositionFunc
wrap_TreeViewSearchPositionFunc Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc))
forall a. Maybe a
Nothing TreeViewSearchPositionFunc_WithClosures
cb'
C_TreeViewSearchPositionFunc
-> IO (FunPtr C_TreeViewSearchPositionFunc)
mk_TreeViewSearchPositionFunc C_TreeViewSearchPositionFunc
cb'' IO (FunPtr C_TreeViewSearchPositionFunc)
-> (FunPtr C_TreeViewSearchPositionFunc
-> IO (GClosure C_TreeViewSearchPositionFunc))
-> IO (GClosure C_TreeViewSearchPositionFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSearchPositionFunc
-> IO (GClosure C_TreeViewSearchPositionFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewSearchPositionFunc ::
Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc)) ->
TreeViewSearchPositionFunc_WithClosures ->
C_TreeViewSearchPositionFunc
wrap_TreeViewSearchPositionFunc :: Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc))
-> TreeViewSearchPositionFunc_WithClosures
-> C_TreeViewSearchPositionFunc
wrap_TreeViewSearchPositionFunc funptrptr :: Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc))
funptrptr _cb :: TreeViewSearchPositionFunc_WithClosures
_cb treeView :: Ptr TreeView
treeView searchDialog :: Ptr Widget
searchDialog userData :: Ptr ()
userData = do
TreeView
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
Widget
searchDialog' <- ((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
searchDialog
TreeViewSearchPositionFunc_WithClosures
_cb TreeView
treeView' Widget
searchDialog' Ptr ()
userData
Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc))
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 :: FunPtr C_TreeViewSearchEqualFunc
-> a -> Int32 -> Text -> TreeIter -> Ptr () -> m Bool
dynamic_TreeViewSearchEqualFunc __funPtr :: FunPtr C_TreeViewSearchEqualFunc
__funPtr model :: a
model column :: Int32
column key :: Text
key iter :: TreeIter
iter searchData :: Ptr ()
searchData = IO Bool -> m Bool
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
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
CString
key' <- Text -> IO CString
textToCString Text
key
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
CInt
result <- (FunPtr C_TreeViewSearchEqualFunc -> C_TreeViewSearchEqualFunc
__dynamic_C_TreeViewSearchEqualFunc FunPtr C_TreeViewSearchEqualFunc
__funPtr) Ptr TreeModel
model' Int32
column CString
key' Ptr TreeIter
iter' Ptr ()
searchData
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
key'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_TreeViewSearchEqualFunc :: C_TreeViewSearchEqualFunc -> IO (FunPtr C_TreeViewSearchEqualFunc)
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 _f :: TreeViewSearchEqualFunc
_f model :: TreeModel
model column :: Int32
column key :: Text
key iter :: TreeIter
iter _ = TreeViewSearchEqualFunc
_f TreeModel
model Int32
column Text
key TreeIter
iter
genClosure_TreeViewSearchEqualFunc :: MonadIO m => TreeViewSearchEqualFunc -> m (GClosure C_TreeViewSearchEqualFunc)
genClosure_TreeViewSearchEqualFunc :: TreeViewSearchEqualFunc -> m (GClosure C_TreeViewSearchEqualFunc)
genClosure_TreeViewSearchEqualFunc cb :: TreeViewSearchEqualFunc
cb = IO (GClosure C_TreeViewSearchEqualFunc)
-> m (GClosure C_TreeViewSearchEqualFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
funptrptr _cb :: TreeViewSearchEqualFunc_WithClosures
_cb model :: Ptr TreeModel
model column :: Int32
column key :: CString
key iter :: Ptr TreeIter
iter searchData :: Ptr ()
searchData = do
TreeModel
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
Text
key' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
key
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
Bool
result <- TreeViewSearchEqualFunc_WithClosures
_cb TreeModel
model' Int32
column Text
key' TreeIter
iter' Ptr ()
searchData
Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_TreeViewRowSeparatorFunc
-> a -> TreeIter -> Ptr () -> m Bool
dynamic_TreeViewRowSeparatorFunc __funPtr :: FunPtr C_TreeViewRowSeparatorFunc
__funPtr model :: a
model iter :: TreeIter
iter data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
CInt
result <- (FunPtr C_TreeViewRowSeparatorFunc -> C_TreeViewRowSeparatorFunc
__dynamic_C_TreeViewRowSeparatorFunc FunPtr C_TreeViewRowSeparatorFunc
__funPtr) Ptr TreeModel
model' Ptr TreeIter
iter' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_TreeViewRowSeparatorFunc :: C_TreeViewRowSeparatorFunc -> IO (FunPtr C_TreeViewRowSeparatorFunc)
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 _f :: TreeViewRowSeparatorFunc
_f model :: TreeModel
model iter :: TreeIter
iter _ = TreeViewRowSeparatorFunc
_f TreeModel
model TreeIter
iter
genClosure_TreeViewRowSeparatorFunc :: MonadIO m => TreeViewRowSeparatorFunc -> m (GClosure C_TreeViewRowSeparatorFunc)
genClosure_TreeViewRowSeparatorFunc :: TreeViewRowSeparatorFunc -> m (GClosure C_TreeViewRowSeparatorFunc)
genClosure_TreeViewRowSeparatorFunc cb :: TreeViewRowSeparatorFunc
cb = IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
funptrptr _cb :: TreeViewRowSeparatorFunc_WithClosures
_cb model :: Ptr TreeModel
model iter :: Ptr TreeIter
iter data_ :: Ptr ()
data_ = do
TreeModel
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
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
Bool
result <- TreeViewRowSeparatorFunc_WithClosures
_cb TreeModel
model' TreeIter
iter' Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_TreeViewMappingFunc -> a -> TreePath -> Ptr () -> m ()
dynamic_TreeViewMappingFunc __funPtr :: FunPtr C_TreeViewMappingFunc
__funPtr treeView :: a
treeView path :: TreePath
path userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
(FunPtr C_TreeViewMappingFunc -> C_TreeViewMappingFunc
__dynamic_C_TreeViewMappingFunc FunPtr C_TreeViewMappingFunc
__funPtr) Ptr TreeView
treeView' Ptr TreePath
path' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_TreeViewMappingFunc :: C_TreeViewMappingFunc -> IO (FunPtr C_TreeViewMappingFunc)
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 _f :: TreeViewMappingFunc
_f treeView :: TreeView
treeView path :: TreePath
path _ = TreeViewMappingFunc
_f TreeView
treeView TreePath
path
genClosure_TreeViewMappingFunc :: MonadIO m => TreeViewMappingFunc -> m (GClosure C_TreeViewMappingFunc)
genClosure_TreeViewMappingFunc :: TreeViewMappingFunc -> m (GClosure C_TreeViewMappingFunc)
genClosure_TreeViewMappingFunc cb :: TreeViewMappingFunc
cb = IO (GClosure C_TreeViewMappingFunc)
-> m (GClosure C_TreeViewMappingFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
funptrptr _cb :: TreeViewMappingFunc_WithClosures
_cb treeView :: Ptr TreeView
treeView path :: Ptr TreePath
path userData :: Ptr ()
userData = do
TreeView
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
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
TreeViewMappingFunc_WithClosures
_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))
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 :: FunPtr C_TreeViewColumnDropFunc
-> a -> b -> c -> d -> Ptr () -> m Bool
dynamic_TreeViewColumnDropFunc __funPtr :: FunPtr C_TreeViewColumnDropFunc
__funPtr treeView :: a
treeView column :: b
column prevColumn :: c
prevColumn nextColumn :: d
nextColumn data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
column' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Ptr TreeViewColumn
prevColumn' <- c -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
prevColumn
Ptr TreeViewColumn
nextColumn' <- d -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
nextColumn
CInt
result <- (FunPtr C_TreeViewColumnDropFunc -> C_TreeViewColumnDropFunc
__dynamic_C_TreeViewColumnDropFunc FunPtr C_TreeViewColumnDropFunc
__funPtr) Ptr TreeView
treeView' Ptr TreeViewColumn
column' Ptr TreeViewColumn
prevColumn' Ptr TreeViewColumn
nextColumn' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
prevColumn
d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr d
nextColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_TreeViewColumnDropFunc :: C_TreeViewColumnDropFunc -> IO (FunPtr C_TreeViewColumnDropFunc)
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 _f :: TreeViewColumnDropFunc
_f treeView :: TreeView
treeView column :: TreeViewColumn
column prevColumn :: TreeViewColumn
prevColumn nextColumn :: TreeViewColumn
nextColumn _ = TreeViewColumnDropFunc
_f TreeView
treeView TreeViewColumn
column TreeViewColumn
prevColumn TreeViewColumn
nextColumn
genClosure_TreeViewColumnDropFunc :: MonadIO m => TreeViewColumnDropFunc -> m (GClosure C_TreeViewColumnDropFunc)
genClosure_TreeViewColumnDropFunc :: TreeViewColumnDropFunc -> m (GClosure C_TreeViewColumnDropFunc)
genClosure_TreeViewColumnDropFunc cb :: TreeViewColumnDropFunc
cb = IO (GClosure C_TreeViewColumnDropFunc)
-> m (GClosure C_TreeViewColumnDropFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
funptrptr _cb :: TreeViewColumnDropFunc_WithClosures
_cb treeView :: Ptr TreeView
treeView column :: Ptr TreeViewColumn
column prevColumn :: Ptr TreeViewColumn
prevColumn nextColumn :: Ptr TreeViewColumn
nextColumn data_ :: Ptr ()
data_ = do
TreeView
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
TreeViewColumn
column' <- ((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
column
TreeViewColumn
prevColumn' <- ((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
prevColumn
TreeViewColumn
nextColumn' <- ((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
nextColumn
Bool
result <- TreeViewColumnDropFunc_WithClosures
_cb TreeView
treeView' TreeViewColumn
column' TreeViewColumn
prevColumn' TreeViewColumn
nextColumn' Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_TreeSelectionFunc
-> a -> b -> TreePath -> Bool -> Ptr () -> m Bool
dynamic_TreeSelectionFunc __funPtr :: FunPtr C_TreeSelectionFunc
__funPtr selection :: a
selection model :: b
model path :: TreePath
path pathCurrentlySelected :: Bool
pathCurrentlySelected data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr TreeSelection
selection' <- a -> IO (Ptr TreeSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
selection
Ptr TreeModel
model' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
model
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
let pathCurrentlySelected' :: CInt
pathCurrentlySelected' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
pathCurrentlySelected
CInt
result <- (FunPtr C_TreeSelectionFunc -> C_TreeSelectionFunc
__dynamic_C_TreeSelectionFunc FunPtr C_TreeSelectionFunc
__funPtr) Ptr TreeSelection
selection' Ptr TreeModel
model' Ptr TreePath
path' CInt
pathCurrentlySelected' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
selection
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
model
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_TreeSelectionFunc :: C_TreeSelectionFunc -> IO (FunPtr C_TreeSelectionFunc)
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 _f :: TreeSelectionFunc
_f selection :: TreeSelection
selection model :: TreeModel
model path :: TreePath
path pathCurrentlySelected :: Bool
pathCurrentlySelected _ = TreeSelectionFunc
_f TreeSelection
selection TreeModel
model TreePath
path Bool
pathCurrentlySelected
genClosure_TreeSelectionFunc :: MonadIO m => TreeSelectionFunc -> m (GClosure C_TreeSelectionFunc)
genClosure_TreeSelectionFunc :: TreeSelectionFunc -> m (GClosure C_TreeSelectionFunc)
genClosure_TreeSelectionFunc cb :: TreeSelectionFunc
cb = IO (GClosure C_TreeSelectionFunc)
-> m (GClosure C_TreeSelectionFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeSelectionFunc))
funptrptr _cb :: TreeSelectionFunc_WithClosures
_cb selection :: Ptr TreeSelection
selection model :: Ptr TreeModel
model path :: Ptr TreePath
path pathCurrentlySelected :: CInt
pathCurrentlySelected data_ :: Ptr ()
data_ = do
TreeSelection
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
TreeModel
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
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO CInt) -> IO CInt)
-> (TreePath -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
let pathCurrentlySelected' :: Bool
pathCurrentlySelected' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
pathCurrentlySelected
Bool
result <- TreeSelectionFunc_WithClosures
_cb TreeSelection
selection' TreeModel
model' TreePath
path' Bool
pathCurrentlySelected' Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeSelectionFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeSelectionFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_TreeSelectionForeachFunc
-> a -> TreePath -> TreeIter -> Ptr () -> m ()
dynamic_TreeSelectionForeachFunc __funPtr :: FunPtr C_TreeSelectionForeachFunc
__funPtr model :: a
model path :: TreePath
path iter :: TreeIter
iter data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
(FunPtr C_TreeSelectionForeachFunc -> C_TreeSelectionForeachFunc
__dynamic_C_TreeSelectionForeachFunc FunPtr C_TreeSelectionForeachFunc
__funPtr) Ptr TreeModel
model' Ptr TreePath
path' Ptr TreeIter
iter' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_TreeSelectionForeachFunc :: C_TreeSelectionForeachFunc -> IO (FunPtr C_TreeSelectionForeachFunc)
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 _f :: TreeSelectionForeachFunc
_f model :: TreeModel
model path :: TreePath
path iter :: TreeIter
iter _ = TreeSelectionForeachFunc
_f TreeModel
model TreePath
path TreeIter
iter
genClosure_TreeSelectionForeachFunc :: MonadIO m => TreeSelectionForeachFunc -> m (GClosure C_TreeSelectionForeachFunc)
genClosure_TreeSelectionForeachFunc :: TreeSelectionForeachFunc -> m (GClosure C_TreeSelectionForeachFunc)
genClosure_TreeSelectionForeachFunc cb :: TreeSelectionForeachFunc
cb = IO (GClosure C_TreeSelectionForeachFunc)
-> m (GClosure C_TreeSelectionForeachFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeSelectionForeachFunc))
funptrptr _cb :: TreeSelectionForeachFunc_WithClosures
_cb model :: Ptr TreeModel
model path :: Ptr TreePath
path iter :: Ptr TreeIter
iter data_ :: Ptr ()
data_ = do
TreeModel
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
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
TreeSelectionForeachFunc_WithClosures
_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))
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 :: FunPtr C_TreeModelForeachFunc
-> a -> TreePath -> TreeIter -> Ptr () -> m Bool
dynamic_TreeModelForeachFunc __funPtr :: FunPtr C_TreeModelForeachFunc
__funPtr model :: a
model path :: TreePath
path iter :: TreeIter
iter data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
CInt
result <- (FunPtr C_TreeModelForeachFunc -> C_TreeModelForeachFunc
__dynamic_C_TreeModelForeachFunc FunPtr C_TreeModelForeachFunc
__funPtr) Ptr TreeModel
model' Ptr TreePath
path' Ptr TreeIter
iter' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_TreeModelForeachFunc :: C_TreeModelForeachFunc -> IO (FunPtr C_TreeModelForeachFunc)
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 _f :: TreeModelForeachFunc
_f model :: TreeModel
model path :: TreePath
path iter :: TreeIter
iter _ = TreeModelForeachFunc
_f TreeModel
model TreePath
path TreeIter
iter
genClosure_TreeModelForeachFunc :: MonadIO m => TreeModelForeachFunc -> m (GClosure C_TreeModelForeachFunc)
genClosure_TreeModelForeachFunc :: TreeModelForeachFunc -> m (GClosure C_TreeModelForeachFunc)
genClosure_TreeModelForeachFunc cb :: TreeModelForeachFunc
cb = IO (GClosure C_TreeModelForeachFunc)
-> m (GClosure C_TreeModelForeachFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeModelForeachFunc))
funptrptr _cb :: TreeModelForeachFunc_WithClosures
_cb model :: Ptr TreeModel
model path :: Ptr TreePath
path iter :: Ptr TreeIter
iter data_ :: Ptr ()
data_ = do
TreeModel
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
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO CInt) -> IO CInt)
-> (TreePath -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
Bool
result <- TreeModelForeachFunc_WithClosures
_cb TreeModel
model' TreePath
path' TreeIter
iter' Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeModelForeachFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeModelForeachFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_TreeViewRowSeparatorFunc
-> a -> TreeIter -> Ptr () -> m Bool
dynamic_TreeModelFilterVisibleFunc __funPtr :: FunPtr C_TreeViewRowSeparatorFunc
__funPtr model :: a
model iter :: TreeIter
iter data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
CInt
result <- (FunPtr C_TreeViewRowSeparatorFunc -> C_TreeViewRowSeparatorFunc
__dynamic_C_TreeModelFilterVisibleFunc FunPtr C_TreeViewRowSeparatorFunc
__funPtr) Ptr TreeModel
model' Ptr TreeIter
iter' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_TreeModelFilterVisibleFunc :: C_TreeModelFilterVisibleFunc -> IO (FunPtr C_TreeModelFilterVisibleFunc)
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 _f :: TreeViewRowSeparatorFunc
_f model :: TreeModel
model iter :: TreeIter
iter _ = TreeViewRowSeparatorFunc
_f TreeModel
model TreeIter
iter
genClosure_TreeModelFilterVisibleFunc :: MonadIO m => TreeModelFilterVisibleFunc -> m (GClosure C_TreeModelFilterVisibleFunc)
genClosure_TreeModelFilterVisibleFunc :: TreeViewRowSeparatorFunc -> m (GClosure C_TreeViewRowSeparatorFunc)
genClosure_TreeModelFilterVisibleFunc cb :: TreeViewRowSeparatorFunc
cb = IO (GClosure C_TreeViewRowSeparatorFunc)
-> m (GClosure C_TreeViewRowSeparatorFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
funptrptr _cb :: TreeViewRowSeparatorFunc_WithClosures
_cb model :: Ptr TreeModel
model iter :: Ptr TreeIter
iter data_ :: Ptr ()
data_ = do
TreeModel
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
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
Bool
result <- TreeViewRowSeparatorFunc_WithClosures
_cb TreeModel
model' TreeIter
iter' Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_TreeModelFilterModifyFunc
-> a -> TreeIter -> GValue -> Int32 -> Ptr () -> m ()
dynamic_TreeModelFilterModifyFunc __funPtr :: FunPtr C_TreeModelFilterModifyFunc
__funPtr model :: a
model iter :: TreeIter
iter value :: GValue
value column :: Int32
column data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
(FunPtr C_TreeModelFilterModifyFunc -> C_TreeModelFilterModifyFunc
__dynamic_C_TreeModelFilterModifyFunc FunPtr C_TreeModelFilterModifyFunc
__funPtr) Ptr TreeModel
model' Ptr TreeIter
iter' Ptr GValue
value' Int32
column Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_TreeModelFilterModifyFunc :: C_TreeModelFilterModifyFunc -> IO (FunPtr C_TreeModelFilterModifyFunc)
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 _f :: TreeModelFilterModifyFunc
_f model :: TreeModel
model iter :: TreeIter
iter value :: GValue
value column :: Int32
column _ = TreeModelFilterModifyFunc
_f TreeModel
model TreeIter
iter GValue
value Int32
column
genClosure_TreeModelFilterModifyFunc :: MonadIO m => TreeModelFilterModifyFunc -> m (GClosure C_TreeModelFilterModifyFunc)
genClosure_TreeModelFilterModifyFunc :: TreeModelFilterModifyFunc
-> m (GClosure C_TreeModelFilterModifyFunc)
genClosure_TreeModelFilterModifyFunc cb :: TreeModelFilterModifyFunc
cb = IO (GClosure C_TreeModelFilterModifyFunc)
-> m (GClosure C_TreeModelFilterModifyFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc))
funptrptr _cb :: TreeModelFilterModifyFunc_WithClosures
_cb model :: Ptr TreeModel
model iter :: Ptr TreeIter
iter value :: Ptr GValue
value column :: Int32
column data_ :: Ptr ()
data_ = do
TreeModel
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
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
(ManagedPtr GValue -> GValue)
-> Ptr GValue -> (GValue -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr GValue -> GValue
GValue Ptr GValue
value ((GValue -> IO ()) -> IO ()) -> (GValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \value' :: GValue
value' -> do
TreeModelFilterModifyFunc_WithClosures
_cb TreeModel
model' TreeIter
iter' GValue
value' Int32
column Ptr ()
data_
Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeModelFilterModifyFunc))
funptrptr
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 :: FunPtr C_TreeIterCompareFunc
-> a -> TreeIter -> TreeIter -> Ptr () -> m Int32
dynamic_TreeIterCompareFunc __funPtr :: FunPtr C_TreeIterCompareFunc
__funPtr model :: a
model a :: TreeIter
a b :: TreeIter
b userData :: Ptr ()
userData = IO Int32 -> m Int32
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
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr TreeIter
a' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
a
Ptr TreeIter
b' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
b
Int32
result <- (FunPtr C_TreeIterCompareFunc -> C_TreeIterCompareFunc
__dynamic_C_TreeIterCompareFunc FunPtr C_TreeIterCompareFunc
__funPtr) Ptr TreeModel
model' Ptr TreeIter
a' Ptr TreeIter
b' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
a
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
b
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
foreign import ccall "wrapper"
mk_TreeIterCompareFunc :: C_TreeIterCompareFunc -> IO (FunPtr C_TreeIterCompareFunc)
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 _f :: TreeIterCompareFunc
_f model :: TreeModel
model a :: TreeIter
a b :: TreeIter
b _ = TreeIterCompareFunc
_f TreeModel
model TreeIter
a TreeIter
b
genClosure_TreeIterCompareFunc :: MonadIO m => TreeIterCompareFunc -> m (GClosure C_TreeIterCompareFunc)
genClosure_TreeIterCompareFunc :: TreeIterCompareFunc -> m (GClosure C_TreeIterCompareFunc)
genClosure_TreeIterCompareFunc cb :: TreeIterCompareFunc
cb = IO (GClosure C_TreeIterCompareFunc)
-> m (GClosure C_TreeIterCompareFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeIterCompareFunc))
funptrptr _cb :: TreeIterCompareFunc_WithClosures
_cb model :: Ptr TreeModel
model a :: Ptr TreeIter
a b :: Ptr TreeIter
b userData :: Ptr ()
userData = do
TreeModel
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
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO Int32) -> IO Int32
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
a ((TreeIter -> IO Int32) -> IO Int32)
-> (TreeIter -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \a' :: TreeIter
a' -> do
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO Int32) -> IO Int32
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
b ((TreeIter -> IO Int32) -> IO Int32)
-> (TreeIter -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \b' :: TreeIter
b' -> do
Int32
result <- TreeIterCompareFunc_WithClosures
_cb TreeModel
model' TreeIter
a' TreeIter
b' Ptr ()
userData
Maybe (Ptr (FunPtr C_TreeIterCompareFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TreeIterCompareFunc))
funptrptr
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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 :: FunPtr C_TreeCellDataFunc
-> a -> b -> c -> TreeIter -> Ptr () -> m ()
dynamic_TreeCellDataFunc __funPtr :: FunPtr C_TreeCellDataFunc
__funPtr treeColumn :: a
treeColumn cell :: b
cell treeModel :: c
treeModel iter :: TreeIter
iter data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr TreeModel
treeModel' <- c -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
treeModel
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
(FunPtr C_TreeCellDataFunc -> C_TreeCellDataFunc
__dynamic_C_TreeCellDataFunc FunPtr C_TreeCellDataFunc
__funPtr) Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cell' Ptr TreeModel
treeModel' Ptr TreeIter
iter' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
treeModel
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_TreeCellDataFunc :: C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
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 _f :: TreeCellDataFunc
_f treeColumn :: TreeViewColumn
treeColumn cell :: CellRenderer
cell treeModel :: TreeModel
treeModel iter :: TreeIter
iter _ = TreeCellDataFunc
_f TreeViewColumn
treeColumn CellRenderer
cell TreeModel
treeModel TreeIter
iter
genClosure_TreeCellDataFunc :: MonadIO m => TreeCellDataFunc -> m (GClosure C_TreeCellDataFunc)
genClosure_TreeCellDataFunc :: TreeCellDataFunc -> m (GClosure C_TreeCellDataFunc)
genClosure_TreeCellDataFunc cb :: TreeCellDataFunc
cb = IO (GClosure C_TreeCellDataFunc) -> m (GClosure C_TreeCellDataFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TreeCellDataFunc))
funptrptr _cb :: TreeCellDataFunc_WithClosures
_cb treeColumn :: Ptr TreeViewColumn
treeColumn cell :: Ptr CellRenderer
cell treeModel :: Ptr TreeModel
treeModel iter :: Ptr TreeIter
iter data_ :: Ptr ()
data_ = do
TreeViewColumn
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
CellRenderer
cell' <- ((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
cell
TreeModel
treeModel' <- ((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
treeModel
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
TreeCellDataFunc_WithClosures
_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))
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 :: FunPtr C_TickCallback -> a -> b -> Ptr () -> m Bool
dynamic_TickCallback __funPtr :: FunPtr C_TickCallback
__funPtr widget :: a
widget frameClock :: b
frameClock userData :: Ptr ()
userData = IO Bool -> m Bool
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr FrameClock
frameClock' <- b -> IO (Ptr FrameClock)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
frameClock
CInt
result <- (FunPtr C_TickCallback -> C_TickCallback
__dynamic_C_TickCallback FunPtr C_TickCallback
__funPtr) Ptr Widget
widget' Ptr FrameClock
frameClock' Ptr ()
userData
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
frameClock
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 _f :: TickCallback
_f widget :: Widget
widget frameClock :: FrameClock
frameClock _ = TickCallback
_f Widget
widget FrameClock
frameClock
genClosure_TickCallback :: MonadIO m => TickCallback -> m (GClosure C_TickCallback)
genClosure_TickCallback :: TickCallback -> m (GClosure C_TickCallback)
genClosure_TickCallback cb :: TickCallback
cb = IO (GClosure C_TickCallback) -> m (GClosure C_TickCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TickCallback))
funptrptr _cb :: TickCallback_WithClosures
_cb widget :: Ptr Widget
widget frameClock :: Ptr FrameClock
frameClock userData :: Ptr ()
userData = do
Widget
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
frameClock' <- ((ManagedPtr FrameClock -> FrameClock)
-> Ptr FrameClock -> IO FrameClock
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FrameClock -> FrameClock
Gdk.FrameClock.FrameClock) Ptr FrameClock
frameClock
Bool
result <- TickCallback_WithClosures
_cb Widget
widget' FrameClock
frameClock' Ptr ()
userData
Maybe (Ptr (FunPtr C_TickCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TickCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_TextTagTableForeach -> a -> Ptr () -> m ()
dynamic_TextTagTableForeach __funPtr :: FunPtr C_TextTagTableForeach
__funPtr tag :: a
tag data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TextTag
tag' <- a -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tag
(FunPtr C_TextTagTableForeach -> C_TextTagTableForeach
__dynamic_C_TextTagTableForeach FunPtr C_TextTagTableForeach
__funPtr) Ptr TextTag
tag' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tag
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 _f :: TextTagTableForeach
_f tag :: TextTag
tag _ = TextTagTableForeach
_f TextTag
tag
genClosure_TextTagTableForeach :: MonadIO m => TextTagTableForeach -> m (GClosure C_TextTagTableForeach)
genClosure_TextTagTableForeach :: TextTagTableForeach -> m (GClosure C_TextTagTableForeach)
genClosure_TextTagTableForeach cb :: TextTagTableForeach
cb = IO (GClosure C_TextTagTableForeach)
-> m (GClosure C_TextTagTableForeach)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TextTagTableForeach))
funptrptr _cb :: TextTagTableForeach_WithClosures
_cb tag :: Ptr TextTag
tag data_ :: Ptr ()
data_ = do
TextTag
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
TextTagTableForeach_WithClosures
_cb TextTag
tag' Ptr ()
data_
Maybe (Ptr (FunPtr C_TextTagTableForeach)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TextTagTableForeach))
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 :: FunPtr C_TextCharPredicate -> Char -> Ptr () -> m Bool
dynamic_TextCharPredicate __funPtr :: FunPtr C_TextCharPredicate
__funPtr ch :: Char
ch userData :: Ptr ()
userData = IO Bool -> m Bool
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
fromIntegral (Int -> CInt) -> (Char -> Int) -> Char -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Int
ord) Char
ch
CInt
result <- (FunPtr C_TextCharPredicate -> C_TextCharPredicate
__dynamic_C_TextCharPredicate FunPtr C_TextCharPredicate
__funPtr) CInt
ch' Ptr ()
userData
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 _f :: TextCharPredicate
_f ch :: Char
ch _ = TextCharPredicate
_f Char
ch
genClosure_TextCharPredicate :: MonadIO m => TextCharPredicate -> m (GClosure C_TextCharPredicate)
genClosure_TextCharPredicate :: TextCharPredicate -> m (GClosure C_TextCharPredicate)
genClosure_TextCharPredicate cb :: TextCharPredicate
cb = IO (GClosure C_TextCharPredicate)
-> m (GClosure C_TextCharPredicate)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_TextCharPredicate))
funptrptr _cb :: TextCharPredicate_WithClosures
_cb ch :: CInt
ch userData :: 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
Bool
result <- TextCharPredicate_WithClosures
_cb Char
ch' Ptr ()
userData
Maybe (Ptr (FunPtr C_TextCharPredicate)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TextCharPredicate))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_RcPropertyParser =
Ptr GParamSpec ->
Ptr GLib.String.String ->
Ptr GValue ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_RcPropertyParser :: FunPtr C_RcPropertyParser -> C_RcPropertyParser
dynamic_RcPropertyParser ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_RcPropertyParser
-> GParamSpec
-> GLib.String.String
-> GValue
-> m Bool
dynamic_RcPropertyParser :: FunPtr C_RcPropertyParser
-> GParamSpec -> String -> GValue -> m Bool
dynamic_RcPropertyParser __funPtr :: FunPtr C_RcPropertyParser
__funPtr pspec :: GParamSpec
pspec rcString :: String
rcString propertyValue :: GValue
propertyValue = IO Bool -> m Bool
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
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
Ptr String
rcString' <- String -> IO (Ptr String)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr String
rcString
Ptr GValue
propertyValue' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
propertyValue
CInt
result <- (FunPtr C_RcPropertyParser -> C_RcPropertyParser
__dynamic_C_RcPropertyParser FunPtr C_RcPropertyParser
__funPtr) Ptr GParamSpec
pspec' Ptr String
rcString' Ptr GValue
propertyValue'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
String -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr String
rcString
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
propertyValue
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_RcPropertyParser :: C_RcPropertyParser -> IO (FunPtr C_RcPropertyParser)
type RcPropertyParser =
GParamSpec
-> GLib.String.String
-> GValue
-> IO Bool
noRcPropertyParser :: Maybe RcPropertyParser
noRcPropertyParser :: Maybe RcPropertyParser
noRcPropertyParser = Maybe RcPropertyParser
forall a. Maybe a
Nothing
genClosure_RcPropertyParser :: MonadIO m => RcPropertyParser -> m (GClosure C_RcPropertyParser)
genClosure_RcPropertyParser :: RcPropertyParser -> m (GClosure C_RcPropertyParser)
genClosure_RcPropertyParser cb :: RcPropertyParser
cb = IO (GClosure C_RcPropertyParser) -> m (GClosure C_RcPropertyParser)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_RcPropertyParser)
-> m (GClosure C_RcPropertyParser))
-> IO (GClosure C_RcPropertyParser)
-> m (GClosure C_RcPropertyParser)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RcPropertyParser
cb' = Maybe (Ptr (FunPtr C_RcPropertyParser))
-> RcPropertyParser -> C_RcPropertyParser
wrap_RcPropertyParser Maybe (Ptr (FunPtr C_RcPropertyParser))
forall a. Maybe a
Nothing RcPropertyParser
cb
C_RcPropertyParser -> IO (FunPtr C_RcPropertyParser)
mk_RcPropertyParser C_RcPropertyParser
cb' IO (FunPtr C_RcPropertyParser)
-> (FunPtr C_RcPropertyParser -> IO (GClosure C_RcPropertyParser))
-> IO (GClosure C_RcPropertyParser)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_RcPropertyParser -> IO (GClosure C_RcPropertyParser)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_RcPropertyParser ::
Maybe (Ptr (FunPtr C_RcPropertyParser)) ->
RcPropertyParser ->
C_RcPropertyParser
wrap_RcPropertyParser :: Maybe (Ptr (FunPtr C_RcPropertyParser))
-> RcPropertyParser -> C_RcPropertyParser
wrap_RcPropertyParser funptrptr :: Maybe (Ptr (FunPtr C_RcPropertyParser))
funptrptr _cb :: RcPropertyParser
_cb pspec :: Ptr GParamSpec
pspec rcString :: Ptr String
rcString propertyValue :: Ptr GValue
propertyValue = do
GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
(ManagedPtr String -> String)
-> Ptr String -> (String -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr String -> String
GLib.String.String Ptr String
rcString ((String -> IO CInt) -> IO CInt) -> (String -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \rcString' :: String
rcString' -> do
(ManagedPtr GValue -> GValue)
-> Ptr GValue -> (GValue -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr GValue -> GValue
GValue Ptr GValue
propertyValue ((GValue -> IO CInt) -> IO CInt) -> (GValue -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \propertyValue' :: GValue
propertyValue' -> do
Bool
result <- RcPropertyParser
_cb GParamSpec
pspec' String
rcString' GValue
propertyValue'
Maybe (Ptr (FunPtr C_RcPropertyParser)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_RcPropertyParser))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_PrintSettingsFunc -> Text -> Text -> Ptr () -> m ()
dynamic_PrintSettingsFunc __funPtr :: FunPtr C_PrintSettingsFunc
__funPtr key :: Text
key value :: Text
value userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
CString
key' <- Text -> IO CString
textToCString Text
key
CString
value' <- Text -> IO CString
textToCString Text
value
(FunPtr C_PrintSettingsFunc -> C_PrintSettingsFunc
__dynamic_C_PrintSettingsFunc FunPtr C_PrintSettingsFunc
__funPtr) CString
key' CString
value' Ptr ()
userData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
key'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 _f :: PrintSettingsFunc
_f key :: Text
key value :: Text
value _ = PrintSettingsFunc
_f Text
key Text
value
genClosure_PrintSettingsFunc :: MonadIO m => PrintSettingsFunc -> m (GClosure C_PrintSettingsFunc)
genClosure_PrintSettingsFunc :: PrintSettingsFunc -> m (GClosure C_PrintSettingsFunc)
genClosure_PrintSettingsFunc cb :: PrintSettingsFunc
cb = IO (GClosure C_PrintSettingsFunc)
-> m (GClosure C_PrintSettingsFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_PrintSettingsFunc))
funptrptr _cb :: PrintSettingsFunc_WithClosures
_cb key :: CString
key value :: CString
value userData :: Ptr ()
userData = do
Text
key' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
key
Text
value' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
value
PrintSettingsFunc_WithClosures
_cb Text
key' Text
value' Ptr ()
userData
Maybe (Ptr (FunPtr C_PrintSettingsFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PrintSettingsFunc))
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 :: FunPtr C_PageSetupDoneFunc -> a -> Ptr () -> m ()
dynamic_PageSetupDoneFunc __funPtr :: FunPtr C_PageSetupDoneFunc
__funPtr pageSetup :: a
pageSetup data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PageSetup
pageSetup' <- a -> IO (Ptr PageSetup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pageSetup
(FunPtr C_PageSetupDoneFunc -> C_PageSetupDoneFunc
__dynamic_C_PageSetupDoneFunc FunPtr C_PageSetupDoneFunc
__funPtr) Ptr PageSetup
pageSetup' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pageSetup
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 _f :: PageSetupDoneFunc
_f pageSetup :: PageSetup
pageSetup _ = PageSetupDoneFunc
_f PageSetup
pageSetup
genClosure_PageSetupDoneFunc :: MonadIO m => PageSetupDoneFunc -> m (GClosure C_PageSetupDoneFunc)
genClosure_PageSetupDoneFunc :: PageSetupDoneFunc -> m (GClosure C_PageSetupDoneFunc)
genClosure_PageSetupDoneFunc cb :: PageSetupDoneFunc
cb = IO (GClosure C_PageSetupDoneFunc)
-> m (GClosure C_PageSetupDoneFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_PageSetupDoneFunc))
funptrptr _cb :: PageSetupDoneFunc_WithClosures
_cb pageSetup :: Ptr PageSetup
pageSetup data_ :: Ptr ()
data_ = do
PageSetup
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
PageSetupDoneFunc_WithClosures
_cb PageSetup
pageSetup' Ptr ()
data_
Maybe (Ptr (FunPtr C_PageSetupDoneFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PageSetupDoneFunc))
funptrptr
type =
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Menu.Menu ->
IO ()
foreign import ccall "dynamic" :: FunPtr C_MenuDetachFunc -> C_MenuDetachFunc
dynamic_MenuDetachFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gtk.Menu.IsMenu b) =>
FunPtr C_MenuDetachFunc
-> a
-> b
-> m ()
__funPtr :: FunPtr C_MenuDetachFunc
__funPtr attachWidget :: a
attachWidget menu :: b
menu = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
attachWidget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
attachWidget
Ptr Menu
menu' <- b -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
menu
(FunPtr C_MenuDetachFunc -> C_MenuDetachFunc
__dynamic_C_MenuDetachFunc FunPtr C_MenuDetachFunc
__funPtr) Ptr Widget
attachWidget' Ptr Menu
menu'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
attachWidget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
menu
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
:: C_MenuDetachFunc -> IO (FunPtr C_MenuDetachFunc)
type =
Gtk.Widget.Widget
-> Gtk.Menu.Menu
-> IO ()
noMenuDetachFunc :: Maybe MenuDetachFunc
= Maybe MenuDetachFunc
forall a. Maybe a
Nothing
genClosure_MenuDetachFunc :: MonadIO m => MenuDetachFunc -> m (GClosure C_MenuDetachFunc)
cb :: MenuDetachFunc
cb = IO (GClosure C_MenuDetachFunc) -> m (GClosure C_MenuDetachFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuDetachFunc) -> m (GClosure C_MenuDetachFunc))
-> IO (GClosure C_MenuDetachFunc) -> m (GClosure C_MenuDetachFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuDetachFunc
cb' = Maybe (Ptr (FunPtr C_MenuDetachFunc))
-> MenuDetachFunc -> C_MenuDetachFunc
wrap_MenuDetachFunc Maybe (Ptr (FunPtr C_MenuDetachFunc))
forall a. Maybe a
Nothing MenuDetachFunc
cb
C_MenuDetachFunc -> IO (FunPtr C_MenuDetachFunc)
mk_MenuDetachFunc C_MenuDetachFunc
cb' IO (FunPtr C_MenuDetachFunc)
-> (FunPtr C_MenuDetachFunc -> IO (GClosure C_MenuDetachFunc))
-> IO (GClosure C_MenuDetachFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuDetachFunc -> IO (GClosure C_MenuDetachFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuDetachFunc ::
Maybe (Ptr (FunPtr C_MenuDetachFunc)) ->
MenuDetachFunc ->
C_MenuDetachFunc
funptrptr :: Maybe (Ptr (FunPtr C_MenuDetachFunc))
funptrptr _cb :: MenuDetachFunc
_cb attachWidget :: Ptr Widget
attachWidget menu :: Ptr Menu
menu = do
Widget
attachWidget' <- ((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
attachWidget
Menu
menu' <- ((ManagedPtr Menu -> Menu) -> Ptr Menu -> IO Menu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menu -> Menu
Gtk.Menu.Menu) Ptr Menu
menu
MenuDetachFunc
_cb Widget
attachWidget' Menu
menu'
Maybe (Ptr (FunPtr C_MenuDetachFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_MenuDetachFunc))
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 :: FunPtr C_MapListModelMapFunc -> a -> Ptr () -> m Object
dynamic_MapListModelMapFunc __funPtr :: FunPtr C_MapListModelMapFunc
__funPtr item :: a
item userData :: Ptr ()
userData = IO Object -> m Object
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
Ptr Object
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
item
Ptr Object
result <- (FunPtr C_MapListModelMapFunc -> C_MapListModelMapFunc
__dynamic_C_MapListModelMapFunc FunPtr C_MapListModelMapFunc
__funPtr) Ptr Object
item' Ptr ()
userData
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "mapListModelMapFunc" Ptr Object
result
Object
result' <- ((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
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
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 _f :: Object -> IO Object
_f item :: Object
item _ = Object -> IO Object
_f Object
item
genClosure_MapListModelMapFunc :: MonadIO m => MapListModelMapFunc -> m (GClosure C_MapListModelMapFunc)
genClosure_MapListModelMapFunc :: (Object -> IO Object) -> m (GClosure C_MapListModelMapFunc)
genClosure_MapListModelMapFunc cb :: Object -> IO Object
cb = IO (GClosure C_MapListModelMapFunc)
-> m (GClosure C_MapListModelMapFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_MapListModelMapFunc))
funptrptr _cb :: MapListModelMapFunc_WithClosures
_cb item :: Ptr Object
item userData :: Ptr ()
userData = do
Object
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
Object
result <- MapListModelMapFunc_WithClosures
_cb Object
item' Ptr ()
userData
Maybe (Ptr (FunPtr C_MapListModelMapFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_MapListModelMapFunc))
funptrptr
Ptr Object
result' <- Object -> IO (Ptr Object)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject Object
result
Ptr Object -> IO (Ptr Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
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 :: FunPtr C_ListBoxUpdateHeaderFunc
__funPtr row :: a
row before :: Maybe b
before userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ListBoxRow
row' <- a -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
row
Ptr ListBoxRow
maybeBefore <- case Maybe b
before of
Nothing -> Ptr ListBoxRow -> IO (Ptr ListBoxRow)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListBoxRow
forall a. Ptr a
nullPtr
Just jBefore :: b
jBefore -> do
Ptr ListBoxRow
jBefore' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jBefore
Ptr ListBoxRow -> IO (Ptr ListBoxRow)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListBoxRow
jBefore'
(FunPtr C_ListBoxUpdateHeaderFunc -> C_ListBoxUpdateHeaderFunc
__dynamic_C_ListBoxUpdateHeaderFunc FunPtr C_ListBoxUpdateHeaderFunc
__funPtr) Ptr ListBoxRow
row' Ptr ListBoxRow
maybeBefore Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
row
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
before b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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
_f :: ListBoxUpdateHeaderFunc
_f row :: ListBoxRow
row before :: Maybe ListBoxRow
before _ = ListBoxUpdateHeaderFunc
_f ListBoxRow
row Maybe ListBoxRow
before
genClosure_ListBoxUpdateHeaderFunc :: MonadIO m => ListBoxUpdateHeaderFunc -> m (GClosure C_ListBoxUpdateHeaderFunc)
cb :: ListBoxUpdateHeaderFunc
cb = IO (GClosure C_ListBoxUpdateHeaderFunc)
-> m (GClosure C_ListBoxUpdateHeaderFunc)
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 (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
funptrptr :: Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc))
funptrptr _cb :: ListBoxUpdateHeaderFunc_WithClosures
_cb row :: Ptr ListBoxRow
row before :: Ptr ListBoxRow
before userData :: Ptr ()
userData = do
ListBoxRow
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
Maybe ListBoxRow
maybeBefore <-
if Ptr ListBoxRow
before Ptr ListBoxRow -> Ptr ListBoxRow -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr ListBoxRow
forall a. Ptr a
nullPtr
then Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListBoxRow
forall a. Maybe a
Nothing
else do
ListBoxRow
before' <- ((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
before
Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe ListBoxRow -> IO (Maybe ListBoxRow))
-> Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall a b. (a -> b) -> a -> b
$ ListBoxRow -> Maybe ListBoxRow
forall a. a -> Maybe a
Just ListBoxRow
before'
ListBoxUpdateHeaderFunc_WithClosures
_cb ListBoxRow
row' Maybe ListBoxRow
maybeBefore Ptr ()
userData
Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc))
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 :: FunPtr C_ListBoxSortFunc -> a -> b -> Ptr () -> m Int32
dynamic_ListBoxSortFunc __funPtr :: FunPtr C_ListBoxSortFunc
__funPtr row1 :: a
row1 row2 :: b
row2 userData :: Ptr ()
userData = IO Int32 -> m Int32
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
Ptr ListBoxRow
row1' <- a -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
row1
Ptr ListBoxRow
row2' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
row2
Int32
result <- (FunPtr C_ListBoxSortFunc -> C_ListBoxSortFunc
__dynamic_C_ListBoxSortFunc FunPtr C_ListBoxSortFunc
__funPtr) Ptr ListBoxRow
row1' Ptr ListBoxRow
row2' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
row1
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
row2
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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 _f :: ListBoxSortFunc
_f row1 :: ListBoxRow
row1 row2 :: ListBoxRow
row2 _ = ListBoxSortFunc
_f ListBoxRow
row1 ListBoxRow
row2
genClosure_ListBoxSortFunc :: MonadIO m => ListBoxSortFunc -> m (GClosure C_ListBoxSortFunc)
genClosure_ListBoxSortFunc :: ListBoxSortFunc -> m (GClosure C_ListBoxSortFunc)
genClosure_ListBoxSortFunc cb :: ListBoxSortFunc
cb = IO (GClosure C_ListBoxSortFunc) -> m (GClosure C_ListBoxSortFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_ListBoxSortFunc))
funptrptr _cb :: ListBoxSortFunc_WithClosures
_cb row1 :: Ptr ListBoxRow
row1 row2 :: Ptr ListBoxRow
row2 userData :: Ptr ()
userData = do
ListBoxRow
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
ListBoxRow
row2' <- ((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
row2
Int32
result <- ListBoxSortFunc_WithClosures
_cb ListBoxRow
row1' ListBoxRow
row2' Ptr ()
userData
Maybe (Ptr (FunPtr C_ListBoxSortFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ListBoxSortFunc))
funptrptr
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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 :: FunPtr C_ListBoxForeachFunc -> a -> b -> Ptr () -> m ()
dynamic_ListBoxForeachFunc __funPtr :: FunPtr C_ListBoxForeachFunc
__funPtr box :: a
box row :: b
row userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBoxRow
row' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
row
(FunPtr C_ListBoxForeachFunc -> C_ListBoxForeachFunc
__dynamic_C_ListBoxForeachFunc FunPtr C_ListBoxForeachFunc
__funPtr) Ptr ListBox
box' Ptr ListBoxRow
row' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
row
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 _f :: ListBoxForeachFunc
_f box :: ListBox
box row :: ListBoxRow
row _ = ListBoxForeachFunc
_f ListBox
box ListBoxRow
row
genClosure_ListBoxForeachFunc :: MonadIO m => ListBoxForeachFunc -> m (GClosure C_ListBoxForeachFunc)
genClosure_ListBoxForeachFunc :: ListBoxForeachFunc -> m (GClosure C_ListBoxForeachFunc)
genClosure_ListBoxForeachFunc cb :: ListBoxForeachFunc
cb = IO (GClosure C_ListBoxForeachFunc)
-> m (GClosure C_ListBoxForeachFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
funptrptr _cb :: ListBoxForeachFunc_WithClosures
_cb box :: Ptr ListBox
box row :: Ptr ListBoxRow
row userData :: Ptr ()
userData = do
ListBox
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
ListBoxRow
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
ListBoxForeachFunc_WithClosures
_cb ListBox
box' ListBoxRow
row' Ptr ()
userData
Maybe (Ptr (FunPtr C_ListBoxForeachFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
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 :: FunPtr C_ListBoxFilterFunc -> a -> Ptr () -> m Bool
dynamic_ListBoxFilterFunc __funPtr :: FunPtr C_ListBoxFilterFunc
__funPtr row :: a
row userData :: Ptr ()
userData = IO Bool -> m Bool
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
Ptr ListBoxRow
row' <- a -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
row
CInt
result <- (FunPtr C_ListBoxFilterFunc -> C_ListBoxFilterFunc
__dynamic_C_ListBoxFilterFunc FunPtr C_ListBoxFilterFunc
__funPtr) Ptr ListBoxRow
row' Ptr ()
userData
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
row
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 _f :: ListBoxFilterFunc
_f row :: ListBoxRow
row _ = ListBoxFilterFunc
_f ListBoxRow
row
genClosure_ListBoxFilterFunc :: MonadIO m => ListBoxFilterFunc -> m (GClosure C_ListBoxFilterFunc)
genClosure_ListBoxFilterFunc :: ListBoxFilterFunc -> m (GClosure C_ListBoxFilterFunc)
genClosure_ListBoxFilterFunc cb :: ListBoxFilterFunc
cb = IO (GClosure C_ListBoxFilterFunc)
-> m (GClosure C_ListBoxFilterFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
funptrptr _cb :: ListBoxFilterFunc_WithClosures
_cb row :: Ptr ListBoxRow
row userData :: Ptr ()
userData = do
ListBoxRow
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
Bool
result <- ListBoxFilterFunc_WithClosures
_cb ListBoxRow
row' Ptr ()
userData
Maybe (Ptr (FunPtr C_ListBoxFilterFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_ListBoxCreateWidgetFunc -> a -> Ptr () -> m Widget
dynamic_ListBoxCreateWidgetFunc __funPtr :: FunPtr C_ListBoxCreateWidgetFunc
__funPtr item :: a
item userData :: Ptr ()
userData = IO Widget -> m Widget
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
Ptr Object
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
Ptr Widget
result <- (FunPtr C_ListBoxCreateWidgetFunc -> C_ListBoxCreateWidgetFunc
__dynamic_C_ListBoxCreateWidgetFunc FunPtr C_ListBoxCreateWidgetFunc
__funPtr) Ptr Object
item' Ptr ()
userData
Text -> C_WidgetClassUnrootFieldCallback
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "listBoxCreateWidgetFunc" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
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 _f :: ListBoxCreateWidgetFunc
_f item :: Object
item _ = ListBoxCreateWidgetFunc
_f Object
item
genClosure_ListBoxCreateWidgetFunc :: MonadIO m => ListBoxCreateWidgetFunc -> m (GClosure C_ListBoxCreateWidgetFunc)
genClosure_ListBoxCreateWidgetFunc :: ListBoxCreateWidgetFunc -> m (GClosure C_ListBoxCreateWidgetFunc)
genClosure_ListBoxCreateWidgetFunc cb :: ListBoxCreateWidgetFunc
cb = IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
funptrptr _cb :: ListBoxCreateWidgetFunc_WithClosures
_cb item :: Ptr Object
item userData :: Ptr ()
userData = do
Object
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
Widget
result <- ListBoxCreateWidgetFunc_WithClosures
_cb Object
item' Ptr ()
userData
Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
funptrptr
Ptr Widget
result' <- Widget -> IO (Ptr Widget)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject Widget
result
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
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 :: FunPtr C_IconViewForeachFunc -> a -> TreePath -> Ptr () -> m ()
dynamic_IconViewForeachFunc __funPtr :: FunPtr C_IconViewForeachFunc
__funPtr iconView :: a
iconView path :: TreePath
path data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
(FunPtr C_IconViewForeachFunc -> C_IconViewForeachFunc
__dynamic_C_IconViewForeachFunc FunPtr C_IconViewForeachFunc
__funPtr) Ptr IconView
iconView' Ptr TreePath
path' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_IconViewForeachFunc :: C_IconViewForeachFunc -> IO (FunPtr C_IconViewForeachFunc)
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 _f :: IconViewForeachFunc
_f iconView :: IconView
iconView path :: TreePath
path _ = IconViewForeachFunc
_f IconView
iconView TreePath
path
genClosure_IconViewForeachFunc :: MonadIO m => IconViewForeachFunc -> m (GClosure C_IconViewForeachFunc)
genClosure_IconViewForeachFunc :: IconViewForeachFunc -> m (GClosure C_IconViewForeachFunc)
genClosure_IconViewForeachFunc cb :: IconViewForeachFunc
cb = IO (GClosure C_IconViewForeachFunc)
-> m (GClosure C_IconViewForeachFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_IconViewForeachFunc))
funptrptr _cb :: IconViewForeachFunc_WithClosures
_cb iconView :: Ptr IconView
iconView path :: Ptr TreePath
path data_ :: Ptr ()
data_ = do
IconView
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
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
IconViewForeachFunc_WithClosures
_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))
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 :: FunPtr C_FontFilterFunc -> a -> b -> Ptr () -> m Bool
dynamic_FontFilterFunc __funPtr :: FunPtr C_FontFilterFunc
__funPtr family :: a
family face :: b
face data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr FontFamily
family' <- a -> IO (Ptr FontFamily)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
family
Ptr FontFace
face' <- b -> IO (Ptr FontFace)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
face
CInt
result <- (FunPtr C_FontFilterFunc -> C_FontFilterFunc
__dynamic_C_FontFilterFunc FunPtr C_FontFilterFunc
__funPtr) Ptr FontFamily
family' Ptr FontFace
face' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
family
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
face
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_FontFilterFunc :: C_FontFilterFunc -> IO (FunPtr C_FontFilterFunc)
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 _f :: FontFilterFunc
_f family :: FontFamily
family face :: FontFace
face _ = FontFilterFunc
_f FontFamily
family FontFace
face
genClosure_FontFilterFunc :: MonadIO m => FontFilterFunc -> m (GClosure C_FontFilterFunc)
genClosure_FontFilterFunc :: FontFilterFunc -> m (GClosure C_FontFilterFunc)
genClosure_FontFilterFunc cb :: FontFilterFunc
cb = IO (GClosure C_FontFilterFunc) -> m (GClosure C_FontFilterFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_FontFilterFunc))
funptrptr _cb :: FontFilterFunc_WithClosures
_cb family :: Ptr FontFamily
family face :: Ptr FontFace
face data_ :: Ptr ()
data_ = do
FontFamily
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
FontFace
face' <- ((ManagedPtr FontFace -> FontFace) -> Ptr FontFace -> IO FontFace
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FontFace -> FontFace
Pango.FontFace.FontFace) Ptr FontFace
face
Bool
result <- FontFilterFunc_WithClosures
_cb FontFamily
family' FontFace
face' Ptr ()
data_
Maybe (Ptr (FunPtr C_FontFilterFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_FontFilterFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_FlowBoxSortFunc -> a -> b -> Ptr () -> m Int32
dynamic_FlowBoxSortFunc __funPtr :: FunPtr C_FlowBoxSortFunc
__funPtr child1 :: a
child1 child2 :: b
child2 userData :: Ptr ()
userData = IO Int32 -> m Int32
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
Ptr FlowBoxChild
child1' <- a -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child1
Ptr FlowBoxChild
child2' <- b -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child2
Int32
result <- (FunPtr C_FlowBoxSortFunc -> C_FlowBoxSortFunc
__dynamic_C_FlowBoxSortFunc FunPtr C_FlowBoxSortFunc
__funPtr) Ptr FlowBoxChild
child1' Ptr FlowBoxChild
child2' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child1
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child2
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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 _f :: FlowBoxSortFunc
_f child1 :: FlowBoxChild
child1 child2 :: FlowBoxChild
child2 _ = FlowBoxSortFunc
_f FlowBoxChild
child1 FlowBoxChild
child2
genClosure_FlowBoxSortFunc :: MonadIO m => FlowBoxSortFunc -> m (GClosure C_FlowBoxSortFunc)
genClosure_FlowBoxSortFunc :: FlowBoxSortFunc -> m (GClosure C_FlowBoxSortFunc)
genClosure_FlowBoxSortFunc cb :: FlowBoxSortFunc
cb = IO (GClosure C_FlowBoxSortFunc) -> m (GClosure C_FlowBoxSortFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
funptrptr _cb :: FlowBoxSortFunc_WithClosures
_cb child1 :: Ptr FlowBoxChild
child1 child2 :: Ptr FlowBoxChild
child2 userData :: Ptr ()
userData = do
FlowBoxChild
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
FlowBoxChild
child2' <- ((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
child2
Int32
result <- FlowBoxSortFunc_WithClosures
_cb FlowBoxChild
child1' FlowBoxChild
child2' Ptr ()
userData
Maybe (Ptr (FunPtr C_FlowBoxSortFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
funptrptr
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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 :: FunPtr C_FlowBoxForeachFunc -> a -> b -> Ptr () -> m ()
dynamic_FlowBoxForeachFunc __funPtr :: FunPtr C_FlowBoxForeachFunc
__funPtr box :: a
box child :: b
child userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBoxChild
child' <- b -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
(FunPtr C_FlowBoxForeachFunc -> C_FlowBoxForeachFunc
__dynamic_C_FlowBoxForeachFunc FunPtr C_FlowBoxForeachFunc
__funPtr) Ptr FlowBox
box' Ptr FlowBoxChild
child' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 _f :: FlowBoxForeachFunc
_f box :: FlowBox
box child :: FlowBoxChild
child _ = FlowBoxForeachFunc
_f FlowBox
box FlowBoxChild
child
genClosure_FlowBoxForeachFunc :: MonadIO m => FlowBoxForeachFunc -> m (GClosure C_FlowBoxForeachFunc)
genClosure_FlowBoxForeachFunc :: FlowBoxForeachFunc -> m (GClosure C_FlowBoxForeachFunc)
genClosure_FlowBoxForeachFunc cb :: FlowBoxForeachFunc
cb = IO (GClosure C_FlowBoxForeachFunc)
-> m (GClosure C_FlowBoxForeachFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
funptrptr _cb :: FlowBoxForeachFunc_WithClosures
_cb box :: Ptr FlowBox
box child :: Ptr FlowBoxChild
child userData :: Ptr ()
userData = do
FlowBox
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
FlowBoxChild
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
FlowBoxForeachFunc_WithClosures
_cb FlowBox
box' FlowBoxChild
child' Ptr ()
userData
Maybe (Ptr (FunPtr C_FlowBoxForeachFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
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 :: FunPtr C_FlowBoxFilterFunc -> a -> Ptr () -> m Bool
dynamic_FlowBoxFilterFunc __funPtr :: FunPtr C_FlowBoxFilterFunc
__funPtr child :: a
child userData :: Ptr ()
userData = IO Bool -> m Bool
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
Ptr FlowBoxChild
child' <- a -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
CInt
result <- (FunPtr C_FlowBoxFilterFunc -> C_FlowBoxFilterFunc
__dynamic_C_FlowBoxFilterFunc FunPtr C_FlowBoxFilterFunc
__funPtr) Ptr FlowBoxChild
child' Ptr ()
userData
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 _f :: FlowBoxFilterFunc
_f child :: FlowBoxChild
child _ = FlowBoxFilterFunc
_f FlowBoxChild
child
genClosure_FlowBoxFilterFunc :: MonadIO m => FlowBoxFilterFunc -> m (GClosure C_FlowBoxFilterFunc)
genClosure_FlowBoxFilterFunc :: FlowBoxFilterFunc -> m (GClosure C_FlowBoxFilterFunc)
genClosure_FlowBoxFilterFunc cb :: FlowBoxFilterFunc
cb = IO (GClosure C_FlowBoxFilterFunc)
-> m (GClosure C_FlowBoxFilterFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
funptrptr _cb :: FlowBoxFilterFunc_WithClosures
_cb child :: Ptr FlowBoxChild
child userData :: Ptr ()
userData = do
FlowBoxChild
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
Bool
result <- FlowBoxFilterFunc_WithClosures
_cb FlowBoxChild
child' Ptr ()
userData
Maybe (Ptr (FunPtr C_FlowBoxFilterFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_ListBoxCreateWidgetFunc -> a -> Ptr () -> m Widget
dynamic_FlowBoxCreateWidgetFunc __funPtr :: FunPtr C_ListBoxCreateWidgetFunc
__funPtr item :: a
item userData :: Ptr ()
userData = IO Widget -> m Widget
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
Ptr Object
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
Ptr Widget
result <- (FunPtr C_ListBoxCreateWidgetFunc -> C_ListBoxCreateWidgetFunc
__dynamic_C_FlowBoxCreateWidgetFunc FunPtr C_ListBoxCreateWidgetFunc
__funPtr) Ptr Object
item' Ptr ()
userData
Text -> C_WidgetClassUnrootFieldCallback
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "flowBoxCreateWidgetFunc" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
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 _f :: ListBoxCreateWidgetFunc
_f item :: Object
item _ = ListBoxCreateWidgetFunc
_f Object
item
genClosure_FlowBoxCreateWidgetFunc :: MonadIO m => FlowBoxCreateWidgetFunc -> m (GClosure C_FlowBoxCreateWidgetFunc)
genClosure_FlowBoxCreateWidgetFunc :: ListBoxCreateWidgetFunc -> m (GClosure C_ListBoxCreateWidgetFunc)
genClosure_FlowBoxCreateWidgetFunc cb :: ListBoxCreateWidgetFunc
cb = IO (GClosure C_ListBoxCreateWidgetFunc)
-> m (GClosure C_ListBoxCreateWidgetFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
funptrptr _cb :: ListBoxCreateWidgetFunc_WithClosures
_cb item :: Ptr Object
item userData :: Ptr ()
userData = do
Object
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
Widget
result <- ListBoxCreateWidgetFunc_WithClosures
_cb Object
item' Ptr ()
userData
Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
funptrptr
Ptr Widget
result' <- Widget -> IO (Ptr Widget)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject Widget
result
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
result'
type C_FilterListModelFilterFunc =
Ptr GObject.Object.Object ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_FilterListModelFilterFunc :: FunPtr C_FilterListModelFilterFunc -> C_FilterListModelFilterFunc
dynamic_FilterListModelFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
FunPtr C_FilterListModelFilterFunc
-> a
-> Ptr ()
-> m Bool
dynamic_FilterListModelFilterFunc :: FunPtr C_FilterListModelFilterFunc -> a -> Ptr () -> m Bool
dynamic_FilterListModelFilterFunc __funPtr :: FunPtr C_FilterListModelFilterFunc
__funPtr item :: a
item userData :: Ptr ()
userData = IO Bool -> m Bool
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
Ptr Object
item' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
item
CInt
result <- (FunPtr C_FilterListModelFilterFunc -> C_FilterListModelFilterFunc
__dynamic_C_FilterListModelFilterFunc FunPtr C_FilterListModelFilterFunc
__funPtr) Ptr Object
item' Ptr ()
userData
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
item
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_FilterListModelFilterFunc :: C_FilterListModelFilterFunc -> IO (FunPtr C_FilterListModelFilterFunc)
type FilterListModelFilterFunc =
GObject.Object.Object
-> IO Bool
noFilterListModelFilterFunc :: Maybe FilterListModelFilterFunc
noFilterListModelFilterFunc :: Maybe FilterListModelFilterFunc
noFilterListModelFilterFunc = Maybe FilterListModelFilterFunc
forall a. Maybe a
Nothing
type FilterListModelFilterFunc_WithClosures =
GObject.Object.Object
-> Ptr ()
-> IO Bool
noFilterListModelFilterFunc_WithClosures :: Maybe FilterListModelFilterFunc_WithClosures
noFilterListModelFilterFunc_WithClosures :: Maybe FilterListModelFilterFunc_WithClosures
noFilterListModelFilterFunc_WithClosures = Maybe FilterListModelFilterFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_FilterListModelFilterFunc :: FilterListModelFilterFunc -> FilterListModelFilterFunc_WithClosures
drop_closures_FilterListModelFilterFunc :: FilterListModelFilterFunc -> FilterListModelFilterFunc_WithClosures
drop_closures_FilterListModelFilterFunc _f :: FilterListModelFilterFunc
_f item :: Object
item _ = FilterListModelFilterFunc
_f Object
item
genClosure_FilterListModelFilterFunc :: MonadIO m => FilterListModelFilterFunc -> m (GClosure C_FilterListModelFilterFunc)
genClosure_FilterListModelFilterFunc :: FilterListModelFilterFunc
-> m (GClosure C_FilterListModelFilterFunc)
genClosure_FilterListModelFilterFunc cb :: FilterListModelFilterFunc
cb = IO (GClosure C_FilterListModelFilterFunc)
-> m (GClosure C_FilterListModelFilterFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FilterListModelFilterFunc)
-> m (GClosure C_FilterListModelFilterFunc))
-> IO (GClosure C_FilterListModelFilterFunc)
-> m (GClosure C_FilterListModelFilterFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: FilterListModelFilterFunc_WithClosures
cb' = FilterListModelFilterFunc -> FilterListModelFilterFunc_WithClosures
drop_closures_FilterListModelFilterFunc FilterListModelFilterFunc
cb
let cb'' :: C_FilterListModelFilterFunc
cb'' = Maybe (Ptr (FunPtr C_FilterListModelFilterFunc))
-> FilterListModelFilterFunc_WithClosures
-> C_FilterListModelFilterFunc
wrap_FilterListModelFilterFunc Maybe (Ptr (FunPtr C_FilterListModelFilterFunc))
forall a. Maybe a
Nothing FilterListModelFilterFunc_WithClosures
cb'
C_FilterListModelFilterFunc
-> IO (FunPtr C_FilterListModelFilterFunc)
mk_FilterListModelFilterFunc C_FilterListModelFilterFunc
cb'' IO (FunPtr C_FilterListModelFilterFunc)
-> (FunPtr C_FilterListModelFilterFunc
-> IO (GClosure C_FilterListModelFilterFunc))
-> IO (GClosure C_FilterListModelFilterFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FilterListModelFilterFunc
-> IO (GClosure C_FilterListModelFilterFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FilterListModelFilterFunc ::
Maybe (Ptr (FunPtr C_FilterListModelFilterFunc)) ->
FilterListModelFilterFunc_WithClosures ->
C_FilterListModelFilterFunc
wrap_FilterListModelFilterFunc :: Maybe (Ptr (FunPtr C_FilterListModelFilterFunc))
-> FilterListModelFilterFunc_WithClosures
-> C_FilterListModelFilterFunc
wrap_FilterListModelFilterFunc funptrptr :: Maybe (Ptr (FunPtr C_FilterListModelFilterFunc))
funptrptr _cb :: FilterListModelFilterFunc_WithClosures
_cb item :: Ptr Object
item userData :: Ptr ()
userData = do
Object
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
Bool
result <- FilterListModelFilterFunc_WithClosures
_cb Object
item' Ptr ()
userData
Maybe (Ptr (FunPtr C_FilterListModelFilterFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_FilterListModelFilterFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_FileFilterFunc =
Ptr Gtk.FileFilterInfo.FileFilterInfo ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_FileFilterFunc :: FunPtr C_FileFilterFunc -> C_FileFilterFunc
dynamic_FileFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_FileFilterFunc
-> Gtk.FileFilterInfo.FileFilterInfo
-> Ptr ()
-> m Bool
dynamic_FileFilterFunc :: FunPtr C_FileFilterFunc -> FileFilterInfo -> Ptr () -> m Bool
dynamic_FileFilterFunc __funPtr :: FunPtr C_FileFilterFunc
__funPtr filterInfo :: FileFilterInfo
filterInfo data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr FileFilterInfo
filterInfo' <- FileFilterInfo -> IO (Ptr FileFilterInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FileFilterInfo
filterInfo
CInt
result <- (FunPtr C_FileFilterFunc -> C_FileFilterFunc
__dynamic_C_FileFilterFunc FunPtr C_FileFilterFunc
__funPtr) Ptr FileFilterInfo
filterInfo' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
FileFilterInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr FileFilterInfo
filterInfo
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_FileFilterFunc :: C_FileFilterFunc -> IO (FunPtr C_FileFilterFunc)
type FileFilterFunc =
Gtk.FileFilterInfo.FileFilterInfo
-> IO Bool
noFileFilterFunc :: Maybe FileFilterFunc
noFileFilterFunc :: Maybe FileFilterFunc
noFileFilterFunc = Maybe FileFilterFunc
forall a. Maybe a
Nothing
type FileFilterFunc_WithClosures =
Gtk.FileFilterInfo.FileFilterInfo
-> Ptr ()
-> IO Bool
noFileFilterFunc_WithClosures :: Maybe FileFilterFunc_WithClosures
noFileFilterFunc_WithClosures :: Maybe FileFilterFunc_WithClosures
noFileFilterFunc_WithClosures = Maybe FileFilterFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_FileFilterFunc :: FileFilterFunc -> FileFilterFunc_WithClosures
drop_closures_FileFilterFunc :: FileFilterFunc -> FileFilterFunc_WithClosures
drop_closures_FileFilterFunc _f :: FileFilterFunc
_f filterInfo :: FileFilterInfo
filterInfo _ = FileFilterFunc
_f FileFilterInfo
filterInfo
genClosure_FileFilterFunc :: MonadIO m => FileFilterFunc -> m (GClosure C_FileFilterFunc)
genClosure_FileFilterFunc :: FileFilterFunc -> m (GClosure C_FileFilterFunc)
genClosure_FileFilterFunc cb :: FileFilterFunc
cb = IO (GClosure C_FileFilterFunc) -> m (GClosure C_FileFilterFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FileFilterFunc) -> m (GClosure C_FileFilterFunc))
-> IO (GClosure C_FileFilterFunc) -> m (GClosure C_FileFilterFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: FileFilterFunc_WithClosures
cb' = FileFilterFunc -> FileFilterFunc_WithClosures
drop_closures_FileFilterFunc FileFilterFunc
cb
let cb'' :: C_FileFilterFunc
cb'' = Maybe (Ptr (FunPtr C_FileFilterFunc))
-> FileFilterFunc_WithClosures -> C_FileFilterFunc
wrap_FileFilterFunc Maybe (Ptr (FunPtr C_FileFilterFunc))
forall a. Maybe a
Nothing FileFilterFunc_WithClosures
cb'
C_FileFilterFunc -> IO (FunPtr C_FileFilterFunc)
mk_FileFilterFunc C_FileFilterFunc
cb'' IO (FunPtr C_FileFilterFunc)
-> (FunPtr C_FileFilterFunc -> IO (GClosure C_FileFilterFunc))
-> IO (GClosure C_FileFilterFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FileFilterFunc -> IO (GClosure C_FileFilterFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FileFilterFunc ::
Maybe (Ptr (FunPtr C_FileFilterFunc)) ->
FileFilterFunc_WithClosures ->
C_FileFilterFunc
wrap_FileFilterFunc :: Maybe (Ptr (FunPtr C_FileFilterFunc))
-> FileFilterFunc_WithClosures -> C_FileFilterFunc
wrap_FileFilterFunc funptrptr :: Maybe (Ptr (FunPtr C_FileFilterFunc))
funptrptr _cb :: FileFilterFunc_WithClosures
_cb filterInfo :: Ptr FileFilterInfo
filterInfo data_ :: Ptr ()
data_ = do
FileFilterInfo
filterInfo' <- ((ManagedPtr FileFilterInfo -> FileFilterInfo)
-> Ptr FileFilterInfo -> IO FileFilterInfo
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr FileFilterInfo -> FileFilterInfo
Gtk.FileFilterInfo.FileFilterInfo) Ptr FileFilterInfo
filterInfo
Bool
result <- FileFilterFunc_WithClosures
_cb FileFilterInfo
filterInfo' Ptr ()
data_
Maybe (Ptr (FunPtr C_FileFilterFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_FileFilterFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
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 :: FunPtr C_EntryCompletionMatchFunc
-> a -> Text -> TreeIter -> Ptr () -> m Bool
dynamic_EntryCompletionMatchFunc __funPtr :: FunPtr C_EntryCompletionMatchFunc
__funPtr completion :: a
completion key :: Text
key iter :: TreeIter
iter userData :: Ptr ()
userData = IO Bool -> m Bool
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
Ptr EntryCompletion
completion' <- a -> IO (Ptr EntryCompletion)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
completion
CString
key' <- Text -> IO CString
textToCString Text
key
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
CInt
result <- (FunPtr C_EntryCompletionMatchFunc -> C_EntryCompletionMatchFunc
__dynamic_C_EntryCompletionMatchFunc FunPtr C_EntryCompletionMatchFunc
__funPtr) Ptr EntryCompletion
completion' CString
key' Ptr TreeIter
iter' Ptr ()
userData
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
completion
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
key'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_EntryCompletionMatchFunc :: C_EntryCompletionMatchFunc -> IO (FunPtr C_EntryCompletionMatchFunc)
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 _f :: EntryCompletionMatchFunc
_f completion :: EntryCompletion
completion key :: Text
key iter :: TreeIter
iter _ = EntryCompletionMatchFunc
_f EntryCompletion
completion Text
key TreeIter
iter
genClosure_EntryCompletionMatchFunc :: MonadIO m => EntryCompletionMatchFunc -> m (GClosure C_EntryCompletionMatchFunc)
genClosure_EntryCompletionMatchFunc :: EntryCompletionMatchFunc -> m (GClosure C_EntryCompletionMatchFunc)
genClosure_EntryCompletionMatchFunc cb :: EntryCompletionMatchFunc
cb = IO (GClosure C_EntryCompletionMatchFunc)
-> m (GClosure C_EntryCompletionMatchFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc))
funptrptr _cb :: EntryCompletionMatchFunc_WithClosures
_cb completion :: Ptr EntryCompletion
completion key :: CString
key iter :: Ptr TreeIter
iter userData :: Ptr ()
userData = do
EntryCompletion
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
Text
key' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
key
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
Bool
result <- EntryCompletionMatchFunc_WithClosures
_cb EntryCompletion
completion' Text
key' TreeIter
iter' Ptr ()
userData
Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_EntryCompletionMatchFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_DrawingAreaDrawFunc
-> a -> Context -> Int32 -> Int32 -> Ptr () -> m ()
dynamic_DrawingAreaDrawFunc __funPtr :: FunPtr C_DrawingAreaDrawFunc
__funPtr drawingArea :: a
drawingArea cr :: Context
cr width :: Int32
width height :: Int32
height userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DrawingArea
drawingArea' <- a -> IO (Ptr DrawingArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawingArea
Ptr Context
cr' <- Context -> IO (Ptr Context)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Context
cr
(FunPtr C_DrawingAreaDrawFunc -> C_DrawingAreaDrawFunc
__dynamic_C_DrawingAreaDrawFunc FunPtr C_DrawingAreaDrawFunc
__funPtr) Ptr DrawingArea
drawingArea' Ptr Context
cr' Int32
width Int32
height Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
drawingArea
Context -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Context
cr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 _f :: DrawingAreaDrawFunc
_f drawingArea :: DrawingArea
drawingArea cr :: Context
cr width :: Int32
width height :: Int32
height _ = DrawingAreaDrawFunc
_f DrawingArea
drawingArea Context
cr Int32
width Int32
height
genClosure_DrawingAreaDrawFunc :: MonadIO m => DrawingAreaDrawFunc -> m (GClosure C_DrawingAreaDrawFunc)
genClosure_DrawingAreaDrawFunc :: DrawingAreaDrawFunc -> m (GClosure C_DrawingAreaDrawFunc)
genClosure_DrawingAreaDrawFunc cb :: DrawingAreaDrawFunc
cb = IO (GClosure C_DrawingAreaDrawFunc)
-> m (GClosure C_DrawingAreaDrawFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_DrawingAreaDrawFunc))
funptrptr _cb :: DrawingAreaDrawFunc_WithClosures
_cb drawingArea :: Ptr DrawingArea
drawingArea cr :: Ptr Context
cr width :: Int32
width height :: Int32
height userData :: Ptr ()
userData = do
DrawingArea
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
(ManagedPtr Context -> Context)
-> Ptr Context -> (Context -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Context -> Context
Cairo.Context.Context Ptr Context
cr ((Context -> IO ()) -> IO ()) -> (Context -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \cr' :: Context
cr' -> do
DrawingAreaDrawFunc_WithClosures
_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))
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 :: FunPtr C_WidgetClassGetRequestModeFieldCallback
-> a -> m SizeRequestMode
dynamic_CustomRequestModeFunc __funPtr :: FunPtr C_WidgetClassGetRequestModeFieldCallback
__funPtr widget :: a
widget = IO SizeRequestMode -> m SizeRequestMode
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CUInt
result <- (FunPtr C_WidgetClassGetRequestModeFieldCallback
-> C_WidgetClassGetRequestModeFieldCallback
__dynamic_C_CustomRequestModeFunc FunPtr C_WidgetClassGetRequestModeFieldCallback
__funPtr) Ptr Widget
widget'
let result' :: SizeRequestMode
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
SizeRequestMode -> IO SizeRequestMode
forall (m :: * -> *) a. Monad m => a -> m a
return SizeRequestMode
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 :: WidgetClassGetRequestModeFieldCallback
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
genClosure_CustomRequestModeFunc cb :: WidgetClassGetRequestModeFieldCallback
cb = IO (GClosure C_WidgetClassGetRequestModeFieldCallback)
-> m (GClosure C_WidgetClassGetRequestModeFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
funptrptr _cb :: WidgetClassGetRequestModeFieldCallback
_cb widget :: Ptr Widget
widget = do
Widget
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
SizeRequestMode
result <- WidgetClassGetRequestModeFieldCallback
_cb Widget
widget'
Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassGetRequestModeFieldCallback))
funptrptr
let result' :: CUInt
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
CUInt -> IO CUInt
forall (m :: * -> *) a. Monad m => a -> m a
return CUInt
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 :: FunPtr C_WidgetClassMeasureFieldCallback
-> a -> Orientation -> Int32 -> m (Int32, Int32, Int32, Int32)
dynamic_CustomMeasureFunc __funPtr :: FunPtr C_WidgetClassMeasureFieldCallback
__funPtr widget :: a
widget orientation :: Orientation
orientation forSize :: Int32
forSize = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
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
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let orientation' :: CUInt
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
Ptr Int32
minimum <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
natural <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
minimumBaseline <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalBaseline <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
(FunPtr C_WidgetClassMeasureFieldCallback
-> C_WidgetClassMeasureFieldCallback
__dynamic_C_CustomMeasureFunc FunPtr C_WidgetClassMeasureFieldCallback
__funPtr) Ptr Widget
widget' CUInt
orientation' Int32
forSize Ptr Int32
minimum Ptr Int32
natural Ptr Int32
minimumBaseline Ptr Int32
naturalBaseline
Int32
minimum' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimum
Int32
natural' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
natural
Int32
minimumBaseline' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumBaseline
Int32
naturalBaseline' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalBaseline
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimum
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
natural
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumBaseline
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalBaseline
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
minimum', Int32
natural', Int32
minimumBaseline', Int32
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 :: WidgetClassMeasureFieldCallback
-> m (GClosure C_WidgetClassMeasureFieldCallback)
genClosure_CustomMeasureFunc cb :: WidgetClassMeasureFieldCallback
cb = IO (GClosure C_WidgetClassMeasureFieldCallback)
-> m (GClosure C_WidgetClassMeasureFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
funptrptr _cb :: WidgetClassMeasureFieldCallback
_cb widget :: Ptr Widget
widget orientation :: CUInt
orientation forSize :: Int32
forSize minimum :: Ptr Int32
minimum natural :: Ptr Int32
natural minimumBaseline :: Ptr Int32
minimumBaseline naturalBaseline :: Ptr Int32
naturalBaseline = do
Widget
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' :: Orientation
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 :: Int32
outminimum, outnatural :: Int32
outnatural, outminimumBaseline :: Int32
outminimumBaseline, outnaturalBaseline :: Int32
outnaturalBaseline) <- WidgetClassMeasureFieldCallback
_cb Widget
widget' Orientation
orientation' Int32
forSize
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
minimum Int32
outminimum
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
natural Int32
outnatural
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
minimumBaseline Int32
outminimumBaseline
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
naturalBaseline Int32
outnaturalBaseline
Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassMeasureFieldCallback))
funptrptr
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 :: FunPtr C_WidgetClassSizeAllocateFieldCallback
-> a -> Int32 -> Int32 -> Int32 -> m ()
dynamic_CustomAllocateFunc __funPtr :: FunPtr C_WidgetClassSizeAllocateFieldCallback
__funPtr widget :: a
widget width :: Int32
width height :: Int32
height baseline :: Int32
baseline = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_WidgetClassSizeAllocateFieldCallback
-> C_WidgetClassSizeAllocateFieldCallback
__dynamic_C_CustomAllocateFunc FunPtr C_WidgetClassSizeAllocateFieldCallback
__funPtr) Ptr Widget
widget' Int32
width Int32
height Int32
baseline
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: WidgetClassSizeAllocateFieldCallback
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
genClosure_CustomAllocateFunc cb :: WidgetClassSizeAllocateFieldCallback
cb = IO (GClosure C_WidgetClassSizeAllocateFieldCallback)
-> m (GClosure C_WidgetClassSizeAllocateFieldCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
funptrptr _cb :: WidgetClassSizeAllocateFieldCallback
_cb widget :: Ptr Widget
widget width :: Int32
width height :: Int32
height baseline :: Int32
baseline = do
Widget
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
WidgetClassSizeAllocateFieldCallback
_cb Widget
widget' Int32
width Int32
height Int32
baseline
Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WidgetClassSizeAllocateFieldCallback))
funptrptr
type C_ContainerClassSetFocusChildFieldCallback =
Ptr Gtk.Container.Container ->
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_ContainerClassSetFocusChildFieldCallback :: FunPtr C_ContainerClassSetFocusChildFieldCallback -> C_ContainerClassSetFocusChildFieldCallback
dynamic_ContainerClassSetFocusChildFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Container.IsContainer a, Gtk.Widget.IsWidget b) =>
FunPtr C_ContainerClassSetFocusChildFieldCallback
-> a
-> b
-> m ()
dynamic_ContainerClassSetFocusChildFieldCallback :: FunPtr C_ContainerClassSetFocusChildFieldCallback -> a -> b -> m ()
dynamic_ContainerClassSetFocusChildFieldCallback __funPtr :: FunPtr C_ContainerClassSetFocusChildFieldCallback
__funPtr container :: a
container child :: b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
(FunPtr C_ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
__dynamic_C_ContainerClassSetFocusChildFieldCallback FunPtr C_ContainerClassSetFocusChildFieldCallback
__funPtr) Ptr Container
container' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_ContainerClassSetFocusChildFieldCallback :: C_ContainerClassSetFocusChildFieldCallback -> IO (FunPtr C_ContainerClassSetFocusChildFieldCallback)
type ContainerClassSetFocusChildFieldCallback =
Gtk.Container.Container
-> Gtk.Widget.Widget
-> IO ()
noContainerClassSetFocusChildFieldCallback :: Maybe ContainerClassSetFocusChildFieldCallback
noContainerClassSetFocusChildFieldCallback :: Maybe ContainerClassSetFocusChildFieldCallback
noContainerClassSetFocusChildFieldCallback = Maybe ContainerClassSetFocusChildFieldCallback
forall a. Maybe a
Nothing
genClosure_ContainerClassSetFocusChildFieldCallback :: MonadIO m => ContainerClassSetFocusChildFieldCallback -> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
genClosure_ContainerClassSetFocusChildFieldCallback :: ContainerClassSetFocusChildFieldCallback
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
genClosure_ContainerClassSetFocusChildFieldCallback cb :: ContainerClassSetFocusChildFieldCallback
cb = IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback))
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerClassSetFocusChildFieldCallback
cb' = Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
wrap_ContainerClassSetFocusChildFieldCallback Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
forall a. Maybe a
Nothing ContainerClassSetFocusChildFieldCallback
cb
C_ContainerClassSetFocusChildFieldCallback
-> IO (FunPtr C_ContainerClassSetFocusChildFieldCallback)
mk_ContainerClassSetFocusChildFieldCallback C_ContainerClassSetFocusChildFieldCallback
cb' IO (FunPtr C_ContainerClassSetFocusChildFieldCallback)
-> (FunPtr C_ContainerClassSetFocusChildFieldCallback
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback))
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerClassSetFocusChildFieldCallback
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerClassSetFocusChildFieldCallback ::
Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback)) ->
ContainerClassSetFocusChildFieldCallback ->
C_ContainerClassSetFocusChildFieldCallback
wrap_ContainerClassSetFocusChildFieldCallback :: Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
wrap_ContainerClassSetFocusChildFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
funptrptr _cb :: ContainerClassSetFocusChildFieldCallback
_cb container :: Ptr Container
container child :: Ptr Widget
child = do
Container
container' <- ((ManagedPtr Container -> Container)
-> Ptr Container -> IO Container
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Container -> Container
Gtk.Container.Container) Ptr Container
container
Widget
child' <- ((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
child
ContainerClassSetFocusChildFieldCallback
_cb Container
container' Widget
child'
Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
funptrptr
type C_ContainerClassRemoveFieldCallback =
Ptr Gtk.Container.Container ->
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_ContainerClassRemoveFieldCallback :: FunPtr C_ContainerClassRemoveFieldCallback -> C_ContainerClassRemoveFieldCallback
dynamic_ContainerClassRemoveFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Container.IsContainer a, Gtk.Widget.IsWidget b) =>
FunPtr C_ContainerClassRemoveFieldCallback
-> a
-> b
-> m ()
dynamic_ContainerClassRemoveFieldCallback :: FunPtr C_ContainerClassSetFocusChildFieldCallback -> a -> b -> m ()
dynamic_ContainerClassRemoveFieldCallback __funPtr :: FunPtr C_ContainerClassSetFocusChildFieldCallback
__funPtr container :: a
container widget :: b
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
(FunPtr C_ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
__dynamic_C_ContainerClassRemoveFieldCallback FunPtr C_ContainerClassSetFocusChildFieldCallback
__funPtr) Ptr Container
container' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_ContainerClassRemoveFieldCallback :: C_ContainerClassRemoveFieldCallback -> IO (FunPtr C_ContainerClassRemoveFieldCallback)
type ContainerClassRemoveFieldCallback =
Gtk.Container.Container
-> Gtk.Widget.Widget
-> IO ()
noContainerClassRemoveFieldCallback :: Maybe ContainerClassRemoveFieldCallback
noContainerClassRemoveFieldCallback :: Maybe ContainerClassSetFocusChildFieldCallback
noContainerClassRemoveFieldCallback = Maybe ContainerClassSetFocusChildFieldCallback
forall a. Maybe a
Nothing
genClosure_ContainerClassRemoveFieldCallback :: MonadIO m => ContainerClassRemoveFieldCallback -> m (GClosure C_ContainerClassRemoveFieldCallback)
genClosure_ContainerClassRemoveFieldCallback :: ContainerClassSetFocusChildFieldCallback
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
genClosure_ContainerClassRemoveFieldCallback cb :: ContainerClassSetFocusChildFieldCallback
cb = IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback))
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerClassSetFocusChildFieldCallback
cb' = Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
wrap_ContainerClassRemoveFieldCallback Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
forall a. Maybe a
Nothing ContainerClassSetFocusChildFieldCallback
cb
C_ContainerClassSetFocusChildFieldCallback
-> IO (FunPtr C_ContainerClassSetFocusChildFieldCallback)
mk_ContainerClassRemoveFieldCallback C_ContainerClassSetFocusChildFieldCallback
cb' IO (FunPtr C_ContainerClassSetFocusChildFieldCallback)
-> (FunPtr C_ContainerClassSetFocusChildFieldCallback
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback))
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerClassSetFocusChildFieldCallback
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerClassRemoveFieldCallback ::
Maybe (Ptr (FunPtr C_ContainerClassRemoveFieldCallback)) ->
ContainerClassRemoveFieldCallback ->
C_ContainerClassRemoveFieldCallback
wrap_ContainerClassRemoveFieldCallback :: Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
wrap_ContainerClassRemoveFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
funptrptr _cb :: ContainerClassSetFocusChildFieldCallback
_cb container :: Ptr Container
container widget :: Ptr Widget
widget = do
Container
container' <- ((ManagedPtr Container -> Container)
-> Ptr Container -> IO Container
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Container -> Container
Gtk.Container.Container) Ptr Container
container
Widget
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
ContainerClassSetFocusChildFieldCallback
_cb Container
container' Widget
widget'
Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
funptrptr
type C_ContainerClassGetPathForChildFieldCallback =
Ptr Gtk.Container.Container ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Gtk.WidgetPath.WidgetPath)
foreign import ccall "dynamic" __dynamic_C_ContainerClassGetPathForChildFieldCallback :: FunPtr C_ContainerClassGetPathForChildFieldCallback -> C_ContainerClassGetPathForChildFieldCallback
dynamic_ContainerClassGetPathForChildFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Container.IsContainer a, Gtk.Widget.IsWidget b) =>
FunPtr C_ContainerClassGetPathForChildFieldCallback
-> a
-> b
-> m Gtk.WidgetPath.WidgetPath
dynamic_ContainerClassGetPathForChildFieldCallback :: FunPtr C_ContainerClassGetPathForChildFieldCallback
-> a -> b -> m WidgetPath
dynamic_ContainerClassGetPathForChildFieldCallback __funPtr :: FunPtr C_ContainerClassGetPathForChildFieldCallback
__funPtr container :: a
container child :: b
child = IO WidgetPath -> m WidgetPath
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WidgetPath -> m WidgetPath) -> IO WidgetPath -> m WidgetPath
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr WidgetPath
result <- (FunPtr C_ContainerClassGetPathForChildFieldCallback
-> C_ContainerClassGetPathForChildFieldCallback
__dynamic_C_ContainerClassGetPathForChildFieldCallback FunPtr C_ContainerClassGetPathForChildFieldCallback
__funPtr) Ptr Container
container' Ptr Widget
child'
Text -> Ptr WidgetPath -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "containerClassGetPathForChildFieldCallback" Ptr WidgetPath
result
WidgetPath
result' <- ((ManagedPtr WidgetPath -> WidgetPath)
-> Ptr WidgetPath -> IO WidgetPath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr WidgetPath -> WidgetPath
Gtk.WidgetPath.WidgetPath) Ptr WidgetPath
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
WidgetPath -> IO WidgetPath
forall (m :: * -> *) a. Monad m => a -> m a
return WidgetPath
result'
foreign import ccall "wrapper"
mk_ContainerClassGetPathForChildFieldCallback :: C_ContainerClassGetPathForChildFieldCallback -> IO (FunPtr C_ContainerClassGetPathForChildFieldCallback)
type ContainerClassGetPathForChildFieldCallback =
Gtk.Container.Container
-> Gtk.Widget.Widget
-> IO Gtk.WidgetPath.WidgetPath
noContainerClassGetPathForChildFieldCallback :: Maybe ContainerClassGetPathForChildFieldCallback
noContainerClassGetPathForChildFieldCallback :: Maybe ContainerClassGetPathForChildFieldCallback
noContainerClassGetPathForChildFieldCallback = Maybe ContainerClassGetPathForChildFieldCallback
forall a. Maybe a
Nothing
genClosure_ContainerClassGetPathForChildFieldCallback :: MonadIO m => ContainerClassGetPathForChildFieldCallback -> m (GClosure C_ContainerClassGetPathForChildFieldCallback)
genClosure_ContainerClassGetPathForChildFieldCallback :: ContainerClassGetPathForChildFieldCallback
-> m (GClosure C_ContainerClassGetPathForChildFieldCallback)
genClosure_ContainerClassGetPathForChildFieldCallback cb :: ContainerClassGetPathForChildFieldCallback
cb = IO (GClosure C_ContainerClassGetPathForChildFieldCallback)
-> m (GClosure C_ContainerClassGetPathForChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerClassGetPathForChildFieldCallback)
-> m (GClosure C_ContainerClassGetPathForChildFieldCallback))
-> IO (GClosure C_ContainerClassGetPathForChildFieldCallback)
-> m (GClosure C_ContainerClassGetPathForChildFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerClassGetPathForChildFieldCallback
cb' = Maybe (Ptr (FunPtr C_ContainerClassGetPathForChildFieldCallback))
-> ContainerClassGetPathForChildFieldCallback
-> C_ContainerClassGetPathForChildFieldCallback
wrap_ContainerClassGetPathForChildFieldCallback Maybe (Ptr (FunPtr C_ContainerClassGetPathForChildFieldCallback))
forall a. Maybe a
Nothing ContainerClassGetPathForChildFieldCallback
cb
C_ContainerClassGetPathForChildFieldCallback
-> IO (FunPtr C_ContainerClassGetPathForChildFieldCallback)
mk_ContainerClassGetPathForChildFieldCallback C_ContainerClassGetPathForChildFieldCallback
cb' IO (FunPtr C_ContainerClassGetPathForChildFieldCallback)
-> (FunPtr C_ContainerClassGetPathForChildFieldCallback
-> IO (GClosure C_ContainerClassGetPathForChildFieldCallback))
-> IO (GClosure C_ContainerClassGetPathForChildFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerClassGetPathForChildFieldCallback
-> IO (GClosure C_ContainerClassGetPathForChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerClassGetPathForChildFieldCallback ::
Maybe (Ptr (FunPtr C_ContainerClassGetPathForChildFieldCallback)) ->
ContainerClassGetPathForChildFieldCallback ->
C_ContainerClassGetPathForChildFieldCallback
wrap_ContainerClassGetPathForChildFieldCallback :: Maybe (Ptr (FunPtr C_ContainerClassGetPathForChildFieldCallback))
-> ContainerClassGetPathForChildFieldCallback
-> C_ContainerClassGetPathForChildFieldCallback
wrap_ContainerClassGetPathForChildFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_ContainerClassGetPathForChildFieldCallback))
funptrptr _cb :: ContainerClassGetPathForChildFieldCallback
_cb container :: Ptr Container
container child :: Ptr Widget
child = do
Container
container' <- ((ManagedPtr Container -> Container)
-> Ptr Container -> IO Container
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Container -> Container
Gtk.Container.Container) Ptr Container
container
Widget
child' <- ((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
child
WidgetPath
result <- ContainerClassGetPathForChildFieldCallback
_cb Container
container' Widget
child'
Maybe (Ptr (FunPtr C_ContainerClassGetPathForChildFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ContainerClassGetPathForChildFieldCallback))
funptrptr
Ptr WidgetPath
result' <- WidgetPath -> IO (Ptr WidgetPath)
forall a. (HasCallStack, BoxedObject a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed WidgetPath
result
Ptr WidgetPath -> IO (Ptr WidgetPath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr WidgetPath
result'
type C_ContainerClassForallFieldCallback =
Ptr Gtk.Container.Container ->
FunPtr C_Callback ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_ContainerClassForallFieldCallback :: FunPtr C_ContainerClassForallFieldCallback -> C_ContainerClassForallFieldCallback
dynamic_ContainerClassForallFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Container.IsContainer a) =>
FunPtr C_ContainerClassForallFieldCallback
-> a
-> Callback_WithClosures
-> Ptr ()
-> m ()
dynamic_ContainerClassForallFieldCallback :: FunPtr C_ContainerClassForallFieldCallback
-> a -> Callback_WithClosures -> Ptr () -> m ()
dynamic_ContainerClassForallFieldCallback __funPtr :: FunPtr C_ContainerClassForallFieldCallback
__funPtr container :: a
container callback :: Callback_WithClosures
callback callbackData :: Ptr ()
callbackData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
FunPtr C_Callback
callback' <- C_Callback -> IO (FunPtr C_Callback)
mk_Callback (Maybe (Ptr (FunPtr C_Callback))
-> Callback_WithClosures -> C_Callback
wrap_Callback Maybe (Ptr (FunPtr C_Callback))
forall a. Maybe a
Nothing Callback_WithClosures
callback)
(FunPtr C_ContainerClassForallFieldCallback
-> C_ContainerClassForallFieldCallback
__dynamic_C_ContainerClassForallFieldCallback FunPtr C_ContainerClassForallFieldCallback
__funPtr) Ptr Container
container' FunPtr C_Callback
callback' Ptr ()
callbackData
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_Callback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_Callback
callback'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_ContainerClassForallFieldCallback :: C_ContainerClassForallFieldCallback -> IO (FunPtr C_ContainerClassForallFieldCallback)
type ContainerClassForallFieldCallback =
Gtk.Container.Container
-> Callback_WithClosures
-> IO ()
noContainerClassForallFieldCallback :: Maybe ContainerClassForallFieldCallback
noContainerClassForallFieldCallback :: Maybe ContainerClassForallFieldCallback
noContainerClassForallFieldCallback = Maybe ContainerClassForallFieldCallback
forall a. Maybe a
Nothing
type ContainerClassForallFieldCallback_WithClosures =
Gtk.Container.Container
-> Callback_WithClosures
-> Ptr ()
-> IO ()
noContainerClassForallFieldCallback_WithClosures :: Maybe ContainerClassForallFieldCallback_WithClosures
noContainerClassForallFieldCallback_WithClosures :: Maybe ContainerClassForallFieldCallback_WithClosures
noContainerClassForallFieldCallback_WithClosures = Maybe ContainerClassForallFieldCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_ContainerClassForallFieldCallback :: ContainerClassForallFieldCallback -> ContainerClassForallFieldCallback_WithClosures
drop_closures_ContainerClassForallFieldCallback :: ContainerClassForallFieldCallback
-> ContainerClassForallFieldCallback_WithClosures
drop_closures_ContainerClassForallFieldCallback _f :: ContainerClassForallFieldCallback
_f container :: Container
container callback :: Callback_WithClosures
callback _ = ContainerClassForallFieldCallback
_f Container
container Callback_WithClosures
callback
genClosure_ContainerClassForallFieldCallback :: MonadIO m => ContainerClassForallFieldCallback -> m (GClosure C_ContainerClassForallFieldCallback)
genClosure_ContainerClassForallFieldCallback :: ContainerClassForallFieldCallback
-> m (GClosure C_ContainerClassForallFieldCallback)
genClosure_ContainerClassForallFieldCallback cb :: ContainerClassForallFieldCallback
cb = IO (GClosure C_ContainerClassForallFieldCallback)
-> m (GClosure C_ContainerClassForallFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerClassForallFieldCallback)
-> m (GClosure C_ContainerClassForallFieldCallback))
-> IO (GClosure C_ContainerClassForallFieldCallback)
-> m (GClosure C_ContainerClassForallFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: ContainerClassForallFieldCallback_WithClosures
cb' = ContainerClassForallFieldCallback
-> ContainerClassForallFieldCallback_WithClosures
drop_closures_ContainerClassForallFieldCallback ContainerClassForallFieldCallback
cb
let cb'' :: C_ContainerClassForallFieldCallback
cb'' = Maybe (Ptr (FunPtr C_ContainerClassForallFieldCallback))
-> ContainerClassForallFieldCallback_WithClosures
-> C_ContainerClassForallFieldCallback
wrap_ContainerClassForallFieldCallback Maybe (Ptr (FunPtr C_ContainerClassForallFieldCallback))
forall a. Maybe a
Nothing ContainerClassForallFieldCallback_WithClosures
cb'
C_ContainerClassForallFieldCallback
-> IO (FunPtr C_ContainerClassForallFieldCallback)
mk_ContainerClassForallFieldCallback C_ContainerClassForallFieldCallback
cb'' IO (FunPtr C_ContainerClassForallFieldCallback)
-> (FunPtr C_ContainerClassForallFieldCallback
-> IO (GClosure C_ContainerClassForallFieldCallback))
-> IO (GClosure C_ContainerClassForallFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerClassForallFieldCallback
-> IO (GClosure C_ContainerClassForallFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerClassForallFieldCallback ::
Maybe (Ptr (FunPtr C_ContainerClassForallFieldCallback)) ->
ContainerClassForallFieldCallback_WithClosures ->
C_ContainerClassForallFieldCallback
wrap_ContainerClassForallFieldCallback :: Maybe (Ptr (FunPtr C_ContainerClassForallFieldCallback))
-> ContainerClassForallFieldCallback_WithClosures
-> C_ContainerClassForallFieldCallback
wrap_ContainerClassForallFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_ContainerClassForallFieldCallback))
funptrptr _cb :: ContainerClassForallFieldCallback_WithClosures
_cb container :: Ptr Container
container callback :: FunPtr C_Callback
callback callbackData :: Ptr ()
callbackData = do
Container
container' <- ((ManagedPtr Container -> Container)
-> Ptr Container -> IO Container
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Container -> Container
Gtk.Container.Container) Ptr Container
container
let callback' :: Callback_WithClosures
callback' = FunPtr C_Callback -> Callback_WithClosures
forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
FunPtr C_Callback -> a -> Ptr () -> m ()
dynamic_Callback FunPtr C_Callback
callback
ContainerClassForallFieldCallback_WithClosures
_cb Container
container' Callback_WithClosures
callback' Ptr ()
callbackData
Maybe (Ptr (FunPtr C_ContainerClassForallFieldCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ContainerClassForallFieldCallback))
funptrptr
type C_ContainerClassChildTypeFieldCallback =
Ptr Gtk.Container.Container ->
IO CGType
foreign import ccall "dynamic" __dynamic_C_ContainerClassChildTypeFieldCallback :: FunPtr C_ContainerClassChildTypeFieldCallback -> C_ContainerClassChildTypeFieldCallback
dynamic_ContainerClassChildTypeFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Container.IsContainer a) =>
FunPtr C_ContainerClassChildTypeFieldCallback
-> a
-> m GType
dynamic_ContainerClassChildTypeFieldCallback :: FunPtr C_ContainerClassChildTypeFieldCallback -> a -> m GType
dynamic_ContainerClassChildTypeFieldCallback __funPtr :: FunPtr C_ContainerClassChildTypeFieldCallback
__funPtr container :: a
container = IO GType -> m GType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GType -> m GType) -> IO GType -> m GType
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
CGType
result <- (FunPtr C_ContainerClassChildTypeFieldCallback
-> C_ContainerClassChildTypeFieldCallback
__dynamic_C_ContainerClassChildTypeFieldCallback FunPtr C_ContainerClassChildTypeFieldCallback
__funPtr) Ptr Container
container'
let result' :: GType
result' = CGType -> GType
GType CGType
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
GType -> IO GType
forall (m :: * -> *) a. Monad m => a -> m a
return GType
result'
foreign import ccall "wrapper"
mk_ContainerClassChildTypeFieldCallback :: C_ContainerClassChildTypeFieldCallback -> IO (FunPtr C_ContainerClassChildTypeFieldCallback)
type ContainerClassChildTypeFieldCallback =
Gtk.Container.Container
-> IO GType
noContainerClassChildTypeFieldCallback :: Maybe ContainerClassChildTypeFieldCallback
noContainerClassChildTypeFieldCallback :: Maybe ContainerClassChildTypeFieldCallback
noContainerClassChildTypeFieldCallback = Maybe ContainerClassChildTypeFieldCallback
forall a. Maybe a
Nothing
genClosure_ContainerClassChildTypeFieldCallback :: MonadIO m => ContainerClassChildTypeFieldCallback -> m (GClosure C_ContainerClassChildTypeFieldCallback)
genClosure_ContainerClassChildTypeFieldCallback :: ContainerClassChildTypeFieldCallback
-> m (GClosure C_ContainerClassChildTypeFieldCallback)
genClosure_ContainerClassChildTypeFieldCallback cb :: ContainerClassChildTypeFieldCallback
cb = IO (GClosure C_ContainerClassChildTypeFieldCallback)
-> m (GClosure C_ContainerClassChildTypeFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerClassChildTypeFieldCallback)
-> m (GClosure C_ContainerClassChildTypeFieldCallback))
-> IO (GClosure C_ContainerClassChildTypeFieldCallback)
-> m (GClosure C_ContainerClassChildTypeFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerClassChildTypeFieldCallback
cb' = Maybe (Ptr (FunPtr C_ContainerClassChildTypeFieldCallback))
-> ContainerClassChildTypeFieldCallback
-> C_ContainerClassChildTypeFieldCallback
wrap_ContainerClassChildTypeFieldCallback Maybe (Ptr (FunPtr C_ContainerClassChildTypeFieldCallback))
forall a. Maybe a
Nothing ContainerClassChildTypeFieldCallback
cb
C_ContainerClassChildTypeFieldCallback
-> IO (FunPtr C_ContainerClassChildTypeFieldCallback)
mk_ContainerClassChildTypeFieldCallback C_ContainerClassChildTypeFieldCallback
cb' IO (FunPtr C_ContainerClassChildTypeFieldCallback)
-> (FunPtr C_ContainerClassChildTypeFieldCallback
-> IO (GClosure C_ContainerClassChildTypeFieldCallback))
-> IO (GClosure C_ContainerClassChildTypeFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerClassChildTypeFieldCallback
-> IO (GClosure C_ContainerClassChildTypeFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerClassChildTypeFieldCallback ::
Maybe (Ptr (FunPtr C_ContainerClassChildTypeFieldCallback)) ->
ContainerClassChildTypeFieldCallback ->
C_ContainerClassChildTypeFieldCallback
wrap_ContainerClassChildTypeFieldCallback :: Maybe (Ptr (FunPtr C_ContainerClassChildTypeFieldCallback))
-> ContainerClassChildTypeFieldCallback
-> C_ContainerClassChildTypeFieldCallback
wrap_ContainerClassChildTypeFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_ContainerClassChildTypeFieldCallback))
funptrptr _cb :: ContainerClassChildTypeFieldCallback
_cb container :: Ptr Container
container = do
Container
container' <- ((ManagedPtr Container -> Container)
-> Ptr Container -> IO Container
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Container -> Container
Gtk.Container.Container) Ptr Container
container
GType
result <- ContainerClassChildTypeFieldCallback
_cb Container
container'
Maybe (Ptr (FunPtr C_ContainerClassChildTypeFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ContainerClassChildTypeFieldCallback))
funptrptr
let result' :: CGType
result' = GType -> CGType
gtypeToCGType GType
result
CGType -> IO CGType
forall (m :: * -> *) a. Monad m => a -> m a
return CGType
result'
type C_ContainerClassAddFieldCallback =
Ptr Gtk.Container.Container ->
Ptr Gtk.Widget.Widget ->
IO ()
foreign import ccall "dynamic" __dynamic_C_ContainerClassAddFieldCallback :: FunPtr C_ContainerClassAddFieldCallback -> C_ContainerClassAddFieldCallback
dynamic_ContainerClassAddFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Container.IsContainer a, Gtk.Widget.IsWidget b) =>
FunPtr C_ContainerClassAddFieldCallback
-> a
-> b
-> m ()
dynamic_ContainerClassAddFieldCallback :: FunPtr C_ContainerClassSetFocusChildFieldCallback -> a -> b -> m ()
dynamic_ContainerClassAddFieldCallback __funPtr :: FunPtr C_ContainerClassSetFocusChildFieldCallback
__funPtr container :: a
container widget :: b
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
(FunPtr C_ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
__dynamic_C_ContainerClassAddFieldCallback FunPtr C_ContainerClassSetFocusChildFieldCallback
__funPtr) Ptr Container
container' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_ContainerClassAddFieldCallback :: C_ContainerClassAddFieldCallback -> IO (FunPtr C_ContainerClassAddFieldCallback)
type ContainerClassAddFieldCallback =
Gtk.Container.Container
-> Gtk.Widget.Widget
-> IO ()
noContainerClassAddFieldCallback :: Maybe ContainerClassAddFieldCallback
noContainerClassAddFieldCallback :: Maybe ContainerClassSetFocusChildFieldCallback
noContainerClassAddFieldCallback = Maybe ContainerClassSetFocusChildFieldCallback
forall a. Maybe a
Nothing
genClosure_ContainerClassAddFieldCallback :: MonadIO m => ContainerClassAddFieldCallback -> m (GClosure C_ContainerClassAddFieldCallback)
genClosure_ContainerClassAddFieldCallback :: ContainerClassSetFocusChildFieldCallback
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
genClosure_ContainerClassAddFieldCallback cb :: ContainerClassSetFocusChildFieldCallback
cb = IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback))
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
-> m (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerClassSetFocusChildFieldCallback
cb' = Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
wrap_ContainerClassAddFieldCallback Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
forall a. Maybe a
Nothing ContainerClassSetFocusChildFieldCallback
cb
C_ContainerClassSetFocusChildFieldCallback
-> IO (FunPtr C_ContainerClassSetFocusChildFieldCallback)
mk_ContainerClassAddFieldCallback C_ContainerClassSetFocusChildFieldCallback
cb' IO (FunPtr C_ContainerClassSetFocusChildFieldCallback)
-> (FunPtr C_ContainerClassSetFocusChildFieldCallback
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback))
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerClassSetFocusChildFieldCallback
-> IO (GClosure C_ContainerClassSetFocusChildFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerClassAddFieldCallback ::
Maybe (Ptr (FunPtr C_ContainerClassAddFieldCallback)) ->
ContainerClassAddFieldCallback ->
C_ContainerClassAddFieldCallback
wrap_ContainerClassAddFieldCallback :: Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> ContainerClassSetFocusChildFieldCallback
-> C_ContainerClassSetFocusChildFieldCallback
wrap_ContainerClassAddFieldCallback funptrptr :: Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
funptrptr _cb :: ContainerClassSetFocusChildFieldCallback
_cb container :: Ptr Container
container widget :: Ptr Widget
widget = do
Container
container' <- ((ManagedPtr Container -> Container)
-> Ptr Container -> IO Container
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Container -> Container
Gtk.Container.Container) Ptr Container
container
Widget
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
ContainerClassSetFocusChildFieldCallback
_cb Container
container' Widget
widget'
Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ContainerClassSetFocusChildFieldCallback))
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 :: FunPtr C_CellLayoutDataFunc
-> a -> b -> c -> TreeIter -> Ptr () -> m ()
dynamic_CellLayoutDataFunc __funPtr :: FunPtr C_CellLayoutDataFunc
__funPtr cellLayout :: a
cellLayout cell :: b
cell treeModel :: c
treeModel iter :: TreeIter
iter data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellLayout
cellLayout' <- a -> IO (Ptr CellLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cellLayout
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr TreeModel
treeModel' <- c -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
treeModel
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
(FunPtr C_CellLayoutDataFunc -> C_CellLayoutDataFunc
__dynamic_C_CellLayoutDataFunc FunPtr C_CellLayoutDataFunc
__funPtr) Ptr CellLayout
cellLayout' Ptr CellRenderer
cell' Ptr TreeModel
treeModel' Ptr TreeIter
iter' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cellLayout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
treeModel
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_CellLayoutDataFunc :: C_CellLayoutDataFunc -> IO (FunPtr C_CellLayoutDataFunc)
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 _f :: CellLayoutDataFunc
_f cellLayout :: CellLayout
cellLayout cell :: CellRenderer
cell treeModel :: TreeModel
treeModel iter :: TreeIter
iter _ = CellLayoutDataFunc
_f CellLayout
cellLayout CellRenderer
cell TreeModel
treeModel TreeIter
iter
genClosure_CellLayoutDataFunc :: MonadIO m => CellLayoutDataFunc -> m (GClosure C_CellLayoutDataFunc)
genClosure_CellLayoutDataFunc :: CellLayoutDataFunc -> m (GClosure C_CellLayoutDataFunc)
genClosure_CellLayoutDataFunc cb :: CellLayoutDataFunc
cb = IO (GClosure C_CellLayoutDataFunc)
-> m (GClosure C_CellLayoutDataFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_CellLayoutDataFunc))
funptrptr _cb :: CellLayoutDataFunc_WithClosures
_cb cellLayout :: Ptr CellLayout
cellLayout cell :: Ptr CellRenderer
cell treeModel :: Ptr TreeModel
treeModel iter :: Ptr TreeIter
iter data_ :: Ptr ()
data_ = do
CellLayout
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
CellRenderer
cell' <- ((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
cell
TreeModel
treeModel' <- ((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
treeModel
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
CellLayoutDataFunc_WithClosures
_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))
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 :: FunPtr C_CellCallback -> a -> Ptr () -> m Bool
dynamic_CellCallback __funPtr :: FunPtr C_CellCallback
__funPtr renderer :: a
renderer data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr CellRenderer
renderer' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
CInt
result <- (FunPtr C_CellCallback -> C_CellCallback
__dynamic_C_CellCallback FunPtr C_CellCallback
__funPtr) Ptr CellRenderer
renderer' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_CellCallback :: C_CellCallback -> IO (FunPtr C_CellCallback)
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 _f :: CellCallback
_f renderer :: CellRenderer
renderer _ = CellCallback
_f CellRenderer
renderer
genClosure_CellCallback :: MonadIO m => CellCallback -> m (GClosure C_CellCallback)
genClosure_CellCallback :: CellCallback -> m (GClosure C_CellCallback)
genClosure_CellCallback cb :: CellCallback
cb = IO (GClosure C_CellCallback) -> m (GClosure C_CellCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_CellCallback))
funptrptr _cb :: CellCallback_WithClosures
_cb renderer :: Ptr CellRenderer
renderer data_ :: Ptr ()
data_ = do
CellRenderer
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
Bool
result <- CellCallback_WithClosures
_cb CellRenderer
renderer' Ptr ()
data_
Maybe (Ptr (FunPtr C_CellCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_CellCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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 :: FunPtr C_CellAllocCallback
-> a -> Rectangle -> Rectangle -> Ptr () -> m Bool
dynamic_CellAllocCallback __funPtr :: FunPtr C_CellAllocCallback
__funPtr renderer :: a
renderer cellArea :: Rectangle
cellArea cellBackground :: Rectangle
cellBackground data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr CellRenderer
renderer' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
cellBackground' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellBackground
CInt
result <- (FunPtr C_CellAllocCallback -> C_CellAllocCallback
__dynamic_C_CellAllocCallback FunPtr C_CellAllocCallback
__funPtr) Ptr CellRenderer
renderer' Ptr Rectangle
cellArea' Ptr Rectangle
cellBackground' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellBackground
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_CellAllocCallback :: C_CellAllocCallback -> IO (FunPtr C_CellAllocCallback)
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 _f :: CellAllocCallback
_f renderer :: CellRenderer
renderer cellArea :: Rectangle
cellArea cellBackground :: Rectangle
cellBackground _ = CellAllocCallback
_f CellRenderer
renderer Rectangle
cellArea Rectangle
cellBackground
genClosure_CellAllocCallback :: MonadIO m => CellAllocCallback -> m (GClosure C_CellAllocCallback)
genClosure_CellAllocCallback :: CellAllocCallback -> m (GClosure C_CellAllocCallback)
genClosure_CellAllocCallback cb :: CellAllocCallback
cb = IO (GClosure C_CellAllocCallback)
-> m (GClosure C_CellAllocCallback)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_CellAllocCallback))
funptrptr _cb :: CellAllocCallback_WithClosures
_cb renderer :: Ptr CellRenderer
renderer cellArea :: Ptr Rectangle
cellArea cellBackground :: Ptr Rectangle
cellBackground data_ :: Ptr ()
data_ = do
CellRenderer
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
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle Ptr Rectangle
cellArea ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \cellArea' :: Rectangle
cellArea' -> do
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle Ptr Rectangle
cellBackground ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \cellBackground' :: Rectangle
cellBackground' -> do
Bool
result <- CellAllocCallback_WithClosures
_cb CellRenderer
renderer' Rectangle
cellArea' Rectangle
cellBackground' Ptr ()
data_
Maybe (Ptr (FunPtr C_CellAllocCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_CellAllocCallback))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_Callback =
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_Callback :: FunPtr C_Callback -> C_Callback
dynamic_Callback ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
FunPtr C_Callback
-> a
-> Ptr ()
-> m ()
dynamic_Callback :: FunPtr C_Callback -> a -> Ptr () -> m ()
dynamic_Callback __funPtr :: FunPtr C_Callback
__funPtr widget :: a
widget data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
(FunPtr C_Callback -> C_Callback
__dynamic_C_Callback FunPtr C_Callback
__funPtr) Ptr Widget
widget' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_Callback :: C_Callback -> IO (FunPtr C_Callback)
type Callback =
Gtk.Widget.Widget
-> IO ()
noCallback :: Maybe Callback
noCallback :: Maybe WidgetClassUnrootFieldCallback
noCallback = Maybe WidgetClassUnrootFieldCallback
forall a. Maybe a
Nothing
type Callback_WithClosures =
Gtk.Widget.Widget
-> Ptr ()
-> IO ()
noCallback_WithClosures :: Maybe Callback_WithClosures
noCallback_WithClosures :: Maybe Callback_WithClosures
noCallback_WithClosures = Maybe Callback_WithClosures
forall a. Maybe a
Nothing
drop_closures_Callback :: Callback -> Callback_WithClosures
drop_closures_Callback :: WidgetClassUnrootFieldCallback -> Callback_WithClosures
drop_closures_Callback _f :: WidgetClassUnrootFieldCallback
_f widget :: Widget
widget _ = WidgetClassUnrootFieldCallback
_f Widget
widget
genClosure_Callback :: MonadIO m => Callback -> m (GClosure C_Callback)
genClosure_Callback :: WidgetClassUnrootFieldCallback -> m (GClosure C_Callback)
genClosure_Callback cb :: WidgetClassUnrootFieldCallback
cb = IO (GClosure C_Callback) -> m (GClosure C_Callback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_Callback) -> m (GClosure C_Callback))
-> IO (GClosure C_Callback) -> m (GClosure C_Callback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: Callback_WithClosures
cb' = WidgetClassUnrootFieldCallback -> Callback_WithClosures
drop_closures_Callback WidgetClassUnrootFieldCallback
cb
let cb'' :: C_Callback
cb'' = Maybe (Ptr (FunPtr C_Callback))
-> Callback_WithClosures -> C_Callback
wrap_Callback Maybe (Ptr (FunPtr C_Callback))
forall a. Maybe a
Nothing Callback_WithClosures
cb'
C_Callback -> IO (FunPtr C_Callback)
mk_Callback C_Callback
cb'' IO (FunPtr C_Callback)
-> (FunPtr C_Callback -> IO (GClosure C_Callback))
-> IO (GClosure C_Callback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_Callback -> IO (GClosure C_Callback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_Callback ::
Maybe (Ptr (FunPtr C_Callback)) ->
Callback_WithClosures ->
C_Callback
wrap_Callback :: Maybe (Ptr (FunPtr C_Callback))
-> Callback_WithClosures -> C_Callback
wrap_Callback funptrptr :: Maybe (Ptr (FunPtr C_Callback))
funptrptr _cb :: Callback_WithClosures
_cb widget :: Ptr Widget
widget data_ :: Ptr ()
data_ = do
Widget
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
Callback_WithClosures
_cb Widget
widget' Ptr ()
data_
Maybe (Ptr (FunPtr C_Callback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_Callback))
funptrptr
type C_CalendarDetailFunc =
Ptr Gtk.Calendar.Calendar ->
Word32 ->
Word32 ->
Word32 ->
Ptr () ->
IO CString
foreign import ccall "dynamic" __dynamic_C_CalendarDetailFunc :: FunPtr C_CalendarDetailFunc -> C_CalendarDetailFunc
dynamic_CalendarDetailFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Calendar.IsCalendar a) =>
FunPtr C_CalendarDetailFunc
-> a
-> Word32
-> Word32
-> Word32
-> Ptr ()
-> m (Maybe T.Text)
dynamic_CalendarDetailFunc :: FunPtr C_CalendarDetailFunc
-> a -> Word32 -> Word32 -> Word32 -> Ptr () -> m (Maybe Text)
dynamic_CalendarDetailFunc __funPtr :: FunPtr C_CalendarDetailFunc
__funPtr calendar :: a
calendar year :: Word32
year month :: Word32
month day :: Word32
day userData :: Ptr ()
userData = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Calendar
calendar' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
calendar
CString
result <- (FunPtr C_CalendarDetailFunc -> C_CalendarDetailFunc
__dynamic_C_CalendarDetailFunc FunPtr C_CalendarDetailFunc
__funPtr) Ptr Calendar
calendar' Word32
year Word32
month Word32
day Ptr ()
userData
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
calendar
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
foreign import ccall "wrapper"
mk_CalendarDetailFunc :: C_CalendarDetailFunc -> IO (FunPtr C_CalendarDetailFunc)
type CalendarDetailFunc =
Gtk.Calendar.Calendar
-> Word32
-> Word32
-> Word32
-> IO (Maybe T.Text)
noCalendarDetailFunc :: Maybe CalendarDetailFunc
noCalendarDetailFunc :: Maybe CalendarDetailFunc
noCalendarDetailFunc = Maybe CalendarDetailFunc
forall a. Maybe a
Nothing
type CalendarDetailFunc_WithClosures =
Gtk.Calendar.Calendar
-> Word32
-> Word32
-> Word32
-> Ptr ()
-> IO (Maybe T.Text)
noCalendarDetailFunc_WithClosures :: Maybe CalendarDetailFunc_WithClosures
noCalendarDetailFunc_WithClosures :: Maybe CalendarDetailFunc_WithClosures
noCalendarDetailFunc_WithClosures = Maybe CalendarDetailFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_CalendarDetailFunc :: CalendarDetailFunc -> CalendarDetailFunc_WithClosures
drop_closures_CalendarDetailFunc :: CalendarDetailFunc -> CalendarDetailFunc_WithClosures
drop_closures_CalendarDetailFunc _f :: CalendarDetailFunc
_f calendar :: Calendar
calendar year :: Word32
year month :: Word32
month day :: Word32
day _ = CalendarDetailFunc
_f Calendar
calendar Word32
year Word32
month Word32
day
genClosure_CalendarDetailFunc :: MonadIO m => CalendarDetailFunc -> m (GClosure C_CalendarDetailFunc)
genClosure_CalendarDetailFunc :: CalendarDetailFunc -> m (GClosure C_CalendarDetailFunc)
genClosure_CalendarDetailFunc cb :: CalendarDetailFunc
cb = IO (GClosure C_CalendarDetailFunc)
-> m (GClosure C_CalendarDetailFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CalendarDetailFunc)
-> m (GClosure C_CalendarDetailFunc))
-> IO (GClosure C_CalendarDetailFunc)
-> m (GClosure C_CalendarDetailFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: CalendarDetailFunc_WithClosures
cb' = CalendarDetailFunc -> CalendarDetailFunc_WithClosures
drop_closures_CalendarDetailFunc CalendarDetailFunc
cb
let cb'' :: C_CalendarDetailFunc
cb'' = Maybe (Ptr (FunPtr C_CalendarDetailFunc))
-> CalendarDetailFunc_WithClosures -> C_CalendarDetailFunc
wrap_CalendarDetailFunc Maybe (Ptr (FunPtr C_CalendarDetailFunc))
forall a. Maybe a
Nothing CalendarDetailFunc_WithClosures
cb'
C_CalendarDetailFunc -> IO (FunPtr C_CalendarDetailFunc)
mk_CalendarDetailFunc C_CalendarDetailFunc
cb'' IO (FunPtr C_CalendarDetailFunc)
-> (FunPtr C_CalendarDetailFunc
-> IO (GClosure C_CalendarDetailFunc))
-> IO (GClosure C_CalendarDetailFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CalendarDetailFunc -> IO (GClosure C_CalendarDetailFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CalendarDetailFunc ::
Maybe (Ptr (FunPtr C_CalendarDetailFunc)) ->
CalendarDetailFunc_WithClosures ->
C_CalendarDetailFunc
wrap_CalendarDetailFunc :: Maybe (Ptr (FunPtr C_CalendarDetailFunc))
-> CalendarDetailFunc_WithClosures -> C_CalendarDetailFunc
wrap_CalendarDetailFunc funptrptr :: Maybe (Ptr (FunPtr C_CalendarDetailFunc))
funptrptr _cb :: CalendarDetailFunc_WithClosures
_cb calendar :: Ptr Calendar
calendar year :: Word32
year month :: Word32
month day :: Word32
day userData :: Ptr ()
userData = do
Calendar
calendar' <- ((ManagedPtr Calendar -> Calendar) -> Ptr Calendar -> IO Calendar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Calendar -> Calendar
Gtk.Calendar.Calendar) Ptr Calendar
calendar
Maybe Text
result <- CalendarDetailFunc_WithClosures
_cb Calendar
calendar' Word32
year Word32
month Word32
day Ptr ()
userData
Maybe (Ptr (FunPtr C_CalendarDetailFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_CalendarDetailFunc))
funptrptr
CString -> Maybe Text -> (Text -> IO CString) -> IO CString
forall (m :: * -> *) b a.
Monad m =>
b -> Maybe a -> (a -> m b) -> m b
maybeM CString
forall a. Ptr a
nullPtr Maybe Text
result ((Text -> IO CString) -> IO CString)
-> (Text -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \result' :: Text
result' -> do
CString
result'' <- Text -> IO CString
textToCString Text
result'
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
result''
type C_BuilderConnectFunc =
Ptr Gtk.Builder.Builder ->
Ptr GObject.Object.Object ->
CString ->
CString ->
Ptr GObject.Object.Object ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_BuilderConnectFunc :: FunPtr C_BuilderConnectFunc -> C_BuilderConnectFunc
dynamic_BuilderConnectFunc ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Builder.IsBuilder a, GObject.Object.IsObject b, GObject.Object.IsObject c) =>
FunPtr C_BuilderConnectFunc
-> a
-> b
-> T.Text
-> T.Text
-> Maybe (c)
-> [GObject.Flags.ConnectFlags]
-> Ptr ()
-> m ()
dynamic_BuilderConnectFunc :: FunPtr C_BuilderConnectFunc
-> a
-> b
-> Text
-> Text
-> Maybe c
-> [ConnectFlags]
-> Ptr ()
-> m ()
dynamic_BuilderConnectFunc __funPtr :: FunPtr C_BuilderConnectFunc
__funPtr builder :: a
builder object :: b
object signalName :: Text
signalName handlerName :: Text
handlerName connectObject :: Maybe c
connectObject flags :: [ConnectFlags]
flags userData :: Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr Object
object' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
object
CString
signalName' <- Text -> IO CString
textToCString Text
signalName
CString
handlerName' <- Text -> IO CString
textToCString Text
handlerName
Ptr Object
maybeConnectObject <- case Maybe c
connectObject of
Nothing -> Ptr Object -> IO (Ptr Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
forall a. Ptr a
nullPtr
Just jConnectObject :: c
jConnectObject -> do
Ptr Object
jConnectObject' <- c -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jConnectObject
Ptr Object -> IO (Ptr Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
jConnectObject'
let flags' :: CUInt
flags' = [ConnectFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ConnectFlags]
flags
(FunPtr C_BuilderConnectFunc -> C_BuilderConnectFunc
__dynamic_C_BuilderConnectFunc FunPtr C_BuilderConnectFunc
__funPtr) Ptr Builder
builder' Ptr Object
object' CString
signalName' CString
handlerName' Ptr Object
maybeConnectObject CUInt
flags' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
object
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
connectObject c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
signalName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
handlerName'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_BuilderConnectFunc :: C_BuilderConnectFunc -> IO (FunPtr C_BuilderConnectFunc)
type BuilderConnectFunc =
Gtk.Builder.Builder
-> GObject.Object.Object
-> T.Text
-> T.Text
-> Maybe GObject.Object.Object
-> [GObject.Flags.ConnectFlags]
-> IO ()
noBuilderConnectFunc :: Maybe BuilderConnectFunc
noBuilderConnectFunc :: Maybe BuilderConnectFunc
noBuilderConnectFunc = Maybe BuilderConnectFunc
forall a. Maybe a
Nothing
type BuilderConnectFunc_WithClosures =
Gtk.Builder.Builder
-> GObject.Object.Object
-> T.Text
-> T.Text
-> Maybe GObject.Object.Object
-> [GObject.Flags.ConnectFlags]
-> Ptr ()
-> IO ()
noBuilderConnectFunc_WithClosures :: Maybe BuilderConnectFunc_WithClosures
noBuilderConnectFunc_WithClosures :: Maybe BuilderConnectFunc_WithClosures
noBuilderConnectFunc_WithClosures = Maybe BuilderConnectFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_BuilderConnectFunc :: BuilderConnectFunc -> BuilderConnectFunc_WithClosures
drop_closures_BuilderConnectFunc :: BuilderConnectFunc -> BuilderConnectFunc_WithClosures
drop_closures_BuilderConnectFunc _f :: BuilderConnectFunc
_f builder :: Builder
builder object :: Object
object signalName :: Text
signalName handlerName :: Text
handlerName connectObject :: Maybe Object
connectObject flags :: [ConnectFlags]
flags _ = BuilderConnectFunc
_f Builder
builder Object
object Text
signalName Text
handlerName Maybe Object
connectObject [ConnectFlags]
flags
genClosure_BuilderConnectFunc :: MonadIO m => BuilderConnectFunc -> m (GClosure C_BuilderConnectFunc)
genClosure_BuilderConnectFunc :: BuilderConnectFunc -> m (GClosure C_BuilderConnectFunc)
genClosure_BuilderConnectFunc cb :: BuilderConnectFunc
cb = IO (GClosure C_BuilderConnectFunc)
-> m (GClosure C_BuilderConnectFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_BuilderConnectFunc)
-> m (GClosure C_BuilderConnectFunc))
-> IO (GClosure C_BuilderConnectFunc)
-> m (GClosure C_BuilderConnectFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: BuilderConnectFunc_WithClosures
cb' = BuilderConnectFunc -> BuilderConnectFunc_WithClosures
drop_closures_BuilderConnectFunc BuilderConnectFunc
cb
let cb'' :: C_BuilderConnectFunc
cb'' = Maybe (Ptr (FunPtr C_BuilderConnectFunc))
-> BuilderConnectFunc_WithClosures -> C_BuilderConnectFunc
wrap_BuilderConnectFunc Maybe (Ptr (FunPtr C_BuilderConnectFunc))
forall a. Maybe a
Nothing BuilderConnectFunc_WithClosures
cb'
C_BuilderConnectFunc -> IO (FunPtr C_BuilderConnectFunc)
mk_BuilderConnectFunc C_BuilderConnectFunc
cb'' IO (FunPtr C_BuilderConnectFunc)
-> (FunPtr C_BuilderConnectFunc
-> IO (GClosure C_BuilderConnectFunc))
-> IO (GClosure C_BuilderConnectFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_BuilderConnectFunc -> IO (GClosure C_BuilderConnectFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_BuilderConnectFunc ::
Maybe (Ptr (FunPtr C_BuilderConnectFunc)) ->
BuilderConnectFunc_WithClosures ->
C_BuilderConnectFunc
wrap_BuilderConnectFunc :: Maybe (Ptr (FunPtr C_BuilderConnectFunc))
-> BuilderConnectFunc_WithClosures -> C_BuilderConnectFunc
wrap_BuilderConnectFunc funptrptr :: Maybe (Ptr (FunPtr C_BuilderConnectFunc))
funptrptr _cb :: BuilderConnectFunc_WithClosures
_cb builder :: Ptr Builder
builder object :: Ptr Object
object signalName :: CString
signalName handlerName :: CString
handlerName connectObject :: Ptr Object
connectObject flags :: CUInt
flags userData :: Ptr ()
userData = do
Builder
builder' <- ((ManagedPtr Builder -> Builder) -> Ptr Builder -> IO Builder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Builder -> Builder
Gtk.Builder.Builder) Ptr Builder
builder
Object
object' <- ((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
object
Text
signalName' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
signalName
Text
handlerName' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
handlerName
Maybe Object
maybeConnectObject <-
if Ptr Object
connectObject Ptr Object -> Ptr Object -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr Object
forall a. Ptr a
nullPtr
then Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
forall a. Maybe a
Nothing
else do
Object
connectObject' <- ((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
connectObject
Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Object -> IO (Maybe Object))
-> Maybe Object -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ Object -> Maybe Object
forall a. a -> Maybe a
Just Object
connectObject'
let flags' :: [ConnectFlags]
flags' = CUInt -> [ConnectFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
flags
BuilderConnectFunc_WithClosures
_cb Builder
builder' Object
object' Text
signalName' Text
handlerName' Maybe Object
maybeConnectObject [ConnectFlags]
flags' Ptr ()
userData
Maybe (Ptr (FunPtr C_BuilderConnectFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_BuilderConnectFunc))
funptrptr
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 :: FunPtr C_AssistantPageFunc -> Int32 -> Ptr () -> m Int32
dynamic_AssistantPageFunc __funPtr :: FunPtr C_AssistantPageFunc
__funPtr currentPage :: Int32
currentPage data_ :: Ptr ()
data_ = IO Int32 -> m Int32
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
Int32
result <- (FunPtr C_AssistantPageFunc -> C_AssistantPageFunc
__dynamic_C_AssistantPageFunc FunPtr C_AssistantPageFunc
__funPtr) Int32
currentPage Ptr ()
data_
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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 _f :: Int32 -> IO Int32
_f currentPage :: Int32
currentPage _ = Int32 -> IO Int32
_f Int32
currentPage
genClosure_AssistantPageFunc :: MonadIO m => AssistantPageFunc -> m (GClosure C_AssistantPageFunc)
genClosure_AssistantPageFunc :: (Int32 -> IO Int32) -> m (GClosure C_AssistantPageFunc)
genClosure_AssistantPageFunc cb :: Int32 -> IO Int32
cb = IO (GClosure C_AssistantPageFunc)
-> m (GClosure C_AssistantPageFunc)
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 (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 funptrptr :: Maybe (Ptr (FunPtr C_AssistantPageFunc))
funptrptr _cb :: C_AssistantPageFunc
_cb currentPage :: Int32
currentPage data_ :: Ptr ()
data_ = do
Int32
result <- C_AssistantPageFunc
_cb Int32
currentPage Ptr ()
data_
Maybe (Ptr (FunPtr C_AssistantPageFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_AssistantPageFunc))
funptrptr
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
type C_AccelMapForeach =
Ptr () ->
CString ->
Word32 ->
CUInt ->
CInt ->
IO ()
foreign import ccall "dynamic" __dynamic_C_AccelMapForeach :: FunPtr C_AccelMapForeach -> C_AccelMapForeach
dynamic_AccelMapForeach ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_AccelMapForeach
-> Ptr ()
-> T.Text
-> Word32
-> [Gdk.Flags.ModifierType]
-> Bool
-> m ()
dynamic_AccelMapForeach :: FunPtr C_AccelMapForeach
-> Ptr () -> Text -> Word32 -> [ModifierType] -> Bool -> m ()
dynamic_AccelMapForeach __funPtr :: FunPtr C_AccelMapForeach
__funPtr data_ :: Ptr ()
data_ accelPath :: Text
accelPath accelKey :: Word32
accelKey accelMods :: [ModifierType]
accelMods changed :: Bool
changed = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
CString
accelPath' <- Text -> IO CString
textToCString Text
accelPath
let accelMods' :: CUInt
accelMods' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
accelMods
let changed' :: CInt
changed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
changed
(FunPtr C_AccelMapForeach -> C_AccelMapForeach
__dynamic_C_AccelMapForeach FunPtr C_AccelMapForeach
__funPtr) Ptr ()
data_ CString
accelPath' Word32
accelKey CUInt
accelMods' CInt
changed'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
accelPath'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_AccelMapForeach :: C_AccelMapForeach -> IO (FunPtr C_AccelMapForeach)
type AccelMapForeach =
Ptr ()
-> T.Text
-> Word32
-> [Gdk.Flags.ModifierType]
-> Bool
-> IO ()
noAccelMapForeach :: Maybe AccelMapForeach
noAccelMapForeach :: Maybe AccelMapForeach
noAccelMapForeach = Maybe AccelMapForeach
forall a. Maybe a
Nothing
genClosure_AccelMapForeach :: MonadIO m => AccelMapForeach -> m (GClosure C_AccelMapForeach)
genClosure_AccelMapForeach :: AccelMapForeach -> m (GClosure C_AccelMapForeach)
genClosure_AccelMapForeach cb :: AccelMapForeach
cb = IO (GClosure C_AccelMapForeach) -> m (GClosure C_AccelMapForeach)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AccelMapForeach) -> m (GClosure C_AccelMapForeach))
-> IO (GClosure C_AccelMapForeach)
-> m (GClosure C_AccelMapForeach)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AccelMapForeach
cb' = Maybe (Ptr (FunPtr C_AccelMapForeach))
-> AccelMapForeach -> C_AccelMapForeach
wrap_AccelMapForeach Maybe (Ptr (FunPtr C_AccelMapForeach))
forall a. Maybe a
Nothing AccelMapForeach
cb
C_AccelMapForeach -> IO (FunPtr C_AccelMapForeach)
mk_AccelMapForeach C_AccelMapForeach
cb' IO (FunPtr C_AccelMapForeach)
-> (FunPtr C_AccelMapForeach -> IO (GClosure C_AccelMapForeach))
-> IO (GClosure C_AccelMapForeach)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AccelMapForeach -> IO (GClosure C_AccelMapForeach)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AccelMapForeach ::
Maybe (Ptr (FunPtr C_AccelMapForeach)) ->
AccelMapForeach ->
C_AccelMapForeach
wrap_AccelMapForeach :: Maybe (Ptr (FunPtr C_AccelMapForeach))
-> AccelMapForeach -> C_AccelMapForeach
wrap_AccelMapForeach funptrptr :: Maybe (Ptr (FunPtr C_AccelMapForeach))
funptrptr _cb :: AccelMapForeach
_cb data_ :: Ptr ()
data_ accelPath :: CString
accelPath accelKey :: Word32
accelKey accelMods :: CUInt
accelMods changed :: CInt
changed = do
Text
accelPath' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
accelPath
let accelMods' :: [ModifierType]
accelMods' = CUInt -> [ModifierType]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
accelMods
let changed' :: Bool
changed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
changed
AccelMapForeach
_cb Ptr ()
data_ Text
accelPath' Word32
accelKey [ModifierType]
accelMods' Bool
changed'
Maybe (Ptr (FunPtr C_AccelMapForeach)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_AccelMapForeach))
funptrptr
type C_AccelGroupFindFunc =
Ptr Gtk.AccelKey.AccelKey ->
Ptr (GClosure ()) ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_AccelGroupFindFunc :: FunPtr C_AccelGroupFindFunc -> C_AccelGroupFindFunc
dynamic_AccelGroupFindFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_AccelGroupFindFunc
-> Gtk.AccelKey.AccelKey
-> GClosure a
-> Ptr ()
-> m Bool
dynamic_AccelGroupFindFunc :: FunPtr C_AccelGroupFindFunc
-> AccelKey -> GClosure a -> Ptr () -> m Bool
dynamic_AccelGroupFindFunc __funPtr :: FunPtr C_AccelGroupFindFunc
__funPtr key :: AccelKey
key closure :: GClosure a
closure data_ :: Ptr ()
data_ = IO Bool -> m Bool
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
Ptr AccelKey
key' <- AccelKey -> IO (Ptr AccelKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr AccelKey
key
Ptr (GClosure ())
closure' <- GClosure a -> IO (Ptr (GClosure ()))
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr GClosure a
closure
CInt
result <- (FunPtr C_AccelGroupFindFunc -> C_AccelGroupFindFunc
__dynamic_C_AccelGroupFindFunc FunPtr C_AccelGroupFindFunc
__funPtr) Ptr AccelKey
key' Ptr (GClosure ())
closure' Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
AccelKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr AccelKey
key
GClosure a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GClosure a
closure
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_AccelGroupFindFunc :: C_AccelGroupFindFunc -> IO (FunPtr C_AccelGroupFindFunc)
type AccelGroupFindFunc =
Gtk.AccelKey.AccelKey
-> GClosure ()
-> IO Bool
noAccelGroupFindFunc :: Maybe AccelGroupFindFunc
noAccelGroupFindFunc :: Maybe AccelGroupFindFunc
noAccelGroupFindFunc = Maybe AccelGroupFindFunc
forall a. Maybe a
Nothing
type AccelGroupFindFunc_WithClosures =
Gtk.AccelKey.AccelKey
-> GClosure ()
-> Ptr ()
-> IO Bool
noAccelGroupFindFunc_WithClosures :: Maybe AccelGroupFindFunc_WithClosures
noAccelGroupFindFunc_WithClosures :: Maybe AccelGroupFindFunc_WithClosures
noAccelGroupFindFunc_WithClosures = Maybe AccelGroupFindFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_AccelGroupFindFunc :: AccelGroupFindFunc -> AccelGroupFindFunc_WithClosures
drop_closures_AccelGroupFindFunc :: AccelGroupFindFunc -> AccelGroupFindFunc_WithClosures
drop_closures_AccelGroupFindFunc _f :: AccelGroupFindFunc
_f key :: AccelKey
key closure :: GClosure ()
closure _ = AccelGroupFindFunc
_f AccelKey
key GClosure ()
closure
genClosure_AccelGroupFindFunc :: MonadIO m => AccelGroupFindFunc -> m (GClosure C_AccelGroupFindFunc)
genClosure_AccelGroupFindFunc :: AccelGroupFindFunc -> m (GClosure C_AccelGroupFindFunc)
genClosure_AccelGroupFindFunc cb :: AccelGroupFindFunc
cb = IO (GClosure C_AccelGroupFindFunc)
-> m (GClosure C_AccelGroupFindFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AccelGroupFindFunc)
-> m (GClosure C_AccelGroupFindFunc))
-> IO (GClosure C_AccelGroupFindFunc)
-> m (GClosure C_AccelGroupFindFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: AccelGroupFindFunc_WithClosures
cb' = AccelGroupFindFunc -> AccelGroupFindFunc_WithClosures
drop_closures_AccelGroupFindFunc AccelGroupFindFunc
cb
let cb'' :: C_AccelGroupFindFunc
cb'' = Maybe (Ptr (FunPtr C_AccelGroupFindFunc))
-> AccelGroupFindFunc_WithClosures -> C_AccelGroupFindFunc
wrap_AccelGroupFindFunc Maybe (Ptr (FunPtr C_AccelGroupFindFunc))
forall a. Maybe a
Nothing AccelGroupFindFunc_WithClosures
cb'
C_AccelGroupFindFunc -> IO (FunPtr C_AccelGroupFindFunc)
mk_AccelGroupFindFunc C_AccelGroupFindFunc
cb'' IO (FunPtr C_AccelGroupFindFunc)
-> (FunPtr C_AccelGroupFindFunc
-> IO (GClosure C_AccelGroupFindFunc))
-> IO (GClosure C_AccelGroupFindFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AccelGroupFindFunc -> IO (GClosure C_AccelGroupFindFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AccelGroupFindFunc ::
Maybe (Ptr (FunPtr C_AccelGroupFindFunc)) ->
AccelGroupFindFunc_WithClosures ->
C_AccelGroupFindFunc
wrap_AccelGroupFindFunc :: Maybe (Ptr (FunPtr C_AccelGroupFindFunc))
-> AccelGroupFindFunc_WithClosures -> C_AccelGroupFindFunc
wrap_AccelGroupFindFunc funptrptr :: Maybe (Ptr (FunPtr C_AccelGroupFindFunc))
funptrptr _cb :: AccelGroupFindFunc_WithClosures
_cb key :: Ptr AccelKey
key closure :: Ptr (GClosure ())
closure data_ :: Ptr ()
data_ = do
AccelKey
key' <- ((ManagedPtr AccelKey -> AccelKey) -> Ptr AccelKey -> IO AccelKey
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr AccelKey -> AccelKey
Gtk.AccelKey.AccelKey) Ptr AccelKey
key
GClosure ()
closure' <- (Ptr (GClosure ()) -> IO (GClosure ())
forall a. Ptr (GClosure a) -> IO (GClosure a)
B.GClosure.newGClosureFromPtr (Ptr (GClosure ()) -> IO (GClosure ()))
-> (Ptr (GClosure ()) -> Ptr (GClosure ()))
-> Ptr (GClosure ())
-> IO (GClosure ())
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Ptr (GClosure ()) -> Ptr (GClosure ())
forall a b. Ptr a -> Ptr b
FP.castPtr) Ptr (GClosure ())
closure
Bool
result <- AccelGroupFindFunc_WithClosures
_cb AccelKey
key' GClosure ()
closure' Ptr ()
data_
Maybe (Ptr (FunPtr C_AccelGroupFindFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_AccelGroupFindFunc))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_AccelGroupActivate =
Ptr Gtk.AccelGroup.AccelGroup ->
Ptr GObject.Object.Object ->
Word32 ->
CUInt ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_AccelGroupActivate :: FunPtr C_AccelGroupActivate -> C_AccelGroupActivate
dynamic_AccelGroupActivate ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.AccelGroup.IsAccelGroup a, GObject.Object.IsObject b) =>
FunPtr C_AccelGroupActivate
-> a
-> b
-> Word32
-> [Gdk.Flags.ModifierType]
-> m Bool
dynamic_AccelGroupActivate :: FunPtr C_AccelGroupActivate
-> a -> b -> Word32 -> [ModifierType] -> m Bool
dynamic_AccelGroupActivate __funPtr :: FunPtr C_AccelGroupActivate
__funPtr accelGroup :: a
accelGroup acceleratable :: b
acceleratable keyval :: Word32
keyval modifier :: [ModifierType]
modifier = IO Bool -> m Bool
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
Ptr AccelGroup
accelGroup' <- a -> IO (Ptr AccelGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accelGroup
Ptr Object
acceleratable' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
acceleratable
let modifier' :: CUInt
modifier' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
modifier
CInt
result <- (FunPtr C_AccelGroupActivate -> C_AccelGroupActivate
__dynamic_C_AccelGroupActivate FunPtr C_AccelGroupActivate
__funPtr) Ptr AccelGroup
accelGroup' Ptr Object
acceleratable' Word32
keyval CUInt
modifier'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
accelGroup
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
acceleratable
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_AccelGroupActivate :: C_AccelGroupActivate -> IO (FunPtr C_AccelGroupActivate)
type AccelGroupActivate =
Gtk.AccelGroup.AccelGroup
-> GObject.Object.Object
-> Word32
-> [Gdk.Flags.ModifierType]
-> IO Bool
noAccelGroupActivate :: Maybe AccelGroupActivate
noAccelGroupActivate :: Maybe AccelGroupActivate
noAccelGroupActivate = Maybe AccelGroupActivate
forall a. Maybe a
Nothing
genClosure_AccelGroupActivate :: MonadIO m => AccelGroupActivate -> m (GClosure C_AccelGroupActivate)
genClosure_AccelGroupActivate :: AccelGroupActivate -> m (GClosure C_AccelGroupActivate)
genClosure_AccelGroupActivate cb :: AccelGroupActivate
cb = IO (GClosure C_AccelGroupActivate)
-> m (GClosure C_AccelGroupActivate)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AccelGroupActivate)
-> m (GClosure C_AccelGroupActivate))
-> IO (GClosure C_AccelGroupActivate)
-> m (GClosure C_AccelGroupActivate)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AccelGroupActivate
cb' = Maybe (Ptr (FunPtr C_AccelGroupActivate))
-> AccelGroupActivate -> C_AccelGroupActivate
wrap_AccelGroupActivate Maybe (Ptr (FunPtr C_AccelGroupActivate))
forall a. Maybe a
Nothing AccelGroupActivate
cb
C_AccelGroupActivate -> IO (FunPtr C_AccelGroupActivate)
mk_AccelGroupActivate C_AccelGroupActivate
cb' IO (FunPtr C_AccelGroupActivate)
-> (FunPtr C_AccelGroupActivate
-> IO (GClosure C_AccelGroupActivate))
-> IO (GClosure C_AccelGroupActivate)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AccelGroupActivate -> IO (GClosure C_AccelGroupActivate)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AccelGroupActivate ::
Maybe (Ptr (FunPtr C_AccelGroupActivate)) ->
AccelGroupActivate ->
C_AccelGroupActivate
wrap_AccelGroupActivate :: Maybe (Ptr (FunPtr C_AccelGroupActivate))
-> AccelGroupActivate -> C_AccelGroupActivate
wrap_AccelGroupActivate funptrptr :: Maybe (Ptr (FunPtr C_AccelGroupActivate))
funptrptr _cb :: AccelGroupActivate
_cb accelGroup :: Ptr AccelGroup
accelGroup acceleratable :: Ptr Object
acceleratable keyval :: Word32
keyval modifier :: CUInt
modifier = do
AccelGroup
accelGroup' <- ((ManagedPtr AccelGroup -> AccelGroup)
-> Ptr AccelGroup -> IO AccelGroup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AccelGroup -> AccelGroup
Gtk.AccelGroup.AccelGroup) Ptr AccelGroup
accelGroup
Object
acceleratable' <- ((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
acceleratable
let modifier' :: [ModifierType]
modifier' = CUInt -> [ModifierType]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
modifier
Bool
result <- AccelGroupActivate
_cb AccelGroup
accelGroup' Object
acceleratable' Word32
keyval [ModifierType]
modifier'
Maybe (Ptr (FunPtr C_AccelGroupActivate)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_AccelGroupActivate))
funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'