{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Widget
(
Widget(..) ,
IsWidget ,
toWidget ,
#if defined(ENABLE_OVERLOADING)
ResolveWidgetMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetActionSetEnabledMethodInfo ,
#endif
widgetActionSetEnabled ,
#if defined(ENABLE_OVERLOADING)
WidgetActivateMethodInfo ,
#endif
widgetActivate ,
#if defined(ENABLE_OVERLOADING)
WidgetActivateActionMethodInfo ,
#endif
widgetActivateAction ,
#if defined(ENABLE_OVERLOADING)
WidgetActivateDefaultMethodInfo ,
#endif
widgetActivateDefault ,
#if defined(ENABLE_OVERLOADING)
WidgetAddControllerMethodInfo ,
#endif
widgetAddController ,
#if defined(ENABLE_OVERLOADING)
WidgetAddCssClassMethodInfo ,
#endif
widgetAddCssClass ,
#if defined(ENABLE_OVERLOADING)
WidgetAddMnemonicLabelMethodInfo ,
#endif
widgetAddMnemonicLabel ,
#if defined(ENABLE_OVERLOADING)
WidgetAddTickCallbackMethodInfo ,
#endif
widgetAddTickCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetAllocateMethodInfo ,
#endif
widgetAllocate ,
#if defined(ENABLE_OVERLOADING)
WidgetChildFocusMethodInfo ,
#endif
widgetChildFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetComputeBoundsMethodInfo ,
#endif
widgetComputeBounds ,
#if defined(ENABLE_OVERLOADING)
WidgetComputeExpandMethodInfo ,
#endif
widgetComputeExpand ,
#if defined(ENABLE_OVERLOADING)
WidgetComputePointMethodInfo ,
#endif
widgetComputePoint ,
#if defined(ENABLE_OVERLOADING)
WidgetComputeTransformMethodInfo ,
#endif
widgetComputeTransform ,
#if defined(ENABLE_OVERLOADING)
WidgetContainsMethodInfo ,
#endif
widgetContains ,
#if defined(ENABLE_OVERLOADING)
WidgetCreatePangoContextMethodInfo ,
#endif
widgetCreatePangoContext ,
#if defined(ENABLE_OVERLOADING)
WidgetCreatePangoLayoutMethodInfo ,
#endif
widgetCreatePangoLayout ,
#if defined(ENABLE_OVERLOADING)
WidgetDragCheckThresholdMethodInfo ,
#endif
widgetDragCheckThreshold ,
#if defined(ENABLE_OVERLOADING)
WidgetErrorBellMethodInfo ,
#endif
widgetErrorBell ,
#if defined(ENABLE_OVERLOADING)
WidgetGetAllocatedBaselineMethodInfo ,
#endif
widgetGetAllocatedBaseline ,
#if defined(ENABLE_OVERLOADING)
WidgetGetAllocatedHeightMethodInfo ,
#endif
widgetGetAllocatedHeight ,
#if defined(ENABLE_OVERLOADING)
WidgetGetAllocatedWidthMethodInfo ,
#endif
widgetGetAllocatedWidth ,
#if defined(ENABLE_OVERLOADING)
WidgetGetAllocationMethodInfo ,
#endif
widgetGetAllocation ,
#if defined(ENABLE_OVERLOADING)
WidgetGetAncestorMethodInfo ,
#endif
widgetGetAncestor ,
#if defined(ENABLE_OVERLOADING)
WidgetGetCanFocusMethodInfo ,
#endif
widgetGetCanFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetGetCanTargetMethodInfo ,
#endif
widgetGetCanTarget ,
#if defined(ENABLE_OVERLOADING)
WidgetGetChildVisibleMethodInfo ,
#endif
widgetGetChildVisible ,
#if defined(ENABLE_OVERLOADING)
WidgetGetClipboardMethodInfo ,
#endif
widgetGetClipboard ,
#if defined(ENABLE_OVERLOADING)
WidgetGetCssClassesMethodInfo ,
#endif
widgetGetCssClasses ,
#if defined(ENABLE_OVERLOADING)
WidgetGetCssNameMethodInfo ,
#endif
widgetGetCssName ,
#if defined(ENABLE_OVERLOADING)
WidgetGetCursorMethodInfo ,
#endif
widgetGetCursor ,
widgetGetDefaultDirection ,
#if defined(ENABLE_OVERLOADING)
WidgetGetDirectionMethodInfo ,
#endif
widgetGetDirection ,
#if defined(ENABLE_OVERLOADING)
WidgetGetDisplayMethodInfo ,
#endif
widgetGetDisplay ,
#if defined(ENABLE_OVERLOADING)
WidgetGetFirstChildMethodInfo ,
#endif
widgetGetFirstChild ,
#if defined(ENABLE_OVERLOADING)
WidgetGetFocusChildMethodInfo ,
#endif
widgetGetFocusChild ,
#if defined(ENABLE_OVERLOADING)
WidgetGetFocusOnClickMethodInfo ,
#endif
widgetGetFocusOnClick ,
#if defined(ENABLE_OVERLOADING)
WidgetGetFocusableMethodInfo ,
#endif
widgetGetFocusable ,
#if defined(ENABLE_OVERLOADING)
WidgetGetFontMapMethodInfo ,
#endif
widgetGetFontMap ,
#if defined(ENABLE_OVERLOADING)
WidgetGetFontOptionsMethodInfo ,
#endif
widgetGetFontOptions ,
#if defined(ENABLE_OVERLOADING)
WidgetGetFrameClockMethodInfo ,
#endif
widgetGetFrameClock ,
#if defined(ENABLE_OVERLOADING)
WidgetGetHalignMethodInfo ,
#endif
widgetGetHalign ,
#if defined(ENABLE_OVERLOADING)
WidgetGetHasTooltipMethodInfo ,
#endif
widgetGetHasTooltip ,
#if defined(ENABLE_OVERLOADING)
WidgetGetHeightMethodInfo ,
#endif
widgetGetHeight ,
#if defined(ENABLE_OVERLOADING)
WidgetGetHexpandMethodInfo ,
#endif
widgetGetHexpand ,
#if defined(ENABLE_OVERLOADING)
WidgetGetHexpandSetMethodInfo ,
#endif
widgetGetHexpandSet ,
#if defined(ENABLE_OVERLOADING)
WidgetGetLastChildMethodInfo ,
#endif
widgetGetLastChild ,
#if defined(ENABLE_OVERLOADING)
WidgetGetLayoutManagerMethodInfo ,
#endif
widgetGetLayoutManager ,
#if defined(ENABLE_OVERLOADING)
WidgetGetMappedMethodInfo ,
#endif
widgetGetMapped ,
#if defined(ENABLE_OVERLOADING)
WidgetGetMarginBottomMethodInfo ,
#endif
widgetGetMarginBottom ,
#if defined(ENABLE_OVERLOADING)
WidgetGetMarginEndMethodInfo ,
#endif
widgetGetMarginEnd ,
#if defined(ENABLE_OVERLOADING)
WidgetGetMarginStartMethodInfo ,
#endif
widgetGetMarginStart ,
#if defined(ENABLE_OVERLOADING)
WidgetGetMarginTopMethodInfo ,
#endif
widgetGetMarginTop ,
#if defined(ENABLE_OVERLOADING)
WidgetGetNameMethodInfo ,
#endif
widgetGetName ,
#if defined(ENABLE_OVERLOADING)
WidgetGetNativeMethodInfo ,
#endif
widgetGetNative ,
#if defined(ENABLE_OVERLOADING)
WidgetGetNextSiblingMethodInfo ,
#endif
widgetGetNextSibling ,
#if defined(ENABLE_OVERLOADING)
WidgetGetOpacityMethodInfo ,
#endif
widgetGetOpacity ,
#if defined(ENABLE_OVERLOADING)
WidgetGetOverflowMethodInfo ,
#endif
widgetGetOverflow ,
#if defined(ENABLE_OVERLOADING)
WidgetGetPangoContextMethodInfo ,
#endif
widgetGetPangoContext ,
#if defined(ENABLE_OVERLOADING)
WidgetGetParentMethodInfo ,
#endif
widgetGetParent ,
#if defined(ENABLE_OVERLOADING)
WidgetGetPreferredSizeMethodInfo ,
#endif
widgetGetPreferredSize ,
#if defined(ENABLE_OVERLOADING)
WidgetGetPrevSiblingMethodInfo ,
#endif
widgetGetPrevSibling ,
#if defined(ENABLE_OVERLOADING)
WidgetGetPrimaryClipboardMethodInfo ,
#endif
widgetGetPrimaryClipboard ,
#if defined(ENABLE_OVERLOADING)
WidgetGetRealizedMethodInfo ,
#endif
widgetGetRealized ,
#if defined(ENABLE_OVERLOADING)
WidgetGetReceivesDefaultMethodInfo ,
#endif
widgetGetReceivesDefault ,
#if defined(ENABLE_OVERLOADING)
WidgetGetRequestModeMethodInfo ,
#endif
widgetGetRequestMode ,
#if defined(ENABLE_OVERLOADING)
WidgetGetRootMethodInfo ,
#endif
widgetGetRoot ,
#if defined(ENABLE_OVERLOADING)
WidgetGetScaleFactorMethodInfo ,
#endif
widgetGetScaleFactor ,
#if defined(ENABLE_OVERLOADING)
WidgetGetSensitiveMethodInfo ,
#endif
widgetGetSensitive ,
#if defined(ENABLE_OVERLOADING)
WidgetGetSettingsMethodInfo ,
#endif
widgetGetSettings ,
#if defined(ENABLE_OVERLOADING)
WidgetGetSizeMethodInfo ,
#endif
widgetGetSize ,
#if defined(ENABLE_OVERLOADING)
WidgetGetSizeRequestMethodInfo ,
#endif
widgetGetSizeRequest ,
#if defined(ENABLE_OVERLOADING)
WidgetGetStateFlagsMethodInfo ,
#endif
widgetGetStateFlags ,
#if defined(ENABLE_OVERLOADING)
WidgetGetStyleContextMethodInfo ,
#endif
widgetGetStyleContext ,
#if defined(ENABLE_OVERLOADING)
WidgetGetTemplateChildMethodInfo ,
#endif
widgetGetTemplateChild ,
#if defined(ENABLE_OVERLOADING)
WidgetGetTooltipMarkupMethodInfo ,
#endif
widgetGetTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
WidgetGetTooltipTextMethodInfo ,
#endif
widgetGetTooltipText ,
#if defined(ENABLE_OVERLOADING)
WidgetGetValignMethodInfo ,
#endif
widgetGetValign ,
#if defined(ENABLE_OVERLOADING)
WidgetGetVexpandMethodInfo ,
#endif
widgetGetVexpand ,
#if defined(ENABLE_OVERLOADING)
WidgetGetVexpandSetMethodInfo ,
#endif
widgetGetVexpandSet ,
#if defined(ENABLE_OVERLOADING)
WidgetGetVisibleMethodInfo ,
#endif
widgetGetVisible ,
#if defined(ENABLE_OVERLOADING)
WidgetGetWidthMethodInfo ,
#endif
widgetGetWidth ,
#if defined(ENABLE_OVERLOADING)
WidgetGrabFocusMethodInfo ,
#endif
widgetGrabFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetHasCssClassMethodInfo ,
#endif
widgetHasCssClass ,
#if defined(ENABLE_OVERLOADING)
WidgetHasDefaultMethodInfo ,
#endif
widgetHasDefault ,
#if defined(ENABLE_OVERLOADING)
WidgetHasFocusMethodInfo ,
#endif
widgetHasFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetHasVisibleFocusMethodInfo ,
#endif
widgetHasVisibleFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetHideMethodInfo ,
#endif
widgetHide ,
#if defined(ENABLE_OVERLOADING)
WidgetInDestructionMethodInfo ,
#endif
widgetInDestruction ,
#if defined(ENABLE_OVERLOADING)
WidgetInitTemplateMethodInfo ,
#endif
widgetInitTemplate ,
#if defined(ENABLE_OVERLOADING)
WidgetInsertActionGroupMethodInfo ,
#endif
widgetInsertActionGroup ,
#if defined(ENABLE_OVERLOADING)
WidgetInsertAfterMethodInfo ,
#endif
widgetInsertAfter ,
#if defined(ENABLE_OVERLOADING)
WidgetInsertBeforeMethodInfo ,
#endif
widgetInsertBefore ,
#if defined(ENABLE_OVERLOADING)
WidgetIsAncestorMethodInfo ,
#endif
widgetIsAncestor ,
#if defined(ENABLE_OVERLOADING)
WidgetIsDrawableMethodInfo ,
#endif
widgetIsDrawable ,
#if defined(ENABLE_OVERLOADING)
WidgetIsFocusMethodInfo ,
#endif
widgetIsFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetIsSensitiveMethodInfo ,
#endif
widgetIsSensitive ,
#if defined(ENABLE_OVERLOADING)
WidgetIsVisibleMethodInfo ,
#endif
widgetIsVisible ,
#if defined(ENABLE_OVERLOADING)
WidgetKeynavFailedMethodInfo ,
#endif
widgetKeynavFailed ,
#if defined(ENABLE_OVERLOADING)
WidgetListMnemonicLabelsMethodInfo ,
#endif
widgetListMnemonicLabels ,
#if defined(ENABLE_OVERLOADING)
WidgetMapMethodInfo ,
#endif
widgetMap ,
#if defined(ENABLE_OVERLOADING)
WidgetMeasureMethodInfo ,
#endif
widgetMeasure ,
#if defined(ENABLE_OVERLOADING)
WidgetMnemonicActivateMethodInfo ,
#endif
widgetMnemonicActivate ,
#if defined(ENABLE_OVERLOADING)
WidgetObserveChildrenMethodInfo ,
#endif
widgetObserveChildren ,
#if defined(ENABLE_OVERLOADING)
WidgetObserveControllersMethodInfo ,
#endif
widgetObserveControllers ,
#if defined(ENABLE_OVERLOADING)
WidgetPickMethodInfo ,
#endif
widgetPick ,
#if defined(ENABLE_OVERLOADING)
WidgetQueueAllocateMethodInfo ,
#endif
widgetQueueAllocate ,
#if defined(ENABLE_OVERLOADING)
WidgetQueueDrawMethodInfo ,
#endif
widgetQueueDraw ,
#if defined(ENABLE_OVERLOADING)
WidgetQueueResizeMethodInfo ,
#endif
widgetQueueResize ,
#if defined(ENABLE_OVERLOADING)
WidgetRealizeMethodInfo ,
#endif
widgetRealize ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveControllerMethodInfo ,
#endif
widgetRemoveController ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveCssClassMethodInfo ,
#endif
widgetRemoveCssClass ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveMnemonicLabelMethodInfo ,
#endif
widgetRemoveMnemonicLabel ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveTickCallbackMethodInfo ,
#endif
widgetRemoveTickCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetSetCanFocusMethodInfo ,
#endif
widgetSetCanFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetSetCanTargetMethodInfo ,
#endif
widgetSetCanTarget ,
#if defined(ENABLE_OVERLOADING)
WidgetSetChildVisibleMethodInfo ,
#endif
widgetSetChildVisible ,
#if defined(ENABLE_OVERLOADING)
WidgetSetCssClassesMethodInfo ,
#endif
widgetSetCssClasses ,
#if defined(ENABLE_OVERLOADING)
WidgetSetCursorMethodInfo ,
#endif
widgetSetCursor ,
#if defined(ENABLE_OVERLOADING)
WidgetSetCursorFromNameMethodInfo ,
#endif
widgetSetCursorFromName ,
widgetSetDefaultDirection ,
#if defined(ENABLE_OVERLOADING)
WidgetSetDirectionMethodInfo ,
#endif
widgetSetDirection ,
#if defined(ENABLE_OVERLOADING)
WidgetSetFocusChildMethodInfo ,
#endif
widgetSetFocusChild ,
#if defined(ENABLE_OVERLOADING)
WidgetSetFocusOnClickMethodInfo ,
#endif
widgetSetFocusOnClick ,
#if defined(ENABLE_OVERLOADING)
WidgetSetFocusableMethodInfo ,
#endif
widgetSetFocusable ,
#if defined(ENABLE_OVERLOADING)
WidgetSetFontMapMethodInfo ,
#endif
widgetSetFontMap ,
#if defined(ENABLE_OVERLOADING)
WidgetSetFontOptionsMethodInfo ,
#endif
widgetSetFontOptions ,
#if defined(ENABLE_OVERLOADING)
WidgetSetHalignMethodInfo ,
#endif
widgetSetHalign ,
#if defined(ENABLE_OVERLOADING)
WidgetSetHasTooltipMethodInfo ,
#endif
widgetSetHasTooltip ,
#if defined(ENABLE_OVERLOADING)
WidgetSetHexpandMethodInfo ,
#endif
widgetSetHexpand ,
#if defined(ENABLE_OVERLOADING)
WidgetSetHexpandSetMethodInfo ,
#endif
widgetSetHexpandSet ,
#if defined(ENABLE_OVERLOADING)
WidgetSetLayoutManagerMethodInfo ,
#endif
widgetSetLayoutManager ,
#if defined(ENABLE_OVERLOADING)
WidgetSetMarginBottomMethodInfo ,
#endif
widgetSetMarginBottom ,
#if defined(ENABLE_OVERLOADING)
WidgetSetMarginEndMethodInfo ,
#endif
widgetSetMarginEnd ,
#if defined(ENABLE_OVERLOADING)
WidgetSetMarginStartMethodInfo ,
#endif
widgetSetMarginStart ,
#if defined(ENABLE_OVERLOADING)
WidgetSetMarginTopMethodInfo ,
#endif
widgetSetMarginTop ,
#if defined(ENABLE_OVERLOADING)
WidgetSetNameMethodInfo ,
#endif
widgetSetName ,
#if defined(ENABLE_OVERLOADING)
WidgetSetOpacityMethodInfo ,
#endif
widgetSetOpacity ,
#if defined(ENABLE_OVERLOADING)
WidgetSetOverflowMethodInfo ,
#endif
widgetSetOverflow ,
#if defined(ENABLE_OVERLOADING)
WidgetSetParentMethodInfo ,
#endif
widgetSetParent ,
#if defined(ENABLE_OVERLOADING)
WidgetSetReceivesDefaultMethodInfo ,
#endif
widgetSetReceivesDefault ,
#if defined(ENABLE_OVERLOADING)
WidgetSetSensitiveMethodInfo ,
#endif
widgetSetSensitive ,
#if defined(ENABLE_OVERLOADING)
WidgetSetSizeRequestMethodInfo ,
#endif
widgetSetSizeRequest ,
#if defined(ENABLE_OVERLOADING)
WidgetSetStateFlagsMethodInfo ,
#endif
widgetSetStateFlags ,
#if defined(ENABLE_OVERLOADING)
WidgetSetTooltipMarkupMethodInfo ,
#endif
widgetSetTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
WidgetSetTooltipTextMethodInfo ,
#endif
widgetSetTooltipText ,
#if defined(ENABLE_OVERLOADING)
WidgetSetValignMethodInfo ,
#endif
widgetSetValign ,
#if defined(ENABLE_OVERLOADING)
WidgetSetVexpandMethodInfo ,
#endif
widgetSetVexpand ,
#if defined(ENABLE_OVERLOADING)
WidgetSetVexpandSetMethodInfo ,
#endif
widgetSetVexpandSet ,
#if defined(ENABLE_OVERLOADING)
WidgetSetVisibleMethodInfo ,
#endif
widgetSetVisible ,
#if defined(ENABLE_OVERLOADING)
WidgetShouldLayoutMethodInfo ,
#endif
widgetShouldLayout ,
#if defined(ENABLE_OVERLOADING)
WidgetShowMethodInfo ,
#endif
widgetShow ,
#if defined(ENABLE_OVERLOADING)
WidgetSizeAllocateMethodInfo ,
#endif
widgetSizeAllocate ,
#if defined(ENABLE_OVERLOADING)
WidgetSnapshotChildMethodInfo ,
#endif
widgetSnapshotChild ,
#if defined(ENABLE_OVERLOADING)
WidgetTranslateCoordinatesMethodInfo ,
#endif
widgetTranslateCoordinates ,
#if defined(ENABLE_OVERLOADING)
WidgetTriggerTooltipQueryMethodInfo ,
#endif
widgetTriggerTooltipQuery ,
#if defined(ENABLE_OVERLOADING)
WidgetUnmapMethodInfo ,
#endif
widgetUnmap ,
#if defined(ENABLE_OVERLOADING)
WidgetUnparentMethodInfo ,
#endif
widgetUnparent ,
#if defined(ENABLE_OVERLOADING)
WidgetUnrealizeMethodInfo ,
#endif
widgetUnrealize ,
#if defined(ENABLE_OVERLOADING)
WidgetUnsetStateFlagsMethodInfo ,
#endif
widgetUnsetStateFlags ,
#if defined(ENABLE_OVERLOADING)
WidgetCanFocusPropertyInfo ,
#endif
constructWidgetCanFocus ,
getWidgetCanFocus ,
setWidgetCanFocus ,
#if defined(ENABLE_OVERLOADING)
widgetCanFocus ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetCanTargetPropertyInfo ,
#endif
constructWidgetCanTarget ,
getWidgetCanTarget ,
setWidgetCanTarget ,
#if defined(ENABLE_OVERLOADING)
widgetCanTarget ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetCssClassesPropertyInfo ,
#endif
constructWidgetCssClasses ,
getWidgetCssClasses ,
setWidgetCssClasses ,
#if defined(ENABLE_OVERLOADING)
widgetCssClasses ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetCssNamePropertyInfo ,
#endif
constructWidgetCssName ,
getWidgetCssName ,
#if defined(ENABLE_OVERLOADING)
widgetCssName ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetCursorPropertyInfo ,
#endif
clearWidgetCursor ,
constructWidgetCursor ,
getWidgetCursor ,
setWidgetCursor ,
#if defined(ENABLE_OVERLOADING)
widgetCursor ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetFocusOnClickPropertyInfo ,
#endif
constructWidgetFocusOnClick ,
getWidgetFocusOnClick ,
setWidgetFocusOnClick ,
#if defined(ENABLE_OVERLOADING)
widgetFocusOnClick ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetFocusablePropertyInfo ,
#endif
constructWidgetFocusable ,
getWidgetFocusable ,
setWidgetFocusable ,
#if defined(ENABLE_OVERLOADING)
widgetFocusable ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetHalignPropertyInfo ,
#endif
constructWidgetHalign ,
getWidgetHalign ,
setWidgetHalign ,
#if defined(ENABLE_OVERLOADING)
widgetHalign ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetHasDefaultPropertyInfo ,
#endif
getWidgetHasDefault ,
#if defined(ENABLE_OVERLOADING)
WidgetHasFocusPropertyInfo ,
#endif
getWidgetHasFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetHasTooltipPropertyInfo ,
#endif
constructWidgetHasTooltip ,
getWidgetHasTooltip ,
setWidgetHasTooltip ,
#if defined(ENABLE_OVERLOADING)
widgetHasTooltip ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetHeightRequestPropertyInfo ,
#endif
constructWidgetHeightRequest ,
getWidgetHeightRequest ,
setWidgetHeightRequest ,
#if defined(ENABLE_OVERLOADING)
widgetHeightRequest ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetHexpandPropertyInfo ,
#endif
constructWidgetHexpand ,
getWidgetHexpand ,
setWidgetHexpand ,
#if defined(ENABLE_OVERLOADING)
widgetHexpand ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetHexpandSetPropertyInfo ,
#endif
constructWidgetHexpandSet ,
getWidgetHexpandSet ,
setWidgetHexpandSet ,
#if defined(ENABLE_OVERLOADING)
widgetHexpandSet ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetLayoutManagerPropertyInfo ,
#endif
clearWidgetLayoutManager ,
constructWidgetLayoutManager ,
getWidgetLayoutManager ,
setWidgetLayoutManager ,
#if defined(ENABLE_OVERLOADING)
widgetLayoutManager ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetMarginBottomPropertyInfo ,
#endif
constructWidgetMarginBottom ,
getWidgetMarginBottom ,
setWidgetMarginBottom ,
#if defined(ENABLE_OVERLOADING)
widgetMarginBottom ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetMarginEndPropertyInfo ,
#endif
constructWidgetMarginEnd ,
getWidgetMarginEnd ,
setWidgetMarginEnd ,
#if defined(ENABLE_OVERLOADING)
widgetMarginEnd ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetMarginStartPropertyInfo ,
#endif
constructWidgetMarginStart ,
getWidgetMarginStart ,
setWidgetMarginStart ,
#if defined(ENABLE_OVERLOADING)
widgetMarginStart ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetMarginTopPropertyInfo ,
#endif
constructWidgetMarginTop ,
getWidgetMarginTop ,
setWidgetMarginTop ,
#if defined(ENABLE_OVERLOADING)
widgetMarginTop ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetNamePropertyInfo ,
#endif
constructWidgetName ,
getWidgetName ,
setWidgetName ,
#if defined(ENABLE_OVERLOADING)
widgetName ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetOpacityPropertyInfo ,
#endif
constructWidgetOpacity ,
getWidgetOpacity ,
setWidgetOpacity ,
#if defined(ENABLE_OVERLOADING)
widgetOpacity ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetOverflowPropertyInfo ,
#endif
constructWidgetOverflow ,
getWidgetOverflow ,
setWidgetOverflow ,
#if defined(ENABLE_OVERLOADING)
widgetOverflow ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetParentPropertyInfo ,
#endif
getWidgetParent ,
#if defined(ENABLE_OVERLOADING)
widgetParent ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetReceivesDefaultPropertyInfo ,
#endif
constructWidgetReceivesDefault ,
getWidgetReceivesDefault ,
setWidgetReceivesDefault ,
#if defined(ENABLE_OVERLOADING)
widgetReceivesDefault ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetRootPropertyInfo ,
#endif
getWidgetRoot ,
#if defined(ENABLE_OVERLOADING)
widgetRoot ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetScaleFactorPropertyInfo ,
#endif
getWidgetScaleFactor ,
#if defined(ENABLE_OVERLOADING)
widgetScaleFactor ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetSensitivePropertyInfo ,
#endif
constructWidgetSensitive ,
getWidgetSensitive ,
setWidgetSensitive ,
#if defined(ENABLE_OVERLOADING)
widgetSensitive ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetTooltipMarkupPropertyInfo ,
#endif
clearWidgetTooltipMarkup ,
constructWidgetTooltipMarkup ,
getWidgetTooltipMarkup ,
setWidgetTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
widgetTooltipMarkup ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetTooltipTextPropertyInfo ,
#endif
clearWidgetTooltipText ,
constructWidgetTooltipText ,
getWidgetTooltipText ,
setWidgetTooltipText ,
#if defined(ENABLE_OVERLOADING)
widgetTooltipText ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetValignPropertyInfo ,
#endif
constructWidgetValign ,
getWidgetValign ,
setWidgetValign ,
#if defined(ENABLE_OVERLOADING)
widgetValign ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetVexpandPropertyInfo ,
#endif
constructWidgetVexpand ,
getWidgetVexpand ,
setWidgetVexpand ,
#if defined(ENABLE_OVERLOADING)
widgetVexpand ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetVexpandSetPropertyInfo ,
#endif
constructWidgetVexpandSet ,
getWidgetVexpandSet ,
setWidgetVexpandSet ,
#if defined(ENABLE_OVERLOADING)
widgetVexpandSet ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetVisiblePropertyInfo ,
#endif
constructWidgetVisible ,
getWidgetVisible ,
setWidgetVisible ,
#if defined(ENABLE_OVERLOADING)
widgetVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetWidthRequestPropertyInfo ,
#endif
constructWidgetWidthRequest ,
getWidgetWidthRequest ,
setWidgetWidthRequest ,
#if defined(ENABLE_OVERLOADING)
widgetWidthRequest ,
#endif
C_WidgetDestroyCallback ,
WidgetDestroyCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDestroySignalInfo ,
#endif
afterWidgetDestroy ,
genClosure_WidgetDestroy ,
mk_WidgetDestroyCallback ,
noWidgetDestroyCallback ,
onWidgetDestroy ,
wrap_WidgetDestroyCallback ,
C_WidgetDirectionChangedCallback ,
WidgetDirectionChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDirectionChangedSignalInfo ,
#endif
afterWidgetDirectionChanged ,
genClosure_WidgetDirectionChanged ,
mk_WidgetDirectionChangedCallback ,
noWidgetDirectionChangedCallback ,
onWidgetDirectionChanged ,
wrap_WidgetDirectionChangedCallback ,
C_WidgetHideCallback ,
WidgetHideCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetHideSignalInfo ,
#endif
afterWidgetHide ,
genClosure_WidgetHide ,
mk_WidgetHideCallback ,
noWidgetHideCallback ,
onWidgetHide ,
wrap_WidgetHideCallback ,
C_WidgetKeynavFailedCallback ,
WidgetKeynavFailedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetKeynavFailedSignalInfo ,
#endif
afterWidgetKeynavFailed ,
genClosure_WidgetKeynavFailed ,
mk_WidgetKeynavFailedCallback ,
noWidgetKeynavFailedCallback ,
onWidgetKeynavFailed ,
wrap_WidgetKeynavFailedCallback ,
C_WidgetMapCallback ,
WidgetMapCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetMapSignalInfo ,
#endif
afterWidgetMap ,
genClosure_WidgetMap ,
mk_WidgetMapCallback ,
noWidgetMapCallback ,
onWidgetMap ,
wrap_WidgetMapCallback ,
C_WidgetMnemonicActivateCallback ,
WidgetMnemonicActivateCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetMnemonicActivateSignalInfo ,
#endif
afterWidgetMnemonicActivate ,
genClosure_WidgetMnemonicActivate ,
mk_WidgetMnemonicActivateCallback ,
noWidgetMnemonicActivateCallback ,
onWidgetMnemonicActivate ,
wrap_WidgetMnemonicActivateCallback ,
C_WidgetMoveFocusCallback ,
WidgetMoveFocusCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetMoveFocusSignalInfo ,
#endif
afterWidgetMoveFocus ,
genClosure_WidgetMoveFocus ,
mk_WidgetMoveFocusCallback ,
noWidgetMoveFocusCallback ,
onWidgetMoveFocus ,
wrap_WidgetMoveFocusCallback ,
C_WidgetQueryTooltipCallback ,
WidgetQueryTooltipCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetQueryTooltipSignalInfo ,
#endif
afterWidgetQueryTooltip ,
genClosure_WidgetQueryTooltip ,
mk_WidgetQueryTooltipCallback ,
noWidgetQueryTooltipCallback ,
onWidgetQueryTooltip ,
wrap_WidgetQueryTooltipCallback ,
C_WidgetRealizeCallback ,
WidgetRealizeCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetRealizeSignalInfo ,
#endif
afterWidgetRealize ,
genClosure_WidgetRealize ,
mk_WidgetRealizeCallback ,
noWidgetRealizeCallback ,
onWidgetRealize ,
wrap_WidgetRealizeCallback ,
C_WidgetShowCallback ,
WidgetShowCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetShowSignalInfo ,
#endif
afterWidgetShow ,
genClosure_WidgetShow ,
mk_WidgetShowCallback ,
noWidgetShowCallback ,
onWidgetShow ,
wrap_WidgetShowCallback ,
C_WidgetStateFlagsChangedCallback ,
WidgetStateFlagsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetStateFlagsChangedSignalInfo ,
#endif
afterWidgetStateFlagsChanged ,
genClosure_WidgetStateFlagsChanged ,
mk_WidgetStateFlagsChangedCallback ,
noWidgetStateFlagsChangedCallback ,
onWidgetStateFlagsChanged ,
wrap_WidgetStateFlagsChangedCallback ,
C_WidgetUnmapCallback ,
WidgetUnmapCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetUnmapSignalInfo ,
#endif
afterWidgetUnmap ,
genClosure_WidgetUnmap ,
mk_WidgetUnmapCallback ,
noWidgetUnmapCallback ,
onWidgetUnmap ,
wrap_WidgetUnmapCallback ,
C_WidgetUnrealizeCallback ,
WidgetUnrealizeCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetUnrealizeSignalInfo ,
#endif
afterWidgetUnrealize ,
genClosure_WidgetUnrealize ,
mk_WidgetUnrealizeCallback ,
noWidgetUnrealizeCallback ,
onWidgetUnrealize ,
wrap_WidgetUnrealizeCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.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 GHC.Records as R
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
newtype Widget = Widget (SP.ManagedPtr Widget)
deriving (Widget -> Widget -> Bool
(Widget -> Widget -> Bool)
-> (Widget -> Widget -> Bool) -> Eq Widget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Widget -> Widget -> Bool
$c/= :: Widget -> Widget -> Bool
== :: Widget -> Widget -> Bool
$c== :: Widget -> Widget -> Bool
Eq)
instance SP.ManagedPtrNewtype Widget where
toManagedPtr :: Widget -> ManagedPtr Widget
toManagedPtr (Widget ManagedPtr Widget
p) = ManagedPtr Widget
p
foreign import ccall "gtk_widget_get_type"
c_gtk_widget_get_type :: IO B.Types.GType
instance B.Types.TypedObject Widget where
glibType :: IO GType
glibType = IO GType
c_gtk_widget_get_type
instance B.Types.GObject Widget
class (SP.GObject o, O.IsDescendantOf Widget o) => IsWidget o
instance (SP.GObject o, O.IsDescendantOf Widget o) => IsWidget o
instance O.HasParentTypes Widget
type instance O.ParentTypes Widget = '[GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toWidget :: (MIO.MonadIO m, IsWidget o) => o -> m Widget
toWidget :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Widget
toWidget = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Widget -> m Widget) -> (o -> IO Widget) -> o -> m Widget
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Widget -> Widget) -> o -> IO Widget
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Widget -> Widget
Widget
instance B.GValue.IsGValue (Maybe Widget) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_widget_get_type
gvalueSet_ :: Ptr GValue -> Maybe Widget -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Widget
P.Nothing = Ptr GValue -> Ptr Widget -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Widget
forall a. Ptr a
FP.nullPtr :: FP.Ptr Widget)
gvalueSet_ Ptr GValue
gv (P.Just Widget
obj) = Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Widget
obj (Ptr GValue -> Ptr Widget -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Widget)
gvalueGet_ Ptr GValue
gv = do
Ptr Widget
ptr <- Ptr GValue -> IO (Ptr Widget)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Widget)
if Ptr Widget
ptr Ptr Widget -> Ptr Widget -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Widget
forall a. Ptr a
FP.nullPtr
then Widget -> Maybe Widget
forall a. a -> Maybe a
P.Just (Widget -> Maybe Widget) -> IO Widget -> IO (Maybe Widget)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Widget -> Widget
Widget Ptr Widget
ptr
else Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWidgetMethod (t :: Symbol) (o :: *) :: * where
ResolveWidgetMethod "actionSetEnabled" o = WidgetActionSetEnabledMethodInfo
ResolveWidgetMethod "activate" o = WidgetActivateMethodInfo
ResolveWidgetMethod "activateAction" o = WidgetActivateActionMethodInfo
ResolveWidgetMethod "activateDefault" o = WidgetActivateDefaultMethodInfo
ResolveWidgetMethod "addController" o = WidgetAddControllerMethodInfo
ResolveWidgetMethod "addCssClass" o = WidgetAddCssClassMethodInfo
ResolveWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo
ResolveWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo
ResolveWidgetMethod "allocate" o = WidgetAllocateMethodInfo
ResolveWidgetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWidgetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo
ResolveWidgetMethod "computeBounds" o = WidgetComputeBoundsMethodInfo
ResolveWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo
ResolveWidgetMethod "computePoint" o = WidgetComputePointMethodInfo
ResolveWidgetMethod "computeTransform" o = WidgetComputeTransformMethodInfo
ResolveWidgetMethod "contains" o = WidgetContainsMethodInfo
ResolveWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo
ResolveWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo
ResolveWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo
ResolveWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo
ResolveWidgetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWidgetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWidgetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo
ResolveWidgetMethod "hasCssClass" o = WidgetHasCssClassMethodInfo
ResolveWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo
ResolveWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo
ResolveWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo
ResolveWidgetMethod "hide" o = WidgetHideMethodInfo
ResolveWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo
ResolveWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo
ResolveWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo
ResolveWidgetMethod "insertAfter" o = WidgetInsertAfterMethodInfo
ResolveWidgetMethod "insertBefore" o = WidgetInsertBeforeMethodInfo
ResolveWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo
ResolveWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo
ResolveWidgetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo
ResolveWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo
ResolveWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo
ResolveWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo
ResolveWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo
ResolveWidgetMethod "map" o = WidgetMapMethodInfo
ResolveWidgetMethod "measure" o = WidgetMeasureMethodInfo
ResolveWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo
ResolveWidgetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWidgetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWidgetMethod "observeChildren" o = WidgetObserveChildrenMethodInfo
ResolveWidgetMethod "observeControllers" o = WidgetObserveControllersMethodInfo
ResolveWidgetMethod "pick" o = WidgetPickMethodInfo
ResolveWidgetMethod "queueAllocate" o = WidgetQueueAllocateMethodInfo
ResolveWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo
ResolveWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo
ResolveWidgetMethod "realize" o = WidgetRealizeMethodInfo
ResolveWidgetMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWidgetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWidgetMethod "removeController" o = WidgetRemoveControllerMethodInfo
ResolveWidgetMethod "removeCssClass" o = WidgetRemoveCssClassMethodInfo
ResolveWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo
ResolveWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo
ResolveWidgetMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveWidgetMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveWidgetMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveWidgetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWidgetMethod "shouldLayout" o = WidgetShouldLayoutMethodInfo
ResolveWidgetMethod "show" o = WidgetShowMethodInfo
ResolveWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo
ResolveWidgetMethod "snapshotChild" o = WidgetSnapshotChildMethodInfo
ResolveWidgetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWidgetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWidgetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo
ResolveWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo
ResolveWidgetMethod "unmap" o = WidgetUnmapMethodInfo
ResolveWidgetMethod "unparent" o = WidgetUnparentMethodInfo
ResolveWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo
ResolveWidgetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo
ResolveWidgetMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveWidgetMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveWidgetMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveWidgetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWidgetMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo
ResolveWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo
ResolveWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo
ResolveWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo
ResolveWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo
ResolveWidgetMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo
ResolveWidgetMethod "getCanTarget" o = WidgetGetCanTargetMethodInfo
ResolveWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo
ResolveWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo
ResolveWidgetMethod "getCssClasses" o = WidgetGetCssClassesMethodInfo
ResolveWidgetMethod "getCssName" o = WidgetGetCssNameMethodInfo
ResolveWidgetMethod "getCursor" o = WidgetGetCursorMethodInfo
ResolveWidgetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo
ResolveWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo
ResolveWidgetMethod "getFirstChild" o = WidgetGetFirstChildMethodInfo
ResolveWidgetMethod "getFocusChild" o = WidgetGetFocusChildMethodInfo
ResolveWidgetMethod "getFocusOnClick" o = WidgetGetFocusOnClickMethodInfo
ResolveWidgetMethod "getFocusable" o = WidgetGetFocusableMethodInfo
ResolveWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo
ResolveWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo
ResolveWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo
ResolveWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo
ResolveWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo
ResolveWidgetMethod "getHeight" o = WidgetGetHeightMethodInfo
ResolveWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo
ResolveWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo
ResolveWidgetMethod "getLastChild" o = WidgetGetLastChildMethodInfo
ResolveWidgetMethod "getLayoutManager" o = WidgetGetLayoutManagerMethodInfo
ResolveWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo
ResolveWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo
ResolveWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo
ResolveWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo
ResolveWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo
ResolveWidgetMethod "getName" o = WidgetGetNameMethodInfo
ResolveWidgetMethod "getNative" o = WidgetGetNativeMethodInfo
ResolveWidgetMethod "getNextSibling" o = WidgetGetNextSiblingMethodInfo
ResolveWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo
ResolveWidgetMethod "getOverflow" o = WidgetGetOverflowMethodInfo
ResolveWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo
ResolveWidgetMethod "getParent" o = WidgetGetParentMethodInfo
ResolveWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo
ResolveWidgetMethod "getPrevSibling" o = WidgetGetPrevSiblingMethodInfo
ResolveWidgetMethod "getPrimaryClipboard" o = WidgetGetPrimaryClipboardMethodInfo
ResolveWidgetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWidgetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo
ResolveWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo
ResolveWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo
ResolveWidgetMethod "getRoot" o = WidgetGetRootMethodInfo
ResolveWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo
ResolveWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo
ResolveWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo
ResolveWidgetMethod "getSize" o = WidgetGetSizeMethodInfo
ResolveWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo
ResolveWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo
ResolveWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo
ResolveWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo
ResolveWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo
ResolveWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo
ResolveWidgetMethod "getValign" o = WidgetGetValignMethodInfo
ResolveWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo
ResolveWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo
ResolveWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo
ResolveWidgetMethod "getWidth" o = WidgetGetWidthMethodInfo
ResolveWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo
ResolveWidgetMethod "setCanTarget" o = WidgetSetCanTargetMethodInfo
ResolveWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo
ResolveWidgetMethod "setCssClasses" o = WidgetSetCssClassesMethodInfo
ResolveWidgetMethod "setCursor" o = WidgetSetCursorMethodInfo
ResolveWidgetMethod "setCursorFromName" o = WidgetSetCursorFromNameMethodInfo
ResolveWidgetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWidgetMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo
ResolveWidgetMethod "setFocusChild" o = WidgetSetFocusChildMethodInfo
ResolveWidgetMethod "setFocusOnClick" o = WidgetSetFocusOnClickMethodInfo
ResolveWidgetMethod "setFocusable" o = WidgetSetFocusableMethodInfo
ResolveWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo
ResolveWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo
ResolveWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo
ResolveWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo
ResolveWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo
ResolveWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo
ResolveWidgetMethod "setLayoutManager" o = WidgetSetLayoutManagerMethodInfo
ResolveWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo
ResolveWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo
ResolveWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo
ResolveWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo
ResolveWidgetMethod "setName" o = WidgetSetNameMethodInfo
ResolveWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo
ResolveWidgetMethod "setOverflow" o = WidgetSetOverflowMethodInfo
ResolveWidgetMethod "setParent" o = WidgetSetParentMethodInfo
ResolveWidgetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo
ResolveWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo
ResolveWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo
ResolveWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo
ResolveWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo
ResolveWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo
ResolveWidgetMethod "setValign" o = WidgetSetValignMethodInfo
ResolveWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo
ResolveWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo
ResolveWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo
ResolveWidgetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWidgetMethod t Widget, O.OverloadedMethod info Widget p) => OL.IsLabel t (Widget -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveWidgetMethod t Widget, O.OverloadedMethod info Widget p, R.HasField t Widget p) => R.HasField t Widget p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWidgetMethod t Widget, O.OverloadedMethodInfo info Widget) => OL.IsLabel t (O.MethodProxy info Widget) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type WidgetDestroyCallback =
IO ()
noWidgetDestroyCallback :: Maybe WidgetDestroyCallback
noWidgetDestroyCallback :: Maybe (IO ())
noWidgetDestroyCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetDestroyCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDestroyCallback :: C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
genClosure_WidgetDestroy :: MonadIO m => WidgetDestroyCallback -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetDestroy :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetDestroy IO ()
cb = IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetDestroyCallback IO ()
cb
C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetDestroyCallback C_WidgetDestroyCallback
cb' IO (FunPtr C_WidgetDestroyCallback)
-> (FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDestroyCallback ::
WidgetDestroyCallback ->
C_WidgetDestroyCallback
wrap_WidgetDestroyCallback :: IO () -> C_WidgetDestroyCallback
wrap_WidgetDestroyCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWidgetDestroy :: (IsWidget a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
onWidgetDestroy :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWidgetDestroy a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetDestroyCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetDestroyCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"destroy" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDestroy :: (IsWidget a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
afterWidgetDestroy :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWidgetDestroy a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetDestroyCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetDestroyCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"destroy" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDestroySignalInfo
instance SignalInfo WidgetDestroySignalInfo where
type HaskellCallbackType WidgetDestroySignalInfo = WidgetDestroyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDestroyCallback cb
cb'' <- mk_WidgetDestroyCallback cb'
connectSignalFunPtr obj "destroy" cb'' connectMode detail
#endif
type WidgetDirectionChangedCallback =
Gtk.Enums.TextDirection
-> IO ()
noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback
noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback
noWidgetDirectionChangedCallback = Maybe WidgetDirectionChangedCallback
forall a. Maybe a
Nothing
type C_WidgetDirectionChangedCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDirectionChangedCallback :: C_WidgetDirectionChangedCallback -> IO (FunPtr C_WidgetDirectionChangedCallback)
genClosure_WidgetDirectionChanged :: MonadIO m => WidgetDirectionChangedCallback -> m (GClosure C_WidgetDirectionChangedCallback)
genClosure_WidgetDirectionChanged :: forall (m :: * -> *).
MonadIO m =>
WidgetDirectionChangedCallback
-> m (GClosure C_WidgetDirectionChangedCallback)
genClosure_WidgetDirectionChanged WidgetDirectionChangedCallback
cb = IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback))
-> IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetDirectionChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetDirectionChangedCallback WidgetDirectionChangedCallback
cb
C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetDirectionChangedCallback C_WidgetDirectionChangedCallback
cb' IO (FunPtr C_WidgetDirectionChangedCallback)
-> (FunPtr C_WidgetDirectionChangedCallback
-> IO (GClosure C_WidgetDirectionChangedCallback))
-> IO (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDirectionChangedCallback
-> IO (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDirectionChangedCallback ::
WidgetDirectionChangedCallback ->
C_WidgetDirectionChangedCallback
wrap_WidgetDirectionChangedCallback :: WidgetDirectionChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetDirectionChangedCallback WidgetDirectionChangedCallback
_cb Ptr ()
_ CUInt
previousDirection Ptr ()
_ = do
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
WidgetDirectionChangedCallback
_cb TextDirection
previousDirection'
onWidgetDirectionChanged :: (IsWidget a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId
onWidgetDirectionChanged :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetDirectionChangedCallback -> m SignalHandlerId
onWidgetDirectionChanged a
obj WidgetDirectionChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetDirectionChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetDirectionChangedCallback WidgetDirectionChangedCallback
cb
FunPtr C_WidgetDirectionChangedCallback
cb'' <- C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetDirectionChangedCallback C_WidgetDirectionChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDirectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"direction-changed" FunPtr C_WidgetDirectionChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDirectionChanged :: (IsWidget a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId
afterWidgetDirectionChanged :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetDirectionChangedCallback -> m SignalHandlerId
afterWidgetDirectionChanged a
obj WidgetDirectionChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetDirectionChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetDirectionChangedCallback WidgetDirectionChangedCallback
cb
FunPtr C_WidgetDirectionChangedCallback
cb'' <- C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetDirectionChangedCallback C_WidgetDirectionChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDirectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"direction-changed" FunPtr C_WidgetDirectionChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDirectionChangedSignalInfo
instance SignalInfo WidgetDirectionChangedSignalInfo where
type HaskellCallbackType WidgetDirectionChangedSignalInfo = WidgetDirectionChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDirectionChangedCallback cb
cb'' <- mk_WidgetDirectionChangedCallback cb'
connectSignalFunPtr obj "direction-changed" cb'' connectMode detail
#endif
type WidgetHideCallback =
IO ()
noWidgetHideCallback :: Maybe WidgetHideCallback
noWidgetHideCallback :: Maybe (IO ())
noWidgetHideCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetHideCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetHideCallback :: C_WidgetHideCallback -> IO (FunPtr C_WidgetHideCallback)
genClosure_WidgetHide :: MonadIO m => WidgetHideCallback -> m (GClosure C_WidgetHideCallback)
genClosure_WidgetHide :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetHide IO ()
cb = IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetHideCallback IO ()
cb
C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetHideCallback C_WidgetDestroyCallback
cb' IO (FunPtr C_WidgetDestroyCallback)
-> (FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetHideCallback ::
WidgetHideCallback ->
C_WidgetHideCallback
wrap_WidgetHideCallback :: IO () -> C_WidgetDestroyCallback
wrap_WidgetHideCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWidgetHide :: (IsWidget a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
onWidgetHide :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWidgetHide a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetHideCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetHideCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"hide" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetHide :: (IsWidget a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
afterWidgetHide :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWidgetHide a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetHideCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetHideCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"hide" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetHideSignalInfo
instance SignalInfo WidgetHideSignalInfo where
type HaskellCallbackType WidgetHideSignalInfo = WidgetHideCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetHideCallback cb
cb'' <- mk_WidgetHideCallback cb'
connectSignalFunPtr obj "hide" cb'' connectMode detail
#endif
type WidgetKeynavFailedCallback =
Gtk.Enums.DirectionType
-> IO Bool
noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback
noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback
noWidgetKeynavFailedCallback = Maybe WidgetKeynavFailedCallback
forall a. Maybe a
Nothing
type C_WidgetKeynavFailedCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WidgetKeynavFailedCallback :: C_WidgetKeynavFailedCallback -> IO (FunPtr C_WidgetKeynavFailedCallback)
genClosure_WidgetKeynavFailed :: MonadIO m => WidgetKeynavFailedCallback -> m (GClosure C_WidgetKeynavFailedCallback)
genClosure_WidgetKeynavFailed :: forall (m :: * -> *).
MonadIO m =>
WidgetKeynavFailedCallback
-> m (GClosure C_WidgetKeynavFailedCallback)
genClosure_WidgetKeynavFailed WidgetKeynavFailedCallback
cb = IO (GClosure C_WidgetKeynavFailedCallback)
-> m (GClosure C_WidgetKeynavFailedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetKeynavFailedCallback)
-> m (GClosure C_WidgetKeynavFailedCallback))
-> IO (GClosure C_WidgetKeynavFailedCallback)
-> m (GClosure C_WidgetKeynavFailedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetKeynavFailedCallback
cb' = WidgetKeynavFailedCallback -> C_WidgetKeynavFailedCallback
wrap_WidgetKeynavFailedCallback WidgetKeynavFailedCallback
cb
C_WidgetKeynavFailedCallback
-> IO (FunPtr C_WidgetKeynavFailedCallback)
mk_WidgetKeynavFailedCallback C_WidgetKeynavFailedCallback
cb' IO (FunPtr C_WidgetKeynavFailedCallback)
-> (FunPtr C_WidgetKeynavFailedCallback
-> IO (GClosure C_WidgetKeynavFailedCallback))
-> IO (GClosure C_WidgetKeynavFailedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetKeynavFailedCallback
-> IO (GClosure C_WidgetKeynavFailedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetKeynavFailedCallback ::
WidgetKeynavFailedCallback ->
C_WidgetKeynavFailedCallback
wrap_WidgetKeynavFailedCallback :: WidgetKeynavFailedCallback -> C_WidgetKeynavFailedCallback
wrap_WidgetKeynavFailedCallback WidgetKeynavFailedCallback
_cb Ptr ()
_ CUInt
direction Ptr ()
_ = do
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 <- WidgetKeynavFailedCallback
_cb DirectionType
direction'
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'
onWidgetKeynavFailed :: (IsWidget a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId
onWidgetKeynavFailed :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetKeynavFailedCallback -> m SignalHandlerId
onWidgetKeynavFailed a
obj WidgetKeynavFailedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetKeynavFailedCallback
cb' = WidgetKeynavFailedCallback -> C_WidgetKeynavFailedCallback
wrap_WidgetKeynavFailedCallback WidgetKeynavFailedCallback
cb
FunPtr C_WidgetKeynavFailedCallback
cb'' <- C_WidgetKeynavFailedCallback
-> IO (FunPtr C_WidgetKeynavFailedCallback)
mk_WidgetKeynavFailedCallback C_WidgetKeynavFailedCallback
cb'
a
-> Text
-> FunPtr C_WidgetKeynavFailedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"keynav-failed" FunPtr C_WidgetKeynavFailedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetKeynavFailed :: (IsWidget a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId
afterWidgetKeynavFailed :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetKeynavFailedCallback -> m SignalHandlerId
afterWidgetKeynavFailed a
obj WidgetKeynavFailedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetKeynavFailedCallback
cb' = WidgetKeynavFailedCallback -> C_WidgetKeynavFailedCallback
wrap_WidgetKeynavFailedCallback WidgetKeynavFailedCallback
cb
FunPtr C_WidgetKeynavFailedCallback
cb'' <- C_WidgetKeynavFailedCallback
-> IO (FunPtr C_WidgetKeynavFailedCallback)
mk_WidgetKeynavFailedCallback C_WidgetKeynavFailedCallback
cb'
a
-> Text
-> FunPtr C_WidgetKeynavFailedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"keynav-failed" FunPtr C_WidgetKeynavFailedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetKeynavFailedSignalInfo
instance SignalInfo WidgetKeynavFailedSignalInfo where
type HaskellCallbackType WidgetKeynavFailedSignalInfo = WidgetKeynavFailedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetKeynavFailedCallback cb
cb'' <- mk_WidgetKeynavFailedCallback cb'
connectSignalFunPtr obj "keynav-failed" cb'' connectMode detail
#endif
type WidgetMapCallback =
IO ()
noWidgetMapCallback :: Maybe WidgetMapCallback
noWidgetMapCallback :: Maybe (IO ())
noWidgetMapCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetMapCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetMapCallback :: C_WidgetMapCallback -> IO (FunPtr C_WidgetMapCallback)
genClosure_WidgetMap :: MonadIO m => WidgetMapCallback -> m (GClosure C_WidgetMapCallback)
genClosure_WidgetMap :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetMap IO ()
cb = IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetMapCallback IO ()
cb
C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetMapCallback C_WidgetDestroyCallback
cb' IO (FunPtr C_WidgetDestroyCallback)
-> (FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetMapCallback ::
WidgetMapCallback ->
C_WidgetMapCallback
wrap_WidgetMapCallback :: IO () -> C_WidgetDestroyCallback
wrap_WidgetMapCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWidgetMap :: (IsWidget a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
onWidgetMap :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWidgetMap a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetMapCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetMapCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"map" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetMap :: (IsWidget a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
afterWidgetMap :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWidgetMap a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetMapCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetMapCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"map" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetMapSignalInfo
instance SignalInfo WidgetMapSignalInfo where
type HaskellCallbackType WidgetMapSignalInfo = WidgetMapCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetMapCallback cb
cb'' <- mk_WidgetMapCallback cb'
connectSignalFunPtr obj "map" cb'' connectMode detail
#endif
type WidgetMnemonicActivateCallback =
Bool
-> IO Bool
noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback
noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback
noWidgetMnemonicActivateCallback = Maybe WidgetMnemonicActivateCallback
forall a. Maybe a
Nothing
type C_WidgetMnemonicActivateCallback =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WidgetMnemonicActivateCallback :: C_WidgetMnemonicActivateCallback -> IO (FunPtr C_WidgetMnemonicActivateCallback)
genClosure_WidgetMnemonicActivate :: MonadIO m => WidgetMnemonicActivateCallback -> m (GClosure C_WidgetMnemonicActivateCallback)
genClosure_WidgetMnemonicActivate :: forall (m :: * -> *).
MonadIO m =>
WidgetMnemonicActivateCallback
-> m (GClosure C_WidgetMnemonicActivateCallback)
genClosure_WidgetMnemonicActivate WidgetMnemonicActivateCallback
cb = IO (GClosure C_WidgetMnemonicActivateCallback)
-> m (GClosure C_WidgetMnemonicActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetMnemonicActivateCallback)
-> m (GClosure C_WidgetMnemonicActivateCallback))
-> IO (GClosure C_WidgetMnemonicActivateCallback)
-> m (GClosure C_WidgetMnemonicActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetMnemonicActivateCallback
cb' = WidgetMnemonicActivateCallback -> C_WidgetMnemonicActivateCallback
wrap_WidgetMnemonicActivateCallback WidgetMnemonicActivateCallback
cb
C_WidgetMnemonicActivateCallback
-> IO (FunPtr C_WidgetMnemonicActivateCallback)
mk_WidgetMnemonicActivateCallback C_WidgetMnemonicActivateCallback
cb' IO (FunPtr C_WidgetMnemonicActivateCallback)
-> (FunPtr C_WidgetMnemonicActivateCallback
-> IO (GClosure C_WidgetMnemonicActivateCallback))
-> IO (GClosure C_WidgetMnemonicActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetMnemonicActivateCallback
-> IO (GClosure C_WidgetMnemonicActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetMnemonicActivateCallback ::
WidgetMnemonicActivateCallback ->
C_WidgetMnemonicActivateCallback
wrap_WidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallback -> C_WidgetMnemonicActivateCallback
wrap_WidgetMnemonicActivateCallback WidgetMnemonicActivateCallback
_cb Ptr ()
_ CInt
groupCycling Ptr ()
_ = do
let groupCycling' :: Bool
groupCycling' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
groupCycling
Bool
result <- WidgetMnemonicActivateCallback
_cb Bool
groupCycling'
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'
onWidgetMnemonicActivate :: (IsWidget a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
onWidgetMnemonicActivate :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
onWidgetMnemonicActivate a
obj WidgetMnemonicActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetMnemonicActivateCallback
cb' = WidgetMnemonicActivateCallback -> C_WidgetMnemonicActivateCallback
wrap_WidgetMnemonicActivateCallback WidgetMnemonicActivateCallback
cb
FunPtr C_WidgetMnemonicActivateCallback
cb'' <- C_WidgetMnemonicActivateCallback
-> IO (FunPtr C_WidgetMnemonicActivateCallback)
mk_WidgetMnemonicActivateCallback C_WidgetMnemonicActivateCallback
cb'
a
-> Text
-> FunPtr C_WidgetMnemonicActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mnemonic-activate" FunPtr C_WidgetMnemonicActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetMnemonicActivate :: (IsWidget a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
afterWidgetMnemonicActivate :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
afterWidgetMnemonicActivate a
obj WidgetMnemonicActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetMnemonicActivateCallback
cb' = WidgetMnemonicActivateCallback -> C_WidgetMnemonicActivateCallback
wrap_WidgetMnemonicActivateCallback WidgetMnemonicActivateCallback
cb
FunPtr C_WidgetMnemonicActivateCallback
cb'' <- C_WidgetMnemonicActivateCallback
-> IO (FunPtr C_WidgetMnemonicActivateCallback)
mk_WidgetMnemonicActivateCallback C_WidgetMnemonicActivateCallback
cb'
a
-> Text
-> FunPtr C_WidgetMnemonicActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"mnemonic-activate" FunPtr C_WidgetMnemonicActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetMnemonicActivateSignalInfo
instance SignalInfo WidgetMnemonicActivateSignalInfo where
type HaskellCallbackType WidgetMnemonicActivateSignalInfo = WidgetMnemonicActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetMnemonicActivateCallback cb
cb'' <- mk_WidgetMnemonicActivateCallback cb'
connectSignalFunPtr obj "mnemonic-activate" cb'' connectMode detail
#endif
type WidgetMoveFocusCallback =
Gtk.Enums.DirectionType
-> IO ()
noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback
noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback
noWidgetMoveFocusCallback = Maybe WidgetMoveFocusCallback
forall a. Maybe a
Nothing
type C_WidgetMoveFocusCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetMoveFocusCallback :: C_WidgetMoveFocusCallback -> IO (FunPtr C_WidgetMoveFocusCallback)
genClosure_WidgetMoveFocus :: MonadIO m => WidgetMoveFocusCallback -> m (GClosure C_WidgetMoveFocusCallback)
genClosure_WidgetMoveFocus :: forall (m :: * -> *).
MonadIO m =>
WidgetMoveFocusCallback
-> m (GClosure C_WidgetDirectionChangedCallback)
genClosure_WidgetMoveFocus WidgetMoveFocusCallback
cb = IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback))
-> IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetMoveFocusCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetMoveFocusCallback WidgetMoveFocusCallback
cb
C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetMoveFocusCallback C_WidgetDirectionChangedCallback
cb' IO (FunPtr C_WidgetDirectionChangedCallback)
-> (FunPtr C_WidgetDirectionChangedCallback
-> IO (GClosure C_WidgetDirectionChangedCallback))
-> IO (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDirectionChangedCallback
-> IO (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetMoveFocusCallback ::
WidgetMoveFocusCallback ->
C_WidgetMoveFocusCallback
wrap_WidgetMoveFocusCallback :: WidgetMoveFocusCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetMoveFocusCallback WidgetMoveFocusCallback
_cb Ptr ()
_ CUInt
direction Ptr ()
_ = do
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
WidgetMoveFocusCallback
_cb DirectionType
direction'
onWidgetMoveFocus :: (IsWidget a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId
onWidgetMoveFocus :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetMoveFocusCallback -> m SignalHandlerId
onWidgetMoveFocus a
obj WidgetMoveFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetMoveFocusCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetMoveFocusCallback WidgetMoveFocusCallback
cb
FunPtr C_WidgetDirectionChangedCallback
cb'' <- C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetMoveFocusCallback C_WidgetDirectionChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDirectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-focus" FunPtr C_WidgetDirectionChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetMoveFocus :: (IsWidget a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId
afterWidgetMoveFocus :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetMoveFocusCallback -> m SignalHandlerId
afterWidgetMoveFocus a
obj WidgetMoveFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetMoveFocusCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetMoveFocusCallback WidgetMoveFocusCallback
cb
FunPtr C_WidgetDirectionChangedCallback
cb'' <- C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetMoveFocusCallback C_WidgetDirectionChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDirectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-focus" FunPtr C_WidgetDirectionChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetMoveFocusSignalInfo
instance SignalInfo WidgetMoveFocusSignalInfo where
type HaskellCallbackType WidgetMoveFocusSignalInfo = WidgetMoveFocusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetMoveFocusCallback cb
cb'' <- mk_WidgetMoveFocusCallback cb'
connectSignalFunPtr obj "move-focus" cb'' connectMode detail
#endif
type WidgetQueryTooltipCallback =
Int32
-> Int32
-> Bool
-> Gtk.Tooltip.Tooltip
-> IO Bool
noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback
noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback
noWidgetQueryTooltipCallback = Maybe WidgetQueryTooltipCallback
forall a. Maybe a
Nothing
type C_WidgetQueryTooltipCallback =
Ptr () ->
Int32 ->
Int32 ->
CInt ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WidgetQueryTooltipCallback :: C_WidgetQueryTooltipCallback -> IO (FunPtr C_WidgetQueryTooltipCallback)
genClosure_WidgetQueryTooltip :: MonadIO m => WidgetQueryTooltipCallback -> m (GClosure C_WidgetQueryTooltipCallback)
genClosure_WidgetQueryTooltip :: forall (m :: * -> *).
MonadIO m =>
WidgetQueryTooltipCallback
-> m (GClosure C_WidgetQueryTooltipCallback)
genClosure_WidgetQueryTooltip WidgetQueryTooltipCallback
cb = IO (GClosure C_WidgetQueryTooltipCallback)
-> m (GClosure C_WidgetQueryTooltipCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetQueryTooltipCallback)
-> m (GClosure C_WidgetQueryTooltipCallback))
-> IO (GClosure C_WidgetQueryTooltipCallback)
-> m (GClosure C_WidgetQueryTooltipCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetQueryTooltipCallback
cb' = WidgetQueryTooltipCallback -> C_WidgetQueryTooltipCallback
wrap_WidgetQueryTooltipCallback WidgetQueryTooltipCallback
cb
C_WidgetQueryTooltipCallback
-> IO (FunPtr C_WidgetQueryTooltipCallback)
mk_WidgetQueryTooltipCallback C_WidgetQueryTooltipCallback
cb' IO (FunPtr C_WidgetQueryTooltipCallback)
-> (FunPtr C_WidgetQueryTooltipCallback
-> IO (GClosure C_WidgetQueryTooltipCallback))
-> IO (GClosure C_WidgetQueryTooltipCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetQueryTooltipCallback
-> IO (GClosure C_WidgetQueryTooltipCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetQueryTooltipCallback ::
WidgetQueryTooltipCallback ->
C_WidgetQueryTooltipCallback
wrap_WidgetQueryTooltipCallback :: WidgetQueryTooltipCallback -> C_WidgetQueryTooltipCallback
wrap_WidgetQueryTooltipCallback WidgetQueryTooltipCallback
_cb Ptr ()
_ Int32
x Int32
y CInt
keyboardMode Ptr Tooltip
tooltip Ptr ()
_ = do
let keyboardMode' :: Bool
keyboardMode' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
keyboardMode
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 <- WidgetQueryTooltipCallback
_cb Int32
x Int32
y Bool
keyboardMode' Tooltip
tooltip'
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'
onWidgetQueryTooltip :: (IsWidget a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId
onWidgetQueryTooltip :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetQueryTooltipCallback -> m SignalHandlerId
onWidgetQueryTooltip a
obj WidgetQueryTooltipCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetQueryTooltipCallback
cb' = WidgetQueryTooltipCallback -> C_WidgetQueryTooltipCallback
wrap_WidgetQueryTooltipCallback WidgetQueryTooltipCallback
cb
FunPtr C_WidgetQueryTooltipCallback
cb'' <- C_WidgetQueryTooltipCallback
-> IO (FunPtr C_WidgetQueryTooltipCallback)
mk_WidgetQueryTooltipCallback C_WidgetQueryTooltipCallback
cb'
a
-> Text
-> FunPtr C_WidgetQueryTooltipCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-tooltip" FunPtr C_WidgetQueryTooltipCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetQueryTooltip :: (IsWidget a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId
afterWidgetQueryTooltip :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetQueryTooltipCallback -> m SignalHandlerId
afterWidgetQueryTooltip a
obj WidgetQueryTooltipCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetQueryTooltipCallback
cb' = WidgetQueryTooltipCallback -> C_WidgetQueryTooltipCallback
wrap_WidgetQueryTooltipCallback WidgetQueryTooltipCallback
cb
FunPtr C_WidgetQueryTooltipCallback
cb'' <- C_WidgetQueryTooltipCallback
-> IO (FunPtr C_WidgetQueryTooltipCallback)
mk_WidgetQueryTooltipCallback C_WidgetQueryTooltipCallback
cb'
a
-> Text
-> FunPtr C_WidgetQueryTooltipCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-tooltip" FunPtr C_WidgetQueryTooltipCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetQueryTooltipSignalInfo
instance SignalInfo WidgetQueryTooltipSignalInfo where
type HaskellCallbackType WidgetQueryTooltipSignalInfo = WidgetQueryTooltipCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetQueryTooltipCallback cb
cb'' <- mk_WidgetQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' connectMode detail
#endif
type WidgetRealizeCallback =
IO ()
noWidgetRealizeCallback :: Maybe WidgetRealizeCallback
noWidgetRealizeCallback :: Maybe (IO ())
noWidgetRealizeCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetRealizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetRealizeCallback :: C_WidgetRealizeCallback -> IO (FunPtr C_WidgetRealizeCallback)
genClosure_WidgetRealize :: MonadIO m => WidgetRealizeCallback -> m (GClosure C_WidgetRealizeCallback)
genClosure_WidgetRealize :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetRealize IO ()
cb = IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetRealizeCallback IO ()
cb
C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetRealizeCallback C_WidgetDestroyCallback
cb' IO (FunPtr C_WidgetDestroyCallback)
-> (FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetRealizeCallback ::
WidgetRealizeCallback ->
C_WidgetRealizeCallback
wrap_WidgetRealizeCallback :: IO () -> C_WidgetDestroyCallback
wrap_WidgetRealizeCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWidgetRealize :: (IsWidget a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
onWidgetRealize :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWidgetRealize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetRealizeCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetRealizeCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"realize" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetRealize :: (IsWidget a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
afterWidgetRealize :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWidgetRealize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetRealizeCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetRealizeCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"realize" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetRealizeSignalInfo
instance SignalInfo WidgetRealizeSignalInfo where
type HaskellCallbackType WidgetRealizeSignalInfo = WidgetRealizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetRealizeCallback cb
cb'' <- mk_WidgetRealizeCallback cb'
connectSignalFunPtr obj "realize" cb'' connectMode detail
#endif
type WidgetShowCallback =
IO ()
noWidgetShowCallback :: Maybe WidgetShowCallback
noWidgetShowCallback :: Maybe (IO ())
noWidgetShowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetShowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetShowCallback :: C_WidgetShowCallback -> IO (FunPtr C_WidgetShowCallback)
genClosure_WidgetShow :: MonadIO m => WidgetShowCallback -> m (GClosure C_WidgetShowCallback)
genClosure_WidgetShow :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetShow IO ()
cb = IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetShowCallback IO ()
cb
C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetShowCallback C_WidgetDestroyCallback
cb' IO (FunPtr C_WidgetDestroyCallback)
-> (FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetShowCallback ::
WidgetShowCallback ->
C_WidgetShowCallback
wrap_WidgetShowCallback :: IO () -> C_WidgetDestroyCallback
wrap_WidgetShowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWidgetShow :: (IsWidget a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
onWidgetShow :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWidgetShow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetShowCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetShowCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetShow :: (IsWidget a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
afterWidgetShow :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWidgetShow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetShowCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetShowCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"show" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetShowSignalInfo
instance SignalInfo WidgetShowSignalInfo where
type HaskellCallbackType WidgetShowSignalInfo = WidgetShowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetShowCallback cb
cb'' <- mk_WidgetShowCallback cb'
connectSignalFunPtr obj "show" cb'' connectMode detail
#endif
type WidgetStateFlagsChangedCallback =
[Gtk.Flags.StateFlags]
-> IO ()
noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback
noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback
noWidgetStateFlagsChangedCallback = Maybe WidgetStateFlagsChangedCallback
forall a. Maybe a
Nothing
type C_WidgetStateFlagsChangedCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetStateFlagsChangedCallback :: C_WidgetStateFlagsChangedCallback -> IO (FunPtr C_WidgetStateFlagsChangedCallback)
genClosure_WidgetStateFlagsChanged :: MonadIO m => WidgetStateFlagsChangedCallback -> m (GClosure C_WidgetStateFlagsChangedCallback)
genClosure_WidgetStateFlagsChanged :: forall (m :: * -> *).
MonadIO m =>
WidgetStateFlagsChangedCallback
-> m (GClosure C_WidgetDirectionChangedCallback)
genClosure_WidgetStateFlagsChanged WidgetStateFlagsChangedCallback
cb = IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback))
-> IO (GClosure C_WidgetDirectionChangedCallback)
-> m (GClosure C_WidgetDirectionChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetStateFlagsChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetStateFlagsChangedCallback WidgetStateFlagsChangedCallback
cb
C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetStateFlagsChangedCallback C_WidgetDirectionChangedCallback
cb' IO (FunPtr C_WidgetDirectionChangedCallback)
-> (FunPtr C_WidgetDirectionChangedCallback
-> IO (GClosure C_WidgetDirectionChangedCallback))
-> IO (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDirectionChangedCallback
-> IO (GClosure C_WidgetDirectionChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetStateFlagsChangedCallback ::
WidgetStateFlagsChangedCallback ->
C_WidgetStateFlagsChangedCallback
wrap_WidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetStateFlagsChangedCallback WidgetStateFlagsChangedCallback
_cb Ptr ()
_ CUInt
flags Ptr ()
_ = do
let flags' :: [StateFlags]
flags' = CUInt -> [StateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
flags
WidgetStateFlagsChangedCallback
_cb [StateFlags]
flags'
onWidgetStateFlagsChanged :: (IsWidget a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
onWidgetStateFlagsChanged :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
onWidgetStateFlagsChanged a
obj WidgetStateFlagsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetStateFlagsChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetStateFlagsChangedCallback WidgetStateFlagsChangedCallback
cb
FunPtr C_WidgetDirectionChangedCallback
cb'' <- C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetStateFlagsChangedCallback C_WidgetDirectionChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDirectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"state-flags-changed" FunPtr C_WidgetDirectionChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetStateFlagsChanged :: (IsWidget a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
afterWidgetStateFlagsChanged :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
afterWidgetStateFlagsChanged a
obj WidgetStateFlagsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDirectionChangedCallback
cb' = WidgetStateFlagsChangedCallback -> C_WidgetDirectionChangedCallback
wrap_WidgetStateFlagsChangedCallback WidgetStateFlagsChangedCallback
cb
FunPtr C_WidgetDirectionChangedCallback
cb'' <- C_WidgetDirectionChangedCallback
-> IO (FunPtr C_WidgetDirectionChangedCallback)
mk_WidgetStateFlagsChangedCallback C_WidgetDirectionChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDirectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"state-flags-changed" FunPtr C_WidgetDirectionChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetStateFlagsChangedSignalInfo
instance SignalInfo WidgetStateFlagsChangedSignalInfo where
type HaskellCallbackType WidgetStateFlagsChangedSignalInfo = WidgetStateFlagsChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetStateFlagsChangedCallback cb
cb'' <- mk_WidgetStateFlagsChangedCallback cb'
connectSignalFunPtr obj "state-flags-changed" cb'' connectMode detail
#endif
type WidgetUnmapCallback =
IO ()
noWidgetUnmapCallback :: Maybe WidgetUnmapCallback
noWidgetUnmapCallback :: Maybe (IO ())
noWidgetUnmapCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetUnmapCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetUnmapCallback :: C_WidgetUnmapCallback -> IO (FunPtr C_WidgetUnmapCallback)
genClosure_WidgetUnmap :: MonadIO m => WidgetUnmapCallback -> m (GClosure C_WidgetUnmapCallback)
genClosure_WidgetUnmap :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetUnmap IO ()
cb = IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetUnmapCallback IO ()
cb
C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetUnmapCallback C_WidgetDestroyCallback
cb' IO (FunPtr C_WidgetDestroyCallback)
-> (FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetUnmapCallback ::
WidgetUnmapCallback ->
C_WidgetUnmapCallback
wrap_WidgetUnmapCallback :: IO () -> C_WidgetDestroyCallback
wrap_WidgetUnmapCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWidgetUnmap :: (IsWidget a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
onWidgetUnmap :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWidgetUnmap a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetUnmapCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetUnmapCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unmap" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetUnmap :: (IsWidget a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
afterWidgetUnmap :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWidgetUnmap a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetUnmapCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetUnmapCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unmap" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetUnmapSignalInfo
instance SignalInfo WidgetUnmapSignalInfo where
type HaskellCallbackType WidgetUnmapSignalInfo = WidgetUnmapCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetUnmapCallback cb
cb'' <- mk_WidgetUnmapCallback cb'
connectSignalFunPtr obj "unmap" cb'' connectMode detail
#endif
type WidgetUnrealizeCallback =
IO ()
noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback
noWidgetUnrealizeCallback :: Maybe (IO ())
noWidgetUnrealizeCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetUnrealizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetUnrealizeCallback :: C_WidgetUnrealizeCallback -> IO (FunPtr C_WidgetUnrealizeCallback)
genClosure_WidgetUnrealize :: MonadIO m => WidgetUnrealizeCallback -> m (GClosure C_WidgetUnrealizeCallback)
genClosure_WidgetUnrealize :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WidgetDestroyCallback)
genClosure_WidgetUnrealize IO ()
cb = IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
-> m (GClosure C_WidgetDestroyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetUnrealizeCallback IO ()
cb
C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetUnrealizeCallback C_WidgetDestroyCallback
cb' IO (FunPtr C_WidgetDestroyCallback)
-> (FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback))
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDestroyCallback
-> IO (GClosure C_WidgetDestroyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetUnrealizeCallback ::
WidgetUnrealizeCallback ->
C_WidgetUnrealizeCallback
wrap_WidgetUnrealizeCallback :: IO () -> C_WidgetDestroyCallback
wrap_WidgetUnrealizeCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWidgetUnrealize :: (IsWidget a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
onWidgetUnrealize :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWidgetUnrealize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetUnrealizeCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetUnrealizeCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unrealize" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetUnrealize :: (IsWidget a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
afterWidgetUnrealize :: forall a (m :: * -> *).
(IsWidget a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWidgetUnrealize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDestroyCallback
cb' = IO () -> C_WidgetDestroyCallback
wrap_WidgetUnrealizeCallback IO ()
cb
FunPtr C_WidgetDestroyCallback
cb'' <- C_WidgetDestroyCallback -> IO (FunPtr C_WidgetDestroyCallback)
mk_WidgetUnrealizeCallback C_WidgetDestroyCallback
cb'
a
-> Text
-> FunPtr C_WidgetDestroyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unrealize" FunPtr C_WidgetDestroyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetUnrealizeSignalInfo
instance SignalInfo WidgetUnrealizeSignalInfo where
type HaskellCallbackType WidgetUnrealizeSignalInfo = WidgetUnrealizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetUnrealizeCallback cb
cb'' <- mk_WidgetUnrealizeCallback cb'
connectSignalFunPtr obj "unrealize" cb'' connectMode detail
#endif
getWidgetCanFocus :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetCanFocus :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetCanFocus o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"can-focus"
setWidgetCanFocus :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetCanFocus :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetCanFocus o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"can-focus" Bool
val
constructWidgetCanFocus :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetCanFocus :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetCanFocus Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"can-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetCanFocusPropertyInfo
instance AttrInfo WidgetCanFocusPropertyInfo where
type AttrAllowedOps WidgetCanFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetCanFocusPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool
type AttrTransferType WidgetCanFocusPropertyInfo = Bool
type AttrGetType WidgetCanFocusPropertyInfo = Bool
type AttrLabel WidgetCanFocusPropertyInfo = "can-focus"
type AttrOrigin WidgetCanFocusPropertyInfo = Widget
attrGet = getWidgetCanFocus
attrSet = setWidgetCanFocus
attrTransfer _ v = do
return v
attrConstruct = constructWidgetCanFocus
attrClear = undefined
#endif
getWidgetCanTarget :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetCanTarget :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetCanTarget o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"can-target"
setWidgetCanTarget :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetCanTarget :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetCanTarget o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"can-target" Bool
val
constructWidgetCanTarget :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetCanTarget :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetCanTarget Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"can-target" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetCanTargetPropertyInfo
instance AttrInfo WidgetCanTargetPropertyInfo where
type AttrAllowedOps WidgetCanTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetCanTargetPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetCanTargetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetCanTargetPropertyInfo = (~) Bool
type AttrTransferType WidgetCanTargetPropertyInfo = Bool
type AttrGetType WidgetCanTargetPropertyInfo = Bool
type AttrLabel WidgetCanTargetPropertyInfo = "can-target"
type AttrOrigin WidgetCanTargetPropertyInfo = Widget
attrGet = getWidgetCanTarget
attrSet = setWidgetCanTarget
attrTransfer _ v = do
return v
attrConstruct = constructWidgetCanTarget
attrClear = undefined
#endif
getWidgetCssClasses :: (MonadIO m, IsWidget o) => o -> m (Maybe [T.Text])
getWidgetCssClasses :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe [Text])
getWidgetCssClasses o
obj = IO (Maybe [Text]) -> m (Maybe [Text])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe [Text]) -> m (Maybe [Text]))
-> IO (Maybe [Text]) -> m (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe [Text])
forall a. GObject a => a -> String -> IO (Maybe [Text])
B.Properties.getObjectPropertyStringArray o
obj String
"css-classes"
setWidgetCssClasses :: (MonadIO m, IsWidget o) => o -> [T.Text] -> m ()
setWidgetCssClasses :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> [Text] -> m ()
setWidgetCssClasses o
obj [Text]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"css-classes" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructWidgetCssClasses :: (IsWidget o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructWidgetCssClasses :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructWidgetCssClasses [Text]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe [Text] -> IO (GValueConstruct o)
forall o. String -> Maybe [Text] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyStringArray String
"css-classes" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
#if defined(ENABLE_OVERLOADING)
data WidgetCssClassesPropertyInfo
instance AttrInfo WidgetCssClassesPropertyInfo where
type AttrAllowedOps WidgetCssClassesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetCssClassesPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetCssClassesPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint WidgetCssClassesPropertyInfo = (~) [T.Text]
type AttrTransferType WidgetCssClassesPropertyInfo = [T.Text]
type AttrGetType WidgetCssClassesPropertyInfo = (Maybe [T.Text])
type AttrLabel WidgetCssClassesPropertyInfo = "css-classes"
type AttrOrigin WidgetCssClassesPropertyInfo = Widget
attrGet = getWidgetCssClasses
attrSet = setWidgetCssClasses
attrTransfer _ v = do
return v
attrConstruct = constructWidgetCssClasses
attrClear = undefined
#endif
getWidgetCssName :: (MonadIO m, IsWidget o) => o -> m T.Text
getWidgetCssName :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Text
getWidgetCssName o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getWidgetCssName" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"css-name"
constructWidgetCssName :: (IsWidget o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWidgetCssName :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWidgetCssName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"css-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WidgetCssNamePropertyInfo
instance AttrInfo WidgetCssNamePropertyInfo where
type AttrAllowedOps WidgetCssNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WidgetCssNamePropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetCssNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WidgetCssNamePropertyInfo = (~) T.Text
type AttrTransferType WidgetCssNamePropertyInfo = T.Text
type AttrGetType WidgetCssNamePropertyInfo = T.Text
type AttrLabel WidgetCssNamePropertyInfo = "css-name"
type AttrOrigin WidgetCssNamePropertyInfo = Widget
attrGet = getWidgetCssName
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWidgetCssName
attrClear = undefined
#endif
getWidgetCursor :: (MonadIO m, IsWidget o) => o -> m (Maybe Gdk.Cursor.Cursor)
getWidgetCursor :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe Cursor)
getWidgetCursor o
obj = IO (Maybe Cursor) -> m (Maybe Cursor)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Cursor) -> m (Maybe Cursor))
-> IO (Maybe Cursor) -> m (Maybe Cursor)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Cursor -> Cursor) -> IO (Maybe Cursor)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"cursor" ManagedPtr Cursor -> Cursor
Gdk.Cursor.Cursor
setWidgetCursor :: (MonadIO m, IsWidget o, Gdk.Cursor.IsCursor a) => o -> a -> m ()
setWidgetCursor :: forall (m :: * -> *) o a.
(MonadIO m, IsWidget o, IsCursor a) =>
o -> a -> m ()
setWidgetCursor o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"cursor" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWidgetCursor :: (IsWidget o, MIO.MonadIO m, Gdk.Cursor.IsCursor a) => a -> m (GValueConstruct o)
constructWidgetCursor :: forall o (m :: * -> *) a.
(IsWidget o, MonadIO m, IsCursor a) =>
a -> m (GValueConstruct o)
constructWidgetCursor a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"cursor" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearWidgetCursor :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetCursor :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m ()
clearWidgetCursor o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Cursor -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"cursor" (Maybe Cursor
forall a. Maybe a
Nothing :: Maybe Gdk.Cursor.Cursor)
#if defined(ENABLE_OVERLOADING)
data WidgetCursorPropertyInfo
instance AttrInfo WidgetCursorPropertyInfo where
type AttrAllowedOps WidgetCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WidgetCursorPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetCursorPropertyInfo = Gdk.Cursor.IsCursor
type AttrTransferTypeConstraint WidgetCursorPropertyInfo = Gdk.Cursor.IsCursor
type AttrTransferType WidgetCursorPropertyInfo = Gdk.Cursor.Cursor
type AttrGetType WidgetCursorPropertyInfo = (Maybe Gdk.Cursor.Cursor)
type AttrLabel WidgetCursorPropertyInfo = "cursor"
type AttrOrigin WidgetCursorPropertyInfo = Widget
attrGet = getWidgetCursor
attrSet = setWidgetCursor
attrTransfer _ v = do
unsafeCastTo Gdk.Cursor.Cursor v
attrConstruct = constructWidgetCursor
attrClear = clearWidgetCursor
#endif
getWidgetFocusOnClick :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetFocusOnClick :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetFocusOnClick o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"focus-on-click"
setWidgetFocusOnClick :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetFocusOnClick :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetFocusOnClick o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"focus-on-click" Bool
val
constructWidgetFocusOnClick :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetFocusOnClick :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetFocusOnClick Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"focus-on-click" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetFocusOnClickPropertyInfo
instance AttrInfo WidgetFocusOnClickPropertyInfo where
type AttrAllowedOps WidgetFocusOnClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetFocusOnClickPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetFocusOnClickPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetFocusOnClickPropertyInfo = (~) Bool
type AttrTransferType WidgetFocusOnClickPropertyInfo = Bool
type AttrGetType WidgetFocusOnClickPropertyInfo = Bool
type AttrLabel WidgetFocusOnClickPropertyInfo = "focus-on-click"
type AttrOrigin WidgetFocusOnClickPropertyInfo = Widget
attrGet = getWidgetFocusOnClick
attrSet = setWidgetFocusOnClick
attrTransfer _ v = do
return v
attrConstruct = constructWidgetFocusOnClick
attrClear = undefined
#endif
getWidgetFocusable :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetFocusable :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetFocusable o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"focusable"
setWidgetFocusable :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetFocusable :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetFocusable o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"focusable" Bool
val
constructWidgetFocusable :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetFocusable :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetFocusable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"focusable" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetFocusablePropertyInfo
instance AttrInfo WidgetFocusablePropertyInfo where
type AttrAllowedOps WidgetFocusablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetFocusablePropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetFocusablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetFocusablePropertyInfo = (~) Bool
type AttrTransferType WidgetFocusablePropertyInfo = Bool
type AttrGetType WidgetFocusablePropertyInfo = Bool
type AttrLabel WidgetFocusablePropertyInfo = "focusable"
type AttrOrigin WidgetFocusablePropertyInfo = Widget
attrGet = getWidgetFocusable
attrSet = setWidgetFocusable
attrTransfer _ v = do
return v
attrConstruct = constructWidgetFocusable
attrClear = undefined
#endif
getWidgetHalign :: (MonadIO m, IsWidget o) => o -> m Gtk.Enums.Align
getWidgetHalign :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Align
getWidgetHalign o
obj = IO Align -> m Align
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Align -> m Align) -> IO Align -> m Align
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Align
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"halign"
setWidgetHalign :: (MonadIO m, IsWidget o) => o -> Gtk.Enums.Align -> m ()
setWidgetHalign :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Align -> m ()
setWidgetHalign o
obj Align
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Align -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"halign" Align
val
constructWidgetHalign :: (IsWidget o, MIO.MonadIO m) => Gtk.Enums.Align -> m (GValueConstruct o)
constructWidgetHalign :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Align -> m (GValueConstruct o)
constructWidgetHalign Align
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Align -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"halign" Align
val
#if defined(ENABLE_OVERLOADING)
data WidgetHalignPropertyInfo
instance AttrInfo WidgetHalignPropertyInfo where
type AttrAllowedOps WidgetHalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetHalignPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHalignPropertyInfo = (~) Gtk.Enums.Align
type AttrTransferTypeConstraint WidgetHalignPropertyInfo = (~) Gtk.Enums.Align
type AttrTransferType WidgetHalignPropertyInfo = Gtk.Enums.Align
type AttrGetType WidgetHalignPropertyInfo = Gtk.Enums.Align
type AttrLabel WidgetHalignPropertyInfo = "halign"
type AttrOrigin WidgetHalignPropertyInfo = Widget
attrGet = getWidgetHalign
attrSet = setWidgetHalign
attrTransfer _ v = do
return v
attrConstruct = constructWidgetHalign
attrClear = undefined
#endif
getWidgetHasDefault :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHasDefault :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHasDefault o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-default"
#if defined(ENABLE_OVERLOADING)
data WidgetHasDefaultPropertyInfo
instance AttrInfo WidgetHasDefaultPropertyInfo where
type AttrAllowedOps WidgetHasDefaultPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WidgetHasDefaultPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHasDefaultPropertyInfo = (~) ()
type AttrTransferTypeConstraint WidgetHasDefaultPropertyInfo = (~) ()
type AttrTransferType WidgetHasDefaultPropertyInfo = ()
type AttrGetType WidgetHasDefaultPropertyInfo = Bool
type AttrLabel WidgetHasDefaultPropertyInfo = "has-default"
type AttrOrigin WidgetHasDefaultPropertyInfo = Widget
attrGet = getWidgetHasDefault
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWidgetHasFocus :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHasFocus :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHasFocus o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-focus"
#if defined(ENABLE_OVERLOADING)
data WidgetHasFocusPropertyInfo
instance AttrInfo WidgetHasFocusPropertyInfo where
type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) ()
type AttrTransferTypeConstraint WidgetHasFocusPropertyInfo = (~) ()
type AttrTransferType WidgetHasFocusPropertyInfo = ()
type AttrGetType WidgetHasFocusPropertyInfo = Bool
type AttrLabel WidgetHasFocusPropertyInfo = "has-focus"
type AttrOrigin WidgetHasFocusPropertyInfo = Widget
attrGet = getWidgetHasFocus
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWidgetHasTooltip :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHasTooltip :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHasTooltip o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-tooltip"
setWidgetHasTooltip :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetHasTooltip :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetHasTooltip o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-tooltip" Bool
val
constructWidgetHasTooltip :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetHasTooltip :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetHasTooltip Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-tooltip" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetHasTooltipPropertyInfo
instance AttrInfo WidgetHasTooltipPropertyInfo where
type AttrAllowedOps WidgetHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetHasTooltipPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool
type AttrTransferType WidgetHasTooltipPropertyInfo = Bool
type AttrGetType WidgetHasTooltipPropertyInfo = Bool
type AttrLabel WidgetHasTooltipPropertyInfo = "has-tooltip"
type AttrOrigin WidgetHasTooltipPropertyInfo = Widget
attrGet = getWidgetHasTooltip
attrSet = setWidgetHasTooltip
attrTransfer _ v = do
return v
attrConstruct = constructWidgetHasTooltip
attrClear = undefined
#endif
getWidgetHeightRequest :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetHeightRequest :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Int32
getWidgetHeightRequest o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"height-request"
setWidgetHeightRequest :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetHeightRequest :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Int32 -> m ()
setWidgetHeightRequest o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"height-request" Int32
val
constructWidgetHeightRequest :: (IsWidget o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWidgetHeightRequest :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWidgetHeightRequest Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"height-request" Int32
val
#if defined(ENABLE_OVERLOADING)
data WidgetHeightRequestPropertyInfo
instance AttrInfo WidgetHeightRequestPropertyInfo where
type AttrAllowedOps WidgetHeightRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetHeightRequestPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32
type AttrTransferType WidgetHeightRequestPropertyInfo = Int32
type AttrGetType WidgetHeightRequestPropertyInfo = Int32
type AttrLabel WidgetHeightRequestPropertyInfo = "height-request"
type AttrOrigin WidgetHeightRequestPropertyInfo = Widget
attrGet = getWidgetHeightRequest
attrSet = setWidgetHeightRequest
attrTransfer _ v = do
return v
attrConstruct = constructWidgetHeightRequest
attrClear = undefined
#endif
getWidgetHexpand :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHexpand :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHexpand o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"hexpand"
setWidgetHexpand :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetHexpand :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetHexpand o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hexpand" Bool
val
constructWidgetHexpand :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetHexpand :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetHexpand Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"hexpand" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetHexpandPropertyInfo
instance AttrInfo WidgetHexpandPropertyInfo where
type AttrAllowedOps WidgetHexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetHexpandPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHexpandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetHexpandPropertyInfo = (~) Bool
type AttrTransferType WidgetHexpandPropertyInfo = Bool
type AttrGetType WidgetHexpandPropertyInfo = Bool
type AttrLabel WidgetHexpandPropertyInfo = "hexpand"
type AttrOrigin WidgetHexpandPropertyInfo = Widget
attrGet = getWidgetHexpand
attrSet = setWidgetHexpand
attrTransfer _ v = do
return v
attrConstruct = constructWidgetHexpand
attrClear = undefined
#endif
getWidgetHexpandSet :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHexpandSet :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHexpandSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"hexpand-set"
setWidgetHexpandSet :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetHexpandSet :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetHexpandSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hexpand-set" Bool
val
constructWidgetHexpandSet :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetHexpandSet :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetHexpandSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"hexpand-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetHexpandSetPropertyInfo
instance AttrInfo WidgetHexpandSetPropertyInfo where
type AttrAllowedOps WidgetHexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetHexpandSetPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool
type AttrTransferType WidgetHexpandSetPropertyInfo = Bool
type AttrGetType WidgetHexpandSetPropertyInfo = Bool
type AttrLabel WidgetHexpandSetPropertyInfo = "hexpand-set"
type AttrOrigin WidgetHexpandSetPropertyInfo = Widget
attrGet = getWidgetHexpandSet
attrSet = setWidgetHexpandSet
attrTransfer _ v = do
return v
attrConstruct = constructWidgetHexpandSet
attrClear = undefined
#endif
getWidgetLayoutManager :: (MonadIO m, IsWidget o) => o -> m (Maybe Gtk.LayoutManager.LayoutManager)
getWidgetLayoutManager :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe LayoutManager)
getWidgetLayoutManager o
obj = IO (Maybe LayoutManager) -> m (Maybe LayoutManager)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe LayoutManager) -> m (Maybe LayoutManager))
-> IO (Maybe LayoutManager) -> m (Maybe LayoutManager)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr LayoutManager -> LayoutManager)
-> IO (Maybe LayoutManager)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"layout-manager" ManagedPtr LayoutManager -> LayoutManager
Gtk.LayoutManager.LayoutManager
setWidgetLayoutManager :: (MonadIO m, IsWidget o, Gtk.LayoutManager.IsLayoutManager a) => o -> a -> m ()
setWidgetLayoutManager :: forall (m :: * -> *) o a.
(MonadIO m, IsWidget o, IsLayoutManager a) =>
o -> a -> m ()
setWidgetLayoutManager o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"layout-manager" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWidgetLayoutManager :: (IsWidget o, MIO.MonadIO m, Gtk.LayoutManager.IsLayoutManager a) => a -> m (GValueConstruct o)
constructWidgetLayoutManager :: forall o (m :: * -> *) a.
(IsWidget o, MonadIO m, IsLayoutManager a) =>
a -> m (GValueConstruct o)
constructWidgetLayoutManager a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"layout-manager" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearWidgetLayoutManager :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetLayoutManager :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m ()
clearWidgetLayoutManager o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe LayoutManager -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"layout-manager" (Maybe LayoutManager
forall a. Maybe a
Nothing :: Maybe Gtk.LayoutManager.LayoutManager)
#if defined(ENABLE_OVERLOADING)
data WidgetLayoutManagerPropertyInfo
instance AttrInfo WidgetLayoutManagerPropertyInfo where
type AttrAllowedOps WidgetLayoutManagerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WidgetLayoutManagerPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetLayoutManagerPropertyInfo = Gtk.LayoutManager.IsLayoutManager
type AttrTransferTypeConstraint WidgetLayoutManagerPropertyInfo = Gtk.LayoutManager.IsLayoutManager
type AttrTransferType WidgetLayoutManagerPropertyInfo = Gtk.LayoutManager.LayoutManager
type AttrGetType WidgetLayoutManagerPropertyInfo = (Maybe Gtk.LayoutManager.LayoutManager)
type AttrLabel WidgetLayoutManagerPropertyInfo = "layout-manager"
type AttrOrigin WidgetLayoutManagerPropertyInfo = Widget
attrGet = getWidgetLayoutManager
attrSet = setWidgetLayoutManager
attrTransfer _ v = do
unsafeCastTo Gtk.LayoutManager.LayoutManager v
attrConstruct = constructWidgetLayoutManager
attrClear = clearWidgetLayoutManager
#endif
getWidgetMarginBottom :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginBottom :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginBottom o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"margin-bottom"
setWidgetMarginBottom :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginBottom :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Int32 -> m ()
setWidgetMarginBottom o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"margin-bottom" Int32
val
constructWidgetMarginBottom :: (IsWidget o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWidgetMarginBottom :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWidgetMarginBottom Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"margin-bottom" Int32
val
#if defined(ENABLE_OVERLOADING)
data WidgetMarginBottomPropertyInfo
instance AttrInfo WidgetMarginBottomPropertyInfo where
type AttrAllowedOps WidgetMarginBottomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetMarginBottomPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32
type AttrTransferType WidgetMarginBottomPropertyInfo = Int32
type AttrGetType WidgetMarginBottomPropertyInfo = Int32
type AttrLabel WidgetMarginBottomPropertyInfo = "margin-bottom"
type AttrOrigin WidgetMarginBottomPropertyInfo = Widget
attrGet = getWidgetMarginBottom
attrSet = setWidgetMarginBottom
attrTransfer _ v = do
return v
attrConstruct = constructWidgetMarginBottom
attrClear = undefined
#endif
getWidgetMarginEnd :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginEnd :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginEnd o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"margin-end"
setWidgetMarginEnd :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginEnd :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Int32 -> m ()
setWidgetMarginEnd o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"margin-end" Int32
val
constructWidgetMarginEnd :: (IsWidget o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWidgetMarginEnd :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWidgetMarginEnd Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"margin-end" Int32
val
#if defined(ENABLE_OVERLOADING)
data WidgetMarginEndPropertyInfo
instance AttrInfo WidgetMarginEndPropertyInfo where
type AttrAllowedOps WidgetMarginEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetMarginEndPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32
type AttrTransferType WidgetMarginEndPropertyInfo = Int32
type AttrGetType WidgetMarginEndPropertyInfo = Int32
type AttrLabel WidgetMarginEndPropertyInfo = "margin-end"
type AttrOrigin WidgetMarginEndPropertyInfo = Widget
attrGet = getWidgetMarginEnd
attrSet = setWidgetMarginEnd
attrTransfer _ v = do
return v
attrConstruct = constructWidgetMarginEnd
attrClear = undefined
#endif
getWidgetMarginStart :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginStart :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginStart o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"margin-start"
setWidgetMarginStart :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginStart :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Int32 -> m ()
setWidgetMarginStart o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"margin-start" Int32
val
constructWidgetMarginStart :: (IsWidget o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWidgetMarginStart :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWidgetMarginStart Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"margin-start" Int32
val
#if defined(ENABLE_OVERLOADING)
data WidgetMarginStartPropertyInfo
instance AttrInfo WidgetMarginStartPropertyInfo where
type AttrAllowedOps WidgetMarginStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetMarginStartPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32
type AttrTransferType WidgetMarginStartPropertyInfo = Int32
type AttrGetType WidgetMarginStartPropertyInfo = Int32
type AttrLabel WidgetMarginStartPropertyInfo = "margin-start"
type AttrOrigin WidgetMarginStartPropertyInfo = Widget
attrGet = getWidgetMarginStart
attrSet = setWidgetMarginStart
attrTransfer _ v = do
return v
attrConstruct = constructWidgetMarginStart
attrClear = undefined
#endif
getWidgetMarginTop :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginTop :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginTop o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"margin-top"
setWidgetMarginTop :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginTop :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Int32 -> m ()
setWidgetMarginTop o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"margin-top" Int32
val
constructWidgetMarginTop :: (IsWidget o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWidgetMarginTop :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWidgetMarginTop Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"margin-top" Int32
val
#if defined(ENABLE_OVERLOADING)
data WidgetMarginTopPropertyInfo
instance AttrInfo WidgetMarginTopPropertyInfo where
type AttrAllowedOps WidgetMarginTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetMarginTopPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32
type AttrTransferType WidgetMarginTopPropertyInfo = Int32
type AttrGetType WidgetMarginTopPropertyInfo = Int32
type AttrLabel WidgetMarginTopPropertyInfo = "margin-top"
type AttrOrigin WidgetMarginTopPropertyInfo = Widget
attrGet = getWidgetMarginTop
attrSet = setWidgetMarginTop
attrTransfer _ v = do
return v
attrConstruct = constructWidgetMarginTop
attrClear = undefined
#endif
getWidgetName :: (MonadIO m, IsWidget o) => o -> m (Maybe T.Text)
getWidgetName :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe Text)
getWidgetName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"name"
setWidgetName :: (MonadIO m, IsWidget o) => o -> T.Text -> m ()
setWidgetName :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Text -> m ()
setWidgetName o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWidgetName :: (IsWidget o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWidgetName :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWidgetName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WidgetNamePropertyInfo
instance AttrInfo WidgetNamePropertyInfo where
type AttrAllowedOps WidgetNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetNamePropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WidgetNamePropertyInfo = (~) T.Text
type AttrTransferType WidgetNamePropertyInfo = T.Text
type AttrGetType WidgetNamePropertyInfo = (Maybe T.Text)
type AttrLabel WidgetNamePropertyInfo = "name"
type AttrOrigin WidgetNamePropertyInfo = Widget
attrGet = getWidgetName
attrSet = setWidgetName
attrTransfer _ v = do
return v
attrConstruct = constructWidgetName
attrClear = undefined
#endif
getWidgetOpacity :: (MonadIO m, IsWidget o) => o -> m Double
getWidgetOpacity :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Double
getWidgetOpacity o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"opacity"
setWidgetOpacity :: (MonadIO m, IsWidget o) => o -> Double -> m ()
setWidgetOpacity :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Double -> m ()
setWidgetOpacity o
obj Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"opacity" Double
val
constructWidgetOpacity :: (IsWidget o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructWidgetOpacity :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructWidgetOpacity Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"opacity" Double
val
#if defined(ENABLE_OVERLOADING)
data WidgetOpacityPropertyInfo
instance AttrInfo WidgetOpacityPropertyInfo where
type AttrAllowedOps WidgetOpacityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetOpacityPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetOpacityPropertyInfo = (~) Double
type AttrTransferTypeConstraint WidgetOpacityPropertyInfo = (~) Double
type AttrTransferType WidgetOpacityPropertyInfo = Double
type AttrGetType WidgetOpacityPropertyInfo = Double
type AttrLabel WidgetOpacityPropertyInfo = "opacity"
type AttrOrigin WidgetOpacityPropertyInfo = Widget
attrGet = getWidgetOpacity
attrSet = setWidgetOpacity
attrTransfer _ v = do
return v
attrConstruct = constructWidgetOpacity
attrClear = undefined
#endif
getWidgetOverflow :: (MonadIO m, IsWidget o) => o -> m Gtk.Enums.Overflow
getWidgetOverflow :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Overflow
getWidgetOverflow o
obj = IO Overflow -> m Overflow
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Overflow -> m Overflow) -> IO Overflow -> m Overflow
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Overflow
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"overflow"
setWidgetOverflow :: (MonadIO m, IsWidget o) => o -> Gtk.Enums.Overflow -> m ()
setWidgetOverflow :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Overflow -> m ()
setWidgetOverflow o
obj Overflow
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Overflow -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"overflow" Overflow
val
constructWidgetOverflow :: (IsWidget o, MIO.MonadIO m) => Gtk.Enums.Overflow -> m (GValueConstruct o)
constructWidgetOverflow :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Overflow -> m (GValueConstruct o)
constructWidgetOverflow Overflow
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Overflow -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"overflow" Overflow
val
#if defined(ENABLE_OVERLOADING)
data WidgetOverflowPropertyInfo
instance AttrInfo WidgetOverflowPropertyInfo where
type AttrAllowedOps WidgetOverflowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetOverflowPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetOverflowPropertyInfo = (~) Gtk.Enums.Overflow
type AttrTransferTypeConstraint WidgetOverflowPropertyInfo = (~) Gtk.Enums.Overflow
type AttrTransferType WidgetOverflowPropertyInfo = Gtk.Enums.Overflow
type AttrGetType WidgetOverflowPropertyInfo = Gtk.Enums.Overflow
type AttrLabel WidgetOverflowPropertyInfo = "overflow"
type AttrOrigin WidgetOverflowPropertyInfo = Widget
attrGet = getWidgetOverflow
attrSet = setWidgetOverflow
attrTransfer _ v = do
return v
attrConstruct = constructWidgetOverflow
attrClear = undefined
#endif
getWidgetParent :: (MonadIO m, IsWidget o) => o -> m (Maybe Widget)
getWidgetParent :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe Widget)
getWidgetParent o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"parent" ManagedPtr Widget -> Widget
Widget
#if defined(ENABLE_OVERLOADING)
data WidgetParentPropertyInfo
instance AttrInfo WidgetParentPropertyInfo where
type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WidgetParentPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetParentPropertyInfo = (~) ()
type AttrTransferTypeConstraint WidgetParentPropertyInfo = (~) ()
type AttrTransferType WidgetParentPropertyInfo = ()
type AttrGetType WidgetParentPropertyInfo = (Maybe Widget)
type AttrLabel WidgetParentPropertyInfo = "parent"
type AttrOrigin WidgetParentPropertyInfo = Widget
attrGet = getWidgetParent
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWidgetReceivesDefault :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetReceivesDefault :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetReceivesDefault o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"receives-default"
setWidgetReceivesDefault :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetReceivesDefault :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetReceivesDefault o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"receives-default" Bool
val
constructWidgetReceivesDefault :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetReceivesDefault :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetReceivesDefault Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"receives-default" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetReceivesDefaultPropertyInfo
instance AttrInfo WidgetReceivesDefaultPropertyInfo where
type AttrAllowedOps WidgetReceivesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetReceivesDefaultPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool
type AttrTransferType WidgetReceivesDefaultPropertyInfo = Bool
type AttrGetType WidgetReceivesDefaultPropertyInfo = Bool
type AttrLabel WidgetReceivesDefaultPropertyInfo = "receives-default"
type AttrOrigin WidgetReceivesDefaultPropertyInfo = Widget
attrGet = getWidgetReceivesDefault
attrSet = setWidgetReceivesDefault
attrTransfer _ v = do
return v
attrConstruct = constructWidgetReceivesDefault
attrClear = undefined
#endif
getWidgetRoot :: (MonadIO m, IsWidget o) => o -> m (Maybe Gtk.Root.Root)
getWidgetRoot :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe Root)
getWidgetRoot o
obj = IO (Maybe Root) -> m (Maybe Root)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Root) -> m (Maybe Root))
-> IO (Maybe Root) -> m (Maybe Root)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Root -> Root) -> IO (Maybe Root)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"root" ManagedPtr Root -> Root
Gtk.Root.Root
#if defined(ENABLE_OVERLOADING)
data WidgetRootPropertyInfo
instance AttrInfo WidgetRootPropertyInfo where
type AttrAllowedOps WidgetRootPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WidgetRootPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetRootPropertyInfo = (~) ()
type AttrTransferTypeConstraint WidgetRootPropertyInfo = (~) ()
type AttrTransferType WidgetRootPropertyInfo = ()
type AttrGetType WidgetRootPropertyInfo = (Maybe Gtk.Root.Root)
type AttrLabel WidgetRootPropertyInfo = "root"
type AttrOrigin WidgetRootPropertyInfo = Widget
attrGet = getWidgetRoot
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWidgetScaleFactor :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetScaleFactor :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Int32
getWidgetScaleFactor o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"scale-factor"
#if defined(ENABLE_OVERLOADING)
data WidgetScaleFactorPropertyInfo
instance AttrInfo WidgetScaleFactorPropertyInfo where
type AttrAllowedOps WidgetScaleFactorPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WidgetScaleFactorPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetScaleFactorPropertyInfo = (~) ()
type AttrTransferTypeConstraint WidgetScaleFactorPropertyInfo = (~) ()
type AttrTransferType WidgetScaleFactorPropertyInfo = ()
type AttrGetType WidgetScaleFactorPropertyInfo = Int32
type AttrLabel WidgetScaleFactorPropertyInfo = "scale-factor"
type AttrOrigin WidgetScaleFactorPropertyInfo = Widget
attrGet = getWidgetScaleFactor
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWidgetSensitive :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetSensitive :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetSensitive o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"sensitive"
setWidgetSensitive :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetSensitive :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetSensitive o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"sensitive" Bool
val
constructWidgetSensitive :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetSensitive :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetSensitive Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"sensitive" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetSensitivePropertyInfo
instance AttrInfo WidgetSensitivePropertyInfo where
type AttrAllowedOps WidgetSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetSensitivePropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetSensitivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetSensitivePropertyInfo = (~) Bool
type AttrTransferType WidgetSensitivePropertyInfo = Bool
type AttrGetType WidgetSensitivePropertyInfo = Bool
type AttrLabel WidgetSensitivePropertyInfo = "sensitive"
type AttrOrigin WidgetSensitivePropertyInfo = Widget
attrGet = getWidgetSensitive
attrSet = setWidgetSensitive
attrTransfer _ v = do
return v
attrConstruct = constructWidgetSensitive
attrClear = undefined
#endif
getWidgetTooltipMarkup :: (MonadIO m, IsWidget o) => o -> m (Maybe T.Text)
getWidgetTooltipMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe Text)
getWidgetTooltipMarkup o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"tooltip-markup"
setWidgetTooltipMarkup :: (MonadIO m, IsWidget o) => o -> T.Text -> m ()
setWidgetTooltipMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Text -> m ()
setWidgetTooltipMarkup o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tooltip-markup" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWidgetTooltipMarkup :: (IsWidget o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWidgetTooltipMarkup :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWidgetTooltipMarkup Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"tooltip-markup" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearWidgetTooltipMarkup :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetTooltipMarkup :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m ()
clearWidgetTooltipMarkup o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tooltip-markup" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data WidgetTooltipMarkupPropertyInfo
instance AttrInfo WidgetTooltipMarkupPropertyInfo where
type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text
type AttrTransferType WidgetTooltipMarkupPropertyInfo = T.Text
type AttrGetType WidgetTooltipMarkupPropertyInfo = (Maybe T.Text)
type AttrLabel WidgetTooltipMarkupPropertyInfo = "tooltip-markup"
type AttrOrigin WidgetTooltipMarkupPropertyInfo = Widget
attrGet = getWidgetTooltipMarkup
attrSet = setWidgetTooltipMarkup
attrTransfer _ v = do
return v
attrConstruct = constructWidgetTooltipMarkup
attrClear = clearWidgetTooltipMarkup
#endif
getWidgetTooltipText :: (MonadIO m, IsWidget o) => o -> m (Maybe T.Text)
getWidgetTooltipText :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> m (Maybe Text)
getWidgetTooltipText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"tooltip-text"
setWidgetTooltipText :: (MonadIO m, IsWidget o) => o -> T.Text -> m ()
setWidgetTooltipText :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Text -> m ()
setWidgetTooltipText o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tooltip-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWidgetTooltipText :: (IsWidget o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWidgetTooltipText :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWidgetTooltipText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"tooltip-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearWidgetTooltipText :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetTooltipText :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m ()
clearWidgetTooltipText o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tooltip-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data WidgetTooltipTextPropertyInfo
instance AttrInfo WidgetTooltipTextPropertyInfo where
type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text
type AttrTransferType WidgetTooltipTextPropertyInfo = T.Text
type AttrGetType WidgetTooltipTextPropertyInfo = (Maybe T.Text)
type AttrLabel WidgetTooltipTextPropertyInfo = "tooltip-text"
type AttrOrigin WidgetTooltipTextPropertyInfo = Widget
attrGet = getWidgetTooltipText
attrSet = setWidgetTooltipText
attrTransfer _ v = do
return v
attrConstruct = constructWidgetTooltipText
attrClear = clearWidgetTooltipText
#endif
getWidgetValign :: (MonadIO m, IsWidget o) => o -> m Gtk.Enums.Align
getWidgetValign :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Align
getWidgetValign o
obj = IO Align -> m Align
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Align -> m Align) -> IO Align -> m Align
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Align
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"valign"
setWidgetValign :: (MonadIO m, IsWidget o) => o -> Gtk.Enums.Align -> m ()
setWidgetValign :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Align -> m ()
setWidgetValign o
obj Align
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Align -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"valign" Align
val
constructWidgetValign :: (IsWidget o, MIO.MonadIO m) => Gtk.Enums.Align -> m (GValueConstruct o)
constructWidgetValign :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Align -> m (GValueConstruct o)
constructWidgetValign Align
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Align -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"valign" Align
val
#if defined(ENABLE_OVERLOADING)
data WidgetValignPropertyInfo
instance AttrInfo WidgetValignPropertyInfo where
type AttrAllowedOps WidgetValignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetValignPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetValignPropertyInfo = (~) Gtk.Enums.Align
type AttrTransferTypeConstraint WidgetValignPropertyInfo = (~) Gtk.Enums.Align
type AttrTransferType WidgetValignPropertyInfo = Gtk.Enums.Align
type AttrGetType WidgetValignPropertyInfo = Gtk.Enums.Align
type AttrLabel WidgetValignPropertyInfo = "valign"
type AttrOrigin WidgetValignPropertyInfo = Widget
attrGet = getWidgetValign
attrSet = setWidgetValign
attrTransfer _ v = do
return v
attrConstruct = constructWidgetValign
attrClear = undefined
#endif
getWidgetVexpand :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetVexpand :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetVexpand o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"vexpand"
setWidgetVexpand :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetVexpand :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetVexpand o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"vexpand" Bool
val
constructWidgetVexpand :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetVexpand :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetVexpand Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"vexpand" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetVexpandPropertyInfo
instance AttrInfo WidgetVexpandPropertyInfo where
type AttrAllowedOps WidgetVexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetVexpandPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetVexpandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetVexpandPropertyInfo = (~) Bool
type AttrTransferType WidgetVexpandPropertyInfo = Bool
type AttrGetType WidgetVexpandPropertyInfo = Bool
type AttrLabel WidgetVexpandPropertyInfo = "vexpand"
type AttrOrigin WidgetVexpandPropertyInfo = Widget
attrGet = getWidgetVexpand
attrSet = setWidgetVexpand
attrTransfer _ v = do
return v
attrConstruct = constructWidgetVexpand
attrClear = undefined
#endif
getWidgetVexpandSet :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetVexpandSet :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetVexpandSet o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"vexpand-set"
setWidgetVexpandSet :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetVexpandSet :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetVexpandSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"vexpand-set" Bool
val
constructWidgetVexpandSet :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetVexpandSet :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetVexpandSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"vexpand-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetVexpandSetPropertyInfo
instance AttrInfo WidgetVexpandSetPropertyInfo where
type AttrAllowedOps WidgetVexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetVexpandSetPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool
type AttrTransferType WidgetVexpandSetPropertyInfo = Bool
type AttrGetType WidgetVexpandSetPropertyInfo = Bool
type AttrLabel WidgetVexpandSetPropertyInfo = "vexpand-set"
type AttrOrigin WidgetVexpandSetPropertyInfo = Widget
attrGet = getWidgetVexpandSet
attrSet = setWidgetVexpandSet
attrTransfer _ v = do
return v
attrConstruct = constructWidgetVexpandSet
attrClear = undefined
#endif
getWidgetVisible :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetVisible :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Bool
getWidgetVisible o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"visible"
setWidgetVisible :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetVisible :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Bool -> m ()
setWidgetVisible o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"visible" Bool
val
constructWidgetVisible :: (IsWidget o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWidgetVisible :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWidgetVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetVisiblePropertyInfo
instance AttrInfo WidgetVisiblePropertyInfo where
type AttrAllowedOps WidgetVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetVisiblePropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetVisiblePropertyInfo = (~) Bool
type AttrTransferType WidgetVisiblePropertyInfo = Bool
type AttrGetType WidgetVisiblePropertyInfo = Bool
type AttrLabel WidgetVisiblePropertyInfo = "visible"
type AttrOrigin WidgetVisiblePropertyInfo = Widget
attrGet = getWidgetVisible
attrSet = setWidgetVisible
attrTransfer _ v = do
return v
attrConstruct = constructWidgetVisible
attrClear = undefined
#endif
getWidgetWidthRequest :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetWidthRequest :: forall (m :: * -> *) o. (MonadIO m, IsWidget o) => o -> m Int32
getWidgetWidthRequest o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"width-request"
setWidgetWidthRequest :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetWidthRequest :: forall (m :: * -> *) o.
(MonadIO m, IsWidget o) =>
o -> Int32 -> m ()
setWidgetWidthRequest o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"width-request" Int32
val
constructWidgetWidthRequest :: (IsWidget o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWidgetWidthRequest :: forall o (m :: * -> *).
(IsWidget o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWidgetWidthRequest Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"width-request" Int32
val
#if defined(ENABLE_OVERLOADING)
data WidgetWidthRequestPropertyInfo
instance AttrInfo WidgetWidthRequestPropertyInfo where
type AttrAllowedOps WidgetWidthRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetWidthRequestPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32
type AttrTransferType WidgetWidthRequestPropertyInfo = Int32
type AttrGetType WidgetWidthRequestPropertyInfo = Int32
type AttrLabel WidgetWidthRequestPropertyInfo = "width-request"
type AttrOrigin WidgetWidthRequestPropertyInfo = Widget
attrGet = getWidgetWidthRequest
attrSet = setWidgetWidthRequest
attrTransfer _ v = do
return v
attrConstruct = constructWidgetWidthRequest
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Widget
type instance O.AttributeList Widget = WidgetAttributeList
type WidgetAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("canTarget", WidgetCanTargetPropertyInfo), '("cssClasses", WidgetCssClassesPropertyInfo), '("cssName", WidgetCssNamePropertyInfo), '("cursor", WidgetCursorPropertyInfo), '("focusOnClick", WidgetFocusOnClickPropertyInfo), '("focusable", WidgetFocusablePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("layoutManager", WidgetLayoutManagerPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overflow", WidgetOverflowPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("root", WidgetRootPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
widgetCanFocus :: AttrLabelProxy "canFocus"
widgetCanFocus = AttrLabelProxy
widgetCanTarget :: AttrLabelProxy "canTarget"
widgetCanTarget = AttrLabelProxy
widgetCssClasses :: AttrLabelProxy "cssClasses"
widgetCssClasses = AttrLabelProxy
widgetCssName :: AttrLabelProxy "cssName"
widgetCssName = AttrLabelProxy
widgetCursor :: AttrLabelProxy "cursor"
widgetCursor = AttrLabelProxy
widgetFocusOnClick :: AttrLabelProxy "focusOnClick"
widgetFocusOnClick = AttrLabelProxy
widgetFocusable :: AttrLabelProxy "focusable"
widgetFocusable = AttrLabelProxy
widgetHalign :: AttrLabelProxy "halign"
widgetHalign = AttrLabelProxy
widgetHasTooltip :: AttrLabelProxy "hasTooltip"
widgetHasTooltip = AttrLabelProxy
widgetHeightRequest :: AttrLabelProxy "heightRequest"
widgetHeightRequest = AttrLabelProxy
widgetHexpand :: AttrLabelProxy "hexpand"
widgetHexpand = AttrLabelProxy
widgetHexpandSet :: AttrLabelProxy "hexpandSet"
widgetHexpandSet = AttrLabelProxy
widgetLayoutManager :: AttrLabelProxy "layoutManager"
widgetLayoutManager = AttrLabelProxy
widgetMarginBottom :: AttrLabelProxy "marginBottom"
widgetMarginBottom = AttrLabelProxy
widgetMarginEnd :: AttrLabelProxy "marginEnd"
widgetMarginEnd = AttrLabelProxy
widgetMarginStart :: AttrLabelProxy "marginStart"
widgetMarginStart = AttrLabelProxy
widgetMarginTop :: AttrLabelProxy "marginTop"
widgetMarginTop = AttrLabelProxy
widgetName :: AttrLabelProxy "name"
widgetName = AttrLabelProxy
widgetOpacity :: AttrLabelProxy "opacity"
widgetOpacity = AttrLabelProxy
widgetOverflow :: AttrLabelProxy "overflow"
widgetOverflow = AttrLabelProxy
widgetParent :: AttrLabelProxy "parent"
widgetParent = AttrLabelProxy
widgetReceivesDefault :: AttrLabelProxy "receivesDefault"
widgetReceivesDefault = AttrLabelProxy
widgetRoot :: AttrLabelProxy "root"
widgetRoot = AttrLabelProxy
widgetScaleFactor :: AttrLabelProxy "scaleFactor"
widgetScaleFactor = AttrLabelProxy
widgetSensitive :: AttrLabelProxy "sensitive"
widgetSensitive = AttrLabelProxy
widgetTooltipMarkup :: AttrLabelProxy "tooltipMarkup"
widgetTooltipMarkup = AttrLabelProxy
widgetTooltipText :: AttrLabelProxy "tooltipText"
widgetTooltipText = AttrLabelProxy
widgetValign :: AttrLabelProxy "valign"
widgetValign = AttrLabelProxy
widgetVexpand :: AttrLabelProxy "vexpand"
widgetVexpand = AttrLabelProxy
widgetVexpandSet :: AttrLabelProxy "vexpandSet"
widgetVexpandSet = AttrLabelProxy
widgetVisible :: AttrLabelProxy "visible"
widgetVisible = AttrLabelProxy
widgetWidthRequest :: AttrLabelProxy "widthRequest"
widgetWidthRequest = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Widget = WidgetSignalList
type WidgetSignalList = ('[ '("destroy", WidgetDestroySignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("map", WidgetMapSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("show", WidgetShowSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_widget_action_set_enabled" gtk_widget_action_set_enabled ::
Ptr Widget ->
CString ->
CInt ->
IO ()
widgetActionSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> Bool
-> m ()
widgetActionSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Text -> Bool -> m ()
widgetActionSetEnabled a
widget Text
actionName Bool
enabled = 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
CString
actionName' <- Text -> IO CString
textToCString Text
actionName
let enabled' :: CInt
enabled' = (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
enabled
Ptr Widget -> CString -> CInt -> IO ()
gtk_widget_action_set_enabled Ptr Widget
widget' CString
actionName' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
actionName'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetActionSetEnabledMethodInfo
instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetActionSetEnabledMethodInfo a signature where
overloadedMethod = widgetActionSetEnabled
instance O.OverloadedMethodInfo WidgetActionSetEnabledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetActionSetEnabled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetActionSetEnabled"
}
#endif
foreign import ccall "gtk_widget_activate" gtk_widget_activate ::
Ptr Widget ->
IO CInt
widgetActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetActivate 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 <- Ptr Widget -> IO CInt
gtk_widget_activate Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetActivateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetActivateMethodInfo a signature where
overloadedMethod = widgetActivate
instance O.OverloadedMethodInfo WidgetActivateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetActivate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetActivate"
}
#endif
foreign import ccall "gtk_widget_activate_action_variant" gtk_widget_activate_action_variant ::
Ptr Widget ->
CString ->
Ptr GVariant ->
IO CInt
widgetActivateAction ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> Maybe (GVariant)
-> m Bool
widgetActivateAction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Text -> Maybe GVariant -> m Bool
widgetActivateAction a
widget Text
name Maybe GVariant
args = 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
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr GVariant
maybeArgs <- case Maybe GVariant
args of
Maybe GVariant
Nothing -> Ptr GVariant -> IO (Ptr GVariant)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
forall a. Ptr a
nullPtr
Just GVariant
jArgs -> do
Ptr GVariant
jArgs' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jArgs
Ptr GVariant -> IO (Ptr GVariant)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jArgs'
CInt
result <- Ptr Widget -> CString -> Ptr GVariant -> IO CInt
gtk_widget_activate_action_variant Ptr Widget
widget' CString
name' Ptr GVariant
maybeArgs
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe GVariant -> (GVariant -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
args GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetActivateActionMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetActivateActionMethodInfo a signature where
overloadedMethod = widgetActivateAction
instance O.OverloadedMethodInfo WidgetActivateActionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetActivateAction",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetActivateAction"
}
#endif
foreign import ccall "gtk_widget_activate_default" gtk_widget_activate_default ::
Ptr Widget ->
IO ()
widgetActivateDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetActivateDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetActivateDefault 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
Ptr Widget -> IO ()
gtk_widget_activate_default Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetActivateDefaultMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetActivateDefaultMethodInfo a signature where
overloadedMethod = widgetActivateDefault
instance O.OverloadedMethodInfo WidgetActivateDefaultMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetActivateDefault",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetActivateDefault"
}
#endif
foreign import ccall "gtk_widget_add_controller" gtk_widget_add_controller ::
Ptr Widget ->
Ptr Gtk.EventController.EventController ->
IO ()
widgetAddController ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gtk.EventController.IsEventController b) =>
a
-> b
-> m ()
widgetAddController :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsEventController b) =>
a -> b -> m ()
widgetAddController a
widget b
controller = 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 EventController
controller' <- b -> IO (Ptr EventController)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject b
controller
Ptr Widget -> Ptr EventController -> IO ()
gtk_widget_add_controller Ptr Widget
widget' Ptr EventController
controller'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
controller
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetAddControllerMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, Gtk.EventController.IsEventController b) => O.OverloadedMethod WidgetAddControllerMethodInfo a signature where
overloadedMethod = widgetAddController
instance O.OverloadedMethodInfo WidgetAddControllerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetAddController",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetAddController"
}
#endif
foreign import ccall "gtk_widget_add_css_class" gtk_widget_add_css_class ::
Ptr Widget ->
CString ->
IO ()
widgetAddCssClass ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> m ()
widgetAddCssClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Text -> m ()
widgetAddCssClass a
widget Text
cssClass = 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
CString
cssClass' <- Text -> IO CString
textToCString Text
cssClass
Ptr Widget -> CString -> IO ()
gtk_widget_add_css_class Ptr Widget
widget' CString
cssClass'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
cssClass'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetAddCssClassMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetAddCssClassMethodInfo a signature where
overloadedMethod = widgetAddCssClass
instance O.OverloadedMethodInfo WidgetAddCssClassMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetAddCssClass",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetAddCssClass"
}
#endif
foreign import ccall "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetAddMnemonicLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> m ()
widgetAddMnemonicLabel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> m ()
widgetAddMnemonicLabel a
widget b
label = 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 Widget
label' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
label
Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_add_mnemonic_label Ptr Widget
widget' Ptr Widget
label'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
label
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetAddMnemonicLabelMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetAddMnemonicLabelMethodInfo a signature where
overloadedMethod = widgetAddMnemonicLabel
instance O.OverloadedMethodInfo WidgetAddMnemonicLabelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetAddMnemonicLabel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetAddMnemonicLabel"
}
#endif
foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback ::
Ptr Widget ->
FunPtr Gtk.Callbacks.C_TickCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO Word32
widgetAddTickCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Callbacks.TickCallback
-> m Word32
widgetAddTickCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> TickCallback -> m Word32
widgetAddTickCallback a
widget TickCallback
callback = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
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_TickCallback
callback' <- C_TickCallback -> IO (FunPtr C_TickCallback)
Gtk.Callbacks.mk_TickCallback (Maybe (Ptr (FunPtr C_TickCallback))
-> TickCallback_WithClosures -> C_TickCallback
Gtk.Callbacks.wrap_TickCallback Maybe (Ptr (FunPtr C_TickCallback))
forall a. Maybe a
Nothing (TickCallback -> TickCallback_WithClosures
Gtk.Callbacks.drop_closures_TickCallback TickCallback
callback))
let userData :: Ptr ()
userData = FunPtr C_TickCallback -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TickCallback
callback'
let notify :: FunPtr (Ptr a -> IO ())
notify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Word32
result <- Ptr Widget
-> FunPtr C_TickCallback
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO Word32
gtk_widget_add_tick_callback Ptr Widget
widget' FunPtr C_TickCallback
callback' Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
notify
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data WidgetAddTickCallbackMethodInfo
instance (signature ~ (Gtk.Callbacks.TickCallback -> m Word32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetAddTickCallbackMethodInfo a signature where
overloadedMethod = widgetAddTickCallback
instance O.OverloadedMethodInfo WidgetAddTickCallbackMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetAddTickCallback",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetAddTickCallback"
}
#endif
foreign import ccall "gtk_widget_allocate" gtk_widget_allocate ::
Ptr Widget ->
Int32 ->
Int32 ->
Int32 ->
Ptr Gsk.Transform.Transform ->
IO ()
widgetAllocate ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Int32
-> Int32
-> Int32
-> Maybe (Gsk.Transform.Transform)
-> m ()
widgetAllocate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Int32 -> Int32 -> Int32 -> Maybe Transform -> m ()
widgetAllocate a
widget Int32
width Int32
height Int32
baseline Maybe Transform
transform = 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 Transform
maybeTransform <- case Maybe Transform
transform of
Maybe Transform
Nothing -> Ptr Transform -> IO (Ptr Transform)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Transform
forall a. Ptr a
nullPtr
Just Transform
jTransform -> do
Ptr Transform
jTransform' <- Transform -> IO (Ptr Transform)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Transform
jTransform
Ptr Transform -> IO (Ptr Transform)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Transform
jTransform'
Ptr Widget -> Int32 -> Int32 -> Int32 -> Ptr Transform -> IO ()
gtk_widget_allocate Ptr Widget
widget' Int32
width Int32
height Int32
baseline Ptr Transform
maybeTransform
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Transform -> (Transform -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Transform
transform Transform -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetAllocateMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Maybe (Gsk.Transform.Transform) -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetAllocateMethodInfo a signature where
overloadedMethod = widgetAllocate
instance O.OverloadedMethodInfo WidgetAllocateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetAllocate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetAllocate"
}
#endif
foreign import ccall "gtk_widget_child_focus" gtk_widget_child_focus ::
Ptr Widget ->
CUInt ->
IO CInt
widgetChildFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.DirectionType
-> m Bool
widgetChildFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> DirectionType -> m Bool
widgetChildFocus a
widget 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 <- Ptr Widget -> CUInt -> IO CInt
gtk_widget_child_focus Ptr Widget
widget' CUInt
direction'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetChildFocusMethodInfo
instance (signature ~ (Gtk.Enums.DirectionType -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetChildFocusMethodInfo a signature where
overloadedMethod = widgetChildFocus
instance O.OverloadedMethodInfo WidgetChildFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetChildFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetChildFocus"
}
#endif
foreign import ccall "gtk_widget_compute_bounds" gtk_widget_compute_bounds ::
Ptr Widget ->
Ptr Widget ->
Ptr Graphene.Rect.Rect ->
IO CInt
widgetComputeBounds ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> m ((Bool, Graphene.Rect.Rect))
widgetComputeBounds :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> m (Bool, Rect)
widgetComputeBounds a
widget b
target = IO (Bool, Rect) -> m (Bool, Rect)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Rect) -> m (Bool, Rect))
-> IO (Bool, Rect) -> m (Bool, Rect)
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 Widget
target' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
target
Ptr Rect
outBounds <- Int -> IO (Ptr Rect)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Graphene.Rect.Rect)
CInt
result <- Ptr Widget -> Ptr Widget -> Ptr Rect -> IO CInt
gtk_widget_compute_bounds Ptr Widget
widget' Ptr Widget
target' Ptr Rect
outBounds
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Rect
outBounds' <- ((ManagedPtr Rect -> Rect) -> Ptr Rect -> IO Rect
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rect -> Rect
Graphene.Rect.Rect) Ptr Rect
outBounds
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
target
(Bool, Rect) -> IO (Bool, Rect)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Rect
outBounds')
#if defined(ENABLE_OVERLOADING)
data WidgetComputeBoundsMethodInfo
instance (signature ~ (b -> m ((Bool, Graphene.Rect.Rect))), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetComputeBoundsMethodInfo a signature where
overloadedMethod = widgetComputeBounds
instance O.OverloadedMethodInfo WidgetComputeBoundsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetComputeBounds",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetComputeBounds"
}
#endif
foreign import ccall "gtk_widget_compute_expand" gtk_widget_compute_expand ::
Ptr Widget ->
CUInt ->
IO CInt
widgetComputeExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.Orientation
-> m Bool
widgetComputeExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Orientation -> m Bool
widgetComputeExpand a
widget Orientation
orientation = 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 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
CInt
result <- Ptr Widget -> CUInt -> IO CInt
gtk_widget_compute_expand Ptr Widget
widget' CUInt
orientation'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetComputeExpandMethodInfo
instance (signature ~ (Gtk.Enums.Orientation -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetComputeExpandMethodInfo a signature where
overloadedMethod = widgetComputeExpand
instance O.OverloadedMethodInfo WidgetComputeExpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetComputeExpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetComputeExpand"
}
#endif
foreign import ccall "gtk_widget_compute_point" gtk_widget_compute_point ::
Ptr Widget ->
Ptr Widget ->
Ptr Graphene.Point.Point ->
Ptr Graphene.Point.Point ->
IO CInt
widgetComputePoint ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> Graphene.Point.Point
-> m ((Bool, Graphene.Point.Point))
widgetComputePoint :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> Point -> m (Bool, Point)
widgetComputePoint a
widget b
target Point
point = IO (Bool, Point) -> m (Bool, Point)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Point) -> m (Bool, Point))
-> IO (Bool, Point) -> m (Bool, Point)
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 Widget
target' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
target
Ptr Point
point' <- Point -> IO (Ptr Point)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Point
point
Ptr Point
outPoint <- Int -> IO (Ptr Point)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
8 :: IO (Ptr Graphene.Point.Point)
CInt
result <- Ptr Widget -> Ptr Widget -> Ptr Point -> Ptr Point -> IO CInt
gtk_widget_compute_point Ptr Widget
widget' Ptr Widget
target' Ptr Point
point' Ptr Point
outPoint
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Point
outPoint' <- ((ManagedPtr Point -> Point) -> Ptr Point -> IO Point
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Point -> Point
Graphene.Point.Point) Ptr Point
outPoint
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
target
Point -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Point
point
(Bool, Point) -> IO (Bool, Point)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Point
outPoint')
#if defined(ENABLE_OVERLOADING)
data WidgetComputePointMethodInfo
instance (signature ~ (b -> Graphene.Point.Point -> m ((Bool, Graphene.Point.Point))), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetComputePointMethodInfo a signature where
overloadedMethod = widgetComputePoint
instance O.OverloadedMethodInfo WidgetComputePointMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetComputePoint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetComputePoint"
}
#endif
foreign import ccall "gtk_widget_compute_transform" gtk_widget_compute_transform ::
Ptr Widget ->
Ptr Widget ->
Ptr Graphene.Matrix.Matrix ->
IO CInt
widgetComputeTransform ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> m ((Bool, Graphene.Matrix.Matrix))
widgetComputeTransform :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> m (Bool, Matrix)
widgetComputeTransform a
widget b
target = IO (Bool, Matrix) -> m (Bool, Matrix)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Matrix) -> m (Bool, Matrix))
-> IO (Bool, Matrix) -> m (Bool, Matrix)
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 Widget
target' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
target
Ptr Matrix
outTransform <- Int -> IO (Ptr Matrix)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
64 :: IO (Ptr Graphene.Matrix.Matrix)
CInt
result <- Ptr Widget -> Ptr Widget -> Ptr Matrix -> IO CInt
gtk_widget_compute_transform Ptr Widget
widget' Ptr Widget
target' Ptr Matrix
outTransform
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Matrix
outTransform' <- ((ManagedPtr Matrix -> Matrix) -> Ptr Matrix -> IO Matrix
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Matrix -> Matrix
Graphene.Matrix.Matrix) Ptr Matrix
outTransform
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
target
(Bool, Matrix) -> IO (Bool, Matrix)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Matrix
outTransform')
#if defined(ENABLE_OVERLOADING)
data WidgetComputeTransformMethodInfo
instance (signature ~ (b -> m ((Bool, Graphene.Matrix.Matrix))), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetComputeTransformMethodInfo a signature where
overloadedMethod = widgetComputeTransform
instance O.OverloadedMethodInfo WidgetComputeTransformMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetComputeTransform",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetComputeTransform"
}
#endif
foreign import ccall "gtk_widget_contains" gtk_widget_contains ::
Ptr Widget ->
CDouble ->
CDouble ->
IO CInt
widgetContains ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Double
-> Double
-> m Bool
widgetContains :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Double -> Double -> m Bool
widgetContains a
widget Double
x 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 <- Ptr Widget -> CDouble -> CDouble -> IO CInt
gtk_widget_contains Ptr Widget
widget' CDouble
x' CDouble
y'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetContainsMethodInfo
instance (signature ~ (Double -> Double -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetContainsMethodInfo a signature where
overloadedMethod = widgetContains
instance O.OverloadedMethodInfo WidgetContainsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetContains",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetContains"
}
#endif
foreign import ccall "gtk_widget_create_pango_context" gtk_widget_create_pango_context ::
Ptr Widget ->
IO (Ptr Pango.Context.Context)
widgetCreatePangoContext ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Pango.Context.Context
widgetCreatePangoContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Context
widgetCreatePangoContext a
widget = IO Context -> m Context
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Context -> m Context) -> IO Context -> m Context
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 Context
result <- Ptr Widget -> IO (Ptr Context)
gtk_widget_create_pango_context Ptr Widget
widget'
Text -> Ptr Context -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetCreatePangoContext" Ptr Context
result
Context
result' <- ((ManagedPtr Context -> Context) -> Ptr Context -> IO Context
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Context -> Context
Pango.Context.Context) Ptr Context
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Context -> IO Context
forall (m :: * -> *) a. Monad m => a -> m a
return Context
result'
#if defined(ENABLE_OVERLOADING)
data WidgetCreatePangoContextMethodInfo
instance (signature ~ (m Pango.Context.Context), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetCreatePangoContextMethodInfo a signature where
overloadedMethod = widgetCreatePangoContext
instance O.OverloadedMethodInfo WidgetCreatePangoContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetCreatePangoContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetCreatePangoContext"
}
#endif
foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout ::
Ptr Widget ->
CString ->
IO (Ptr Pango.Layout.Layout)
widgetCreatePangoLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (T.Text)
-> m Pango.Layout.Layout
widgetCreatePangoLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Maybe Text -> m Layout
widgetCreatePangoLayout a
widget Maybe Text
text = IO Layout -> m Layout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Layout -> m Layout) -> IO Layout -> m Layout
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
CString
maybeText <- case Maybe Text
text of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jText -> do
CString
jText' <- Text -> IO CString
textToCString Text
jText
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jText'
Ptr Layout
result <- Ptr Widget -> CString -> IO (Ptr Layout)
gtk_widget_create_pango_layout Ptr Widget
widget' CString
maybeText
Text -> Ptr Layout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetCreatePangoLayout" Ptr Layout
result
Layout
result' <- ((ManagedPtr Layout -> Layout) -> Ptr Layout -> IO Layout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Layout -> Layout
Pango.Layout.Layout) Ptr Layout
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeText
Layout -> IO Layout
forall (m :: * -> *) a. Monad m => a -> m a
return Layout
result'
#if defined(ENABLE_OVERLOADING)
data WidgetCreatePangoLayoutMethodInfo
instance (signature ~ (Maybe (T.Text) -> m Pango.Layout.Layout), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetCreatePangoLayoutMethodInfo a signature where
overloadedMethod = widgetCreatePangoLayout
instance O.OverloadedMethodInfo WidgetCreatePangoLayoutMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetCreatePangoLayout",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetCreatePangoLayout"
}
#endif
foreign import ccall "gtk_drag_check_threshold" gtk_drag_check_threshold ::
Ptr Widget ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO CInt
widgetDragCheckThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Int32
-> Int32
-> Int32
-> Int32
-> m Bool
widgetDragCheckThreshold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Int32 -> Int32 -> Int32 -> Int32 -> m Bool
widgetDragCheckThreshold a
widget Int32
startX Int32
startY Int32
currentX Int32
currentY = 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 <- Ptr Widget -> Int32 -> Int32 -> Int32 -> Int32 -> IO CInt
gtk_drag_check_threshold Ptr Widget
widget' Int32
startX Int32
startY Int32
currentX Int32
currentY
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetDragCheckThresholdMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetDragCheckThresholdMethodInfo a signature where
overloadedMethod = widgetDragCheckThreshold
instance O.OverloadedMethodInfo WidgetDragCheckThresholdMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetDragCheckThreshold",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetDragCheckThreshold"
}
#endif
foreign import ccall "gtk_widget_error_bell" gtk_widget_error_bell ::
Ptr Widget ->
IO ()
widgetErrorBell ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetErrorBell :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetErrorBell 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
Ptr Widget -> IO ()
gtk_widget_error_bell Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetErrorBellMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetErrorBellMethodInfo a signature where
overloadedMethod = widgetErrorBell
instance O.OverloadedMethodInfo WidgetErrorBellMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetErrorBell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetErrorBell"
}
#endif
foreign import ccall "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline ::
Ptr Widget ->
IO Int32
widgetGetAllocatedBaseline ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetAllocatedBaseline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetAllocatedBaseline a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_allocated_baseline Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetAllocatedBaselineMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetAllocatedBaselineMethodInfo a signature where
overloadedMethod = widgetGetAllocatedBaseline
instance O.OverloadedMethodInfo WidgetGetAllocatedBaselineMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetAllocatedBaseline",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetAllocatedBaseline"
}
#endif
foreign import ccall "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height ::
Ptr Widget ->
IO Int32
widgetGetAllocatedHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetAllocatedHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetAllocatedHeight a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_allocated_height Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetAllocatedHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetAllocatedHeightMethodInfo a signature where
overloadedMethod = widgetGetAllocatedHeight
instance O.OverloadedMethodInfo WidgetGetAllocatedHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetAllocatedHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetAllocatedHeight"
}
#endif
foreign import ccall "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width ::
Ptr Widget ->
IO Int32
widgetGetAllocatedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetAllocatedWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetAllocatedWidth a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_allocated_width Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetAllocatedWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetAllocatedWidthMethodInfo a signature where
overloadedMethod = widgetGetAllocatedWidth
instance O.OverloadedMethodInfo WidgetGetAllocatedWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetAllocatedWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetAllocatedWidth"
}
#endif
foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation ::
Ptr Widget ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
widgetGetAllocation ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Gdk.Rectangle.Rectangle)
widgetGetAllocation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Rectangle
widgetGetAllocation a
widget = IO Rectangle -> m Rectangle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
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 Rectangle
allocation <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr Widget -> Ptr Rectangle -> IO ()
gtk_widget_get_allocation Ptr Widget
widget' Ptr Rectangle
allocation
Rectangle
allocation' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
allocation
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Rectangle -> IO Rectangle
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
allocation'
#if defined(ENABLE_OVERLOADING)
data WidgetGetAllocationMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetAllocationMethodInfo a signature where
overloadedMethod = widgetGetAllocation
instance O.OverloadedMethodInfo WidgetGetAllocationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetAllocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetAllocation"
}
#endif
foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor ::
Ptr Widget ->
CGType ->
IO (Ptr Widget)
widgetGetAncestor ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> GType
-> m (Maybe Widget)
widgetGetAncestor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> GType -> m (Maybe Widget)
widgetGetAncestor a
widget GType
widgetType = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 widgetType' :: CGType
widgetType' = GType -> CGType
gtypeToCGType GType
widgetType
Ptr Widget
result <- Ptr Widget -> CGType -> IO (Ptr Widget)
gtk_widget_get_ancestor Ptr Widget
widget' CGType
widgetType'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetAncestorMethodInfo
instance (signature ~ (GType -> m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetAncestorMethodInfo a signature where
overloadedMethod = widgetGetAncestor
instance O.OverloadedMethodInfo WidgetGetAncestorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetAncestor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetAncestor"
}
#endif
foreign import ccall "gtk_widget_get_can_focus" gtk_widget_get_can_focus ::
Ptr Widget ->
IO CInt
widgetGetCanFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetCanFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetCanFocus 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 <- Ptr Widget -> IO CInt
gtk_widget_get_can_focus Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetCanFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetCanFocusMethodInfo a signature where
overloadedMethod = widgetGetCanFocus
instance O.OverloadedMethodInfo WidgetGetCanFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetCanFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetCanFocus"
}
#endif
foreign import ccall "gtk_widget_get_can_target" gtk_widget_get_can_target ::
Ptr Widget ->
IO CInt
widgetGetCanTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetCanTarget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetCanTarget 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 <- Ptr Widget -> IO CInt
gtk_widget_get_can_target Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetCanTargetMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetCanTargetMethodInfo a signature where
overloadedMethod = widgetGetCanTarget
instance O.OverloadedMethodInfo WidgetGetCanTargetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetCanTarget",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetCanTarget"
}
#endif
foreign import ccall "gtk_widget_get_child_visible" gtk_widget_get_child_visible ::
Ptr Widget ->
IO CInt
widgetGetChildVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetChildVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetChildVisible 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 <- Ptr Widget -> IO CInt
gtk_widget_get_child_visible Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetChildVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetChildVisibleMethodInfo a signature where
overloadedMethod = widgetGetChildVisible
instance O.OverloadedMethodInfo WidgetGetChildVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetChildVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetChildVisible"
}
#endif
foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard ::
Ptr Widget ->
IO (Ptr Gdk.Clipboard.Clipboard)
widgetGetClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gdk.Clipboard.Clipboard
widgetGetClipboard :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Clipboard
widgetGetClipboard a
widget = IO Clipboard -> m Clipboard
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Clipboard -> m Clipboard) -> IO Clipboard -> m Clipboard
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 Clipboard
result <- Ptr Widget -> IO (Ptr Clipboard)
gtk_widget_get_clipboard Ptr Widget
widget'
Text -> Ptr Clipboard -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetClipboard" Ptr Clipboard
result
Clipboard
result' <- ((ManagedPtr Clipboard -> Clipboard)
-> Ptr Clipboard -> IO Clipboard
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Clipboard -> Clipboard
Gdk.Clipboard.Clipboard) Ptr Clipboard
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Clipboard -> IO Clipboard
forall (m :: * -> *) a. Monad m => a -> m a
return Clipboard
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetClipboardMethodInfo
instance (signature ~ (m Gdk.Clipboard.Clipboard), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetClipboardMethodInfo a signature where
overloadedMethod = widgetGetClipboard
instance O.OverloadedMethodInfo WidgetGetClipboardMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetClipboard",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetClipboard"
}
#endif
foreign import ccall "gtk_widget_get_css_classes" gtk_widget_get_css_classes ::
Ptr Widget ->
IO (Ptr CString)
widgetGetCssClasses ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m [T.Text]
widgetGetCssClasses :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m [Text]
widgetGetCssClasses a
widget = IO [Text] -> m [Text]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr CString
result <- Ptr Widget -> IO (Ptr CString)
gtk_widget_get_css_classes Ptr Widget
widget'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetCssClasses" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
[Text] -> IO [Text]
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetCssClassesMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetCssClassesMethodInfo a signature where
overloadedMethod = widgetGetCssClasses
instance O.OverloadedMethodInfo WidgetGetCssClassesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetCssClasses",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetCssClasses"
}
#endif
foreign import ccall "gtk_widget_get_css_name" gtk_widget_get_css_name ::
Ptr Widget ->
IO CString
widgetGetCssName ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m T.Text
widgetGetCssName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Text
widgetGetCssName a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
self' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Widget -> IO CString
gtk_widget_get_css_name Ptr Widget
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetCssName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetCssNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetCssNameMethodInfo a signature where
overloadedMethod = widgetGetCssName
instance O.OverloadedMethodInfo WidgetGetCssNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetCssName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetCssName"
}
#endif
foreign import ccall "gtk_widget_get_cursor" gtk_widget_get_cursor ::
Ptr Widget ->
IO (Ptr Gdk.Cursor.Cursor)
widgetGetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gdk.Cursor.Cursor)
widgetGetCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Cursor)
widgetGetCursor a
widget = IO (Maybe Cursor) -> m (Maybe Cursor)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Cursor) -> m (Maybe Cursor))
-> IO (Maybe Cursor) -> m (Maybe Cursor)
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 Cursor
result <- Ptr Widget -> IO (Ptr Cursor)
gtk_widget_get_cursor Ptr Widget
widget'
Maybe Cursor
maybeResult <- Ptr Cursor -> (Ptr Cursor -> IO Cursor) -> IO (Maybe Cursor)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Cursor
result ((Ptr Cursor -> IO Cursor) -> IO (Maybe Cursor))
-> (Ptr Cursor -> IO Cursor) -> IO (Maybe Cursor)
forall a b. (a -> b) -> a -> b
$ \Ptr Cursor
result' -> do
Cursor
result'' <- ((ManagedPtr Cursor -> Cursor) -> Ptr Cursor -> IO Cursor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Cursor -> Cursor
Gdk.Cursor.Cursor) Ptr Cursor
result'
Cursor -> IO Cursor
forall (m :: * -> *) a. Monad m => a -> m a
return Cursor
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Cursor -> IO (Maybe Cursor)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Cursor
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetCursorMethodInfo
instance (signature ~ (m (Maybe Gdk.Cursor.Cursor)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetCursorMethodInfo a signature where
overloadedMethod = widgetGetCursor
instance O.OverloadedMethodInfo WidgetGetCursorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetCursor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetCursor"
}
#endif
foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction ::
Ptr Widget ->
IO CUInt
widgetGetDirection ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.Enums.TextDirection
widgetGetDirection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m TextDirection
widgetGetDirection a
widget = IO TextDirection -> m TextDirection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextDirection -> m TextDirection)
-> IO TextDirection -> m TextDirection
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 <- Ptr Widget -> IO CUInt
gtk_widget_get_direction Ptr Widget
widget'
let result' :: TextDirection
result' = (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
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
TextDirection -> IO TextDirection
forall (m :: * -> *) a. Monad m => a -> m a
return TextDirection
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetDirectionMethodInfo
instance (signature ~ (m Gtk.Enums.TextDirection), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetDirectionMethodInfo a signature where
overloadedMethod = widgetGetDirection
instance O.OverloadedMethodInfo WidgetGetDirectionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetDirection",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetDirection"
}
#endif
foreign import ccall "gtk_widget_get_display" gtk_widget_get_display ::
Ptr Widget ->
IO (Ptr Gdk.Display.Display)
widgetGetDisplay ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gdk.Display.Display
widgetGetDisplay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Display
widgetGetDisplay a
widget = IO Display -> m Display
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Display -> m Display) -> IO Display -> m Display
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 Display
result <- Ptr Widget -> IO (Ptr Display)
gtk_widget_get_display Ptr Widget
widget'
Text -> Ptr Display -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetDisplay" Ptr Display
result
Display
result' <- ((ManagedPtr Display -> Display) -> Ptr Display -> IO Display
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Display -> Display
Gdk.Display.Display) Ptr Display
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Display -> IO Display
forall (m :: * -> *) a. Monad m => a -> m a
return Display
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetDisplayMethodInfo
instance (signature ~ (m Gdk.Display.Display), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetDisplayMethodInfo a signature where
overloadedMethod = widgetGetDisplay
instance O.OverloadedMethodInfo WidgetGetDisplayMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetDisplay",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetDisplay"
}
#endif
foreign import ccall "gtk_widget_get_first_child" gtk_widget_get_first_child ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetFirstChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Widget)
widgetGetFirstChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Widget)
widgetGetFirstChild a
widget = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_first_child Ptr Widget
widget'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetFirstChildMethodInfo
instance (signature ~ (m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetFirstChildMethodInfo a signature where
overloadedMethod = widgetGetFirstChild
instance O.OverloadedMethodInfo WidgetGetFirstChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetFirstChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetFirstChild"
}
#endif
foreign import ccall "gtk_widget_get_focus_child" gtk_widget_get_focus_child ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetFocusChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Widget)
widgetGetFocusChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Widget)
widgetGetFocusChild a
widget = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_focus_child Ptr Widget
widget'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetFocusChildMethodInfo
instance (signature ~ (m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetFocusChildMethodInfo a signature where
overloadedMethod = widgetGetFocusChild
instance O.OverloadedMethodInfo WidgetGetFocusChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetFocusChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetFocusChild"
}
#endif
foreign import ccall "gtk_widget_get_focus_on_click" gtk_widget_get_focus_on_click ::
Ptr Widget ->
IO CInt
widgetGetFocusOnClick ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetFocusOnClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetFocusOnClick 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 <- Ptr Widget -> IO CInt
gtk_widget_get_focus_on_click Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetFocusOnClickMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetFocusOnClickMethodInfo a signature where
overloadedMethod = widgetGetFocusOnClick
instance O.OverloadedMethodInfo WidgetGetFocusOnClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetFocusOnClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetFocusOnClick"
}
#endif
foreign import ccall "gtk_widget_get_focusable" gtk_widget_get_focusable ::
Ptr Widget ->
IO CInt
widgetGetFocusable ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetFocusable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetFocusable 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 <- Ptr Widget -> IO CInt
gtk_widget_get_focusable Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetFocusableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetFocusableMethodInfo a signature where
overloadedMethod = widgetGetFocusable
instance O.OverloadedMethodInfo WidgetGetFocusableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetFocusable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetFocusable"
}
#endif
foreign import ccall "gtk_widget_get_font_map" gtk_widget_get_font_map ::
Ptr Widget ->
IO (Ptr Pango.FontMap.FontMap)
widgetGetFontMap ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Pango.FontMap.FontMap)
widgetGetFontMap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe FontMap)
widgetGetFontMap a
widget = IO (Maybe FontMap) -> m (Maybe FontMap)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe FontMap) -> m (Maybe FontMap))
-> IO (Maybe FontMap) -> m (Maybe FontMap)
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 FontMap
result <- Ptr Widget -> IO (Ptr FontMap)
gtk_widget_get_font_map Ptr Widget
widget'
Maybe FontMap
maybeResult <- Ptr FontMap -> (Ptr FontMap -> IO FontMap) -> IO (Maybe FontMap)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr FontMap
result ((Ptr FontMap -> IO FontMap) -> IO (Maybe FontMap))
-> (Ptr FontMap -> IO FontMap) -> IO (Maybe FontMap)
forall a b. (a -> b) -> a -> b
$ \Ptr FontMap
result' -> do
FontMap
result'' <- ((ManagedPtr FontMap -> FontMap) -> Ptr FontMap -> IO FontMap
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FontMap -> FontMap
Pango.FontMap.FontMap) Ptr FontMap
result'
FontMap -> IO FontMap
forall (m :: * -> *) a. Monad m => a -> m a
return FontMap
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe FontMap -> IO (Maybe FontMap)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FontMap
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetFontMapMethodInfo
instance (signature ~ (m (Maybe Pango.FontMap.FontMap)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetFontMapMethodInfo a signature where
overloadedMethod = widgetGetFontMap
instance O.OverloadedMethodInfo WidgetGetFontMapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetFontMap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetFontMap"
}
#endif
foreign import ccall "gtk_widget_get_font_options" gtk_widget_get_font_options ::
Ptr Widget ->
IO (Ptr Cairo.FontOptions.FontOptions)
widgetGetFontOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Cairo.FontOptions.FontOptions)
widgetGetFontOptions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe FontOptions)
widgetGetFontOptions a
widget = IO (Maybe FontOptions) -> m (Maybe FontOptions)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe FontOptions) -> m (Maybe FontOptions))
-> IO (Maybe FontOptions) -> m (Maybe FontOptions)
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 FontOptions
result <- Ptr Widget -> IO (Ptr FontOptions)
gtk_widget_get_font_options Ptr Widget
widget'
Maybe FontOptions
maybeResult <- Ptr FontOptions
-> (Ptr FontOptions -> IO FontOptions) -> IO (Maybe FontOptions)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr FontOptions
result ((Ptr FontOptions -> IO FontOptions) -> IO (Maybe FontOptions))
-> (Ptr FontOptions -> IO FontOptions) -> IO (Maybe FontOptions)
forall a b. (a -> b) -> a -> b
$ \Ptr FontOptions
result' -> do
FontOptions
result'' <- ((ManagedPtr FontOptions -> FontOptions)
-> Ptr FontOptions -> IO FontOptions
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr FontOptions -> FontOptions
Cairo.FontOptions.FontOptions) Ptr FontOptions
result'
FontOptions -> IO FontOptions
forall (m :: * -> *) a. Monad m => a -> m a
return FontOptions
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe FontOptions -> IO (Maybe FontOptions)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FontOptions
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetFontOptionsMethodInfo
instance (signature ~ (m (Maybe Cairo.FontOptions.FontOptions)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetFontOptionsMethodInfo a signature where
overloadedMethod = widgetGetFontOptions
instance O.OverloadedMethodInfo WidgetGetFontOptionsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetFontOptions",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetFontOptions"
}
#endif
foreign import ccall "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock ::
Ptr Widget ->
IO (Ptr Gdk.FrameClock.FrameClock)
widgetGetFrameClock ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gdk.FrameClock.FrameClock)
widgetGetFrameClock :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe FrameClock)
widgetGetFrameClock a
widget = IO (Maybe FrameClock) -> m (Maybe FrameClock)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe FrameClock) -> m (Maybe FrameClock))
-> IO (Maybe FrameClock) -> m (Maybe FrameClock)
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
result <- Ptr Widget -> IO (Ptr FrameClock)
gtk_widget_get_frame_clock Ptr Widget
widget'
Maybe FrameClock
maybeResult <- Ptr FrameClock
-> (Ptr FrameClock -> IO FrameClock) -> IO (Maybe FrameClock)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr FrameClock
result ((Ptr FrameClock -> IO FrameClock) -> IO (Maybe FrameClock))
-> (Ptr FrameClock -> IO FrameClock) -> IO (Maybe FrameClock)
forall a b. (a -> b) -> a -> b
$ \Ptr FrameClock
result' -> do
FrameClock
result'' <- ((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
result'
FrameClock -> IO FrameClock
forall (m :: * -> *) a. Monad m => a -> m a
return FrameClock
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe FrameClock -> IO (Maybe FrameClock)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FrameClock
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetFrameClockMethodInfo
instance (signature ~ (m (Maybe Gdk.FrameClock.FrameClock)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetFrameClockMethodInfo a signature where
overloadedMethod = widgetGetFrameClock
instance O.OverloadedMethodInfo WidgetGetFrameClockMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetFrameClock",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetFrameClock"
}
#endif
foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign ::
Ptr Widget ->
IO CUInt
widgetGetHalign ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.Enums.Align
widgetGetHalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Align
widgetGetHalign a
widget = IO Align -> m Align
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Align -> m Align) -> IO Align -> m Align
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 <- Ptr Widget -> IO CUInt
gtk_widget_get_halign Ptr Widget
widget'
let result' :: Align
result' = (Int -> Align
forall a. Enum a => Int -> a
toEnum (Int -> Align) -> (CUInt -> Int) -> CUInt -> Align
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
Align -> IO Align
forall (m :: * -> *) a. Monad m => a -> m a
return Align
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetHalignMethodInfo
instance (signature ~ (m Gtk.Enums.Align), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetHalignMethodInfo a signature where
overloadedMethod = widgetGetHalign
instance O.OverloadedMethodInfo WidgetGetHalignMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetHalign",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetHalign"
}
#endif
foreign import ccall "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip ::
Ptr Widget ->
IO CInt
widgetGetHasTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetHasTooltip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetHasTooltip 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 <- Ptr Widget -> IO CInt
gtk_widget_get_has_tooltip Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetHasTooltipMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetHasTooltipMethodInfo a signature where
overloadedMethod = widgetGetHasTooltip
instance O.OverloadedMethodInfo WidgetGetHasTooltipMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetHasTooltip",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetHasTooltip"
}
#endif
foreign import ccall "gtk_widget_get_height" gtk_widget_get_height ::
Ptr Widget ->
IO Int32
widgetGetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetHeight a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_height Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetHeightMethodInfo a signature where
overloadedMethod = widgetGetHeight
instance O.OverloadedMethodInfo WidgetGetHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetHeight"
}
#endif
foreign import ccall "gtk_widget_get_hexpand" gtk_widget_get_hexpand ::
Ptr Widget ->
IO CInt
widgetGetHexpand ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetHexpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetHexpand 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 <- Ptr Widget -> IO CInt
gtk_widget_get_hexpand Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetHexpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetHexpandMethodInfo a signature where
overloadedMethod = widgetGetHexpand
instance O.OverloadedMethodInfo WidgetGetHexpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetHexpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetHexpand"
}
#endif
foreign import ccall "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set ::
Ptr Widget ->
IO CInt
widgetGetHexpandSet ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetHexpandSet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetHexpandSet 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 <- Ptr Widget -> IO CInt
gtk_widget_get_hexpand_set Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetHexpandSetMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetHexpandSetMethodInfo a signature where
overloadedMethod = widgetGetHexpandSet
instance O.OverloadedMethodInfo WidgetGetHexpandSetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetHexpandSet",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetHexpandSet"
}
#endif
foreign import ccall "gtk_widget_get_last_child" gtk_widget_get_last_child ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetLastChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Widget)
widgetGetLastChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Widget)
widgetGetLastChild a
widget = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_last_child Ptr Widget
widget'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetLastChildMethodInfo
instance (signature ~ (m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetLastChildMethodInfo a signature where
overloadedMethod = widgetGetLastChild
instance O.OverloadedMethodInfo WidgetGetLastChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetLastChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetLastChild"
}
#endif
foreign import ccall "gtk_widget_get_layout_manager" gtk_widget_get_layout_manager ::
Ptr Widget ->
IO (Ptr Gtk.LayoutManager.LayoutManager)
widgetGetLayoutManager ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gtk.LayoutManager.LayoutManager)
widgetGetLayoutManager :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe LayoutManager)
widgetGetLayoutManager a
widget = IO (Maybe LayoutManager) -> m (Maybe LayoutManager)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe LayoutManager) -> m (Maybe LayoutManager))
-> IO (Maybe LayoutManager) -> m (Maybe LayoutManager)
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 LayoutManager
result <- Ptr Widget -> IO (Ptr LayoutManager)
gtk_widget_get_layout_manager Ptr Widget
widget'
Maybe LayoutManager
maybeResult <- Ptr LayoutManager
-> (Ptr LayoutManager -> IO LayoutManager)
-> IO (Maybe LayoutManager)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr LayoutManager
result ((Ptr LayoutManager -> IO LayoutManager)
-> IO (Maybe LayoutManager))
-> (Ptr LayoutManager -> IO LayoutManager)
-> IO (Maybe LayoutManager)
forall a b. (a -> b) -> a -> b
$ \Ptr LayoutManager
result' -> do
LayoutManager
result'' <- ((ManagedPtr LayoutManager -> LayoutManager)
-> Ptr LayoutManager -> IO LayoutManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LayoutManager -> LayoutManager
Gtk.LayoutManager.LayoutManager) Ptr LayoutManager
result'
LayoutManager -> IO LayoutManager
forall (m :: * -> *) a. Monad m => a -> m a
return LayoutManager
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe LayoutManager -> IO (Maybe LayoutManager)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe LayoutManager
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetLayoutManagerMethodInfo
instance (signature ~ (m (Maybe Gtk.LayoutManager.LayoutManager)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetLayoutManagerMethodInfo a signature where
overloadedMethod = widgetGetLayoutManager
instance O.OverloadedMethodInfo WidgetGetLayoutManagerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetLayoutManager",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetLayoutManager"
}
#endif
foreign import ccall "gtk_widget_get_mapped" gtk_widget_get_mapped ::
Ptr Widget ->
IO CInt
widgetGetMapped ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetMapped :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetMapped 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 <- Ptr Widget -> IO CInt
gtk_widget_get_mapped Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetMappedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetMappedMethodInfo a signature where
overloadedMethod = widgetGetMapped
instance O.OverloadedMethodInfo WidgetGetMappedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetMapped",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetMapped"
}
#endif
foreign import ccall "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom ::
Ptr Widget ->
IO Int32
widgetGetMarginBottom ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetMarginBottom :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetMarginBottom a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_margin_bottom Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetMarginBottomMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetMarginBottomMethodInfo a signature where
overloadedMethod = widgetGetMarginBottom
instance O.OverloadedMethodInfo WidgetGetMarginBottomMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetMarginBottom",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetMarginBottom"
}
#endif
foreign import ccall "gtk_widget_get_margin_end" gtk_widget_get_margin_end ::
Ptr Widget ->
IO Int32
widgetGetMarginEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetMarginEnd :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetMarginEnd a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_margin_end Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetMarginEndMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetMarginEndMethodInfo a signature where
overloadedMethod = widgetGetMarginEnd
instance O.OverloadedMethodInfo WidgetGetMarginEndMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetMarginEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetMarginEnd"
}
#endif
foreign import ccall "gtk_widget_get_margin_start" gtk_widget_get_margin_start ::
Ptr Widget ->
IO Int32
widgetGetMarginStart ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetMarginStart :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetMarginStart a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_margin_start Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetMarginStartMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetMarginStartMethodInfo a signature where
overloadedMethod = widgetGetMarginStart
instance O.OverloadedMethodInfo WidgetGetMarginStartMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetMarginStart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetMarginStart"
}
#endif
foreign import ccall "gtk_widget_get_margin_top" gtk_widget_get_margin_top ::
Ptr Widget ->
IO Int32
widgetGetMarginTop ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetMarginTop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetMarginTop a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_margin_top Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetMarginTopMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetMarginTopMethodInfo a signature where
overloadedMethod = widgetGetMarginTop
instance O.OverloadedMethodInfo WidgetGetMarginTopMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetMarginTop",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetMarginTop"
}
#endif
foreign import ccall "gtk_widget_get_name" gtk_widget_get_name ::
Ptr Widget ->
IO CString
widgetGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe T.Text)
widgetGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Text)
widgetGetName a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CString
result <- Ptr Widget -> IO CString
gtk_widget_get_name Ptr Widget
widget'
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
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText 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
widget
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetNameMethodInfo a signature where
overloadedMethod = widgetGetName
instance O.OverloadedMethodInfo WidgetGetNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetName"
}
#endif
foreign import ccall "gtk_widget_get_native" gtk_widget_get_native ::
Ptr Widget ->
IO (Ptr Gtk.Native.Native)
widgetGetNative ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gtk.Native.Native)
widgetGetNative :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Native)
widgetGetNative a
widget = IO (Maybe Native) -> m (Maybe Native)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Native) -> m (Maybe Native))
-> IO (Maybe Native) -> m (Maybe Native)
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 Native
result <- Ptr Widget -> IO (Ptr Native)
gtk_widget_get_native Ptr Widget
widget'
Maybe Native
maybeResult <- Ptr Native -> (Ptr Native -> IO Native) -> IO (Maybe Native)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Native
result ((Ptr Native -> IO Native) -> IO (Maybe Native))
-> (Ptr Native -> IO Native) -> IO (Maybe Native)
forall a b. (a -> b) -> a -> b
$ \Ptr Native
result' -> do
Native
result'' <- ((ManagedPtr Native -> Native) -> Ptr Native -> IO Native
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Native -> Native
Gtk.Native.Native) Ptr Native
result'
Native -> IO Native
forall (m :: * -> *) a. Monad m => a -> m a
return Native
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Native -> IO (Maybe Native)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Native
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetNativeMethodInfo
instance (signature ~ (m (Maybe Gtk.Native.Native)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetNativeMethodInfo a signature where
overloadedMethod = widgetGetNative
instance O.OverloadedMethodInfo WidgetGetNativeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetNative",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetNative"
}
#endif
foreign import ccall "gtk_widget_get_next_sibling" gtk_widget_get_next_sibling ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetNextSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Widget)
widgetGetNextSibling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Widget)
widgetGetNextSibling a
widget = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_next_sibling Ptr Widget
widget'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetNextSiblingMethodInfo
instance (signature ~ (m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetNextSiblingMethodInfo a signature where
overloadedMethod = widgetGetNextSibling
instance O.OverloadedMethodInfo WidgetGetNextSiblingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetNextSibling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetNextSibling"
}
#endif
foreign import ccall "gtk_widget_get_opacity" gtk_widget_get_opacity ::
Ptr Widget ->
IO CDouble
widgetGetOpacity ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Double
widgetGetOpacity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Double
widgetGetOpacity a
widget = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
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
CDouble
result <- Ptr Widget -> IO CDouble
gtk_widget_get_opacity Ptr Widget
widget'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetOpacityMethodInfo
instance (signature ~ (m Double), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetOpacityMethodInfo a signature where
overloadedMethod = widgetGetOpacity
instance O.OverloadedMethodInfo WidgetGetOpacityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetOpacity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetOpacity"
}
#endif
foreign import ccall "gtk_widget_get_overflow" gtk_widget_get_overflow ::
Ptr Widget ->
IO CUInt
widgetGetOverflow ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.Enums.Overflow
widgetGetOverflow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Overflow
widgetGetOverflow a
widget = IO Overflow -> m Overflow
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Overflow -> m Overflow) -> IO Overflow -> m Overflow
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 <- Ptr Widget -> IO CUInt
gtk_widget_get_overflow Ptr Widget
widget'
let result' :: Overflow
result' = (Int -> Overflow
forall a. Enum a => Int -> a
toEnum (Int -> Overflow) -> (CUInt -> Int) -> CUInt -> Overflow
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
Overflow -> IO Overflow
forall (m :: * -> *) a. Monad m => a -> m a
return Overflow
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetOverflowMethodInfo
instance (signature ~ (m Gtk.Enums.Overflow), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetOverflowMethodInfo a signature where
overloadedMethod = widgetGetOverflow
instance O.OverloadedMethodInfo WidgetGetOverflowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetOverflow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetOverflow"
}
#endif
foreign import ccall "gtk_widget_get_pango_context" gtk_widget_get_pango_context ::
Ptr Widget ->
IO (Ptr Pango.Context.Context)
widgetGetPangoContext ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Pango.Context.Context
widgetGetPangoContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Context
widgetGetPangoContext a
widget = IO Context -> m Context
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Context -> m Context) -> IO Context -> m Context
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 Context
result <- Ptr Widget -> IO (Ptr Context)
gtk_widget_get_pango_context Ptr Widget
widget'
Text -> Ptr Context -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetPangoContext" Ptr Context
result
Context
result' <- ((ManagedPtr Context -> Context) -> Ptr Context -> IO Context
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Context -> Context
Pango.Context.Context) Ptr Context
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Context -> IO Context
forall (m :: * -> *) a. Monad m => a -> m a
return Context
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetPangoContextMethodInfo
instance (signature ~ (m Pango.Context.Context), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetPangoContextMethodInfo a signature where
overloadedMethod = widgetGetPangoContext
instance O.OverloadedMethodInfo WidgetGetPangoContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetPangoContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetPangoContext"
}
#endif
foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Widget)
widgetGetParent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Widget)
widgetGetParent a
widget = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_parent Ptr Widget
widget'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetParentMethodInfo
instance (signature ~ (m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetParentMethodInfo a signature where
overloadedMethod = widgetGetParent
instance O.OverloadedMethodInfo WidgetGetParentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetParent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetParent"
}
#endif
foreign import ccall "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size ::
Ptr Widget ->
Ptr Gtk.Requisition.Requisition ->
Ptr Gtk.Requisition.Requisition ->
IO ()
widgetGetPreferredSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ((Gtk.Requisition.Requisition, Gtk.Requisition.Requisition))
widgetGetPreferredSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Requisition, Requisition)
widgetGetPreferredSize a
widget = IO (Requisition, Requisition) -> m (Requisition, Requisition)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Requisition, Requisition) -> m (Requisition, Requisition))
-> IO (Requisition, Requisition) -> m (Requisition, Requisition)
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 Requisition
minimumSize <- Int -> IO (Ptr Requisition)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
8 :: IO (Ptr Gtk.Requisition.Requisition)
Ptr Requisition
naturalSize <- Int -> IO (Ptr Requisition)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
8 :: IO (Ptr Gtk.Requisition.Requisition)
Ptr Widget -> Ptr Requisition -> Ptr Requisition -> IO ()
gtk_widget_get_preferred_size Ptr Widget
widget' Ptr Requisition
minimumSize Ptr Requisition
naturalSize
Requisition
minimumSize' <- ((ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Gtk.Requisition.Requisition) Ptr Requisition
minimumSize
Requisition
naturalSize' <- ((ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Gtk.Requisition.Requisition) Ptr Requisition
naturalSize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
(Requisition, Requisition) -> IO (Requisition, Requisition)
forall (m :: * -> *) a. Monad m => a -> m a
return (Requisition
minimumSize', Requisition
naturalSize')
#if defined(ENABLE_OVERLOADING)
data WidgetGetPreferredSizeMethodInfo
instance (signature ~ (m ((Gtk.Requisition.Requisition, Gtk.Requisition.Requisition))), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetPreferredSizeMethodInfo a signature where
overloadedMethod = widgetGetPreferredSize
instance O.OverloadedMethodInfo WidgetGetPreferredSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetPreferredSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetPreferredSize"
}
#endif
foreign import ccall "gtk_widget_get_prev_sibling" gtk_widget_get_prev_sibling ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetPrevSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Widget)
widgetGetPrevSibling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Widget)
widgetGetPrevSibling a
widget = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_prev_sibling Ptr Widget
widget'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetPrevSiblingMethodInfo
instance (signature ~ (m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetPrevSiblingMethodInfo a signature where
overloadedMethod = widgetGetPrevSibling
instance O.OverloadedMethodInfo WidgetGetPrevSiblingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetPrevSibling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetPrevSibling"
}
#endif
foreign import ccall "gtk_widget_get_primary_clipboard" gtk_widget_get_primary_clipboard ::
Ptr Widget ->
IO (Ptr Gdk.Clipboard.Clipboard)
widgetGetPrimaryClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gdk.Clipboard.Clipboard
widgetGetPrimaryClipboard :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Clipboard
widgetGetPrimaryClipboard a
widget = IO Clipboard -> m Clipboard
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Clipboard -> m Clipboard) -> IO Clipboard -> m Clipboard
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 Clipboard
result <- Ptr Widget -> IO (Ptr Clipboard)
gtk_widget_get_primary_clipboard Ptr Widget
widget'
Text -> Ptr Clipboard -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetPrimaryClipboard" Ptr Clipboard
result
Clipboard
result' <- ((ManagedPtr Clipboard -> Clipboard)
-> Ptr Clipboard -> IO Clipboard
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Clipboard -> Clipboard
Gdk.Clipboard.Clipboard) Ptr Clipboard
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Clipboard -> IO Clipboard
forall (m :: * -> *) a. Monad m => a -> m a
return Clipboard
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetPrimaryClipboardMethodInfo
instance (signature ~ (m Gdk.Clipboard.Clipboard), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetPrimaryClipboardMethodInfo a signature where
overloadedMethod = widgetGetPrimaryClipboard
instance O.OverloadedMethodInfo WidgetGetPrimaryClipboardMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetPrimaryClipboard",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetPrimaryClipboard"
}
#endif
foreign import ccall "gtk_widget_get_realized" gtk_widget_get_realized ::
Ptr Widget ->
IO CInt
widgetGetRealized ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetRealized :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetRealized 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 <- Ptr Widget -> IO CInt
gtk_widget_get_realized Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetRealizedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetRealizedMethodInfo a signature where
overloadedMethod = widgetGetRealized
instance O.OverloadedMethodInfo WidgetGetRealizedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetRealized",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetRealized"
}
#endif
foreign import ccall "gtk_widget_get_receives_default" gtk_widget_get_receives_default ::
Ptr Widget ->
IO CInt
widgetGetReceivesDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetReceivesDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetReceivesDefault 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 <- Ptr Widget -> IO CInt
gtk_widget_get_receives_default Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetReceivesDefaultMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetReceivesDefaultMethodInfo a signature where
overloadedMethod = widgetGetReceivesDefault
instance O.OverloadedMethodInfo WidgetGetReceivesDefaultMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetReceivesDefault",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetReceivesDefault"
}
#endif
foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode ::
Ptr Widget ->
IO CUInt
widgetGetRequestMode ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.Enums.SizeRequestMode
widgetGetRequestMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m SizeRequestMode
widgetGetRequestMode 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 <- Ptr Widget -> IO CUInt
gtk_widget_get_request_mode 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'
#if defined(ENABLE_OVERLOADING)
data WidgetGetRequestModeMethodInfo
instance (signature ~ (m Gtk.Enums.SizeRequestMode), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetRequestModeMethodInfo a signature where
overloadedMethod = widgetGetRequestMode
instance O.OverloadedMethodInfo WidgetGetRequestModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetRequestMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetRequestMode"
}
#endif
foreign import ccall "gtk_widget_get_root" gtk_widget_get_root ::
Ptr Widget ->
IO (Ptr Gtk.Root.Root)
widgetGetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gtk.Root.Root)
widgetGetRoot :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Root)
widgetGetRoot a
widget = IO (Maybe Root) -> m (Maybe Root)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Root) -> m (Maybe Root))
-> IO (Maybe Root) -> m (Maybe Root)
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 Root
result <- Ptr Widget -> IO (Ptr Root)
gtk_widget_get_root Ptr Widget
widget'
Maybe Root
maybeResult <- Ptr Root -> (Ptr Root -> IO Root) -> IO (Maybe Root)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Root
result ((Ptr Root -> IO Root) -> IO (Maybe Root))
-> (Ptr Root -> IO Root) -> IO (Maybe Root)
forall a b. (a -> b) -> a -> b
$ \Ptr Root
result' -> do
Root
result'' <- ((ManagedPtr Root -> Root) -> Ptr Root -> IO Root
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Root -> Root
Gtk.Root.Root) Ptr Root
result'
Root -> IO Root
forall (m :: * -> *) a. Monad m => a -> m a
return Root
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Root -> IO (Maybe Root)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Root
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetRootMethodInfo
instance (signature ~ (m (Maybe Gtk.Root.Root)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetRootMethodInfo a signature where
overloadedMethod = widgetGetRoot
instance O.OverloadedMethodInfo WidgetGetRootMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetRoot",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetRoot"
}
#endif
foreign import ccall "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor ::
Ptr Widget ->
IO Int32
widgetGetScaleFactor ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetScaleFactor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetScaleFactor a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_scale_factor Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetScaleFactorMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetScaleFactorMethodInfo a signature where
overloadedMethod = widgetGetScaleFactor
instance O.OverloadedMethodInfo WidgetGetScaleFactorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetScaleFactor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetScaleFactor"
}
#endif
foreign import ccall "gtk_widget_get_sensitive" gtk_widget_get_sensitive ::
Ptr Widget ->
IO CInt
widgetGetSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetSensitive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetSensitive 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 <- Ptr Widget -> IO CInt
gtk_widget_get_sensitive Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetSensitiveMethodInfo a signature where
overloadedMethod = widgetGetSensitive
instance O.OverloadedMethodInfo WidgetGetSensitiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetSensitive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetSensitive"
}
#endif
foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings ::
Ptr Widget ->
IO (Ptr Gtk.Settings.Settings)
widgetGetSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.Settings.Settings
widgetGetSettings :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Settings
widgetGetSettings a
widget = IO Settings -> m Settings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Settings -> m Settings) -> IO Settings -> m Settings
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 Settings
result <- Ptr Widget -> IO (Ptr Settings)
gtk_widget_get_settings Ptr Widget
widget'
Text -> Ptr Settings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetSettings" Ptr Settings
result
Settings
result' <- ((ManagedPtr Settings -> Settings) -> Ptr Settings -> IO Settings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Settings -> Settings
Gtk.Settings.Settings) Ptr Settings
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Settings -> IO Settings
forall (m :: * -> *) a. Monad m => a -> m a
return Settings
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetSettingsMethodInfo
instance (signature ~ (m Gtk.Settings.Settings), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetSettingsMethodInfo a signature where
overloadedMethod = widgetGetSettings
instance O.OverloadedMethodInfo WidgetGetSettingsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetSettings",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetSettings"
}
#endif
foreign import ccall "gtk_widget_get_size" gtk_widget_get_size ::
Ptr Widget ->
CUInt ->
IO Int32
widgetGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.Orientation
-> m Int32
widgetGetSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Orientation -> m Int32
widgetGetSize a
widget Orientation
orientation = 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 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
Int32
result <- Ptr Widget -> CUInt -> IO Int32
gtk_widget_get_size Ptr Widget
widget' CUInt
orientation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetSizeMethodInfo
instance (signature ~ (Gtk.Enums.Orientation -> m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetSizeMethodInfo a signature where
overloadedMethod = widgetGetSize
instance O.OverloadedMethodInfo WidgetGetSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetSize"
}
#endif
foreign import ccall "gtk_widget_get_size_request" gtk_widget_get_size_request ::
Ptr Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetSizeRequest ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ((Int32, Int32))
widgetGetSizeRequest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Int32, Int32)
widgetGetSizeRequest a
widget = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (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
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Widget -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_widget_get_size_request Ptr Widget
widget' Ptr Int32
width Ptr Int32
height
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data WidgetGetSizeRequestMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetSizeRequestMethodInfo a signature where
overloadedMethod = widgetGetSizeRequest
instance O.OverloadedMethodInfo WidgetGetSizeRequestMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetSizeRequest",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetSizeRequest"
}
#endif
foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags ::
Ptr Widget ->
IO CUInt
widgetGetStateFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m [Gtk.Flags.StateFlags]
widgetGetStateFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m [StateFlags]
widgetGetStateFlags a
widget = IO [StateFlags] -> m [StateFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [StateFlags] -> m [StateFlags])
-> IO [StateFlags] -> m [StateFlags]
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 <- Ptr Widget -> IO CUInt
gtk_widget_get_state_flags Ptr Widget
widget'
let result' :: [StateFlags]
result' = CUInt -> [StateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
[StateFlags] -> IO [StateFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [StateFlags]
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetStateFlagsMethodInfo
instance (signature ~ (m [Gtk.Flags.StateFlags]), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetStateFlagsMethodInfo a signature where
overloadedMethod = widgetGetStateFlags
instance O.OverloadedMethodInfo WidgetGetStateFlagsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetStateFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetStateFlags"
}
#endif
foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context ::
Ptr Widget ->
IO (Ptr Gtk.StyleContext.StyleContext)
widgetGetStyleContext ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.StyleContext.StyleContext
widgetGetStyleContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m StyleContext
widgetGetStyleContext a
widget = IO StyleContext -> m StyleContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StyleContext -> m StyleContext)
-> IO StyleContext -> m StyleContext
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 StyleContext
result <- Ptr Widget -> IO (Ptr StyleContext)
gtk_widget_get_style_context Ptr Widget
widget'
Text -> Ptr StyleContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetStyleContext" Ptr StyleContext
result
StyleContext
result' <- ((ManagedPtr StyleContext -> StyleContext)
-> Ptr StyleContext -> IO StyleContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr StyleContext -> StyleContext
Gtk.StyleContext.StyleContext) Ptr StyleContext
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
StyleContext -> IO StyleContext
forall (m :: * -> *) a. Monad m => a -> m a
return StyleContext
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetStyleContextMethodInfo
instance (signature ~ (m Gtk.StyleContext.StyleContext), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetStyleContextMethodInfo a signature where
overloadedMethod = widgetGetStyleContext
instance O.OverloadedMethodInfo WidgetGetStyleContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetStyleContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetStyleContext"
}
#endif
foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child ::
Ptr Widget ->
CGType ->
CString ->
IO (Ptr GObject.Object.Object)
widgetGetTemplateChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> GType
-> T.Text
-> m GObject.Object.Object
widgetGetTemplateChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> GType -> Text -> m Object
widgetGetTemplateChild a
widget GType
widgetType Text
name = 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
let widgetType' :: CGType
widgetType' = GType -> CGType
gtypeToCGType GType
widgetType
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Object
result <- Ptr Widget -> CGType -> CString -> IO (Ptr Object)
gtk_widget_get_template_child Ptr Widget
widget' CGType
widgetType' CString
name'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetGetTemplateChild" 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
GObject.Object.Object) Ptr Object
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetTemplateChildMethodInfo
instance (signature ~ (GType -> T.Text -> m GObject.Object.Object), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetTemplateChildMethodInfo a signature where
overloadedMethod = widgetGetTemplateChild
instance O.OverloadedMethodInfo WidgetGetTemplateChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetTemplateChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetTemplateChild"
}
#endif
foreign import ccall "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup ::
Ptr Widget ->
IO CString
widgetGetTooltipMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe T.Text)
widgetGetTooltipMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Text)
widgetGetTooltipMarkup a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CString
result <- Ptr Widget -> IO CString
gtk_widget_get_tooltip_markup Ptr Widget
widget'
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
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText 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
widget
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetTooltipMarkupMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetTooltipMarkupMethodInfo a signature where
overloadedMethod = widgetGetTooltipMarkup
instance O.OverloadedMethodInfo WidgetGetTooltipMarkupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetTooltipMarkup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetTooltipMarkup"
}
#endif
foreign import ccall "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text ::
Ptr Widget ->
IO CString
widgetGetTooltipText ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe T.Text)
widgetGetTooltipText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m (Maybe Text)
widgetGetTooltipText a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CString
result <- Ptr Widget -> IO CString
gtk_widget_get_tooltip_text Ptr Widget
widget'
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
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText 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
widget
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetTooltipTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetTooltipTextMethodInfo a signature where
overloadedMethod = widgetGetTooltipText
instance O.OverloadedMethodInfo WidgetGetTooltipTextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetTooltipText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetTooltipText"
}
#endif
foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign ::
Ptr Widget ->
IO CUInt
widgetGetValign ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.Enums.Align
widgetGetValign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Align
widgetGetValign a
widget = IO Align -> m Align
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Align -> m Align) -> IO Align -> m Align
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 <- Ptr Widget -> IO CUInt
gtk_widget_get_valign Ptr Widget
widget'
let result' :: Align
result' = (Int -> Align
forall a. Enum a => Int -> a
toEnum (Int -> Align) -> (CUInt -> Int) -> CUInt -> Align
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
Align -> IO Align
forall (m :: * -> *) a. Monad m => a -> m a
return Align
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetValignMethodInfo
instance (signature ~ (m Gtk.Enums.Align), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetValignMethodInfo a signature where
overloadedMethod = widgetGetValign
instance O.OverloadedMethodInfo WidgetGetValignMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetValign",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetValign"
}
#endif
foreign import ccall "gtk_widget_get_vexpand" gtk_widget_get_vexpand ::
Ptr Widget ->
IO CInt
widgetGetVexpand ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetVexpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetVexpand 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 <- Ptr Widget -> IO CInt
gtk_widget_get_vexpand Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetVexpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetVexpandMethodInfo a signature where
overloadedMethod = widgetGetVexpand
instance O.OverloadedMethodInfo WidgetGetVexpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetVexpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetVexpand"
}
#endif
foreign import ccall "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set ::
Ptr Widget ->
IO CInt
widgetGetVexpandSet ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetVexpandSet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetVexpandSet 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 <- Ptr Widget -> IO CInt
gtk_widget_get_vexpand_set Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetVexpandSetMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetVexpandSetMethodInfo a signature where
overloadedMethod = widgetGetVexpandSet
instance O.OverloadedMethodInfo WidgetGetVexpandSetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetVexpandSet",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetVexpandSet"
}
#endif
foreign import ccall "gtk_widget_get_visible" gtk_widget_get_visible ::
Ptr Widget ->
IO CInt
widgetGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGetVisible 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 <- Ptr Widget -> IO CInt
gtk_widget_get_visible Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetVisibleMethodInfo a signature where
overloadedMethod = widgetGetVisible
instance O.OverloadedMethodInfo WidgetGetVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetVisible"
}
#endif
foreign import ccall "gtk_widget_get_width" gtk_widget_get_width ::
Ptr Widget ->
IO Int32
widgetGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Int32
widgetGetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Int32
widgetGetWidth a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Int32
result <- Ptr Widget -> IO Int32
gtk_widget_get_width Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WidgetGetWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGetWidthMethodInfo a signature where
overloadedMethod = widgetGetWidth
instance O.OverloadedMethodInfo WidgetGetWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGetWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGetWidth"
}
#endif
foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus ::
Ptr Widget ->
IO CInt
widgetGrabFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGrabFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetGrabFocus 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 <- Ptr Widget -> IO CInt
gtk_widget_grab_focus Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGrabFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetGrabFocusMethodInfo a signature where
overloadedMethod = widgetGrabFocus
instance O.OverloadedMethodInfo WidgetGrabFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetGrabFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetGrabFocus"
}
#endif
foreign import ccall "gtk_widget_has_css_class" gtk_widget_has_css_class ::
Ptr Widget ->
CString ->
IO CInt
widgetHasCssClass ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> m Bool
widgetHasCssClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Text -> m Bool
widgetHasCssClass a
widget Text
cssClass = 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
CString
cssClass' <- Text -> IO CString
textToCString Text
cssClass
CInt
result <- Ptr Widget -> CString -> IO CInt
gtk_widget_has_css_class Ptr Widget
widget' CString
cssClass'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
cssClass'
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetHasCssClassMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetHasCssClassMethodInfo a signature where
overloadedMethod = widgetHasCssClass
instance O.OverloadedMethodInfo WidgetHasCssClassMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetHasCssClass",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetHasCssClass"
}
#endif
foreign import ccall "gtk_widget_has_default" gtk_widget_has_default ::
Ptr Widget ->
IO CInt
widgetHasDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetHasDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetHasDefault 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 <- Ptr Widget -> IO CInt
gtk_widget_has_default Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetHasDefaultMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetHasDefaultMethodInfo a signature where
overloadedMethod = widgetHasDefault
instance O.OverloadedMethodInfo WidgetHasDefaultMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetHasDefault",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetHasDefault"
}
#endif
foreign import ccall "gtk_widget_has_focus" gtk_widget_has_focus ::
Ptr Widget ->
IO CInt
widgetHasFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetHasFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetHasFocus 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 <- Ptr Widget -> IO CInt
gtk_widget_has_focus Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetHasFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetHasFocusMethodInfo a signature where
overloadedMethod = widgetHasFocus
instance O.OverloadedMethodInfo WidgetHasFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetHasFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetHasFocus"
}
#endif
foreign import ccall "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus ::
Ptr Widget ->
IO CInt
widgetHasVisibleFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetHasVisibleFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetHasVisibleFocus 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 <- Ptr Widget -> IO CInt
gtk_widget_has_visible_focus Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetHasVisibleFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetHasVisibleFocusMethodInfo a signature where
overloadedMethod = widgetHasVisibleFocus
instance O.OverloadedMethodInfo WidgetHasVisibleFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetHasVisibleFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetHasVisibleFocus"
}
#endif
foreign import ccall "gtk_widget_hide" gtk_widget_hide ::
Ptr Widget ->
IO ()
widgetHide ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetHide :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetHide 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
Ptr Widget -> IO ()
gtk_widget_hide Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetHideMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetHideMethodInfo a signature where
overloadedMethod = widgetHide
instance O.OverloadedMethodInfo WidgetHideMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetHide",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetHide"
}
#endif
foreign import ccall "gtk_widget_in_destruction" gtk_widget_in_destruction ::
Ptr Widget ->
IO CInt
widgetInDestruction ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetInDestruction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetInDestruction 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 <- Ptr Widget -> IO CInt
gtk_widget_in_destruction Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetInDestructionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetInDestructionMethodInfo a signature where
overloadedMethod = widgetInDestruction
instance O.OverloadedMethodInfo WidgetInDestructionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetInDestruction",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetInDestruction"
}
#endif
foreign import ccall "gtk_widget_init_template" gtk_widget_init_template ::
Ptr Widget ->
IO ()
widgetInitTemplate ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetInitTemplate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetInitTemplate 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
Ptr Widget -> IO ()
gtk_widget_init_template Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetInitTemplateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetInitTemplateMethodInfo a signature where
overloadedMethod = widgetInitTemplate
instance O.OverloadedMethodInfo WidgetInitTemplateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetInitTemplate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetInitTemplate"
}
#endif
foreign import ccall "gtk_widget_insert_action_group" gtk_widget_insert_action_group ::
Ptr Widget ->
CString ->
Ptr Gio.ActionGroup.ActionGroup ->
IO ()
widgetInsertActionGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gio.ActionGroup.IsActionGroup b) =>
a
-> T.Text
-> Maybe (b)
-> m ()
widgetInsertActionGroup :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsActionGroup b) =>
a -> Text -> Maybe b -> m ()
widgetInsertActionGroup a
widget Text
name Maybe b
group = 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
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr ActionGroup
maybeGroup <- case Maybe b
group of
Maybe b
Nothing -> Ptr ActionGroup -> IO (Ptr ActionGroup)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ActionGroup
forall a. Ptr a
nullPtr
Just b
jGroup -> do
Ptr ActionGroup
jGroup' <- b -> IO (Ptr ActionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jGroup
Ptr ActionGroup -> IO (Ptr ActionGroup)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ActionGroup
jGroup'
Ptr Widget -> CString -> Ptr ActionGroup -> IO ()
gtk_widget_insert_action_group Ptr Widget
widget' CString
name' Ptr ActionGroup
maybeGroup
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
group b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetInsertActionGroupMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, IsWidget a, Gio.ActionGroup.IsActionGroup b) => O.OverloadedMethod WidgetInsertActionGroupMethodInfo a signature where
overloadedMethod = widgetInsertActionGroup
instance O.OverloadedMethodInfo WidgetInsertActionGroupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetInsertActionGroup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetInsertActionGroup"
}
#endif
foreign import ccall "gtk_widget_insert_after" gtk_widget_insert_after ::
Ptr Widget ->
Ptr Widget ->
Ptr Widget ->
IO ()
widgetInsertAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b, IsWidget c) =>
a
-> b
-> Maybe (c)
-> m ()
widgetInsertAfter :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> m ()
widgetInsertAfter a
widget b
parent Maybe c
previousSibling = 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 Widget
parent' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
Ptr Widget
maybePreviousSibling <- case Maybe c
previousSibling of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jPreviousSibling -> do
Ptr Widget
jPreviousSibling' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jPreviousSibling
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jPreviousSibling'
Ptr Widget -> Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_insert_after Ptr Widget
widget' Ptr Widget
parent' Ptr Widget
maybePreviousSibling
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
parent
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
previousSibling c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetInsertAfterMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsWidget a, IsWidget b, IsWidget c) => O.OverloadedMethod WidgetInsertAfterMethodInfo a signature where
overloadedMethod = widgetInsertAfter
instance O.OverloadedMethodInfo WidgetInsertAfterMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetInsertAfter",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetInsertAfter"
}
#endif
foreign import ccall "gtk_widget_insert_before" gtk_widget_insert_before ::
Ptr Widget ->
Ptr Widget ->
Ptr Widget ->
IO ()
widgetInsertBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b, IsWidget c) =>
a
-> b
-> Maybe (c)
-> m ()
widgetInsertBefore :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> m ()
widgetInsertBefore a
widget b
parent Maybe c
nextSibling = 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 Widget
parent' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
Ptr Widget
maybeNextSibling <- case Maybe c
nextSibling of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jNextSibling -> do
Ptr Widget
jNextSibling' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jNextSibling
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jNextSibling'
Ptr Widget -> Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_insert_before Ptr Widget
widget' Ptr Widget
parent' Ptr Widget
maybeNextSibling
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
parent
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
nextSibling c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetInsertBeforeMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsWidget a, IsWidget b, IsWidget c) => O.OverloadedMethod WidgetInsertBeforeMethodInfo a signature where
overloadedMethod = widgetInsertBefore
instance O.OverloadedMethodInfo WidgetInsertBeforeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetInsertBefore",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetInsertBefore"
}
#endif
foreign import ccall "gtk_widget_is_ancestor" gtk_widget_is_ancestor ::
Ptr Widget ->
Ptr Widget ->
IO CInt
widgetIsAncestor ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> m Bool
widgetIsAncestor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> m Bool
widgetIsAncestor a
widget b
ancestor = 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 Widget
ancestor' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
ancestor
CInt
result <- Ptr Widget -> Ptr Widget -> IO CInt
gtk_widget_is_ancestor Ptr Widget
widget' Ptr Widget
ancestor'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
ancestor
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetIsAncestorMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetIsAncestorMethodInfo a signature where
overloadedMethod = widgetIsAncestor
instance O.OverloadedMethodInfo WidgetIsAncestorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetIsAncestor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetIsAncestor"
}
#endif
foreign import ccall "gtk_widget_is_drawable" gtk_widget_is_drawable ::
Ptr Widget ->
IO CInt
widgetIsDrawable ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetIsDrawable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetIsDrawable 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 <- Ptr Widget -> IO CInt
gtk_widget_is_drawable Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetIsDrawableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetIsDrawableMethodInfo a signature where
overloadedMethod = widgetIsDrawable
instance O.OverloadedMethodInfo WidgetIsDrawableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetIsDrawable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetIsDrawable"
}
#endif
foreign import ccall "gtk_widget_is_focus" gtk_widget_is_focus ::
Ptr Widget ->
IO CInt
widgetIsFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetIsFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetIsFocus 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 <- Ptr Widget -> IO CInt
gtk_widget_is_focus Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetIsFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetIsFocusMethodInfo a signature where
overloadedMethod = widgetIsFocus
instance O.OverloadedMethodInfo WidgetIsFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetIsFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetIsFocus"
}
#endif
foreign import ccall "gtk_widget_is_sensitive" gtk_widget_is_sensitive ::
Ptr Widget ->
IO CInt
widgetIsSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetIsSensitive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetIsSensitive 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 <- Ptr Widget -> IO CInt
gtk_widget_is_sensitive Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetIsSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetIsSensitiveMethodInfo a signature where
overloadedMethod = widgetIsSensitive
instance O.OverloadedMethodInfo WidgetIsSensitiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetIsSensitive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetIsSensitive"
}
#endif
foreign import ccall "gtk_widget_is_visible" gtk_widget_is_visible ::
Ptr Widget ->
IO CInt
widgetIsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetIsVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetIsVisible 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 <- Ptr Widget -> IO CInt
gtk_widget_is_visible Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetIsVisibleMethodInfo a signature where
overloadedMethod = widgetIsVisible
instance O.OverloadedMethodInfo WidgetIsVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetIsVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetIsVisible"
}
#endif
foreign import ccall "gtk_widget_keynav_failed" gtk_widget_keynav_failed ::
Ptr Widget ->
CUInt ->
IO CInt
widgetKeynavFailed ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.DirectionType
-> m Bool
widgetKeynavFailed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> DirectionType -> m Bool
widgetKeynavFailed a
widget 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 <- Ptr Widget -> CUInt -> IO CInt
gtk_widget_keynav_failed Ptr Widget
widget' CUInt
direction'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetKeynavFailedMethodInfo
instance (signature ~ (Gtk.Enums.DirectionType -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetKeynavFailedMethodInfo a signature where
overloadedMethod = widgetKeynavFailed
instance O.OverloadedMethodInfo WidgetKeynavFailedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetKeynavFailed",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetKeynavFailed"
}
#endif
foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels ::
Ptr Widget ->
IO (Ptr (GList (Ptr Widget)))
widgetListMnemonicLabels ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m [Widget]
widgetListMnemonicLabels :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m [Widget]
widgetListMnemonicLabels a
widget = 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr (GList (Ptr Widget))
result <- Ptr Widget -> IO (Ptr (GList (Ptr Widget)))
gtk_widget_list_mnemonic_labels Ptr Widget
widget'
[Ptr Widget]
result' <- Ptr (GList (Ptr Widget)) -> IO [Ptr Widget]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Widget))
result
[Widget]
result'' <- (Ptr Widget -> IO Widget) -> [Ptr Widget] -> IO [Widget]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((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
Widget) [Ptr Widget]
result'
Ptr (GList (Ptr Widget)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Widget))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
[Widget] -> IO [Widget]
forall (m :: * -> *) a. Monad m => a -> m a
return [Widget]
result''
#if defined(ENABLE_OVERLOADING)
data WidgetListMnemonicLabelsMethodInfo
instance (signature ~ (m [Widget]), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetListMnemonicLabelsMethodInfo a signature where
overloadedMethod = widgetListMnemonicLabels
instance O.OverloadedMethodInfo WidgetListMnemonicLabelsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetListMnemonicLabels",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetListMnemonicLabels"
}
#endif
foreign import ccall "gtk_widget_map" gtk_widget_map ::
Ptr Widget ->
IO ()
widgetMap ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetMap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetMap 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
Ptr Widget -> IO ()
gtk_widget_map Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetMapMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetMapMethodInfo a signature where
overloadedMethod = widgetMap
instance O.OverloadedMethodInfo WidgetMapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetMap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetMap"
}
#endif
foreign import ccall "gtk_widget_measure" gtk_widget_measure ::
Ptr Widget ->
CUInt ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetMeasure ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.Orientation
-> Int32
-> m ((Int32, Int32, Int32, Int32))
widgetMeasure :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Orientation -> Int32 -> m (Int32, Int32, Int32, Int32)
widgetMeasure a
widget Orientation
orientation 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)
Ptr Widget
-> CUInt
-> Int32
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_widget_measure 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')
#if defined(ENABLE_OVERLOADING)
data WidgetMeasureMethodInfo
instance (signature ~ (Gtk.Enums.Orientation -> Int32 -> m ((Int32, Int32, Int32, Int32))), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetMeasureMethodInfo a signature where
overloadedMethod = widgetMeasure
instance O.OverloadedMethodInfo WidgetMeasureMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetMeasure",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetMeasure"
}
#endif
foreign import ccall "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate ::
Ptr Widget ->
CInt ->
IO CInt
widgetMnemonicActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m Bool
widgetMnemonicActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m Bool
widgetMnemonicActivate a
widget 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 <- Ptr Widget -> CInt -> IO CInt
gtk_widget_mnemonic_activate Ptr Widget
widget' CInt
groupCycling'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetMnemonicActivateMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetMnemonicActivateMethodInfo a signature where
overloadedMethod = widgetMnemonicActivate
instance O.OverloadedMethodInfo WidgetMnemonicActivateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetMnemonicActivate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetMnemonicActivate"
}
#endif
foreign import ccall "gtk_widget_observe_children" gtk_widget_observe_children ::
Ptr Widget ->
IO (Ptr Gio.ListModel.ListModel)
widgetObserveChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gio.ListModel.ListModel
widgetObserveChildren :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ListModel
widgetObserveChildren a
widget = IO ListModel -> m ListModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
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 ListModel
result <- Ptr Widget -> IO (Ptr ListModel)
gtk_widget_observe_children Ptr Widget
widget'
Text -> Ptr ListModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetObserveChildren" Ptr ListModel
result
ListModel
result' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
ListModel -> IO ListModel
forall (m :: * -> *) a. Monad m => a -> m a
return ListModel
result'
#if defined(ENABLE_OVERLOADING)
data WidgetObserveChildrenMethodInfo
instance (signature ~ (m Gio.ListModel.ListModel), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetObserveChildrenMethodInfo a signature where
overloadedMethod = widgetObserveChildren
instance O.OverloadedMethodInfo WidgetObserveChildrenMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetObserveChildren",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetObserveChildren"
}
#endif
foreign import ccall "gtk_widget_observe_controllers" gtk_widget_observe_controllers ::
Ptr Widget ->
IO (Ptr Gio.ListModel.ListModel)
widgetObserveControllers ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gio.ListModel.ListModel
widgetObserveControllers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ListModel
widgetObserveControllers a
widget = IO ListModel -> m ListModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
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 ListModel
result <- Ptr Widget -> IO (Ptr ListModel)
gtk_widget_observe_controllers Ptr Widget
widget'
Text -> Ptr ListModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"widgetObserveControllers" Ptr ListModel
result
ListModel
result' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
ListModel -> IO ListModel
forall (m :: * -> *) a. Monad m => a -> m a
return ListModel
result'
#if defined(ENABLE_OVERLOADING)
data WidgetObserveControllersMethodInfo
instance (signature ~ (m Gio.ListModel.ListModel), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetObserveControllersMethodInfo a signature where
overloadedMethod = widgetObserveControllers
instance O.OverloadedMethodInfo WidgetObserveControllersMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetObserveControllers",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetObserveControllers"
}
#endif
foreign import ccall "gtk_widget_pick" gtk_widget_pick ::
Ptr Widget ->
CDouble ->
CDouble ->
CUInt ->
IO (Ptr Widget)
widgetPick ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Double
-> Double
-> [Gtk.Flags.PickFlags]
-> m (Maybe Widget)
widgetPick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Double -> Double -> [PickFlags] -> m (Maybe Widget)
widgetPick a
widget Double
x Double
y [PickFlags]
flags = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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
let flags' :: CUInt
flags' = [PickFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PickFlags]
flags
Ptr Widget
result <- Ptr Widget -> CDouble -> CDouble -> CUInt -> IO (Ptr Widget)
gtk_widget_pick Ptr Widget
widget' CDouble
x' CDouble
y' CUInt
flags'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((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
Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetPickMethodInfo
instance (signature ~ (Double -> Double -> [Gtk.Flags.PickFlags] -> m (Maybe Widget)), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetPickMethodInfo a signature where
overloadedMethod = widgetPick
instance O.OverloadedMethodInfo WidgetPickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetPick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetPick"
}
#endif
foreign import ccall "gtk_widget_queue_allocate" gtk_widget_queue_allocate ::
Ptr Widget ->
IO ()
widgetQueueAllocate ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetQueueAllocate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetQueueAllocate 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
Ptr Widget -> IO ()
gtk_widget_queue_allocate Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetQueueAllocateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetQueueAllocateMethodInfo a signature where
overloadedMethod = widgetQueueAllocate
instance O.OverloadedMethodInfo WidgetQueueAllocateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetQueueAllocate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetQueueAllocate"
}
#endif
foreign import ccall "gtk_widget_queue_draw" gtk_widget_queue_draw ::
Ptr Widget ->
IO ()
widgetQueueDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetQueueDraw :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetQueueDraw 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
Ptr Widget -> IO ()
gtk_widget_queue_draw Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetQueueDrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetQueueDrawMethodInfo a signature where
overloadedMethod = widgetQueueDraw
instance O.OverloadedMethodInfo WidgetQueueDrawMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetQueueDraw",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetQueueDraw"
}
#endif
foreign import ccall "gtk_widget_queue_resize" gtk_widget_queue_resize ::
Ptr Widget ->
IO ()
widgetQueueResize ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetQueueResize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetQueueResize 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
Ptr Widget -> IO ()
gtk_widget_queue_resize Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetQueueResizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetQueueResizeMethodInfo a signature where
overloadedMethod = widgetQueueResize
instance O.OverloadedMethodInfo WidgetQueueResizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetQueueResize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetQueueResize"
}
#endif
foreign import ccall "gtk_widget_realize" gtk_widget_realize ::
Ptr Widget ->
IO ()
widgetRealize ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetRealize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetRealize 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
Ptr Widget -> IO ()
gtk_widget_realize Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetRealizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetRealizeMethodInfo a signature where
overloadedMethod = widgetRealize
instance O.OverloadedMethodInfo WidgetRealizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetRealize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetRealize"
}
#endif
foreign import ccall "gtk_widget_remove_controller" gtk_widget_remove_controller ::
Ptr Widget ->
Ptr Gtk.EventController.EventController ->
IO ()
widgetRemoveController ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gtk.EventController.IsEventController b) =>
a
-> b
-> m ()
widgetRemoveController :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsEventController b) =>
a -> b -> m ()
widgetRemoveController a
widget b
controller = 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 EventController
controller' <- b -> IO (Ptr EventController)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
controller
Ptr Widget -> Ptr EventController -> IO ()
gtk_widget_remove_controller Ptr Widget
widget' Ptr EventController
controller'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
controller
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetRemoveControllerMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, Gtk.EventController.IsEventController b) => O.OverloadedMethod WidgetRemoveControllerMethodInfo a signature where
overloadedMethod = widgetRemoveController
instance O.OverloadedMethodInfo WidgetRemoveControllerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetRemoveController",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetRemoveController"
}
#endif
foreign import ccall "gtk_widget_remove_css_class" gtk_widget_remove_css_class ::
Ptr Widget ->
CString ->
IO ()
widgetRemoveCssClass ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> m ()
widgetRemoveCssClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Text -> m ()
widgetRemoveCssClass a
widget Text
cssClass = 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
CString
cssClass' <- Text -> IO CString
textToCString Text
cssClass
Ptr Widget -> CString -> IO ()
gtk_widget_remove_css_class Ptr Widget
widget' CString
cssClass'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
cssClass'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetRemoveCssClassMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetRemoveCssClassMethodInfo a signature where
overloadedMethod = widgetRemoveCssClass
instance O.OverloadedMethodInfo WidgetRemoveCssClassMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetRemoveCssClass",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetRemoveCssClass"
}
#endif
foreign import ccall "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetRemoveMnemonicLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> m ()
widgetRemoveMnemonicLabel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> m ()
widgetRemoveMnemonicLabel a
widget b
label = 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 Widget
label' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
label
Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_remove_mnemonic_label Ptr Widget
widget' Ptr Widget
label'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
label
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetRemoveMnemonicLabelMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetRemoveMnemonicLabelMethodInfo a signature where
overloadedMethod = widgetRemoveMnemonicLabel
instance O.OverloadedMethodInfo WidgetRemoveMnemonicLabelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetRemoveMnemonicLabel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetRemoveMnemonicLabel"
}
#endif
foreign import ccall "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback ::
Ptr Widget ->
Word32 ->
IO ()
widgetRemoveTickCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Word32
-> m ()
widgetRemoveTickCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Word32 -> m ()
widgetRemoveTickCallback a
widget Word32
id = 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 Widget -> Word32 -> IO ()
gtk_widget_remove_tick_callback Ptr Widget
widget' Word32
id
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetRemoveTickCallbackMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetRemoveTickCallbackMethodInfo a signature where
overloadedMethod = widgetRemoveTickCallback
instance O.OverloadedMethodInfo WidgetRemoveTickCallbackMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetRemoveTickCallback",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetRemoveTickCallback"
}
#endif
foreign import ccall "gtk_widget_set_can_focus" gtk_widget_set_can_focus ::
Ptr Widget ->
CInt ->
IO ()
widgetSetCanFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetCanFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetCanFocus a
widget Bool
canFocus = 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 canFocus' :: CInt
canFocus' = (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
canFocus
Ptr Widget -> CInt -> IO ()
gtk_widget_set_can_focus Ptr Widget
widget' CInt
canFocus'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetCanFocusMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetCanFocusMethodInfo a signature where
overloadedMethod = widgetSetCanFocus
instance O.OverloadedMethodInfo WidgetSetCanFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetCanFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetCanFocus"
}
#endif
foreign import ccall "gtk_widget_set_can_target" gtk_widget_set_can_target ::
Ptr Widget ->
CInt ->
IO ()
widgetSetCanTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetCanTarget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetCanTarget a
widget Bool
canTarget = 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 canTarget' :: CInt
canTarget' = (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
canTarget
Ptr Widget -> CInt -> IO ()
gtk_widget_set_can_target Ptr Widget
widget' CInt
canTarget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetCanTargetMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetCanTargetMethodInfo a signature where
overloadedMethod = widgetSetCanTarget
instance O.OverloadedMethodInfo WidgetSetCanTargetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetCanTarget",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetCanTarget"
}
#endif
foreign import ccall "gtk_widget_set_child_visible" gtk_widget_set_child_visible ::
Ptr Widget ->
CInt ->
IO ()
widgetSetChildVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetChildVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetChildVisible a
widget Bool
childVisible = 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 childVisible' :: CInt
childVisible' = (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
childVisible
Ptr Widget -> CInt -> IO ()
gtk_widget_set_child_visible Ptr Widget
widget' CInt
childVisible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetChildVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetChildVisibleMethodInfo a signature where
overloadedMethod = widgetSetChildVisible
instance O.OverloadedMethodInfo WidgetSetChildVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetChildVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetChildVisible"
}
#endif
foreign import ccall "gtk_widget_set_css_classes" gtk_widget_set_css_classes ::
Ptr Widget ->
Ptr CString ->
IO ()
widgetSetCssClasses ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> [T.Text]
-> m ()
widgetSetCssClasses :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> [Text] -> m ()
widgetSetCssClasses a
widget [Text]
classes = 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 CString
classes' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
classes
Ptr Widget -> Ptr CString -> IO ()
gtk_widget_set_css_classes Ptr Widget
widget' Ptr CString
classes'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
classes'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
classes'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetCssClassesMethodInfo
instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetCssClassesMethodInfo a signature where
overloadedMethod = widgetSetCssClasses
instance O.OverloadedMethodInfo WidgetSetCssClassesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetCssClasses",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetCssClasses"
}
#endif
foreign import ccall "gtk_widget_set_cursor" gtk_widget_set_cursor ::
Ptr Widget ->
Ptr Gdk.Cursor.Cursor ->
IO ()
widgetSetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Cursor.IsCursor b) =>
a
-> Maybe (b)
-> m ()
widgetSetCursor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsCursor b) =>
a -> Maybe b -> m ()
widgetSetCursor a
widget Maybe b
cursor = 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 Cursor
maybeCursor <- case Maybe b
cursor of
Maybe b
Nothing -> Ptr Cursor -> IO (Ptr Cursor)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cursor
forall a. Ptr a
nullPtr
Just b
jCursor -> do
Ptr Cursor
jCursor' <- b -> IO (Ptr Cursor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCursor
Ptr Cursor -> IO (Ptr Cursor)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cursor
jCursor'
Ptr Widget -> Ptr Cursor -> IO ()
gtk_widget_set_cursor Ptr Widget
widget' Ptr Cursor
maybeCursor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cursor b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetCursorMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWidget a, Gdk.Cursor.IsCursor b) => O.OverloadedMethod WidgetSetCursorMethodInfo a signature where
overloadedMethod = widgetSetCursor
instance O.OverloadedMethodInfo WidgetSetCursorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetCursor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetCursor"
}
#endif
foreign import ccall "gtk_widget_set_cursor_from_name" gtk_widget_set_cursor_from_name ::
Ptr Widget ->
CString ->
IO ()
widgetSetCursorFromName ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (T.Text)
-> m ()
widgetSetCursorFromName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Maybe Text -> m ()
widgetSetCursorFromName a
widget Maybe Text
name = 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
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr Widget -> CString -> IO ()
gtk_widget_set_cursor_from_name Ptr Widget
widget' CString
maybeName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetCursorFromNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetCursorFromNameMethodInfo a signature where
overloadedMethod = widgetSetCursorFromName
instance O.OverloadedMethodInfo WidgetSetCursorFromNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetCursorFromName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetCursorFromName"
}
#endif
foreign import ccall "gtk_widget_set_direction" gtk_widget_set_direction ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetDirection ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.TextDirection
-> m ()
widgetSetDirection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> TextDirection -> m ()
widgetSetDirection a
widget TextDirection
dir = 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 dir' :: CUInt
dir' = (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
dir
Ptr Widget -> CUInt -> IO ()
gtk_widget_set_direction Ptr Widget
widget' CUInt
dir'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetDirectionMethodInfo
instance (signature ~ (Gtk.Enums.TextDirection -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetDirectionMethodInfo a signature where
overloadedMethod = widgetSetDirection
instance O.OverloadedMethodInfo WidgetSetDirectionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetDirection",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetDirection"
}
#endif
foreign import ccall "gtk_widget_set_focus_child" gtk_widget_set_focus_child ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetSetFocusChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> Maybe (b)
-> m ()
widgetSetFocusChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> Maybe b -> m ()
widgetSetFocusChild a
widget Maybe 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 Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_set_focus_child Ptr Widget
widget' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetFocusChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetSetFocusChildMethodInfo a signature where
overloadedMethod = widgetSetFocusChild
instance O.OverloadedMethodInfo WidgetSetFocusChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetFocusChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetFocusChild"
}
#endif
foreign import ccall "gtk_widget_set_focus_on_click" gtk_widget_set_focus_on_click ::
Ptr Widget ->
CInt ->
IO ()
widgetSetFocusOnClick ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetFocusOnClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetFocusOnClick a
widget Bool
focusOnClick = 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 focusOnClick' :: CInt
focusOnClick' = (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
focusOnClick
Ptr Widget -> CInt -> IO ()
gtk_widget_set_focus_on_click Ptr Widget
widget' CInt
focusOnClick'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetFocusOnClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetFocusOnClickMethodInfo a signature where
overloadedMethod = widgetSetFocusOnClick
instance O.OverloadedMethodInfo WidgetSetFocusOnClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetFocusOnClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetFocusOnClick"
}
#endif
foreign import ccall "gtk_widget_set_focusable" gtk_widget_set_focusable ::
Ptr Widget ->
CInt ->
IO ()
widgetSetFocusable ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetFocusable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetFocusable a
widget Bool
focusable = 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 focusable' :: CInt
focusable' = (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
focusable
Ptr Widget -> CInt -> IO ()
gtk_widget_set_focusable Ptr Widget
widget' CInt
focusable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetFocusableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetFocusableMethodInfo a signature where
overloadedMethod = widgetSetFocusable
instance O.OverloadedMethodInfo WidgetSetFocusableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetFocusable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetFocusable"
}
#endif
foreign import ccall "gtk_widget_set_font_map" gtk_widget_set_font_map ::
Ptr Widget ->
Ptr Pango.FontMap.FontMap ->
IO ()
widgetSetFontMap ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Pango.FontMap.IsFontMap b) =>
a
-> Maybe (b)
-> m ()
widgetSetFontMap :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsFontMap b) =>
a -> Maybe b -> m ()
widgetSetFontMap a
widget Maybe b
fontMap = 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 FontMap
maybeFontMap <- case Maybe b
fontMap of
Maybe b
Nothing -> Ptr FontMap -> IO (Ptr FontMap)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontMap
forall a. Ptr a
nullPtr
Just b
jFontMap -> do
Ptr FontMap
jFontMap' <- b -> IO (Ptr FontMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFontMap
Ptr FontMap -> IO (Ptr FontMap)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontMap
jFontMap'
Ptr Widget -> Ptr FontMap -> IO ()
gtk_widget_set_font_map Ptr Widget
widget' Ptr FontMap
maybeFontMap
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
fontMap b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetFontMapMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWidget a, Pango.FontMap.IsFontMap b) => O.OverloadedMethod WidgetSetFontMapMethodInfo a signature where
overloadedMethod = widgetSetFontMap
instance O.OverloadedMethodInfo WidgetSetFontMapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetFontMap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetFontMap"
}
#endif
foreign import ccall "gtk_widget_set_font_options" gtk_widget_set_font_options ::
Ptr Widget ->
Ptr Cairo.FontOptions.FontOptions ->
IO ()
widgetSetFontOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (Cairo.FontOptions.FontOptions)
-> m ()
widgetSetFontOptions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Maybe FontOptions -> m ()
widgetSetFontOptions a
widget Maybe FontOptions
options = 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 FontOptions
maybeOptions <- case Maybe FontOptions
options of
Maybe FontOptions
Nothing -> Ptr FontOptions -> IO (Ptr FontOptions)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontOptions
forall a. Ptr a
nullPtr
Just FontOptions
jOptions -> do
Ptr FontOptions
jOptions' <- FontOptions -> IO (Ptr FontOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FontOptions
jOptions
Ptr FontOptions -> IO (Ptr FontOptions)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontOptions
jOptions'
Ptr Widget -> Ptr FontOptions -> IO ()
gtk_widget_set_font_options Ptr Widget
widget' Ptr FontOptions
maybeOptions
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe FontOptions -> (FontOptions -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe FontOptions
options FontOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetFontOptionsMethodInfo
instance (signature ~ (Maybe (Cairo.FontOptions.FontOptions) -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetFontOptionsMethodInfo a signature where
overloadedMethod = widgetSetFontOptions
instance O.OverloadedMethodInfo WidgetSetFontOptionsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetFontOptions",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetFontOptions"
}
#endif
foreign import ccall "gtk_widget_set_halign" gtk_widget_set_halign ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetHalign ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.Align
-> m ()
widgetSetHalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Align -> m ()
widgetSetHalign a
widget Align
align = 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 align' :: CUInt
align' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Align -> Int) -> Align -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Align -> Int
forall a. Enum a => a -> Int
fromEnum) Align
align
Ptr Widget -> CUInt -> IO ()
gtk_widget_set_halign Ptr Widget
widget' CUInt
align'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetHalignMethodInfo
instance (signature ~ (Gtk.Enums.Align -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetHalignMethodInfo a signature where
overloadedMethod = widgetSetHalign
instance O.OverloadedMethodInfo WidgetSetHalignMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetHalign",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetHalign"
}
#endif
foreign import ccall "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHasTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetHasTooltip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetHasTooltip a
widget Bool
hasTooltip = 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 hasTooltip' :: CInt
hasTooltip' = (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
hasTooltip
Ptr Widget -> CInt -> IO ()
gtk_widget_set_has_tooltip Ptr Widget
widget' CInt
hasTooltip'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetHasTooltipMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetHasTooltipMethodInfo a signature where
overloadedMethod = widgetSetHasTooltip
instance O.OverloadedMethodInfo WidgetSetHasTooltipMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetHasTooltip",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetHasTooltip"
}
#endif
foreign import ccall "gtk_widget_set_hexpand" gtk_widget_set_hexpand ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHexpand ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetHexpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetHexpand a
widget Bool
expand = 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 expand' :: CInt
expand' = (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
expand
Ptr Widget -> CInt -> IO ()
gtk_widget_set_hexpand Ptr Widget
widget' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetHexpandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetHexpandMethodInfo a signature where
overloadedMethod = widgetSetHexpand
instance O.OverloadedMethodInfo WidgetSetHexpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetHexpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetHexpand"
}
#endif
foreign import ccall "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHexpandSet ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetHexpandSet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetHexpandSet a
widget Bool
set = 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 set' :: CInt
set' = (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
set
Ptr Widget -> CInt -> IO ()
gtk_widget_set_hexpand_set Ptr Widget
widget' CInt
set'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetHexpandSetMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetHexpandSetMethodInfo a signature where
overloadedMethod = widgetSetHexpandSet
instance O.OverloadedMethodInfo WidgetSetHexpandSetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetHexpandSet",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetHexpandSet"
}
#endif
foreign import ccall "gtk_widget_set_layout_manager" gtk_widget_set_layout_manager ::
Ptr Widget ->
Ptr Gtk.LayoutManager.LayoutManager ->
IO ()
widgetSetLayoutManager ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gtk.LayoutManager.IsLayoutManager b) =>
a
-> Maybe (b)
-> m ()
widgetSetLayoutManager :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsLayoutManager b) =>
a -> Maybe b -> m ()
widgetSetLayoutManager a
widget Maybe b
layoutManager = 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 LayoutManager
maybeLayoutManager <- case Maybe b
layoutManager of
Maybe b
Nothing -> Ptr LayoutManager -> IO (Ptr LayoutManager)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr LayoutManager
forall a. Ptr a
nullPtr
Just b
jLayoutManager -> do
Ptr LayoutManager
jLayoutManager' <- b -> IO (Ptr LayoutManager)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject b
jLayoutManager
Ptr LayoutManager -> IO (Ptr LayoutManager)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr LayoutManager
jLayoutManager'
Ptr Widget -> Ptr LayoutManager -> IO ()
gtk_widget_set_layout_manager Ptr Widget
widget' Ptr LayoutManager
maybeLayoutManager
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
layoutManager b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetLayoutManagerMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWidget a, Gtk.LayoutManager.IsLayoutManager b) => O.OverloadedMethod WidgetSetLayoutManagerMethodInfo a signature where
overloadedMethod = widgetSetLayoutManager
instance O.OverloadedMethodInfo WidgetSetLayoutManagerMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetLayoutManager",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetLayoutManager"
}
#endif
foreign import ccall "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginBottom ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Int32
-> m ()
widgetSetMarginBottom :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Int32 -> m ()
widgetSetMarginBottom a
widget Int32
margin = 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 Widget -> Int32 -> IO ()
gtk_widget_set_margin_bottom Ptr Widget
widget' Int32
margin
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetMarginBottomMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetMarginBottomMethodInfo a signature where
overloadedMethod = widgetSetMarginBottom
instance O.OverloadedMethodInfo WidgetSetMarginBottomMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetMarginBottom",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetMarginBottom"
}
#endif
foreign import ccall "gtk_widget_set_margin_end" gtk_widget_set_margin_end ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Int32
-> m ()
widgetSetMarginEnd :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Int32 -> m ()
widgetSetMarginEnd a
widget Int32
margin = 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 Widget -> Int32 -> IO ()
gtk_widget_set_margin_end Ptr Widget
widget' Int32
margin
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetMarginEndMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetMarginEndMethodInfo a signature where
overloadedMethod = widgetSetMarginEnd
instance O.OverloadedMethodInfo WidgetSetMarginEndMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetMarginEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetMarginEnd"
}
#endif
foreign import ccall "gtk_widget_set_margin_start" gtk_widget_set_margin_start ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginStart ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Int32
-> m ()
widgetSetMarginStart :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Int32 -> m ()
widgetSetMarginStart a
widget Int32
margin = 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 Widget -> Int32 -> IO ()
gtk_widget_set_margin_start Ptr Widget
widget' Int32
margin
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetMarginStartMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetMarginStartMethodInfo a signature where
overloadedMethod = widgetSetMarginStart
instance O.OverloadedMethodInfo WidgetSetMarginStartMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetMarginStart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetMarginStart"
}
#endif
foreign import ccall "gtk_widget_set_margin_top" gtk_widget_set_margin_top ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginTop ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Int32
-> m ()
widgetSetMarginTop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Int32 -> m ()
widgetSetMarginTop a
widget Int32
margin = 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 Widget -> Int32 -> IO ()
gtk_widget_set_margin_top Ptr Widget
widget' Int32
margin
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetMarginTopMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetMarginTopMethodInfo a signature where
overloadedMethod = widgetSetMarginTop
instance O.OverloadedMethodInfo WidgetSetMarginTopMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetMarginTop",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetMarginTop"
}
#endif
foreign import ccall "gtk_widget_set_name" gtk_widget_set_name ::
Ptr Widget ->
CString ->
IO ()
widgetSetName ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> m ()
widgetSetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Text -> m ()
widgetSetName a
widget Text
name = 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
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Widget -> CString -> IO ()
gtk_widget_set_name Ptr Widget
widget' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetNameMethodInfo a signature where
overloadedMethod = widgetSetName
instance O.OverloadedMethodInfo WidgetSetNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetName"
}
#endif
foreign import ccall "gtk_widget_set_opacity" gtk_widget_set_opacity ::
Ptr Widget ->
CDouble ->
IO ()
widgetSetOpacity ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Double
-> m ()
widgetSetOpacity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Double -> m ()
widgetSetOpacity a
widget Double
opacity = 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 opacity' :: CDouble
opacity' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
opacity
Ptr Widget -> CDouble -> IO ()
gtk_widget_set_opacity Ptr Widget
widget' CDouble
opacity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetOpacityMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetOpacityMethodInfo a signature where
overloadedMethod = widgetSetOpacity
instance O.OverloadedMethodInfo WidgetSetOpacityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetOpacity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetOpacity"
}
#endif
foreign import ccall "gtk_widget_set_overflow" gtk_widget_set_overflow ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetOverflow ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.Overflow
-> m ()
widgetSetOverflow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Overflow -> m ()
widgetSetOverflow a
widget Overflow
overflow = 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 overflow' :: CUInt
overflow' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Overflow -> Int) -> Overflow -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Overflow -> Int
forall a. Enum a => a -> Int
fromEnum) Overflow
overflow
Ptr Widget -> CUInt -> IO ()
gtk_widget_set_overflow Ptr Widget
widget' CUInt
overflow'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetOverflowMethodInfo
instance (signature ~ (Gtk.Enums.Overflow -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetOverflowMethodInfo a signature where
overloadedMethod = widgetSetOverflow
instance O.OverloadedMethodInfo WidgetSetOverflowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetOverflow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetOverflow"
}
#endif
foreign import ccall "gtk_widget_set_parent" gtk_widget_set_parent ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetSetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> m ()
widgetSetParent :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> m ()
widgetSetParent a
widget b
parent = 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 Widget
parent' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
Ptr Widget -> Ptr Widget -> IO ()
gtk_widget_set_parent Ptr Widget
widget' Ptr Widget
parent'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
parent
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetParentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetSetParentMethodInfo a signature where
overloadedMethod = widgetSetParent
instance O.OverloadedMethodInfo WidgetSetParentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetParent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetParent"
}
#endif
foreign import ccall "gtk_widget_set_receives_default" gtk_widget_set_receives_default ::
Ptr Widget ->
CInt ->
IO ()
widgetSetReceivesDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetReceivesDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetReceivesDefault a
widget Bool
receivesDefault = 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 receivesDefault' :: CInt
receivesDefault' = (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
receivesDefault
Ptr Widget -> CInt -> IO ()
gtk_widget_set_receives_default Ptr Widget
widget' CInt
receivesDefault'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetReceivesDefaultMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetReceivesDefaultMethodInfo a signature where
overloadedMethod = widgetSetReceivesDefault
instance O.OverloadedMethodInfo WidgetSetReceivesDefaultMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetReceivesDefault",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetReceivesDefault"
}
#endif
foreign import ccall "gtk_widget_set_sensitive" gtk_widget_set_sensitive ::
Ptr Widget ->
CInt ->
IO ()
widgetSetSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetSensitive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetSensitive a
widget Bool
sensitive = 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 sensitive' :: CInt
sensitive' = (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
sensitive
Ptr Widget -> CInt -> IO ()
gtk_widget_set_sensitive Ptr Widget
widget' CInt
sensitive'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetSensitiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetSensitiveMethodInfo a signature where
overloadedMethod = widgetSetSensitive
instance O.OverloadedMethodInfo WidgetSetSensitiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetSensitive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetSensitive"
}
#endif
foreign import ccall "gtk_widget_set_size_request" gtk_widget_set_size_request ::
Ptr Widget ->
Int32 ->
Int32 ->
IO ()
widgetSetSizeRequest ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Int32
-> Int32
-> m ()
widgetSetSizeRequest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Int32 -> Int32 -> m ()
widgetSetSizeRequest a
widget Int32
width Int32
height = 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 Widget -> Int32 -> Int32 -> IO ()
gtk_widget_set_size_request Ptr Widget
widget' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetSizeRequestMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetSizeRequestMethodInfo a signature where
overloadedMethod = widgetSetSizeRequest
instance O.OverloadedMethodInfo WidgetSetSizeRequestMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetSizeRequest",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetSizeRequest"
}
#endif
foreign import ccall "gtk_widget_set_state_flags" gtk_widget_set_state_flags ::
Ptr Widget ->
CUInt ->
CInt ->
IO ()
widgetSetStateFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> [Gtk.Flags.StateFlags]
-> Bool
-> m ()
widgetSetStateFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> [StateFlags] -> Bool -> m ()
widgetSetStateFlags a
widget [StateFlags]
flags Bool
clear = 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 flags' :: CUInt
flags' = [StateFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
flags
let clear' :: CInt
clear' = (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
clear
Ptr Widget -> CUInt -> CInt -> IO ()
gtk_widget_set_state_flags Ptr Widget
widget' CUInt
flags' CInt
clear'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetStateFlagsMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetStateFlagsMethodInfo a signature where
overloadedMethod = widgetSetStateFlags
instance O.OverloadedMethodInfo WidgetSetStateFlagsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetStateFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetStateFlags"
}
#endif
foreign import ccall "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup ::
Ptr Widget ->
CString ->
IO ()
widgetSetTooltipMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (T.Text)
-> m ()
widgetSetTooltipMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Maybe Text -> m ()
widgetSetTooltipMarkup a
widget Maybe Text
markup = 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
CString
maybeMarkup <- case Maybe Text
markup of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jMarkup -> do
CString
jMarkup' <- Text -> IO CString
textToCString Text
jMarkup
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jMarkup'
Ptr Widget -> CString -> IO ()
gtk_widget_set_tooltip_markup Ptr Widget
widget' CString
maybeMarkup
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeMarkup
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetTooltipMarkupMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetTooltipMarkupMethodInfo a signature where
overloadedMethod = widgetSetTooltipMarkup
instance O.OverloadedMethodInfo WidgetSetTooltipMarkupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetTooltipMarkup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetTooltipMarkup"
}
#endif
foreign import ccall "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text ::
Ptr Widget ->
CString ->
IO ()
widgetSetTooltipText ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (T.Text)
-> m ()
widgetSetTooltipText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Maybe Text -> m ()
widgetSetTooltipText a
widget Maybe Text
text = 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
CString
maybeText <- case Maybe Text
text of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jText -> do
CString
jText' <- Text -> IO CString
textToCString Text
jText
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jText'
Ptr Widget -> CString -> IO ()
gtk_widget_set_tooltip_text Ptr Widget
widget' CString
maybeText
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeText
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetTooltipTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetTooltipTextMethodInfo a signature where
overloadedMethod = widgetSetTooltipText
instance O.OverloadedMethodInfo WidgetSetTooltipTextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetTooltipText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetTooltipText"
}
#endif
foreign import ccall "gtk_widget_set_valign" gtk_widget_set_valign ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetValign ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gtk.Enums.Align
-> m ()
widgetSetValign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Align -> m ()
widgetSetValign a
widget Align
align = 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 align' :: CUInt
align' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Align -> Int) -> Align -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Align -> Int
forall a. Enum a => a -> Int
fromEnum) Align
align
Ptr Widget -> CUInt -> IO ()
gtk_widget_set_valign Ptr Widget
widget' CUInt
align'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetValignMethodInfo
instance (signature ~ (Gtk.Enums.Align -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetValignMethodInfo a signature where
overloadedMethod = widgetSetValign
instance O.OverloadedMethodInfo WidgetSetValignMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetValign",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetValign"
}
#endif
foreign import ccall "gtk_widget_set_vexpand" gtk_widget_set_vexpand ::
Ptr Widget ->
CInt ->
IO ()
widgetSetVexpand ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetVexpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetVexpand a
widget Bool
expand = 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 expand' :: CInt
expand' = (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
expand
Ptr Widget -> CInt -> IO ()
gtk_widget_set_vexpand Ptr Widget
widget' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetVexpandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetVexpandMethodInfo a signature where
overloadedMethod = widgetSetVexpand
instance O.OverloadedMethodInfo WidgetSetVexpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetVexpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetVexpand"
}
#endif
foreign import ccall "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set ::
Ptr Widget ->
CInt ->
IO ()
widgetSetVexpandSet ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetVexpandSet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetVexpandSet a
widget Bool
set = 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 set' :: CInt
set' = (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
set
Ptr Widget -> CInt -> IO ()
gtk_widget_set_vexpand_set Ptr Widget
widget' CInt
set'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetVexpandSetMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetVexpandSetMethodInfo a signature where
overloadedMethod = widgetSetVexpandSet
instance O.OverloadedMethodInfo WidgetSetVexpandSetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetVexpandSet",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetVexpandSet"
}
#endif
foreign import ccall "gtk_widget_set_visible" gtk_widget_set_visible ::
Ptr Widget ->
CInt ->
IO ()
widgetSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Bool -> m ()
widgetSetVisible a
widget Bool
visible = 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 visible' :: CInt
visible' = (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
visible
Ptr Widget -> CInt -> IO ()
gtk_widget_set_visible Ptr Widget
widget' CInt
visible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSetVisibleMethodInfo a signature where
overloadedMethod = widgetSetVisible
instance O.OverloadedMethodInfo WidgetSetVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSetVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSetVisible"
}
#endif
foreign import ccall "gtk_widget_should_layout" gtk_widget_should_layout ::
Ptr Widget ->
IO CInt
widgetShouldLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetShouldLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m Bool
widgetShouldLayout 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 <- Ptr Widget -> IO CInt
gtk_widget_should_layout Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetShouldLayoutMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetShouldLayoutMethodInfo a signature where
overloadedMethod = widgetShouldLayout
instance O.OverloadedMethodInfo WidgetShouldLayoutMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetShouldLayout",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetShouldLayout"
}
#endif
foreign import ccall "gtk_widget_show" gtk_widget_show ::
Ptr Widget ->
IO ()
widgetShow ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetShow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetShow 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
Ptr Widget -> IO ()
gtk_widget_show Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetShowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetShowMethodInfo a signature where
overloadedMethod = widgetShow
instance O.OverloadedMethodInfo WidgetShowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetShow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetShow"
}
#endif
foreign import ccall "gtk_widget_size_allocate" gtk_widget_size_allocate ::
Ptr Widget ->
Ptr Gdk.Rectangle.Rectangle ->
Int32 ->
IO ()
widgetSizeAllocate ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gdk.Rectangle.Rectangle
-> Int32
-> m ()
widgetSizeAllocate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> Rectangle -> Int32 -> m ()
widgetSizeAllocate a
widget Rectangle
allocation 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
Ptr Rectangle
allocation' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
allocation
Ptr Widget -> Ptr Rectangle -> Int32 -> IO ()
gtk_widget_size_allocate Ptr Widget
widget' Ptr Rectangle
allocation' Int32
baseline
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
allocation
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSizeAllocateMethodInfo
instance (signature ~ (Gdk.Rectangle.Rectangle -> Int32 -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetSizeAllocateMethodInfo a signature where
overloadedMethod = widgetSizeAllocate
instance O.OverloadedMethodInfo WidgetSizeAllocateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSizeAllocate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSizeAllocate"
}
#endif
foreign import ccall "gtk_widget_snapshot_child" gtk_widget_snapshot_child ::
Ptr Widget ->
Ptr Widget ->
Ptr Gtk.Snapshot.Snapshot ->
IO ()
widgetSnapshotChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b, Gtk.Snapshot.IsSnapshot c) =>
a
-> b
-> c
-> m ()
widgetSnapshotChild :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b, IsSnapshot c) =>
a -> b -> c -> m ()
widgetSnapshotChild a
widget b
child c
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 Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Snapshot
snapshot' <- c -> IO (Ptr Snapshot)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
snapshot
Ptr Widget -> Ptr Widget -> Ptr Snapshot -> IO ()
gtk_widget_snapshot_child Ptr Widget
widget' Ptr Widget
child' Ptr Snapshot
snapshot'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
snapshot
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSnapshotChildMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, IsWidget a, IsWidget b, Gtk.Snapshot.IsSnapshot c) => O.OverloadedMethod WidgetSnapshotChildMethodInfo a signature where
overloadedMethod = widgetSnapshotChild
instance O.OverloadedMethodInfo WidgetSnapshotChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetSnapshotChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetSnapshotChild"
}
#endif
foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates ::
Ptr Widget ->
Ptr Widget ->
CDouble ->
CDouble ->
Ptr CDouble ->
Ptr CDouble ->
IO CInt
widgetTranslateCoordinates ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> Double
-> Double
-> m ((Bool, Double, Double))
widgetTranslateCoordinates :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a -> b -> Double -> Double -> m (Bool, Double, Double)
widgetTranslateCoordinates a
srcWidget b
destWidget Double
srcX Double
srcY = IO (Bool, Double, Double) -> m (Bool, Double, Double)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Double, Double) -> m (Bool, Double, Double))
-> IO (Bool, Double, Double) -> m (Bool, Double, Double)
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
srcWidget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
srcWidget
Ptr Widget
destWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
destWidget
let srcX' :: CDouble
srcX' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
srcX
let srcY' :: CDouble
srcY' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
srcY
Ptr CDouble
destX <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
destY <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr Widget
-> Ptr Widget
-> CDouble
-> CDouble
-> Ptr CDouble
-> Ptr CDouble
-> IO CInt
gtk_widget_translate_coordinates Ptr Widget
srcWidget' Ptr Widget
destWidget' CDouble
srcX' CDouble
srcY' Ptr CDouble
destX Ptr CDouble
destY
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
destX' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
destX
let destX'' :: Double
destX'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
destX'
CDouble
destY' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
destY
let destY'' :: Double
destY'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
destY'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
srcWidget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
destWidget
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
destX
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
destY
(Bool, Double, Double) -> IO (Bool, Double, Double)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
destX'', Double
destY'')
#if defined(ENABLE_OVERLOADING)
data WidgetTranslateCoordinatesMethodInfo
instance (signature ~ (b -> Double -> Double -> m ((Bool, Double, Double))), MonadIO m, IsWidget a, IsWidget b) => O.OverloadedMethod WidgetTranslateCoordinatesMethodInfo a signature where
overloadedMethod = widgetTranslateCoordinates
instance O.OverloadedMethodInfo WidgetTranslateCoordinatesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetTranslateCoordinates",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetTranslateCoordinates"
}
#endif
foreign import ccall "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query ::
Ptr Widget ->
IO ()
widgetTriggerTooltipQuery ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetTriggerTooltipQuery :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetTriggerTooltipQuery 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
Ptr Widget -> IO ()
gtk_widget_trigger_tooltip_query Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetTriggerTooltipQueryMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetTriggerTooltipQueryMethodInfo a signature where
overloadedMethod = widgetTriggerTooltipQuery
instance O.OverloadedMethodInfo WidgetTriggerTooltipQueryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetTriggerTooltipQuery",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetTriggerTooltipQuery"
}
#endif
foreign import ccall "gtk_widget_unmap" gtk_widget_unmap ::
Ptr Widget ->
IO ()
widgetUnmap ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetUnmap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetUnmap 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
Ptr Widget -> IO ()
gtk_widget_unmap Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetUnmapMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetUnmapMethodInfo a signature where
overloadedMethod = widgetUnmap
instance O.OverloadedMethodInfo WidgetUnmapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetUnmap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetUnmap"
}
#endif
foreign import ccall "gtk_widget_unparent" gtk_widget_unparent ::
Ptr Widget ->
IO ()
widgetUnparent ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetUnparent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetUnparent 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
Ptr Widget -> IO ()
gtk_widget_unparent Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetUnparentMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetUnparentMethodInfo a signature where
overloadedMethod = widgetUnparent
instance O.OverloadedMethodInfo WidgetUnparentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetUnparent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetUnparent"
}
#endif
foreign import ccall "gtk_widget_unrealize" gtk_widget_unrealize ::
Ptr Widget ->
IO ()
widgetUnrealize ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetUnrealize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> m ()
widgetUnrealize 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
Ptr Widget -> IO ()
gtk_widget_unrealize Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetUnrealizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetUnrealizeMethodInfo a signature where
overloadedMethod = widgetUnrealize
instance O.OverloadedMethodInfo WidgetUnrealizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetUnrealize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetUnrealize"
}
#endif
foreign import ccall "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags ::
Ptr Widget ->
CUInt ->
IO ()
widgetUnsetStateFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> [Gtk.Flags.StateFlags]
-> m ()
widgetUnsetStateFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWidget a) =>
a -> [StateFlags] -> m ()
widgetUnsetStateFlags a
widget [StateFlags]
flags = 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 flags' :: CUInt
flags' = [StateFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StateFlags]
flags
Ptr Widget -> CUInt -> IO ()
gtk_widget_unset_state_flags Ptr Widget
widget' CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetUnsetStateFlagsMethodInfo
instance (signature ~ ([Gtk.Flags.StateFlags] -> m ()), MonadIO m, IsWidget a) => O.OverloadedMethod WidgetUnsetStateFlagsMethodInfo a signature where
overloadedMethod = widgetUnsetStateFlags
instance O.OverloadedMethodInfo WidgetUnsetStateFlagsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Widget.widgetUnsetStateFlags",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Widget.html#v:widgetUnsetStateFlags"
}
#endif
foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction ::
IO CUInt
widgetGetDefaultDirection ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Gtk.Enums.TextDirection
widgetGetDefaultDirection :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m TextDirection
widgetGetDefaultDirection = IO TextDirection -> m TextDirection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextDirection -> m TextDirection)
-> IO TextDirection -> m TextDirection
forall a b. (a -> b) -> a -> b
$ do
CUInt
result <- IO CUInt
gtk_widget_get_default_direction
let result' :: TextDirection
result' = (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
result
TextDirection -> IO TextDirection
forall (m :: * -> *) a. Monad m => a -> m a
return TextDirection
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_widget_set_default_direction" gtk_widget_set_default_direction ::
CUInt ->
IO ()
widgetSetDefaultDirection ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gtk.Enums.TextDirection
-> m ()
widgetSetDefaultDirection :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TextDirection -> m ()
widgetSetDefaultDirection TextDirection
dir = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let dir' :: CUInt
dir' = (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
dir
CUInt -> IO ()
gtk_widget_set_default_direction CUInt
dir'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif