{-# 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 ,
noWidget ,
#if defined(ENABLE_OVERLOADING)
ResolveWidgetMethod ,
#endif
#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)
WidgetAddAcceleratorMethodInfo ,
#endif
widgetAddAccelerator ,
#if defined(ENABLE_OVERLOADING)
WidgetAddControllerMethodInfo ,
#endif
widgetAddController ,
#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)
WidgetCanActivateAccelMethodInfo ,
#endif
widgetCanActivateAccel ,
#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)
WidgetDestroyMethodInfo ,
#endif
widgetDestroy ,
#if defined(ENABLE_OVERLOADING)
WidgetDestroyedMethodInfo ,
#endif
widgetDestroyed ,
#if defined(ENABLE_OVERLOADING)
WidgetDeviceIsShadowedMethodInfo ,
#endif
widgetDeviceIsShadowed ,
#if defined(ENABLE_OVERLOADING)
WidgetDragBeginMethodInfo ,
#endif
widgetDragBegin ,
#if defined(ENABLE_OVERLOADING)
WidgetDragCheckThresholdMethodInfo ,
#endif
widgetDragCheckThreshold ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestAddImageTargetsMethodInfo ,
#endif
widgetDragDestAddImageTargets ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestAddTextTargetsMethodInfo ,
#endif
widgetDragDestAddTextTargets ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestAddUriTargetsMethodInfo ,
#endif
widgetDragDestAddUriTargets ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestFindTargetMethodInfo ,
#endif
widgetDragDestFindTarget ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestGetTargetListMethodInfo ,
#endif
widgetDragDestGetTargetList ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestGetTrackMotionMethodInfo ,
#endif
widgetDragDestGetTrackMotion ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestSetMethodInfo ,
#endif
widgetDragDestSet ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestSetTargetListMethodInfo ,
#endif
widgetDragDestSetTargetList ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestSetTrackMotionMethodInfo ,
#endif
widgetDragDestSetTrackMotion ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDestUnsetMethodInfo ,
#endif
widgetDragDestUnset ,
#if defined(ENABLE_OVERLOADING)
WidgetDragGetDataMethodInfo ,
#endif
widgetDragGetData ,
#if defined(ENABLE_OVERLOADING)
WidgetDragHighlightMethodInfo ,
#endif
widgetDragHighlight ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceAddImageTargetsMethodInfo,
#endif
widgetDragSourceAddImageTargets ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceAddTextTargetsMethodInfo,
#endif
widgetDragSourceAddTextTargets ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceAddUriTargetsMethodInfo ,
#endif
widgetDragSourceAddUriTargets ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceGetTargetListMethodInfo ,
#endif
widgetDragSourceGetTargetList ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceSetMethodInfo ,
#endif
widgetDragSourceSet ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceSetIconGiconMethodInfo ,
#endif
widgetDragSourceSetIconGicon ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceSetIconNameMethodInfo ,
#endif
widgetDragSourceSetIconName ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceSetIconPaintableMethodInfo,
#endif
widgetDragSourceSetIconPaintable ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceSetTargetListMethodInfo ,
#endif
widgetDragSourceSetTargetList ,
#if defined(ENABLE_OVERLOADING)
WidgetDragSourceUnsetMethodInfo ,
#endif
widgetDragSourceUnset ,
#if defined(ENABLE_OVERLOADING)
WidgetDragUnhighlightMethodInfo ,
#endif
widgetDragUnhighlight ,
#if defined(ENABLE_OVERLOADING)
WidgetErrorBellMethodInfo ,
#endif
widgetErrorBell ,
#if defined(ENABLE_OVERLOADING)
WidgetEventMethodInfo ,
#endif
widgetEvent ,
#if defined(ENABLE_OVERLOADING)
WidgetGetAccessibleMethodInfo ,
#endif
widgetGetAccessible ,
#if defined(ENABLE_OVERLOADING)
WidgetGetActionGroupMethodInfo ,
#endif
widgetGetActionGroup ,
#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)
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)
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)
WidgetGetHasSurfaceMethodInfo ,
#endif
widgetGetHasSurface ,
#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)
WidgetGetModifierMaskMethodInfo ,
#endif
widgetGetModifierMask ,
#if defined(ENABLE_OVERLOADING)
WidgetGetNameMethodInfo ,
#endif
widgetGetName ,
#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)
WidgetGetPathMethodInfo ,
#endif
widgetGetPath ,
#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)
WidgetGetSizeRequestMethodInfo ,
#endif
widgetGetSizeRequest ,
#if defined(ENABLE_OVERLOADING)
WidgetGetStateFlagsMethodInfo ,
#endif
widgetGetStateFlags ,
#if defined(ENABLE_OVERLOADING)
WidgetGetStyleContextMethodInfo ,
#endif
widgetGetStyleContext ,
#if defined(ENABLE_OVERLOADING)
WidgetGetSupportMultideviceMethodInfo ,
#endif
widgetGetSupportMultidevice ,
#if defined(ENABLE_OVERLOADING)
WidgetGetSurfaceMethodInfo ,
#endif
widgetGetSurface ,
#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)
WidgetGetTooltipWindowMethodInfo ,
#endif
widgetGetTooltipWindow ,
#if defined(ENABLE_OVERLOADING)
WidgetGetToplevelMethodInfo ,
#endif
widgetGetToplevel ,
#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)
WidgetGrabAddMethodInfo ,
#endif
widgetGrabAdd ,
#if defined(ENABLE_OVERLOADING)
WidgetGrabFocusMethodInfo ,
#endif
widgetGrabFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetGrabRemoveMethodInfo ,
#endif
widgetGrabRemove ,
#if defined(ENABLE_OVERLOADING)
WidgetHasDefaultMethodInfo ,
#endif
widgetHasDefault ,
#if defined(ENABLE_OVERLOADING)
WidgetHasFocusMethodInfo ,
#endif
widgetHasFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetHasGrabMethodInfo ,
#endif
widgetHasGrab ,
#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)
WidgetInputShapeCombineRegionMethodInfo ,
#endif
widgetInputShapeCombineRegion ,
#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)
WidgetIsToplevelMethodInfo ,
#endif
widgetIsToplevel ,
#if defined(ENABLE_OVERLOADING)
WidgetIsVisibleMethodInfo ,
#endif
widgetIsVisible ,
#if defined(ENABLE_OVERLOADING)
WidgetKeynavFailedMethodInfo ,
#endif
widgetKeynavFailed ,
#if defined(ENABLE_OVERLOADING)
WidgetListAccelClosuresMethodInfo ,
#endif
widgetListAccelClosures ,
#if defined(ENABLE_OVERLOADING)
WidgetListActionPrefixesMethodInfo ,
#endif
widgetListActionPrefixes ,
#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)
WidgetQueueComputeExpandMethodInfo ,
#endif
widgetQueueComputeExpand ,
#if defined(ENABLE_OVERLOADING)
WidgetQueueDrawMethodInfo ,
#endif
widgetQueueDraw ,
#if defined(ENABLE_OVERLOADING)
WidgetQueueResizeMethodInfo ,
#endif
widgetQueueResize ,
#if defined(ENABLE_OVERLOADING)
WidgetQueueResizeNoRedrawMethodInfo ,
#endif
widgetQueueResizeNoRedraw ,
#if defined(ENABLE_OVERLOADING)
WidgetRealizeMethodInfo ,
#endif
widgetRealize ,
#if defined(ENABLE_OVERLOADING)
WidgetRegisterSurfaceMethodInfo ,
#endif
widgetRegisterSurface ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveAcceleratorMethodInfo ,
#endif
widgetRemoveAccelerator ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveControllerMethodInfo ,
#endif
widgetRemoveController ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveMnemonicLabelMethodInfo ,
#endif
widgetRemoveMnemonicLabel ,
#if defined(ENABLE_OVERLOADING)
WidgetRemoveTickCallbackMethodInfo ,
#endif
widgetRemoveTickCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetResetStyleMethodInfo ,
#endif
widgetResetStyle ,
#if defined(ENABLE_OVERLOADING)
WidgetSetAccelPathMethodInfo ,
#endif
widgetSetAccelPath ,
#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)
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)
WidgetSetFontMapMethodInfo ,
#endif
widgetSetFontMap ,
#if defined(ENABLE_OVERLOADING)
WidgetSetFontOptionsMethodInfo ,
#endif
widgetSetFontOptions ,
#if defined(ENABLE_OVERLOADING)
WidgetSetHalignMethodInfo ,
#endif
widgetSetHalign ,
#if defined(ENABLE_OVERLOADING)
WidgetSetHasSurfaceMethodInfo ,
#endif
widgetSetHasSurface ,
#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)
WidgetSetSupportMultideviceMethodInfo ,
#endif
widgetSetSupportMultidevice ,
#if defined(ENABLE_OVERLOADING)
WidgetSetSurfaceMethodInfo ,
#endif
widgetSetSurface ,
#if defined(ENABLE_OVERLOADING)
WidgetSetTooltipMarkupMethodInfo ,
#endif
widgetSetTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
WidgetSetTooltipTextMethodInfo ,
#endif
widgetSetTooltipText ,
#if defined(ENABLE_OVERLOADING)
WidgetSetTooltipWindowMethodInfo ,
#endif
widgetSetTooltipWindow ,
#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)
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)
WidgetUnregisterSurfaceMethodInfo ,
#endif
widgetUnregisterSurface ,
#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)
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)
WidgetExpandPropertyInfo ,
#endif
constructWidgetExpand ,
getWidgetExpand ,
setWidgetExpand ,
#if defined(ENABLE_OVERLOADING)
widgetExpand ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetFocusOnClickPropertyInfo ,
#endif
constructWidgetFocusOnClick ,
getWidgetFocusOnClick ,
setWidgetFocusOnClick ,
#if defined(ENABLE_OVERLOADING)
widgetFocusOnClick ,
#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
constructWidgetHasFocus ,
getWidgetHasFocus ,
setWidgetHasFocus ,
#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)
WidgetIsFocusPropertyInfo ,
#endif
constructWidgetIsFocus ,
getWidgetIsFocus ,
setWidgetIsFocus ,
#if defined(ENABLE_OVERLOADING)
WidgetLayoutManagerPropertyInfo ,
#endif
clearWidgetLayoutManager ,
constructWidgetLayoutManager ,
getWidgetLayoutManager ,
setWidgetLayoutManager ,
#if defined(ENABLE_OVERLOADING)
widgetLayoutManager ,
#endif
#if defined(ENABLE_OVERLOADING)
WidgetMarginPropertyInfo ,
#endif
constructWidgetMargin ,
getWidgetMargin ,
setWidgetMargin ,
#if defined(ENABLE_OVERLOADING)
widgetMargin ,
#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)
WidgetSurfacePropertyInfo ,
#endif
getWidgetSurface ,
#if defined(ENABLE_OVERLOADING)
widgetSurface ,
#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_WidgetAccelClosuresChangedCallback ,
WidgetAccelClosuresChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetAccelClosuresChangedSignalInfo ,
#endif
afterWidgetAccelClosuresChanged ,
genClosure_WidgetAccelClosuresChanged ,
mk_WidgetAccelClosuresChangedCallback ,
noWidgetAccelClosuresChangedCallback ,
onWidgetAccelClosuresChanged ,
wrap_WidgetAccelClosuresChangedCallback ,
C_WidgetCanActivateAccelCallback ,
WidgetCanActivateAccelCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetCanActivateAccelSignalInfo ,
#endif
afterWidgetCanActivateAccel ,
genClosure_WidgetCanActivateAccel ,
mk_WidgetCanActivateAccelCallback ,
noWidgetCanActivateAccelCallback ,
onWidgetCanActivateAccel ,
wrap_WidgetCanActivateAccelCallback ,
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_WidgetDragBeginCallback ,
WidgetDragBeginCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragBeginSignalInfo ,
#endif
afterWidgetDragBegin ,
genClosure_WidgetDragBegin ,
mk_WidgetDragBeginCallback ,
noWidgetDragBeginCallback ,
onWidgetDragBegin ,
wrap_WidgetDragBeginCallback ,
C_WidgetDragDataDeleteCallback ,
WidgetDragDataDeleteCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDataDeleteSignalInfo ,
#endif
afterWidgetDragDataDelete ,
genClosure_WidgetDragDataDelete ,
mk_WidgetDragDataDeleteCallback ,
noWidgetDragDataDeleteCallback ,
onWidgetDragDataDelete ,
wrap_WidgetDragDataDeleteCallback ,
C_WidgetDragDataGetCallback ,
WidgetDragDataGetCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDataGetSignalInfo ,
#endif
afterWidgetDragDataGet ,
genClosure_WidgetDragDataGet ,
mk_WidgetDragDataGetCallback ,
noWidgetDragDataGetCallback ,
onWidgetDragDataGet ,
wrap_WidgetDragDataGetCallback ,
C_WidgetDragDataReceivedCallback ,
WidgetDragDataReceivedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDataReceivedSignalInfo ,
#endif
afterWidgetDragDataReceived ,
genClosure_WidgetDragDataReceived ,
mk_WidgetDragDataReceivedCallback ,
noWidgetDragDataReceivedCallback ,
onWidgetDragDataReceived ,
wrap_WidgetDragDataReceivedCallback ,
C_WidgetDragDropCallback ,
WidgetDragDropCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragDropSignalInfo ,
#endif
afterWidgetDragDrop ,
genClosure_WidgetDragDrop ,
mk_WidgetDragDropCallback ,
noWidgetDragDropCallback ,
onWidgetDragDrop ,
wrap_WidgetDragDropCallback ,
C_WidgetDragEndCallback ,
WidgetDragEndCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragEndSignalInfo ,
#endif
afterWidgetDragEnd ,
genClosure_WidgetDragEnd ,
mk_WidgetDragEndCallback ,
noWidgetDragEndCallback ,
onWidgetDragEnd ,
wrap_WidgetDragEndCallback ,
C_WidgetDragFailedCallback ,
WidgetDragFailedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragFailedSignalInfo ,
#endif
afterWidgetDragFailed ,
genClosure_WidgetDragFailed ,
mk_WidgetDragFailedCallback ,
noWidgetDragFailedCallback ,
onWidgetDragFailed ,
wrap_WidgetDragFailedCallback ,
C_WidgetDragLeaveCallback ,
WidgetDragLeaveCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragLeaveSignalInfo ,
#endif
afterWidgetDragLeave ,
genClosure_WidgetDragLeave ,
mk_WidgetDragLeaveCallback ,
noWidgetDragLeaveCallback ,
onWidgetDragLeave ,
wrap_WidgetDragLeaveCallback ,
C_WidgetDragMotionCallback ,
WidgetDragMotionCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetDragMotionSignalInfo ,
#endif
afterWidgetDragMotion ,
genClosure_WidgetDragMotion ,
mk_WidgetDragMotionCallback ,
noWidgetDragMotionCallback ,
onWidgetDragMotion ,
wrap_WidgetDragMotionCallback ,
C_WidgetGrabNotifyCallback ,
WidgetGrabNotifyCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetGrabNotifySignalInfo ,
#endif
afterWidgetGrabNotify ,
genClosure_WidgetGrabNotify ,
mk_WidgetGrabNotifyCallback ,
noWidgetGrabNotifyCallback ,
onWidgetGrabNotify ,
wrap_WidgetGrabNotifyCallback ,
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_WidgetPopupMenuCallback ,
WidgetPopupMenuCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetPopupMenuSignalInfo ,
#endif
afterWidgetPopupMenu ,
genClosure_WidgetPopupMenu ,
mk_WidgetPopupMenuCallback ,
noWidgetPopupMenuCallback ,
onWidgetPopupMenu ,
wrap_WidgetPopupMenuCallback ,
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_WidgetSizeAllocateCallback ,
WidgetSizeAllocateCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetSizeAllocateSignalInfo ,
#endif
afterWidgetSizeAllocate ,
genClosure_WidgetSizeAllocate ,
mk_WidgetSizeAllocateCallback ,
noWidgetSizeAllocateCallback ,
onWidgetSizeAllocate ,
wrap_WidgetSizeAllocateCallback ,
C_WidgetStateFlagsChangedCallback ,
WidgetStateFlagsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetStateFlagsChangedSignalInfo ,
#endif
afterWidgetStateFlagsChanged ,
genClosure_WidgetStateFlagsChanged ,
mk_WidgetStateFlagsChangedCallback ,
noWidgetStateFlagsChangedCallback ,
onWidgetStateFlagsChanged ,
wrap_WidgetStateFlagsChangedCallback ,
C_WidgetStyleUpdatedCallback ,
WidgetStyleUpdatedCallback ,
#if defined(ENABLE_OVERLOADING)
WidgetStyleUpdatedSignalInfo ,
#endif
afterWidgetStyleUpdated ,
genClosure_WidgetStyleUpdated ,
mk_WidgetStyleUpdatedCallback ,
noWidgetStyleUpdatedCallback ,
onWidgetStyleUpdated ,
wrap_WidgetStyleUpdatedCallback ,
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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.Cairo.Structs.Region as Cairo.Region
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Drag as Gdk.Drag
import qualified GI.Gdk.Objects.Drop as Gdk.Drop
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Structs.ContentFormats as Gdk.ContentFormats
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.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.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup
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.Objects.Window as Gtk.Window
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData
import {-# SOURCE #-} qualified GI.Gtk.Structs.WidgetPath as Gtk.WidgetPath
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 (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)
foreign import ccall "gtk_widget_get_type"
c_gtk_widget_get_type :: IO GType
instance GObject Widget where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_widget_get_type
instance B.GValue.IsGValue Widget where
toGValue :: Widget -> IO GValue
toGValue o :: Widget
o = do
GType
gtype <- IO GType
c_gtk_widget_get_type
Widget -> (Ptr Widget -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Widget
o (GType -> (GValue -> Ptr Widget -> IO ()) -> Ptr Widget -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Widget -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Widget
fromGValue gv :: GValue
gv = do
Ptr Widget
ptr <- GValue -> IO (Ptr Widget)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Widget)
(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
class (GObject o, O.IsDescendantOf Widget o) => IsWidget o
instance (GObject o, O.IsDescendantOf Widget o) => IsWidget o
instance O.HasParentTypes Widget
type instance O.ParentTypes Widget = '[GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toWidget :: (MonadIO m, IsWidget o) => o -> m Widget
toWidget :: o -> m Widget
toWidget = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Widget -> Widget
Widget
noWidget :: Maybe Widget
noWidget :: Maybe Widget
noWidget = Maybe Widget
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWidgetMethod (t :: Symbol) (o :: *) :: * where
ResolveWidgetMethod "activate" o = WidgetActivateMethodInfo
ResolveWidgetMethod "activateAction" o = WidgetActivateActionMethodInfo
ResolveWidgetMethod "activateDefault" o = WidgetActivateDefaultMethodInfo
ResolveWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo
ResolveWidgetMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveWidgetMethod "addController" o = WidgetAddControllerMethodInfo
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 "canActivateAccel" o = WidgetCanActivateAccelMethodInfo
ResolveWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo
ResolveWidgetMethod "computeBounds" o = WidgetComputeBoundsMethodInfo
ResolveWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo
ResolveWidgetMethod "computePoint" o = WidgetComputePointMethodInfo
ResolveWidgetMethod "computeTransform" o = WidgetComputeTransformMethodInfo
ResolveWidgetMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveWidgetMethod "contains" o = WidgetContainsMethodInfo
ResolveWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo
ResolveWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo
ResolveWidgetMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveWidgetMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveWidgetMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveWidgetMethod "destroy" o = WidgetDestroyMethodInfo
ResolveWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo
ResolveWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo
ResolveWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo
ResolveWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo
ResolveWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo
ResolveWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo
ResolveWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo
ResolveWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo
ResolveWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo
ResolveWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo
ResolveWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo
ResolveWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo
ResolveWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo
ResolveWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo
ResolveWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo
ResolveWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo
ResolveWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo
ResolveWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo
ResolveWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo
ResolveWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo
ResolveWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo
ResolveWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo
ResolveWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo
ResolveWidgetMethod "dragSourceSetIconPaintable" o = WidgetDragSourceSetIconPaintableMethodInfo
ResolveWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo
ResolveWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo
ResolveWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo
ResolveWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo
ResolveWidgetMethod "event" o = WidgetEventMethodInfo
ResolveWidgetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWidgetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWidgetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo
ResolveWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo
ResolveWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo
ResolveWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo
ResolveWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo
ResolveWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo
ResolveWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo
ResolveWidgetMethod "hide" o = WidgetHideMethodInfo
ResolveWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo
ResolveWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo
ResolveWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo
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 "isToplevel" o = WidgetIsToplevelMethodInfo
ResolveWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo
ResolveWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo
ResolveWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo
ResolveWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo
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 "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveWidgetMethod "pick" o = WidgetPickMethodInfo
ResolveWidgetMethod "queueAllocate" o = WidgetQueueAllocateMethodInfo
ResolveWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo
ResolveWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo
ResolveWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo
ResolveWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo
ResolveWidgetMethod "realize" o = WidgetRealizeMethodInfo
ResolveWidgetMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWidgetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWidgetMethod "registerSurface" o = WidgetRegisterSurfaceMethodInfo
ResolveWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo
ResolveWidgetMethod "removeController" o = WidgetRemoveControllerMethodInfo
ResolveWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo
ResolveWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo
ResolveWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo
ResolveWidgetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
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 "unregisterSurface" o = WidgetUnregisterSurfaceMethodInfo
ResolveWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo
ResolveWidgetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo
ResolveWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo
ResolveWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo
ResolveWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo
ResolveWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo
ResolveWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo
ResolveWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo
ResolveWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo
ResolveWidgetMethod "getCanTarget" o = WidgetGetCanTargetMethodInfo
ResolveWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo
ResolveWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo
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 "getFontMap" o = WidgetGetFontMapMethodInfo
ResolveWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo
ResolveWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo
ResolveWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo
ResolveWidgetMethod "getHasSurface" o = WidgetGetHasSurfaceMethodInfo
ResolveWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo
ResolveWidgetMethod "getHeight" o = WidgetGetHeightMethodInfo
ResolveWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo
ResolveWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo
ResolveWidgetMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
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 "getModifierMask" o = WidgetGetModifierMaskMethodInfo
ResolveWidgetMethod "getName" o = WidgetGetNameMethodInfo
ResolveWidgetMethod "getNextSibling" o = WidgetGetNextSiblingMethodInfo
ResolveWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo
ResolveWidgetMethod "getOverflow" o = WidgetGetOverflowMethodInfo
ResolveWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo
ResolveWidgetMethod "getParent" o = WidgetGetParentMethodInfo
ResolveWidgetMethod "getPath" o = WidgetGetPathMethodInfo
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 "getSizeRequest" o = WidgetGetSizeRequestMethodInfo
ResolveWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo
ResolveWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo
ResolveWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo
ResolveWidgetMethod "getSurface" o = WidgetGetSurfaceMethodInfo
ResolveWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo
ResolveWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo
ResolveWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo
ResolveWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo
ResolveWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo
ResolveWidgetMethod "getValign" o = WidgetGetValignMethodInfo
ResolveWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo
ResolveWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo
ResolveWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo
ResolveWidgetMethod "getWidth" o = WidgetGetWidthMethodInfo
ResolveWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo
ResolveWidgetMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo
ResolveWidgetMethod "setCanTarget" o = WidgetSetCanTargetMethodInfo
ResolveWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo
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 "setFontMap" o = WidgetSetFontMapMethodInfo
ResolveWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo
ResolveWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo
ResolveWidgetMethod "setHasSurface" o = WidgetSetHasSurfaceMethodInfo
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 "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo
ResolveWidgetMethod "setSurface" o = WidgetSetSurfaceMethodInfo
ResolveWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo
ResolveWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo
ResolveWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo
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.MethodInfo 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
#endif
type WidgetAccelClosuresChangedCallback =
IO ()
noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback
noWidgetAccelClosuresChangedCallback :: Maybe (IO ())
noWidgetAccelClosuresChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetAccelClosuresChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetAccelClosuresChangedCallback :: C_WidgetAccelClosuresChangedCallback -> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetAccelClosuresChanged :: MonadIO m => WidgetAccelClosuresChangedCallback -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetAccelClosuresChanged :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetAccelClosuresChanged cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetAccelClosuresChangedCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetAccelClosuresChangedCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetAccelClosuresChangedCallback ::
WidgetAccelClosuresChangedCallback ->
C_WidgetAccelClosuresChangedCallback
wrap_WidgetAccelClosuresChangedCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetAccelClosuresChangedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetAccelClosuresChanged :: (IsWidget a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId
onWidgetAccelClosuresChanged :: a -> IO () -> m SignalHandlerId
onWidgetAccelClosuresChanged obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetAccelClosuresChangedCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetAccelClosuresChangedCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "accel-closures-changed" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetAccelClosuresChanged :: (IsWidget a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId
afterWidgetAccelClosuresChanged :: a -> IO () -> m SignalHandlerId
afterWidgetAccelClosuresChanged obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetAccelClosuresChangedCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetAccelClosuresChangedCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "accel-closures-changed" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetAccelClosuresChangedSignalInfo
instance SignalInfo WidgetAccelClosuresChangedSignalInfo where
type HaskellCallbackType WidgetAccelClosuresChangedSignalInfo = WidgetAccelClosuresChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetAccelClosuresChangedCallback cb
cb'' <- mk_WidgetAccelClosuresChangedCallback cb'
connectSignalFunPtr obj "accel-closures-changed" cb'' connectMode detail
#endif
type WidgetCanActivateAccelCallback =
Word32
-> IO Bool
noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback
noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback
noWidgetCanActivateAccelCallback = Maybe WidgetCanActivateAccelCallback
forall a. Maybe a
Nothing
type C_WidgetCanActivateAccelCallback =
Ptr () ->
Word32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WidgetCanActivateAccelCallback :: C_WidgetCanActivateAccelCallback -> IO (FunPtr C_WidgetCanActivateAccelCallback)
genClosure_WidgetCanActivateAccel :: MonadIO m => WidgetCanActivateAccelCallback -> m (GClosure C_WidgetCanActivateAccelCallback)
genClosure_WidgetCanActivateAccel :: WidgetCanActivateAccelCallback
-> m (GClosure C_WidgetCanActivateAccelCallback)
genClosure_WidgetCanActivateAccel cb :: WidgetCanActivateAccelCallback
cb = IO (GClosure C_WidgetCanActivateAccelCallback)
-> m (GClosure C_WidgetCanActivateAccelCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetCanActivateAccelCallback)
-> m (GClosure C_WidgetCanActivateAccelCallback))
-> IO (GClosure C_WidgetCanActivateAccelCallback)
-> m (GClosure C_WidgetCanActivateAccelCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetCanActivateAccelCallback
cb' = WidgetCanActivateAccelCallback -> C_WidgetCanActivateAccelCallback
wrap_WidgetCanActivateAccelCallback WidgetCanActivateAccelCallback
cb
C_WidgetCanActivateAccelCallback
-> IO (FunPtr C_WidgetCanActivateAccelCallback)
mk_WidgetCanActivateAccelCallback C_WidgetCanActivateAccelCallback
cb' IO (FunPtr C_WidgetCanActivateAccelCallback)
-> (FunPtr C_WidgetCanActivateAccelCallback
-> IO (GClosure C_WidgetCanActivateAccelCallback))
-> IO (GClosure C_WidgetCanActivateAccelCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetCanActivateAccelCallback
-> IO (GClosure C_WidgetCanActivateAccelCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetCanActivateAccelCallback ::
WidgetCanActivateAccelCallback ->
C_WidgetCanActivateAccelCallback
wrap_WidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallback -> C_WidgetCanActivateAccelCallback
wrap_WidgetCanActivateAccelCallback _cb :: WidgetCanActivateAccelCallback
_cb _ signalId :: Word32
signalId _ = do
Bool
result <- WidgetCanActivateAccelCallback
_cb Word32
signalId
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'
onWidgetCanActivateAccel :: (IsWidget a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
onWidgetCanActivateAccel :: a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
onWidgetCanActivateAccel obj :: a
obj cb :: WidgetCanActivateAccelCallback
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_WidgetCanActivateAccelCallback
cb' = WidgetCanActivateAccelCallback -> C_WidgetCanActivateAccelCallback
wrap_WidgetCanActivateAccelCallback WidgetCanActivateAccelCallback
cb
FunPtr C_WidgetCanActivateAccelCallback
cb'' <- C_WidgetCanActivateAccelCallback
-> IO (FunPtr C_WidgetCanActivateAccelCallback)
mk_WidgetCanActivateAccelCallback C_WidgetCanActivateAccelCallback
cb'
a
-> Text
-> FunPtr C_WidgetCanActivateAccelCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "can-activate-accel" FunPtr C_WidgetCanActivateAccelCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetCanActivateAccel :: (IsWidget a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
afterWidgetCanActivateAccel :: a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
afterWidgetCanActivateAccel obj :: a
obj cb :: WidgetCanActivateAccelCallback
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_WidgetCanActivateAccelCallback
cb' = WidgetCanActivateAccelCallback -> C_WidgetCanActivateAccelCallback
wrap_WidgetCanActivateAccelCallback WidgetCanActivateAccelCallback
cb
FunPtr C_WidgetCanActivateAccelCallback
cb'' <- C_WidgetCanActivateAccelCallback
-> IO (FunPtr C_WidgetCanActivateAccelCallback)
mk_WidgetCanActivateAccelCallback C_WidgetCanActivateAccelCallback
cb'
a
-> Text
-> FunPtr C_WidgetCanActivateAccelCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "can-activate-accel" FunPtr C_WidgetCanActivateAccelCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetCanActivateAccelSignalInfo
instance SignalInfo WidgetCanActivateAccelSignalInfo where
type HaskellCallbackType WidgetCanActivateAccelSignalInfo = WidgetCanActivateAccelCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetCanActivateAccelCallback cb
cb'' <- mk_WidgetCanActivateAccelCallback cb'
connectSignalFunPtr obj "can-activate-accel" cb'' connectMode detail
#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 :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetDestroy cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetDestroyCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetDestroyCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDestroyCallback ::
WidgetDestroyCallback ->
C_WidgetDestroyCallback
wrap_WidgetDestroyCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetDestroyCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetDestroy :: (IsWidget a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
onWidgetDestroy :: a -> IO () -> m SignalHandlerId
onWidgetDestroy obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetDestroyCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetDestroyCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "destroy" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDestroy :: (IsWidget a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
afterWidgetDestroy :: a -> IO () -> m SignalHandlerId
afterWidgetDestroy obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetDestroyCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetDestroyCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "destroy" FunPtr C_WidgetAccelClosuresChangedCallback
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 :: WidgetDirectionChangedCallback
-> m (GClosure C_WidgetDirectionChangedCallback)
genClosure_WidgetDirectionChanged cb :: 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 _cb :: WidgetDirectionChangedCallback
_cb _ previousDirection :: CUInt
previousDirection _ = 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 :: a -> WidgetDirectionChangedCallback -> m SignalHandlerId
onWidgetDirectionChanged obj :: a
obj cb :: 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 "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 :: a -> WidgetDirectionChangedCallback -> m SignalHandlerId
afterWidgetDirectionChanged obj :: a
obj cb :: 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 "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 WidgetDragBeginCallback =
Gdk.Drag.Drag
-> IO ()
noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback
noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback
noWidgetDragBeginCallback = Maybe WidgetDragBeginCallback
forall a. Maybe a
Nothing
type C_WidgetDragBeginCallback =
Ptr () ->
Ptr Gdk.Drag.Drag ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDragBeginCallback :: C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
genClosure_WidgetDragBegin :: MonadIO m => WidgetDragBeginCallback -> m (GClosure C_WidgetDragBeginCallback)
genClosure_WidgetDragBegin :: WidgetDragBeginCallback -> m (GClosure C_WidgetDragBeginCallback)
genClosure_WidgetDragBegin cb :: WidgetDragBeginCallback
cb = IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback))
-> IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragBeginCallback WidgetDragBeginCallback
cb
C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragBeginCallback C_WidgetDragBeginCallback
cb' IO (FunPtr C_WidgetDragBeginCallback)
-> (FunPtr C_WidgetDragBeginCallback
-> IO (GClosure C_WidgetDragBeginCallback))
-> IO (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragBeginCallback
-> IO (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragBeginCallback ::
WidgetDragBeginCallback ->
C_WidgetDragBeginCallback
wrap_WidgetDragBeginCallback :: WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragBeginCallback _cb :: WidgetDragBeginCallback
_cb _ context :: Ptr Drag
context _ = do
Drag
context' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
context
WidgetDragBeginCallback
_cb Drag
context'
onWidgetDragBegin :: (IsWidget a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId
onWidgetDragBegin :: a -> WidgetDragBeginCallback -> m SignalHandlerId
onWidgetDragBegin obj :: a
obj cb :: WidgetDragBeginCallback
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_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragBeginCallback WidgetDragBeginCallback
cb
FunPtr C_WidgetDragBeginCallback
cb'' <- C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragBeginCallback C_WidgetDragBeginCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragBeginCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-begin" FunPtr C_WidgetDragBeginCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragBegin :: (IsWidget a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId
afterWidgetDragBegin :: a -> WidgetDragBeginCallback -> m SignalHandlerId
afterWidgetDragBegin obj :: a
obj cb :: WidgetDragBeginCallback
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_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragBeginCallback WidgetDragBeginCallback
cb
FunPtr C_WidgetDragBeginCallback
cb'' <- C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragBeginCallback C_WidgetDragBeginCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragBeginCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-begin" FunPtr C_WidgetDragBeginCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragBeginSignalInfo
instance SignalInfo WidgetDragBeginSignalInfo where
type HaskellCallbackType WidgetDragBeginSignalInfo = WidgetDragBeginCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragBeginCallback cb
cb'' <- mk_WidgetDragBeginCallback cb'
connectSignalFunPtr obj "drag-begin" cb'' connectMode detail
#endif
type WidgetDragDataDeleteCallback =
Gdk.Drag.Drag
-> IO ()
noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback
noWidgetDragDataDeleteCallback :: Maybe WidgetDragBeginCallback
noWidgetDragDataDeleteCallback = Maybe WidgetDragBeginCallback
forall a. Maybe a
Nothing
type C_WidgetDragDataDeleteCallback =
Ptr () ->
Ptr Gdk.Drag.Drag ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDragDataDeleteCallback :: C_WidgetDragDataDeleteCallback -> IO (FunPtr C_WidgetDragDataDeleteCallback)
genClosure_WidgetDragDataDelete :: MonadIO m => WidgetDragDataDeleteCallback -> m (GClosure C_WidgetDragDataDeleteCallback)
genClosure_WidgetDragDataDelete :: WidgetDragBeginCallback -> m (GClosure C_WidgetDragBeginCallback)
genClosure_WidgetDragDataDelete cb :: WidgetDragBeginCallback
cb = IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback))
-> IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragDataDeleteCallback WidgetDragBeginCallback
cb
C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragDataDeleteCallback C_WidgetDragBeginCallback
cb' IO (FunPtr C_WidgetDragBeginCallback)
-> (FunPtr C_WidgetDragBeginCallback
-> IO (GClosure C_WidgetDragBeginCallback))
-> IO (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragBeginCallback
-> IO (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragDataDeleteCallback ::
WidgetDragDataDeleteCallback ->
C_WidgetDragDataDeleteCallback
wrap_WidgetDragDataDeleteCallback :: WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragDataDeleteCallback _cb :: WidgetDragBeginCallback
_cb _ context :: Ptr Drag
context _ = do
Drag
context' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
context
WidgetDragBeginCallback
_cb Drag
context'
onWidgetDragDataDelete :: (IsWidget a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId
onWidgetDragDataDelete :: a -> WidgetDragBeginCallback -> m SignalHandlerId
onWidgetDragDataDelete obj :: a
obj cb :: WidgetDragBeginCallback
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_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragDataDeleteCallback WidgetDragBeginCallback
cb
FunPtr C_WidgetDragBeginCallback
cb'' <- C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragDataDeleteCallback C_WidgetDragBeginCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragBeginCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-data-delete" FunPtr C_WidgetDragBeginCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragDataDelete :: (IsWidget a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId
afterWidgetDragDataDelete :: a -> WidgetDragBeginCallback -> m SignalHandlerId
afterWidgetDragDataDelete obj :: a
obj cb :: WidgetDragBeginCallback
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_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragDataDeleteCallback WidgetDragBeginCallback
cb
FunPtr C_WidgetDragBeginCallback
cb'' <- C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragDataDeleteCallback C_WidgetDragBeginCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragBeginCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-data-delete" FunPtr C_WidgetDragBeginCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragDataDeleteSignalInfo
instance SignalInfo WidgetDragDataDeleteSignalInfo where
type HaskellCallbackType WidgetDragDataDeleteSignalInfo = WidgetDragDataDeleteCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragDataDeleteCallback cb
cb'' <- mk_WidgetDragDataDeleteCallback cb'
connectSignalFunPtr obj "drag-data-delete" cb'' connectMode detail
#endif
type WidgetDragDataGetCallback =
Gdk.Drag.Drag
-> Gtk.SelectionData.SelectionData
-> IO ()
noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback
noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback
noWidgetDragDataGetCallback = Maybe WidgetDragDataGetCallback
forall a. Maybe a
Nothing
type C_WidgetDragDataGetCallback =
Ptr () ->
Ptr Gdk.Drag.Drag ->
Ptr Gtk.SelectionData.SelectionData ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDragDataGetCallback :: C_WidgetDragDataGetCallback -> IO (FunPtr C_WidgetDragDataGetCallback)
genClosure_WidgetDragDataGet :: MonadIO m => WidgetDragDataGetCallback -> m (GClosure C_WidgetDragDataGetCallback)
genClosure_WidgetDragDataGet :: WidgetDragDataGetCallback
-> m (GClosure C_WidgetDragDataGetCallback)
genClosure_WidgetDragDataGet cb :: WidgetDragDataGetCallback
cb = IO (GClosure C_WidgetDragDataGetCallback)
-> m (GClosure C_WidgetDragDataGetCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragDataGetCallback)
-> m (GClosure C_WidgetDragDataGetCallback))
-> IO (GClosure C_WidgetDragDataGetCallback)
-> m (GClosure C_WidgetDragDataGetCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragDataGetCallback
cb' = WidgetDragDataGetCallback -> C_WidgetDragDataGetCallback
wrap_WidgetDragDataGetCallback WidgetDragDataGetCallback
cb
C_WidgetDragDataGetCallback
-> IO (FunPtr C_WidgetDragDataGetCallback)
mk_WidgetDragDataGetCallback C_WidgetDragDataGetCallback
cb' IO (FunPtr C_WidgetDragDataGetCallback)
-> (FunPtr C_WidgetDragDataGetCallback
-> IO (GClosure C_WidgetDragDataGetCallback))
-> IO (GClosure C_WidgetDragDataGetCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragDataGetCallback
-> IO (GClosure C_WidgetDragDataGetCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragDataGetCallback ::
WidgetDragDataGetCallback ->
C_WidgetDragDataGetCallback
wrap_WidgetDragDataGetCallback :: WidgetDragDataGetCallback -> C_WidgetDragDataGetCallback
wrap_WidgetDragDataGetCallback _cb :: WidgetDragDataGetCallback
_cb _ context :: Ptr Drag
context data_ :: Ptr SelectionData
data_ _ = do
Drag
context' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
context
(ManagedPtr SelectionData -> SelectionData)
-> Ptr SelectionData -> (SelectionData -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr SelectionData -> SelectionData
Gtk.SelectionData.SelectionData Ptr SelectionData
data_ ((SelectionData -> IO ()) -> IO ())
-> (SelectionData -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \data_' :: SelectionData
data_' -> do
WidgetDragDataGetCallback
_cb Drag
context' SelectionData
data_'
onWidgetDragDataGet :: (IsWidget a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId
onWidgetDragDataGet :: a -> WidgetDragDataGetCallback -> m SignalHandlerId
onWidgetDragDataGet obj :: a
obj cb :: WidgetDragDataGetCallback
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_WidgetDragDataGetCallback
cb' = WidgetDragDataGetCallback -> C_WidgetDragDataGetCallback
wrap_WidgetDragDataGetCallback WidgetDragDataGetCallback
cb
FunPtr C_WidgetDragDataGetCallback
cb'' <- C_WidgetDragDataGetCallback
-> IO (FunPtr C_WidgetDragDataGetCallback)
mk_WidgetDragDataGetCallback C_WidgetDragDataGetCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDataGetCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-data-get" FunPtr C_WidgetDragDataGetCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragDataGet :: (IsWidget a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId
afterWidgetDragDataGet :: a -> WidgetDragDataGetCallback -> m SignalHandlerId
afterWidgetDragDataGet obj :: a
obj cb :: WidgetDragDataGetCallback
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_WidgetDragDataGetCallback
cb' = WidgetDragDataGetCallback -> C_WidgetDragDataGetCallback
wrap_WidgetDragDataGetCallback WidgetDragDataGetCallback
cb
FunPtr C_WidgetDragDataGetCallback
cb'' <- C_WidgetDragDataGetCallback
-> IO (FunPtr C_WidgetDragDataGetCallback)
mk_WidgetDragDataGetCallback C_WidgetDragDataGetCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDataGetCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-data-get" FunPtr C_WidgetDragDataGetCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragDataGetSignalInfo
instance SignalInfo WidgetDragDataGetSignalInfo where
type HaskellCallbackType WidgetDragDataGetSignalInfo = WidgetDragDataGetCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragDataGetCallback cb
cb'' <- mk_WidgetDragDataGetCallback cb'
connectSignalFunPtr obj "drag-data-get" cb'' connectMode detail
#endif
type WidgetDragDataReceivedCallback =
Gdk.Drop.Drop
-> Gtk.SelectionData.SelectionData
-> IO ()
noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback
noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback
noWidgetDragDataReceivedCallback = Maybe WidgetDragDataReceivedCallback
forall a. Maybe a
Nothing
type C_WidgetDragDataReceivedCallback =
Ptr () ->
Ptr Gdk.Drop.Drop ->
Ptr Gtk.SelectionData.SelectionData ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDragDataReceivedCallback :: C_WidgetDragDataReceivedCallback -> IO (FunPtr C_WidgetDragDataReceivedCallback)
genClosure_WidgetDragDataReceived :: MonadIO m => WidgetDragDataReceivedCallback -> m (GClosure C_WidgetDragDataReceivedCallback)
genClosure_WidgetDragDataReceived :: WidgetDragDataReceivedCallback
-> m (GClosure C_WidgetDragDataReceivedCallback)
genClosure_WidgetDragDataReceived cb :: WidgetDragDataReceivedCallback
cb = IO (GClosure C_WidgetDragDataReceivedCallback)
-> m (GClosure C_WidgetDragDataReceivedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragDataReceivedCallback)
-> m (GClosure C_WidgetDragDataReceivedCallback))
-> IO (GClosure C_WidgetDragDataReceivedCallback)
-> m (GClosure C_WidgetDragDataReceivedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragDataReceivedCallback
cb' = WidgetDragDataReceivedCallback -> C_WidgetDragDataReceivedCallback
wrap_WidgetDragDataReceivedCallback WidgetDragDataReceivedCallback
cb
C_WidgetDragDataReceivedCallback
-> IO (FunPtr C_WidgetDragDataReceivedCallback)
mk_WidgetDragDataReceivedCallback C_WidgetDragDataReceivedCallback
cb' IO (FunPtr C_WidgetDragDataReceivedCallback)
-> (FunPtr C_WidgetDragDataReceivedCallback
-> IO (GClosure C_WidgetDragDataReceivedCallback))
-> IO (GClosure C_WidgetDragDataReceivedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragDataReceivedCallback
-> IO (GClosure C_WidgetDragDataReceivedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragDataReceivedCallback ::
WidgetDragDataReceivedCallback ->
C_WidgetDragDataReceivedCallback
wrap_WidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallback -> C_WidgetDragDataReceivedCallback
wrap_WidgetDragDataReceivedCallback _cb :: WidgetDragDataReceivedCallback
_cb _ drop :: Ptr Drop
drop x :: Ptr SelectionData
x _ = do
Drop
drop' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
drop
(ManagedPtr SelectionData -> SelectionData)
-> Ptr SelectionData -> (SelectionData -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr SelectionData -> SelectionData
Gtk.SelectionData.SelectionData Ptr SelectionData
x ((SelectionData -> IO ()) -> IO ())
-> (SelectionData -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \x' :: SelectionData
x' -> do
WidgetDragDataReceivedCallback
_cb Drop
drop' SelectionData
x'
onWidgetDragDataReceived :: (IsWidget a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
onWidgetDragDataReceived :: a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
onWidgetDragDataReceived obj :: a
obj cb :: WidgetDragDataReceivedCallback
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_WidgetDragDataReceivedCallback
cb' = WidgetDragDataReceivedCallback -> C_WidgetDragDataReceivedCallback
wrap_WidgetDragDataReceivedCallback WidgetDragDataReceivedCallback
cb
FunPtr C_WidgetDragDataReceivedCallback
cb'' <- C_WidgetDragDataReceivedCallback
-> IO (FunPtr C_WidgetDragDataReceivedCallback)
mk_WidgetDragDataReceivedCallback C_WidgetDragDataReceivedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDataReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-data-received" FunPtr C_WidgetDragDataReceivedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragDataReceived :: (IsWidget a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
afterWidgetDragDataReceived :: a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
afterWidgetDragDataReceived obj :: a
obj cb :: WidgetDragDataReceivedCallback
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_WidgetDragDataReceivedCallback
cb' = WidgetDragDataReceivedCallback -> C_WidgetDragDataReceivedCallback
wrap_WidgetDragDataReceivedCallback WidgetDragDataReceivedCallback
cb
FunPtr C_WidgetDragDataReceivedCallback
cb'' <- C_WidgetDragDataReceivedCallback
-> IO (FunPtr C_WidgetDragDataReceivedCallback)
mk_WidgetDragDataReceivedCallback C_WidgetDragDataReceivedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDataReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-data-received" FunPtr C_WidgetDragDataReceivedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragDataReceivedSignalInfo
instance SignalInfo WidgetDragDataReceivedSignalInfo where
type HaskellCallbackType WidgetDragDataReceivedSignalInfo = WidgetDragDataReceivedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragDataReceivedCallback cb
cb'' <- mk_WidgetDragDataReceivedCallback cb'
connectSignalFunPtr obj "drag-data-received" cb'' connectMode detail
#endif
type WidgetDragDropCallback =
Gdk.Drop.Drop
-> Int32
-> Int32
-> IO Bool
noWidgetDragDropCallback :: Maybe WidgetDragDropCallback
noWidgetDragDropCallback :: Maybe WidgetDragDropCallback
noWidgetDragDropCallback = Maybe WidgetDragDropCallback
forall a. Maybe a
Nothing
type C_WidgetDragDropCallback =
Ptr () ->
Ptr Gdk.Drop.Drop ->
Int32 ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WidgetDragDropCallback :: C_WidgetDragDropCallback -> IO (FunPtr C_WidgetDragDropCallback)
genClosure_WidgetDragDrop :: MonadIO m => WidgetDragDropCallback -> m (GClosure C_WidgetDragDropCallback)
genClosure_WidgetDragDrop :: WidgetDragDropCallback -> m (GClosure C_WidgetDragDropCallback)
genClosure_WidgetDragDrop cb :: WidgetDragDropCallback
cb = IO (GClosure C_WidgetDragDropCallback)
-> m (GClosure C_WidgetDragDropCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragDropCallback)
-> m (GClosure C_WidgetDragDropCallback))
-> IO (GClosure C_WidgetDragDropCallback)
-> m (GClosure C_WidgetDragDropCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragDropCallback
cb' = WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragDropCallback WidgetDragDropCallback
cb
C_WidgetDragDropCallback -> IO (FunPtr C_WidgetDragDropCallback)
mk_WidgetDragDropCallback C_WidgetDragDropCallback
cb' IO (FunPtr C_WidgetDragDropCallback)
-> (FunPtr C_WidgetDragDropCallback
-> IO (GClosure C_WidgetDragDropCallback))
-> IO (GClosure C_WidgetDragDropCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragDropCallback
-> IO (GClosure C_WidgetDragDropCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragDropCallback ::
WidgetDragDropCallback ->
C_WidgetDragDropCallback
wrap_WidgetDragDropCallback :: WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragDropCallback _cb :: WidgetDragDropCallback
_cb _ drop :: Ptr Drop
drop x :: Int32
x y :: Int32
y _ = do
Drop
drop' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
drop
Bool
result <- WidgetDragDropCallback
_cb Drop
drop' Int32
x Int32
y
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'
onWidgetDragDrop :: (IsWidget a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId
onWidgetDragDrop :: a -> WidgetDragDropCallback -> m SignalHandlerId
onWidgetDragDrop obj :: a
obj cb :: WidgetDragDropCallback
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_WidgetDragDropCallback
cb' = WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragDropCallback WidgetDragDropCallback
cb
FunPtr C_WidgetDragDropCallback
cb'' <- C_WidgetDragDropCallback -> IO (FunPtr C_WidgetDragDropCallback)
mk_WidgetDragDropCallback C_WidgetDragDropCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-drop" FunPtr C_WidgetDragDropCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragDrop :: (IsWidget a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId
afterWidgetDragDrop :: a -> WidgetDragDropCallback -> m SignalHandlerId
afterWidgetDragDrop obj :: a
obj cb :: WidgetDragDropCallback
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_WidgetDragDropCallback
cb' = WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragDropCallback WidgetDragDropCallback
cb
FunPtr C_WidgetDragDropCallback
cb'' <- C_WidgetDragDropCallback -> IO (FunPtr C_WidgetDragDropCallback)
mk_WidgetDragDropCallback C_WidgetDragDropCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-drop" FunPtr C_WidgetDragDropCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragDropSignalInfo
instance SignalInfo WidgetDragDropSignalInfo where
type HaskellCallbackType WidgetDragDropSignalInfo = WidgetDragDropCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragDropCallback cb
cb'' <- mk_WidgetDragDropCallback cb'
connectSignalFunPtr obj "drag-drop" cb'' connectMode detail
#endif
type WidgetDragEndCallback =
Gdk.Drag.Drag
-> IO ()
noWidgetDragEndCallback :: Maybe WidgetDragEndCallback
noWidgetDragEndCallback :: Maybe WidgetDragBeginCallback
noWidgetDragEndCallback = Maybe WidgetDragBeginCallback
forall a. Maybe a
Nothing
type C_WidgetDragEndCallback =
Ptr () ->
Ptr Gdk.Drag.Drag ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDragEndCallback :: C_WidgetDragEndCallback -> IO (FunPtr C_WidgetDragEndCallback)
genClosure_WidgetDragEnd :: MonadIO m => WidgetDragEndCallback -> m (GClosure C_WidgetDragEndCallback)
genClosure_WidgetDragEnd :: WidgetDragBeginCallback -> m (GClosure C_WidgetDragBeginCallback)
genClosure_WidgetDragEnd cb :: WidgetDragBeginCallback
cb = IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback))
-> IO (GClosure C_WidgetDragBeginCallback)
-> m (GClosure C_WidgetDragBeginCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragEndCallback WidgetDragBeginCallback
cb
C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragEndCallback C_WidgetDragBeginCallback
cb' IO (FunPtr C_WidgetDragBeginCallback)
-> (FunPtr C_WidgetDragBeginCallback
-> IO (GClosure C_WidgetDragBeginCallback))
-> IO (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragBeginCallback
-> IO (GClosure C_WidgetDragBeginCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragEndCallback ::
WidgetDragEndCallback ->
C_WidgetDragEndCallback
wrap_WidgetDragEndCallback :: WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragEndCallback _cb :: WidgetDragBeginCallback
_cb _ context :: Ptr Drag
context _ = do
Drag
context' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
context
WidgetDragBeginCallback
_cb Drag
context'
onWidgetDragEnd :: (IsWidget a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId
onWidgetDragEnd :: a -> WidgetDragBeginCallback -> m SignalHandlerId
onWidgetDragEnd obj :: a
obj cb :: WidgetDragBeginCallback
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_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragEndCallback WidgetDragBeginCallback
cb
FunPtr C_WidgetDragBeginCallback
cb'' <- C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragEndCallback C_WidgetDragBeginCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragBeginCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-end" FunPtr C_WidgetDragBeginCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragEnd :: (IsWidget a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId
afterWidgetDragEnd :: a -> WidgetDragBeginCallback -> m SignalHandlerId
afterWidgetDragEnd obj :: a
obj cb :: WidgetDragBeginCallback
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_WidgetDragBeginCallback
cb' = WidgetDragBeginCallback -> C_WidgetDragBeginCallback
wrap_WidgetDragEndCallback WidgetDragBeginCallback
cb
FunPtr C_WidgetDragBeginCallback
cb'' <- C_WidgetDragBeginCallback -> IO (FunPtr C_WidgetDragBeginCallback)
mk_WidgetDragEndCallback C_WidgetDragBeginCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragBeginCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-end" FunPtr C_WidgetDragBeginCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragEndSignalInfo
instance SignalInfo WidgetDragEndSignalInfo where
type HaskellCallbackType WidgetDragEndSignalInfo = WidgetDragEndCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragEndCallback cb
cb'' <- mk_WidgetDragEndCallback cb'
connectSignalFunPtr obj "drag-end" cb'' connectMode detail
#endif
type WidgetDragFailedCallback =
Gdk.Drag.Drag
-> Gtk.Enums.DragResult
-> IO Bool
noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback
noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback
noWidgetDragFailedCallback = Maybe WidgetDragFailedCallback
forall a. Maybe a
Nothing
type C_WidgetDragFailedCallback =
Ptr () ->
Ptr Gdk.Drag.Drag ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WidgetDragFailedCallback :: C_WidgetDragFailedCallback -> IO (FunPtr C_WidgetDragFailedCallback)
genClosure_WidgetDragFailed :: MonadIO m => WidgetDragFailedCallback -> m (GClosure C_WidgetDragFailedCallback)
genClosure_WidgetDragFailed :: WidgetDragFailedCallback -> m (GClosure C_WidgetDragFailedCallback)
genClosure_WidgetDragFailed cb :: WidgetDragFailedCallback
cb = IO (GClosure C_WidgetDragFailedCallback)
-> m (GClosure C_WidgetDragFailedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragFailedCallback)
-> m (GClosure C_WidgetDragFailedCallback))
-> IO (GClosure C_WidgetDragFailedCallback)
-> m (GClosure C_WidgetDragFailedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragFailedCallback
cb' = WidgetDragFailedCallback -> C_WidgetDragFailedCallback
wrap_WidgetDragFailedCallback WidgetDragFailedCallback
cb
C_WidgetDragFailedCallback
-> IO (FunPtr C_WidgetDragFailedCallback)
mk_WidgetDragFailedCallback C_WidgetDragFailedCallback
cb' IO (FunPtr C_WidgetDragFailedCallback)
-> (FunPtr C_WidgetDragFailedCallback
-> IO (GClosure C_WidgetDragFailedCallback))
-> IO (GClosure C_WidgetDragFailedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragFailedCallback
-> IO (GClosure C_WidgetDragFailedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragFailedCallback ::
WidgetDragFailedCallback ->
C_WidgetDragFailedCallback
wrap_WidgetDragFailedCallback :: WidgetDragFailedCallback -> C_WidgetDragFailedCallback
wrap_WidgetDragFailedCallback _cb :: WidgetDragFailedCallback
_cb _ context :: Ptr Drag
context result_ :: CUInt
result_ _ = do
Drag
context' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
context
let result_' :: DragResult
result_' = (Int -> DragResult
forall a. Enum a => Int -> a
toEnum (Int -> DragResult) -> (CUInt -> Int) -> CUInt -> DragResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result_
Bool
result <- WidgetDragFailedCallback
_cb Drag
context' DragResult
result_'
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'
onWidgetDragFailed :: (IsWidget a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId
onWidgetDragFailed :: a -> WidgetDragFailedCallback -> m SignalHandlerId
onWidgetDragFailed obj :: a
obj cb :: WidgetDragFailedCallback
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_WidgetDragFailedCallback
cb' = WidgetDragFailedCallback -> C_WidgetDragFailedCallback
wrap_WidgetDragFailedCallback WidgetDragFailedCallback
cb
FunPtr C_WidgetDragFailedCallback
cb'' <- C_WidgetDragFailedCallback
-> IO (FunPtr C_WidgetDragFailedCallback)
mk_WidgetDragFailedCallback C_WidgetDragFailedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragFailedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-failed" FunPtr C_WidgetDragFailedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragFailed :: (IsWidget a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId
afterWidgetDragFailed :: a -> WidgetDragFailedCallback -> m SignalHandlerId
afterWidgetDragFailed obj :: a
obj cb :: WidgetDragFailedCallback
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_WidgetDragFailedCallback
cb' = WidgetDragFailedCallback -> C_WidgetDragFailedCallback
wrap_WidgetDragFailedCallback WidgetDragFailedCallback
cb
FunPtr C_WidgetDragFailedCallback
cb'' <- C_WidgetDragFailedCallback
-> IO (FunPtr C_WidgetDragFailedCallback)
mk_WidgetDragFailedCallback C_WidgetDragFailedCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragFailedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-failed" FunPtr C_WidgetDragFailedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragFailedSignalInfo
instance SignalInfo WidgetDragFailedSignalInfo where
type HaskellCallbackType WidgetDragFailedSignalInfo = WidgetDragFailedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragFailedCallback cb
cb'' <- mk_WidgetDragFailedCallback cb'
connectSignalFunPtr obj "drag-failed" cb'' connectMode detail
#endif
type WidgetDragLeaveCallback =
Gdk.Drop.Drop
-> IO ()
noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback
noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback
noWidgetDragLeaveCallback = Maybe WidgetDragLeaveCallback
forall a. Maybe a
Nothing
type C_WidgetDragLeaveCallback =
Ptr () ->
Ptr Gdk.Drop.Drop ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetDragLeaveCallback :: C_WidgetDragLeaveCallback -> IO (FunPtr C_WidgetDragLeaveCallback)
genClosure_WidgetDragLeave :: MonadIO m => WidgetDragLeaveCallback -> m (GClosure C_WidgetDragLeaveCallback)
genClosure_WidgetDragLeave :: WidgetDragLeaveCallback -> m (GClosure C_WidgetDragLeaveCallback)
genClosure_WidgetDragLeave cb :: WidgetDragLeaveCallback
cb = IO (GClosure C_WidgetDragLeaveCallback)
-> m (GClosure C_WidgetDragLeaveCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragLeaveCallback)
-> m (GClosure C_WidgetDragLeaveCallback))
-> IO (GClosure C_WidgetDragLeaveCallback)
-> m (GClosure C_WidgetDragLeaveCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragLeaveCallback
cb' = WidgetDragLeaveCallback -> C_WidgetDragLeaveCallback
wrap_WidgetDragLeaveCallback WidgetDragLeaveCallback
cb
C_WidgetDragLeaveCallback -> IO (FunPtr C_WidgetDragLeaveCallback)
mk_WidgetDragLeaveCallback C_WidgetDragLeaveCallback
cb' IO (FunPtr C_WidgetDragLeaveCallback)
-> (FunPtr C_WidgetDragLeaveCallback
-> IO (GClosure C_WidgetDragLeaveCallback))
-> IO (GClosure C_WidgetDragLeaveCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragLeaveCallback
-> IO (GClosure C_WidgetDragLeaveCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragLeaveCallback ::
WidgetDragLeaveCallback ->
C_WidgetDragLeaveCallback
wrap_WidgetDragLeaveCallback :: WidgetDragLeaveCallback -> C_WidgetDragLeaveCallback
wrap_WidgetDragLeaveCallback _cb :: WidgetDragLeaveCallback
_cb _ context :: Ptr Drop
context _ = do
Drop
context' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
context
WidgetDragLeaveCallback
_cb Drop
context'
onWidgetDragLeave :: (IsWidget a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId
onWidgetDragLeave :: a -> WidgetDragLeaveCallback -> m SignalHandlerId
onWidgetDragLeave obj :: a
obj cb :: WidgetDragLeaveCallback
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_WidgetDragLeaveCallback
cb' = WidgetDragLeaveCallback -> C_WidgetDragLeaveCallback
wrap_WidgetDragLeaveCallback WidgetDragLeaveCallback
cb
FunPtr C_WidgetDragLeaveCallback
cb'' <- C_WidgetDragLeaveCallback -> IO (FunPtr C_WidgetDragLeaveCallback)
mk_WidgetDragLeaveCallback C_WidgetDragLeaveCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragLeaveCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-leave" FunPtr C_WidgetDragLeaveCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragLeave :: (IsWidget a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId
afterWidgetDragLeave :: a -> WidgetDragLeaveCallback -> m SignalHandlerId
afterWidgetDragLeave obj :: a
obj cb :: WidgetDragLeaveCallback
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_WidgetDragLeaveCallback
cb' = WidgetDragLeaveCallback -> C_WidgetDragLeaveCallback
wrap_WidgetDragLeaveCallback WidgetDragLeaveCallback
cb
FunPtr C_WidgetDragLeaveCallback
cb'' <- C_WidgetDragLeaveCallback -> IO (FunPtr C_WidgetDragLeaveCallback)
mk_WidgetDragLeaveCallback C_WidgetDragLeaveCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragLeaveCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-leave" FunPtr C_WidgetDragLeaveCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragLeaveSignalInfo
instance SignalInfo WidgetDragLeaveSignalInfo where
type HaskellCallbackType WidgetDragLeaveSignalInfo = WidgetDragLeaveCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragLeaveCallback cb
cb'' <- mk_WidgetDragLeaveCallback cb'
connectSignalFunPtr obj "drag-leave" cb'' connectMode detail
#endif
type WidgetDragMotionCallback =
Gdk.Drop.Drop
-> Int32
-> Int32
-> IO Bool
noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback
noWidgetDragMotionCallback :: Maybe WidgetDragDropCallback
noWidgetDragMotionCallback = Maybe WidgetDragDropCallback
forall a. Maybe a
Nothing
type C_WidgetDragMotionCallback =
Ptr () ->
Ptr Gdk.Drop.Drop ->
Int32 ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WidgetDragMotionCallback :: C_WidgetDragMotionCallback -> IO (FunPtr C_WidgetDragMotionCallback)
genClosure_WidgetDragMotion :: MonadIO m => WidgetDragMotionCallback -> m (GClosure C_WidgetDragMotionCallback)
genClosure_WidgetDragMotion :: WidgetDragDropCallback -> m (GClosure C_WidgetDragDropCallback)
genClosure_WidgetDragMotion cb :: WidgetDragDropCallback
cb = IO (GClosure C_WidgetDragDropCallback)
-> m (GClosure C_WidgetDragDropCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetDragDropCallback)
-> m (GClosure C_WidgetDragDropCallback))
-> IO (GClosure C_WidgetDragDropCallback)
-> m (GClosure C_WidgetDragDropCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetDragDropCallback
cb' = WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragMotionCallback WidgetDragDropCallback
cb
C_WidgetDragDropCallback -> IO (FunPtr C_WidgetDragDropCallback)
mk_WidgetDragMotionCallback C_WidgetDragDropCallback
cb' IO (FunPtr C_WidgetDragDropCallback)
-> (FunPtr C_WidgetDragDropCallback
-> IO (GClosure C_WidgetDragDropCallback))
-> IO (GClosure C_WidgetDragDropCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetDragDropCallback
-> IO (GClosure C_WidgetDragDropCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetDragMotionCallback ::
WidgetDragMotionCallback ->
C_WidgetDragMotionCallback
wrap_WidgetDragMotionCallback :: WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragMotionCallback _cb :: WidgetDragDropCallback
_cb _ drop :: Ptr Drop
drop x :: Int32
x y :: Int32
y _ = do
Drop
drop' <- ((ManagedPtr Drop -> Drop) -> Ptr Drop -> IO Drop
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drop -> Drop
Gdk.Drop.Drop) Ptr Drop
drop
Bool
result <- WidgetDragDropCallback
_cb Drop
drop' Int32
x Int32
y
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'
onWidgetDragMotion :: (IsWidget a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId
onWidgetDragMotion :: a -> WidgetDragDropCallback -> m SignalHandlerId
onWidgetDragMotion obj :: a
obj cb :: WidgetDragDropCallback
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_WidgetDragDropCallback
cb' = WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragMotionCallback WidgetDragDropCallback
cb
FunPtr C_WidgetDragDropCallback
cb'' <- C_WidgetDragDropCallback -> IO (FunPtr C_WidgetDragDropCallback)
mk_WidgetDragMotionCallback C_WidgetDragDropCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-motion" FunPtr C_WidgetDragDropCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetDragMotion :: (IsWidget a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId
afterWidgetDragMotion :: a -> WidgetDragDropCallback -> m SignalHandlerId
afterWidgetDragMotion obj :: a
obj cb :: WidgetDragDropCallback
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_WidgetDragDropCallback
cb' = WidgetDragDropCallback -> C_WidgetDragDropCallback
wrap_WidgetDragMotionCallback WidgetDragDropCallback
cb
FunPtr C_WidgetDragDropCallback
cb'' <- C_WidgetDragDropCallback -> IO (FunPtr C_WidgetDragDropCallback)
mk_WidgetDragMotionCallback C_WidgetDragDropCallback
cb'
a
-> Text
-> FunPtr C_WidgetDragDropCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "drag-motion" FunPtr C_WidgetDragDropCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetDragMotionSignalInfo
instance SignalInfo WidgetDragMotionSignalInfo where
type HaskellCallbackType WidgetDragMotionSignalInfo = WidgetDragMotionCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetDragMotionCallback cb
cb'' <- mk_WidgetDragMotionCallback cb'
connectSignalFunPtr obj "drag-motion" cb'' connectMode detail
#endif
type WidgetGrabNotifyCallback =
Bool
-> IO ()
noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback
noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback
noWidgetGrabNotifyCallback = Maybe WidgetGrabNotifyCallback
forall a. Maybe a
Nothing
type C_WidgetGrabNotifyCallback =
Ptr () ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetGrabNotifyCallback :: C_WidgetGrabNotifyCallback -> IO (FunPtr C_WidgetGrabNotifyCallback)
genClosure_WidgetGrabNotify :: MonadIO m => WidgetGrabNotifyCallback -> m (GClosure C_WidgetGrabNotifyCallback)
genClosure_WidgetGrabNotify :: WidgetGrabNotifyCallback -> m (GClosure C_WidgetGrabNotifyCallback)
genClosure_WidgetGrabNotify cb :: WidgetGrabNotifyCallback
cb = IO (GClosure C_WidgetGrabNotifyCallback)
-> m (GClosure C_WidgetGrabNotifyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetGrabNotifyCallback)
-> m (GClosure C_WidgetGrabNotifyCallback))
-> IO (GClosure C_WidgetGrabNotifyCallback)
-> m (GClosure C_WidgetGrabNotifyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetGrabNotifyCallback
cb' = WidgetGrabNotifyCallback -> C_WidgetGrabNotifyCallback
wrap_WidgetGrabNotifyCallback WidgetGrabNotifyCallback
cb
C_WidgetGrabNotifyCallback
-> IO (FunPtr C_WidgetGrabNotifyCallback)
mk_WidgetGrabNotifyCallback C_WidgetGrabNotifyCallback
cb' IO (FunPtr C_WidgetGrabNotifyCallback)
-> (FunPtr C_WidgetGrabNotifyCallback
-> IO (GClosure C_WidgetGrabNotifyCallback))
-> IO (GClosure C_WidgetGrabNotifyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetGrabNotifyCallback
-> IO (GClosure C_WidgetGrabNotifyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetGrabNotifyCallback ::
WidgetGrabNotifyCallback ->
C_WidgetGrabNotifyCallback
wrap_WidgetGrabNotifyCallback :: WidgetGrabNotifyCallback -> C_WidgetGrabNotifyCallback
wrap_WidgetGrabNotifyCallback _cb :: WidgetGrabNotifyCallback
_cb _ wasGrabbed :: CInt
wasGrabbed _ = do
let wasGrabbed' :: Bool
wasGrabbed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
wasGrabbed
WidgetGrabNotifyCallback
_cb Bool
wasGrabbed'
onWidgetGrabNotify :: (IsWidget a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId
onWidgetGrabNotify :: a -> WidgetGrabNotifyCallback -> m SignalHandlerId
onWidgetGrabNotify obj :: a
obj cb :: WidgetGrabNotifyCallback
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_WidgetGrabNotifyCallback
cb' = WidgetGrabNotifyCallback -> C_WidgetGrabNotifyCallback
wrap_WidgetGrabNotifyCallback WidgetGrabNotifyCallback
cb
FunPtr C_WidgetGrabNotifyCallback
cb'' <- C_WidgetGrabNotifyCallback
-> IO (FunPtr C_WidgetGrabNotifyCallback)
mk_WidgetGrabNotifyCallback C_WidgetGrabNotifyCallback
cb'
a
-> Text
-> FunPtr C_WidgetGrabNotifyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "grab-notify" FunPtr C_WidgetGrabNotifyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetGrabNotify :: (IsWidget a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId
afterWidgetGrabNotify :: a -> WidgetGrabNotifyCallback -> m SignalHandlerId
afterWidgetGrabNotify obj :: a
obj cb :: WidgetGrabNotifyCallback
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_WidgetGrabNotifyCallback
cb' = WidgetGrabNotifyCallback -> C_WidgetGrabNotifyCallback
wrap_WidgetGrabNotifyCallback WidgetGrabNotifyCallback
cb
FunPtr C_WidgetGrabNotifyCallback
cb'' <- C_WidgetGrabNotifyCallback
-> IO (FunPtr C_WidgetGrabNotifyCallback)
mk_WidgetGrabNotifyCallback C_WidgetGrabNotifyCallback
cb'
a
-> Text
-> FunPtr C_WidgetGrabNotifyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "grab-notify" FunPtr C_WidgetGrabNotifyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetGrabNotifySignalInfo
instance SignalInfo WidgetGrabNotifySignalInfo where
type HaskellCallbackType WidgetGrabNotifySignalInfo = WidgetGrabNotifyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetGrabNotifyCallback cb
cb'' <- mk_WidgetGrabNotifyCallback cb'
connectSignalFunPtr obj "grab-notify" 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 :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetHide cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetHideCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetHideCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetHideCallback ::
WidgetHideCallback ->
C_WidgetHideCallback
wrap_WidgetHideCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetHideCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetHide :: (IsWidget a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
onWidgetHide :: a -> IO () -> m SignalHandlerId
onWidgetHide obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetHideCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetHideCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "hide" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetHide :: (IsWidget a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
afterWidgetHide :: a -> IO () -> m SignalHandlerId
afterWidgetHide obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetHideCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetHideCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "hide" FunPtr C_WidgetAccelClosuresChangedCallback
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 :: WidgetKeynavFailedCallback
-> m (GClosure C_WidgetKeynavFailedCallback)
genClosure_WidgetKeynavFailed cb :: 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 _cb :: WidgetKeynavFailedCallback
_cb _ direction :: CUInt
direction _ = 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 :: a -> WidgetKeynavFailedCallback -> m SignalHandlerId
onWidgetKeynavFailed obj :: a
obj cb :: 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 "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 :: a -> WidgetKeynavFailedCallback -> m SignalHandlerId
afterWidgetKeynavFailed obj :: a
obj cb :: 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 "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 :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetMap cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetMapCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetMapCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetMapCallback ::
WidgetMapCallback ->
C_WidgetMapCallback
wrap_WidgetMapCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetMapCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetMap :: (IsWidget a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
onWidgetMap :: a -> IO () -> m SignalHandlerId
onWidgetMap obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetMapCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetMapCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "map" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetMap :: (IsWidget a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
afterWidgetMap :: a -> IO () -> m SignalHandlerId
afterWidgetMap obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetMapCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetMapCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "map" FunPtr C_WidgetAccelClosuresChangedCallback
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 :: WidgetMnemonicActivateCallback
-> m (GClosure C_WidgetMnemonicActivateCallback)
genClosure_WidgetMnemonicActivate cb :: 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 _cb :: WidgetMnemonicActivateCallback
_cb _ groupCycling :: CInt
groupCycling _ = do
let groupCycling' :: Bool
groupCycling' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 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 :: a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
onWidgetMnemonicActivate obj :: a
obj cb :: 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 "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 :: a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
afterWidgetMnemonicActivate obj :: a
obj cb :: 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 "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 :: WidgetMoveFocusCallback
-> m (GClosure C_WidgetDirectionChangedCallback)
genClosure_WidgetMoveFocus cb :: 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 _cb :: WidgetMoveFocusCallback
_cb _ direction :: CUInt
direction _ = 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 :: a -> WidgetMoveFocusCallback -> m SignalHandlerId
onWidgetMoveFocus obj :: a
obj cb :: 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 "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 :: a -> WidgetMoveFocusCallback -> m SignalHandlerId
afterWidgetMoveFocus obj :: a
obj cb :: 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 "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 =
IO Bool
noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback
= Maybe WidgetPopupMenuCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_WidgetPopupMenuCallback -> IO (FunPtr C_WidgetPopupMenuCallback)
genClosure_WidgetPopupMenu :: MonadIO m => WidgetPopupMenuCallback -> m (GClosure C_WidgetPopupMenuCallback)
cb :: WidgetPopupMenuCallback
cb = IO (GClosure C_WidgetPopupMenuCallback)
-> m (GClosure C_WidgetPopupMenuCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetPopupMenuCallback)
-> m (GClosure C_WidgetPopupMenuCallback))
-> IO (GClosure C_WidgetPopupMenuCallback)
-> m (GClosure C_WidgetPopupMenuCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetPopupMenuCallback
cb' = WidgetPopupMenuCallback -> C_WidgetPopupMenuCallback
wrap_WidgetPopupMenuCallback WidgetPopupMenuCallback
cb
C_WidgetPopupMenuCallback -> IO (FunPtr C_WidgetPopupMenuCallback)
mk_WidgetPopupMenuCallback C_WidgetPopupMenuCallback
cb' IO (FunPtr C_WidgetPopupMenuCallback)
-> (FunPtr C_WidgetPopupMenuCallback
-> IO (GClosure C_WidgetPopupMenuCallback))
-> IO (GClosure C_WidgetPopupMenuCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetPopupMenuCallback
-> IO (GClosure C_WidgetPopupMenuCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetPopupMenuCallback ::
WidgetPopupMenuCallback ->
C_WidgetPopupMenuCallback
_cb :: WidgetPopupMenuCallback
_cb _ _ = do
Bool
result <- WidgetPopupMenuCallback
_cb
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'
onWidgetPopupMenu :: (IsWidget a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId
obj :: a
obj cb :: WidgetPopupMenuCallback
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_WidgetPopupMenuCallback
cb' = WidgetPopupMenuCallback -> C_WidgetPopupMenuCallback
wrap_WidgetPopupMenuCallback WidgetPopupMenuCallback
cb
FunPtr C_WidgetPopupMenuCallback
cb'' <- C_WidgetPopupMenuCallback -> IO (FunPtr C_WidgetPopupMenuCallback)
mk_WidgetPopupMenuCallback C_WidgetPopupMenuCallback
cb'
a
-> Text
-> FunPtr C_WidgetPopupMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "popup-menu" FunPtr C_WidgetPopupMenuCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetPopupMenu :: (IsWidget a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId
obj :: a
obj cb :: WidgetPopupMenuCallback
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_WidgetPopupMenuCallback
cb' = WidgetPopupMenuCallback -> C_WidgetPopupMenuCallback
wrap_WidgetPopupMenuCallback WidgetPopupMenuCallback
cb
FunPtr C_WidgetPopupMenuCallback
cb'' <- C_WidgetPopupMenuCallback -> IO (FunPtr C_WidgetPopupMenuCallback)
mk_WidgetPopupMenuCallback C_WidgetPopupMenuCallback
cb'
a
-> Text
-> FunPtr C_WidgetPopupMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "popup-menu" FunPtr C_WidgetPopupMenuCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetPopupMenuSignalInfo
instance SignalInfo WidgetPopupMenuSignalInfo where
type HaskellCallbackType WidgetPopupMenuSignalInfo = WidgetPopupMenuCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetPopupMenuCallback cb
cb'' <- mk_WidgetPopupMenuCallback cb'
connectSignalFunPtr obj "popup-menu" 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 :: WidgetQueryTooltipCallback
-> m (GClosure C_WidgetQueryTooltipCallback)
genClosure_WidgetQueryTooltip cb :: 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 _cb :: WidgetQueryTooltipCallback
_cb _ x :: Int32
x y :: Int32
y keyboardMode :: CInt
keyboardMode tooltip :: Ptr Tooltip
tooltip _ = do
let keyboardMode' :: Bool
keyboardMode' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 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 :: a -> WidgetQueryTooltipCallback -> m SignalHandlerId
onWidgetQueryTooltip obj :: a
obj cb :: 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 "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 :: a -> WidgetQueryTooltipCallback -> m SignalHandlerId
afterWidgetQueryTooltip obj :: a
obj cb :: 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 "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 :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetRealize cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetRealizeCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetRealizeCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetRealizeCallback ::
WidgetRealizeCallback ->
C_WidgetRealizeCallback
wrap_WidgetRealizeCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetRealizeCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetRealize :: (IsWidget a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
onWidgetRealize :: a -> IO () -> m SignalHandlerId
onWidgetRealize obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetRealizeCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetRealizeCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "realize" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetRealize :: (IsWidget a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
afterWidgetRealize :: a -> IO () -> m SignalHandlerId
afterWidgetRealize obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetRealizeCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetRealizeCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "realize" FunPtr C_WidgetAccelClosuresChangedCallback
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 :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetShow cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetShowCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetShowCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetShowCallback ::
WidgetShowCallback ->
C_WidgetShowCallback
wrap_WidgetShowCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetShowCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetShow :: (IsWidget a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
onWidgetShow :: a -> IO () -> m SignalHandlerId
onWidgetShow obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetShowCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetShowCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetShow :: (IsWidget a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
afterWidgetShow :: a -> IO () -> m SignalHandlerId
afterWidgetShow obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetShowCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetShowCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "show" FunPtr C_WidgetAccelClosuresChangedCallback
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 WidgetSizeAllocateCallback =
Int32
-> Int32
-> Int32
-> IO ()
noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback
noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback
noWidgetSizeAllocateCallback = Maybe WidgetSizeAllocateCallback
forall a. Maybe a
Nothing
type C_WidgetSizeAllocateCallback =
Ptr () ->
Int32 ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetSizeAllocateCallback :: C_WidgetSizeAllocateCallback -> IO (FunPtr C_WidgetSizeAllocateCallback)
genClosure_WidgetSizeAllocate :: MonadIO m => WidgetSizeAllocateCallback -> m (GClosure C_WidgetSizeAllocateCallback)
genClosure_WidgetSizeAllocate :: WidgetSizeAllocateCallback
-> m (GClosure C_WidgetSizeAllocateCallback)
genClosure_WidgetSizeAllocate cb :: WidgetSizeAllocateCallback
cb = IO (GClosure C_WidgetSizeAllocateCallback)
-> m (GClosure C_WidgetSizeAllocateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetSizeAllocateCallback)
-> m (GClosure C_WidgetSizeAllocateCallback))
-> IO (GClosure C_WidgetSizeAllocateCallback)
-> m (GClosure C_WidgetSizeAllocateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetSizeAllocateCallback
cb' = WidgetSizeAllocateCallback -> C_WidgetSizeAllocateCallback
wrap_WidgetSizeAllocateCallback WidgetSizeAllocateCallback
cb
C_WidgetSizeAllocateCallback
-> IO (FunPtr C_WidgetSizeAllocateCallback)
mk_WidgetSizeAllocateCallback C_WidgetSizeAllocateCallback
cb' IO (FunPtr C_WidgetSizeAllocateCallback)
-> (FunPtr C_WidgetSizeAllocateCallback
-> IO (GClosure C_WidgetSizeAllocateCallback))
-> IO (GClosure C_WidgetSizeAllocateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetSizeAllocateCallback
-> IO (GClosure C_WidgetSizeAllocateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetSizeAllocateCallback ::
WidgetSizeAllocateCallback ->
C_WidgetSizeAllocateCallback
wrap_WidgetSizeAllocateCallback :: WidgetSizeAllocateCallback -> C_WidgetSizeAllocateCallback
wrap_WidgetSizeAllocateCallback _cb :: WidgetSizeAllocateCallback
_cb _ width :: Int32
width height :: Int32
height baseline :: Int32
baseline _ = do
WidgetSizeAllocateCallback
_cb Int32
width Int32
height Int32
baseline
onWidgetSizeAllocate :: (IsWidget a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId
onWidgetSizeAllocate :: a -> WidgetSizeAllocateCallback -> m SignalHandlerId
onWidgetSizeAllocate obj :: a
obj cb :: WidgetSizeAllocateCallback
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_WidgetSizeAllocateCallback
cb' = WidgetSizeAllocateCallback -> C_WidgetSizeAllocateCallback
wrap_WidgetSizeAllocateCallback WidgetSizeAllocateCallback
cb
FunPtr C_WidgetSizeAllocateCallback
cb'' <- C_WidgetSizeAllocateCallback
-> IO (FunPtr C_WidgetSizeAllocateCallback)
mk_WidgetSizeAllocateCallback C_WidgetSizeAllocateCallback
cb'
a
-> Text
-> FunPtr C_WidgetSizeAllocateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "size-allocate" FunPtr C_WidgetSizeAllocateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetSizeAllocate :: (IsWidget a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId
afterWidgetSizeAllocate :: a -> WidgetSizeAllocateCallback -> m SignalHandlerId
afterWidgetSizeAllocate obj :: a
obj cb :: WidgetSizeAllocateCallback
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_WidgetSizeAllocateCallback
cb' = WidgetSizeAllocateCallback -> C_WidgetSizeAllocateCallback
wrap_WidgetSizeAllocateCallback WidgetSizeAllocateCallback
cb
FunPtr C_WidgetSizeAllocateCallback
cb'' <- C_WidgetSizeAllocateCallback
-> IO (FunPtr C_WidgetSizeAllocateCallback)
mk_WidgetSizeAllocateCallback C_WidgetSizeAllocateCallback
cb'
a
-> Text
-> FunPtr C_WidgetSizeAllocateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "size-allocate" FunPtr C_WidgetSizeAllocateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetSizeAllocateSignalInfo
instance SignalInfo WidgetSizeAllocateSignalInfo where
type HaskellCallbackType WidgetSizeAllocateSignalInfo = WidgetSizeAllocateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetSizeAllocateCallback cb
cb'' <- mk_WidgetSizeAllocateCallback cb'
connectSignalFunPtr obj "size-allocate" 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 :: WidgetStateFlagsChangedCallback
-> m (GClosure C_WidgetDirectionChangedCallback)
genClosure_WidgetStateFlagsChanged cb :: 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 _cb :: WidgetStateFlagsChangedCallback
_cb _ flags :: CUInt
flags _ = 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 :: a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
onWidgetStateFlagsChanged obj :: a
obj cb :: 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 "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 :: a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
afterWidgetStateFlagsChanged obj :: a
obj cb :: 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 "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 WidgetStyleUpdatedCallback =
IO ()
noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback
noWidgetStyleUpdatedCallback :: Maybe (IO ())
noWidgetStyleUpdatedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WidgetStyleUpdatedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WidgetStyleUpdatedCallback :: C_WidgetStyleUpdatedCallback -> IO (FunPtr C_WidgetStyleUpdatedCallback)
genClosure_WidgetStyleUpdated :: MonadIO m => WidgetStyleUpdatedCallback -> m (GClosure C_WidgetStyleUpdatedCallback)
genClosure_WidgetStyleUpdated :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetStyleUpdated cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetStyleUpdatedCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetStyleUpdatedCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetStyleUpdatedCallback ::
WidgetStyleUpdatedCallback ->
C_WidgetStyleUpdatedCallback
wrap_WidgetStyleUpdatedCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetStyleUpdatedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetStyleUpdated :: (IsWidget a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId
onWidgetStyleUpdated :: a -> IO () -> m SignalHandlerId
onWidgetStyleUpdated obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetStyleUpdatedCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetStyleUpdatedCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "style-updated" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetStyleUpdated :: (IsWidget a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId
afterWidgetStyleUpdated :: a -> IO () -> m SignalHandlerId
afterWidgetStyleUpdated obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetStyleUpdatedCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetStyleUpdatedCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "style-updated" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WidgetStyleUpdatedSignalInfo
instance SignalInfo WidgetStyleUpdatedSignalInfo where
type HaskellCallbackType WidgetStyleUpdatedSignalInfo = WidgetStyleUpdatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WidgetStyleUpdatedCallback cb
cb'' <- mk_WidgetStyleUpdatedCallback cb'
connectSignalFunPtr obj "style-updated" 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 :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetUnmap cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnmapCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetUnmapCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetUnmapCallback ::
WidgetUnmapCallback ->
C_WidgetUnmapCallback
wrap_WidgetUnmapCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnmapCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetUnmap :: (IsWidget a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
onWidgetUnmap :: a -> IO () -> m SignalHandlerId
onWidgetUnmap obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnmapCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetUnmapCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unmap" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetUnmap :: (IsWidget a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
afterWidgetUnmap :: a -> IO () -> m SignalHandlerId
afterWidgetUnmap obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnmapCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetUnmapCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unmap" FunPtr C_WidgetAccelClosuresChangedCallback
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 :: IO () -> m (GClosure C_WidgetAccelClosuresChangedCallback)
genClosure_WidgetUnrealize cb :: IO ()
cb = IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
-> m (GClosure C_WidgetAccelClosuresChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnrealizeCallback IO ()
cb
C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetUnrealizeCallback C_WidgetAccelClosuresChangedCallback
cb' IO (FunPtr C_WidgetAccelClosuresChangedCallback)
-> (FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback))
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WidgetAccelClosuresChangedCallback
-> IO (GClosure C_WidgetAccelClosuresChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WidgetUnrealizeCallback ::
WidgetUnrealizeCallback ->
C_WidgetUnrealizeCallback
wrap_WidgetUnrealizeCallback :: IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnrealizeCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWidgetUnrealize :: (IsWidget a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
onWidgetUnrealize :: a -> IO () -> m SignalHandlerId
onWidgetUnrealize obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnrealizeCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetUnrealizeCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unrealize" FunPtr C_WidgetAccelClosuresChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWidgetUnrealize :: (IsWidget a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
afterWidgetUnrealize :: a -> IO () -> m SignalHandlerId
afterWidgetUnrealize obj :: a
obj cb :: 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_WidgetAccelClosuresChangedCallback
cb' = IO () -> C_WidgetAccelClosuresChangedCallback
wrap_WidgetUnrealizeCallback IO ()
cb
FunPtr C_WidgetAccelClosuresChangedCallback
cb'' <- C_WidgetAccelClosuresChangedCallback
-> IO (FunPtr C_WidgetAccelClosuresChangedCallback)
mk_WidgetUnrealizeCallback C_WidgetAccelClosuresChangedCallback
cb'
a
-> Text
-> FunPtr C_WidgetAccelClosuresChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unrealize" FunPtr C_WidgetAccelClosuresChangedCallback
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 :: o -> m Bool
getWidgetCanFocus obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "can-focus"
setWidgetCanFocus :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetCanFocus :: o -> Bool -> m ()
setWidgetCanFocus obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "can-focus" Bool
val
constructWidgetCanFocus :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetCanFocus :: Bool -> IO (GValueConstruct o)
constructWidgetCanFocus val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWidgetCanTarget obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "can-target"
setWidgetCanTarget :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetCanTarget :: o -> Bool -> m ()
setWidgetCanTarget obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "can-target" Bool
val
constructWidgetCanTarget :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetCanTarget :: Bool -> IO (GValueConstruct o)
constructWidgetCanTarget val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
getWidgetCssName :: (MonadIO m, IsWidget o) => o -> m (Maybe T.Text)
getWidgetCssName :: o -> m (Maybe Text)
getWidgetCssName obj :: o
obj = 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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "css-name"
constructWidgetCssName :: (IsWidget o) => T.Text -> IO (GValueConstruct o)
constructWidgetCssName :: Text -> IO (GValueConstruct o)
constructWidgetCssName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "css-name" (Text -> Maybe Text
forall a. a -> Maybe a
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 = (Maybe 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 :: o -> m (Maybe Cursor)
getWidgetCursor obj :: o
obj = 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
$ 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 "cursor" ManagedPtr Cursor -> Cursor
Gdk.Cursor.Cursor
setWidgetCursor :: (MonadIO m, IsWidget o, Gdk.Cursor.IsCursor a) => o -> a -> m ()
setWidgetCursor :: o -> a -> m ()
setWidgetCursor obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "cursor" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWidgetCursor :: (IsWidget o, Gdk.Cursor.IsCursor a) => a -> IO (GValueConstruct o)
constructWidgetCursor :: a -> IO (GValueConstruct o)
constructWidgetCursor val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "cursor" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearWidgetCursor :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetCursor :: o -> m ()
clearWidgetCursor obj :: 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 "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
getWidgetExpand :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetExpand :: o -> m Bool
getWidgetExpand obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "expand"
setWidgetExpand :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetExpand :: o -> Bool -> m ()
setWidgetExpand obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "expand" Bool
val
constructWidgetExpand :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetExpand :: Bool -> IO (GValueConstruct o)
constructWidgetExpand val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "expand" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetExpandPropertyInfo
instance AttrInfo WidgetExpandPropertyInfo where
type AttrAllowedOps WidgetExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetExpandPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetExpandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetExpandPropertyInfo = (~) Bool
type AttrTransferType WidgetExpandPropertyInfo = Bool
type AttrGetType WidgetExpandPropertyInfo = Bool
type AttrLabel WidgetExpandPropertyInfo = "expand"
type AttrOrigin WidgetExpandPropertyInfo = Widget
attrGet = getWidgetExpand
attrSet = setWidgetExpand
attrTransfer _ v = do
return v
attrConstruct = constructWidgetExpand
attrClear = undefined
#endif
getWidgetFocusOnClick :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetFocusOnClick :: o -> m Bool
getWidgetFocusOnClick obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "focus-on-click"
setWidgetFocusOnClick :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetFocusOnClick :: o -> Bool -> m ()
setWidgetFocusOnClick obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "focus-on-click" Bool
val
constructWidgetFocusOnClick :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetFocusOnClick :: Bool -> IO (GValueConstruct o)
constructWidgetFocusOnClick val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
getWidgetHalign :: (MonadIO m, IsWidget o) => o -> m Gtk.Enums.Align
getWidgetHalign :: o -> m Align
getWidgetHalign obj :: o
obj = 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
$ o -> String -> IO Align
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "halign"
setWidgetHalign :: (MonadIO m, IsWidget o) => o -> Gtk.Enums.Align -> m ()
setWidgetHalign :: o -> Align -> m ()
setWidgetHalign obj :: o
obj val :: Align
val = 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 -> Align -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "halign" Align
val
constructWidgetHalign :: (IsWidget o) => Gtk.Enums.Align -> IO (GValueConstruct o)
constructWidgetHalign :: Align -> IO (GValueConstruct o)
constructWidgetHalign val :: Align
val = String -> Align -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m Bool
getWidgetHasDefault obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "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 :: o -> m Bool
getWidgetHasFocus obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "has-focus"
setWidgetHasFocus :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetHasFocus :: o -> Bool -> m ()
setWidgetHasFocus obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "has-focus" Bool
val
constructWidgetHasFocus :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetHasFocus :: Bool -> IO (GValueConstruct o)
constructWidgetHasFocus val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "has-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetHasFocusPropertyInfo
instance AttrInfo WidgetHasFocusPropertyInfo where
type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool
type AttrTransferType WidgetHasFocusPropertyInfo = Bool
type AttrGetType WidgetHasFocusPropertyInfo = Bool
type AttrLabel WidgetHasFocusPropertyInfo = "has-focus"
type AttrOrigin WidgetHasFocusPropertyInfo = Widget
attrGet = getWidgetHasFocus
attrSet = setWidgetHasFocus
attrTransfer _ v = do
return v
attrConstruct = constructWidgetHasFocus
attrClear = undefined
#endif
getWidgetHasTooltip :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetHasTooltip :: o -> m Bool
getWidgetHasTooltip obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "has-tooltip"
setWidgetHasTooltip :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetHasTooltip :: o -> Bool -> m ()
setWidgetHasTooltip obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "has-tooltip" Bool
val
constructWidgetHasTooltip :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetHasTooltip :: Bool -> IO (GValueConstruct o)
constructWidgetHasTooltip val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Int32
getWidgetHeightRequest obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "height-request"
setWidgetHeightRequest :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetHeightRequest :: o -> Int32 -> m ()
setWidgetHeightRequest obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "height-request" Int32
val
constructWidgetHeightRequest :: (IsWidget o) => Int32 -> IO (GValueConstruct o)
constructWidgetHeightRequest :: Int32 -> IO (GValueConstruct o)
constructWidgetHeightRequest val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Bool
getWidgetHexpand obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "hexpand"
setWidgetHexpand :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetHexpand :: o -> Bool -> m ()
setWidgetHexpand obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "hexpand" Bool
val
constructWidgetHexpand :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetHexpand :: Bool -> IO (GValueConstruct o)
constructWidgetHexpand val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWidgetHexpandSet obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "hexpand-set"
setWidgetHexpandSet :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetHexpandSet :: o -> Bool -> m ()
setWidgetHexpandSet obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "hexpand-set" Bool
val
constructWidgetHexpandSet :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetHexpandSet :: Bool -> IO (GValueConstruct o)
constructWidgetHexpandSet val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
getWidgetIsFocus :: (MonadIO m, IsWidget o) => o -> m Bool
getWidgetIsFocus :: o -> m Bool
getWidgetIsFocus obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "is-focus"
setWidgetIsFocus :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetIsFocus :: o -> Bool -> m ()
setWidgetIsFocus obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "is-focus" Bool
val
constructWidgetIsFocus :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetIsFocus :: Bool -> IO (GValueConstruct o)
constructWidgetIsFocus val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "is-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data WidgetIsFocusPropertyInfo
instance AttrInfo WidgetIsFocusPropertyInfo where
type AttrAllowedOps WidgetIsFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetIsFocusPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool
type AttrTransferType WidgetIsFocusPropertyInfo = Bool
type AttrGetType WidgetIsFocusPropertyInfo = Bool
type AttrLabel WidgetIsFocusPropertyInfo = "is-focus"
type AttrOrigin WidgetIsFocusPropertyInfo = Widget
attrGet = getWidgetIsFocus
attrSet = setWidgetIsFocus
attrTransfer _ v = do
return v
attrConstruct = constructWidgetIsFocus
attrClear = undefined
#endif
getWidgetLayoutManager :: (MonadIO m, IsWidget o) => o -> m (Maybe Gtk.LayoutManager.LayoutManager)
getWidgetLayoutManager :: o -> m (Maybe LayoutManager)
getWidgetLayoutManager obj :: o
obj = 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
$ 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 "layout-manager" ManagedPtr LayoutManager -> LayoutManager
Gtk.LayoutManager.LayoutManager
setWidgetLayoutManager :: (MonadIO m, IsWidget o, Gtk.LayoutManager.IsLayoutManager a) => o -> a -> m ()
setWidgetLayoutManager :: o -> a -> m ()
setWidgetLayoutManager obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "layout-manager" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWidgetLayoutManager :: (IsWidget o, Gtk.LayoutManager.IsLayoutManager a) => a -> IO (GValueConstruct o)
constructWidgetLayoutManager :: a -> IO (GValueConstruct o)
constructWidgetLayoutManager val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "layout-manager" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearWidgetLayoutManager :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetLayoutManager :: o -> m ()
clearWidgetLayoutManager obj :: 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 "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
getWidgetMargin :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMargin :: o -> m Int32
getWidgetMargin obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "margin"
setWidgetMargin :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMargin :: o -> Int32 -> m ()
setWidgetMargin obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "margin" Int32
val
constructWidgetMargin :: (IsWidget o) => Int32 -> IO (GValueConstruct o)
constructWidgetMargin :: Int32 -> IO (GValueConstruct o)
constructWidgetMargin val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "margin" Int32
val
#if defined(ENABLE_OVERLOADING)
data WidgetMarginPropertyInfo
instance AttrInfo WidgetMarginPropertyInfo where
type AttrAllowedOps WidgetMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WidgetMarginPropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetMarginPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WidgetMarginPropertyInfo = (~) Int32
type AttrTransferType WidgetMarginPropertyInfo = Int32
type AttrGetType WidgetMarginPropertyInfo = Int32
type AttrLabel WidgetMarginPropertyInfo = "margin"
type AttrOrigin WidgetMarginPropertyInfo = Widget
attrGet = getWidgetMargin
attrSet = setWidgetMargin
attrTransfer _ v = do
return v
attrConstruct = constructWidgetMargin
attrClear = undefined
#endif
getWidgetMarginBottom :: (MonadIO m, IsWidget o) => o -> m Int32
getWidgetMarginBottom :: o -> m Int32
getWidgetMarginBottom obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "margin-bottom"
setWidgetMarginBottom :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginBottom :: o -> Int32 -> m ()
setWidgetMarginBottom obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "margin-bottom" Int32
val
constructWidgetMarginBottom :: (IsWidget o) => Int32 -> IO (GValueConstruct o)
constructWidgetMarginBottom :: Int32 -> IO (GValueConstruct o)
constructWidgetMarginBottom val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Int32
getWidgetMarginEnd obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "margin-end"
setWidgetMarginEnd :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginEnd :: o -> Int32 -> m ()
setWidgetMarginEnd obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "margin-end" Int32
val
constructWidgetMarginEnd :: (IsWidget o) => Int32 -> IO (GValueConstruct o)
constructWidgetMarginEnd :: Int32 -> IO (GValueConstruct o)
constructWidgetMarginEnd val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Int32
getWidgetMarginStart obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "margin-start"
setWidgetMarginStart :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginStart :: o -> Int32 -> m ()
setWidgetMarginStart obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "margin-start" Int32
val
constructWidgetMarginStart :: (IsWidget o) => Int32 -> IO (GValueConstruct o)
constructWidgetMarginStart :: Int32 -> IO (GValueConstruct o)
constructWidgetMarginStart val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Int32
getWidgetMarginTop obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "margin-top"
setWidgetMarginTop :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetMarginTop :: o -> Int32 -> m ()
setWidgetMarginTop obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "margin-top" Int32
val
constructWidgetMarginTop :: (IsWidget o) => Int32 -> IO (GValueConstruct o)
constructWidgetMarginTop :: Int32 -> IO (GValueConstruct o)
constructWidgetMarginTop val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 T.Text
getWidgetName :: o -> m Text
getWidgetName obj :: o
obj = 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
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getWidgetName" (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 "name"
setWidgetName :: (MonadIO m, IsWidget o) => o -> T.Text -> m ()
setWidgetName :: o -> Text -> m ()
setWidgetName obj :: o
obj val :: Text
val = 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 "name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWidgetName :: (IsWidget o) => T.Text -> IO (GValueConstruct o)
constructWidgetName :: Text -> IO (GValueConstruct o)
constructWidgetName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "name" (Text -> Maybe Text
forall a. a -> Maybe a
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 = 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 :: o -> m Double
getWidgetOpacity obj :: o
obj = 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
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "opacity"
setWidgetOpacity :: (MonadIO m, IsWidget o) => o -> Double -> m ()
setWidgetOpacity :: o -> Double -> m ()
setWidgetOpacity obj :: o
obj val :: Double
val = 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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj "opacity" Double
val
constructWidgetOpacity :: (IsWidget o) => Double -> IO (GValueConstruct o)
constructWidgetOpacity :: Double -> IO (GValueConstruct o)
constructWidgetOpacity val :: Double
val = String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble "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 :: o -> m Overflow
getWidgetOverflow obj :: o
obj = 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
$ o -> String -> IO Overflow
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "overflow"
setWidgetOverflow :: (MonadIO m, IsWidget o) => o -> Gtk.Enums.Overflow -> m ()
setWidgetOverflow :: o -> Overflow -> m ()
setWidgetOverflow obj :: o
obj val :: Overflow
val = 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 -> Overflow -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "overflow" Overflow
val
constructWidgetOverflow :: (IsWidget o) => Gtk.Enums.Overflow -> IO (GValueConstruct o)
constructWidgetOverflow :: Overflow -> IO (GValueConstruct o)
constructWidgetOverflow val :: Overflow
val = String -> Overflow -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m (Maybe Widget)
getWidgetParent obj :: o
obj = 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
$ 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 "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 :: o -> m Bool
getWidgetReceivesDefault obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "receives-default"
setWidgetReceivesDefault :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetReceivesDefault :: o -> Bool -> m ()
setWidgetReceivesDefault obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "receives-default" Bool
val
constructWidgetReceivesDefault :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetReceivesDefault :: Bool -> IO (GValueConstruct o)
constructWidgetReceivesDefault val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m (Maybe Root)
getWidgetRoot obj :: o
obj = 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
$ 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 "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 :: o -> m Int32
getWidgetScaleFactor obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "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 :: o -> m Bool
getWidgetSensitive obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "sensitive"
setWidgetSensitive :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetSensitive :: o -> Bool -> m ()
setWidgetSensitive obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "sensitive" Bool
val
constructWidgetSensitive :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetSensitive :: Bool -> IO (GValueConstruct o)
constructWidgetSensitive val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
getWidgetSurface :: (MonadIO m, IsWidget o) => o -> m (Maybe Gdk.Surface.Surface)
getWidgetSurface :: o -> m (Maybe Surface)
getWidgetSurface obj :: o
obj = IO (Maybe Surface) -> m (Maybe Surface)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Surface) -> m (Maybe Surface))
-> IO (Maybe Surface) -> m (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr Surface -> Surface) -> IO (Maybe Surface)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "surface" ManagedPtr Surface -> Surface
Gdk.Surface.Surface
#if defined(ENABLE_OVERLOADING)
data WidgetSurfacePropertyInfo
instance AttrInfo WidgetSurfacePropertyInfo where
type AttrAllowedOps WidgetSurfacePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WidgetSurfacePropertyInfo = IsWidget
type AttrSetTypeConstraint WidgetSurfacePropertyInfo = (~) ()
type AttrTransferTypeConstraint WidgetSurfacePropertyInfo = (~) ()
type AttrTransferType WidgetSurfacePropertyInfo = ()
type AttrGetType WidgetSurfacePropertyInfo = (Maybe Gdk.Surface.Surface)
type AttrLabel WidgetSurfacePropertyInfo = "surface"
type AttrOrigin WidgetSurfacePropertyInfo = Widget
attrGet = getWidgetSurface
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWidgetTooltipMarkup :: (MonadIO m, IsWidget o) => o -> m (Maybe T.Text)
getWidgetTooltipMarkup :: o -> m (Maybe Text)
getWidgetTooltipMarkup obj :: o
obj = 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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "tooltip-markup"
setWidgetTooltipMarkup :: (MonadIO m, IsWidget o) => o -> T.Text -> m ()
setWidgetTooltipMarkup :: o -> Text -> m ()
setWidgetTooltipMarkup obj :: o
obj val :: Text
val = 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 "tooltip-markup" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWidgetTooltipMarkup :: (IsWidget o) => T.Text -> IO (GValueConstruct o)
constructWidgetTooltipMarkup :: Text -> IO (GValueConstruct o)
constructWidgetTooltipMarkup val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "tooltip-markup" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearWidgetTooltipMarkup :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetTooltipMarkup :: o -> m ()
clearWidgetTooltipMarkup obj :: 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 "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 :: o -> m (Maybe Text)
getWidgetTooltipText obj :: o
obj = 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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "tooltip-text"
setWidgetTooltipText :: (MonadIO m, IsWidget o) => o -> T.Text -> m ()
setWidgetTooltipText :: o -> Text -> m ()
setWidgetTooltipText obj :: o
obj val :: Text
val = 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 "tooltip-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWidgetTooltipText :: (IsWidget o) => T.Text -> IO (GValueConstruct o)
constructWidgetTooltipText :: Text -> IO (GValueConstruct o)
constructWidgetTooltipText val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "tooltip-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearWidgetTooltipText :: (MonadIO m, IsWidget o) => o -> m ()
clearWidgetTooltipText :: o -> m ()
clearWidgetTooltipText obj :: 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 "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 :: o -> m Align
getWidgetValign obj :: o
obj = 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
$ o -> String -> IO Align
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "valign"
setWidgetValign :: (MonadIO m, IsWidget o) => o -> Gtk.Enums.Align -> m ()
setWidgetValign :: o -> Align -> m ()
setWidgetValign obj :: o
obj val :: Align
val = 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 -> Align -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "valign" Align
val
constructWidgetValign :: (IsWidget o) => Gtk.Enums.Align -> IO (GValueConstruct o)
constructWidgetValign :: Align -> IO (GValueConstruct o)
constructWidgetValign val :: Align
val = String -> Align -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m Bool
getWidgetVexpand obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "vexpand"
setWidgetVexpand :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetVexpand :: o -> Bool -> m ()
setWidgetVexpand obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "vexpand" Bool
val
constructWidgetVexpand :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetVexpand :: Bool -> IO (GValueConstruct o)
constructWidgetVexpand val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWidgetVexpandSet obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "vexpand-set"
setWidgetVexpandSet :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetVexpandSet :: o -> Bool -> m ()
setWidgetVexpandSet obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "vexpand-set" Bool
val
constructWidgetVexpandSet :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetVexpandSet :: Bool -> IO (GValueConstruct o)
constructWidgetVexpandSet val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWidgetVisible obj :: o
obj = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WidgetPopupMenuCallback
forall a. GObject a => a -> String -> WidgetPopupMenuCallback
B.Properties.getObjectPropertyBool o
obj "visible"
setWidgetVisible :: (MonadIO m, IsWidget o) => o -> Bool -> m ()
setWidgetVisible :: o -> Bool -> m ()
setWidgetVisible obj :: o
obj val :: Bool
val = 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 -> WidgetGrabNotifyCallback
forall a. GObject a => a -> String -> WidgetGrabNotifyCallback
B.Properties.setObjectPropertyBool o
obj "visible" Bool
val
constructWidgetVisible :: (IsWidget o) => Bool -> IO (GValueConstruct o)
constructWidgetVisible :: Bool -> IO (GValueConstruct o)
constructWidgetVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Int32
getWidgetWidthRequest obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "width-request"
setWidgetWidthRequest :: (MonadIO m, IsWidget o) => o -> Int32 -> m ()
setWidgetWidthRequest :: o -> Int32 -> m ()
setWidgetWidthRequest obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "width-request" Int32
val
constructWidgetWidthRequest :: (IsWidget o) => Int32 -> IO (GValueConstruct o)
constructWidgetWidthRequest :: Int32 -> IO (GValueConstruct o)
constructWidgetWidthRequest val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 = ('[ '("canFocus", WidgetCanFocusPropertyInfo), '("canTarget", WidgetCanTargetPropertyInfo), '("cssName", WidgetCssNamePropertyInfo), '("cursor", WidgetCursorPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", WidgetFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutManager", WidgetLayoutManagerPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overflow", WidgetOverflowPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("root", WidgetRootPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("surface", WidgetSurfacePropertyInfo), '("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
widgetCssName :: AttrLabelProxy "cssName"
widgetCssName = AttrLabelProxy
widgetCursor :: AttrLabelProxy "cursor"
widgetCursor = AttrLabelProxy
widgetExpand :: AttrLabelProxy "expand"
widgetExpand = AttrLabelProxy
widgetFocusOnClick :: AttrLabelProxy "focusOnClick"
widgetFocusOnClick = 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
widgetMargin :: AttrLabelProxy "margin"
widgetMargin = 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
widgetSurface :: AttrLabelProxy "surface"
widgetSurface = 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 = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("destroy", WidgetDestroySignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("map", WidgetMapSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("show", WidgetShowSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#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 :: a -> m Bool
widgetActivate widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetActivateMethodInfo a signature where
overloadedMethod = widgetActivate
#endif
foreign import ccall "gtk_widget_activate_action" gtk_widget_activate_action ::
Ptr Widget ->
CString ->
Ptr GVariant ->
IO ()
widgetActivateAction ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> GVariant
-> m ()
widgetActivateAction :: a -> Text -> GVariant -> m ()
widgetActivateAction widget :: a
widget name :: Text
name parameter :: GVariant
parameter = 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 GVariant
parameter' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
parameter
Ptr Widget -> CString -> Ptr GVariant -> IO ()
gtk_widget_activate_action Ptr Widget
widget' CString
name' Ptr GVariant
parameter'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
parameter
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 WidgetActivateActionMethodInfo
instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetActivateActionMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetActivateDefault widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetActivateDefaultMethodInfo a signature where
overloadedMethod = widgetActivateDefault
#endif
foreign import ccall "gtk_widget_add_accelerator" gtk_widget_add_accelerator ::
Ptr Widget ->
CString ->
Ptr Gtk.AccelGroup.AccelGroup ->
Word32 ->
CUInt ->
CUInt ->
IO ()
widgetAddAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gtk.AccelGroup.IsAccelGroup b) =>
a
-> T.Text
-> b
-> Word32
-> [Gdk.Flags.ModifierType]
-> [Gtk.Flags.AccelFlags]
-> m ()
widgetAddAccelerator :: a -> Text -> b -> Word32 -> [ModifierType] -> [AccelFlags] -> m ()
widgetAddAccelerator widget :: a
widget accelSignal :: Text
accelSignal accelGroup :: b
accelGroup accelKey :: Word32
accelKey accelMods :: [ModifierType]
accelMods accelFlags :: [AccelFlags]
accelFlags = 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
accelSignal' <- Text -> IO CString
textToCString Text
accelSignal
Ptr AccelGroup
accelGroup' <- b -> IO (Ptr AccelGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
accelGroup
let accelMods' :: CUInt
accelMods' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
accelMods
let accelFlags' :: CUInt
accelFlags' = [AccelFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [AccelFlags]
accelFlags
Ptr Widget
-> CString -> Ptr AccelGroup -> Word32 -> CUInt -> CUInt -> IO ()
gtk_widget_add_accelerator Ptr Widget
widget' CString
accelSignal' Ptr AccelGroup
accelGroup' Word32
accelKey CUInt
accelMods' CUInt
accelFlags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
accelGroup
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
accelSignal'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetAddAcceleratorMethodInfo
instance (signature ~ (T.Text -> b -> Word32 -> [Gdk.Flags.ModifierType] -> [Gtk.Flags.AccelFlags] -> m ()), MonadIO m, IsWidget a, Gtk.AccelGroup.IsAccelGroup b) => O.MethodInfo WidgetAddAcceleratorMethodInfo a signature where
overloadedMethod = widgetAddAccelerator
#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 :: a -> b -> m ()
widgetAddController widget :: a
widget controller :: 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.MethodInfo WidgetAddControllerMethodInfo a signature where
overloadedMethod = widgetAddController
#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 :: a -> b -> m ()
widgetAddMnemonicLabel widget :: a
widget label :: 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.MethodInfo WidgetAddMnemonicLabelMethodInfo a signature where
overloadedMethod = 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 :: a -> TickCallback -> m Word32
widgetAddTickCallback widget :: a
widget callback :: 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 ())
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.MethodInfo WidgetAddTickCallbackMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Int32 -> Int32 -> Maybe Transform -> m ()
widgetAllocate widget :: a
widget width :: Int32
width height :: Int32
height baseline :: Int32
baseline transform :: 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
Nothing -> Ptr Transform -> IO (Ptr Transform)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Transform
forall a. Ptr a
nullPtr
Just jTransform :: Transform
jTransform -> do
Ptr Transform
jTransform' <- Transform -> IO (Ptr Transform)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr 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.MethodInfo WidgetAllocateMethodInfo a signature where
overloadedMethod = widgetAllocate
#endif
foreign import ccall "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel ::
Ptr Widget ->
Word32 ->
IO CInt
widgetCanActivateAccel ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Word32
-> m Bool
widgetCanActivateAccel :: a -> Word32 -> m Bool
widgetCanActivateAccel widget :: a
widget signalId :: Word32
signalId = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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 -> Word32 -> IO CInt
gtk_widget_can_activate_accel Ptr Widget
widget' Word32
signalId
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetCanActivateAccelMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m, IsWidget a) => O.MethodInfo WidgetCanActivateAccelMethodInfo a signature where
overloadedMethod = widgetCanActivateAccel
#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 :: a -> DirectionType -> m Bool
widgetChildFocus widget :: a
widget direction :: DirectionType
direction = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetChildFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m (Bool, Rect)
widgetComputeBounds widget :: a
widget target :: 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. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 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
/= 0) CInt
result
Rect
outBounds' <- ((ManagedPtr Rect -> Rect) -> Ptr Rect -> IO Rect
forall a.
(HasCallStack, BoxedObject 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.MethodInfo WidgetComputeBoundsMethodInfo a signature where
overloadedMethod = 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 :: a -> Orientation -> m Bool
widgetComputeExpand widget :: a
widget orientation :: Orientation
orientation = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetComputeExpandMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Point -> m (Bool, Point)
widgetComputePoint widget :: a
widget target :: b
target point :: 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. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 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
/= 0) CInt
result
Point
outPoint' <- ((ManagedPtr Point -> Point) -> Ptr Point -> IO Point
forall a.
(HasCallStack, BoxedObject 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.MethodInfo WidgetComputePointMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m (Bool, Matrix)
widgetComputeTransform widget :: a
widget target :: 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. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 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
/= 0) CInt
result
Matrix
outTransform' <- ((ManagedPtr Matrix -> Matrix) -> Ptr Matrix -> IO Matrix
forall a.
(HasCallStack, BoxedObject 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.MethodInfo WidgetComputeTransformMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> Double -> m Bool
widgetContains widget :: a
widget x :: Double
x y :: Double
y = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetContainsMethodInfo a signature where
overloadedMethod = 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 :: a -> m Context
widgetCreatePangoContext widget :: 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 "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.MethodInfo WidgetCreatePangoContextMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Text -> m Layout
widgetCreatePangoLayout widget :: a
widget text :: 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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jText :: 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 "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.MethodInfo WidgetCreatePangoLayoutMethodInfo a signature where
overloadedMethod = widgetCreatePangoLayout
#endif
foreign import ccall "gtk_widget_destroy" gtk_widget_destroy ::
Ptr Widget ->
IO ()
widgetDestroy ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDestroy :: a -> m ()
widgetDestroy widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_widget_destroy 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 WidgetDestroyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDestroyMethodInfo a signature where
overloadedMethod = widgetDestroy
#endif
foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed ::
Ptr Widget ->
Ptr (Ptr Widget) ->
IO ()
widgetDestroyed ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> m (Widget)
widgetDestroyed :: a -> b -> m Widget
widgetDestroyed widget :: a
widget widgetPointer :: b
widgetPointer = 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 Widget
widgetPointer' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widgetPointer
Ptr (Ptr Widget)
widgetPointer'' <- IO (Ptr (Ptr Widget))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Widget))
Ptr (Ptr Widget) -> Ptr Widget -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (Ptr Widget)
widgetPointer'' Ptr Widget
widgetPointer'
Ptr Widget -> Ptr (Ptr Widget) -> IO ()
gtk_widget_destroyed Ptr Widget
widget' Ptr (Ptr Widget)
widgetPointer''
Ptr Widget
widgetPointer''' <- Ptr (Ptr Widget) -> IO (Ptr Widget)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr Widget)
widgetPointer''
Widget
widgetPointer'''' <- ((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
widgetPointer'''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widgetPointer
Ptr (Ptr Widget) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr Widget)
widgetPointer''
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
widgetPointer''''
#if defined(ENABLE_OVERLOADING)
data WidgetDestroyedMethodInfo
instance (signature ~ (b -> m (Widget)), MonadIO m, IsWidget a, IsWidget b) => O.MethodInfo WidgetDestroyedMethodInfo a signature where
overloadedMethod = widgetDestroyed
#endif
foreign import ccall "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed ::
Ptr Widget ->
Ptr Gdk.Device.Device ->
IO CInt
widgetDeviceIsShadowed ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Device.IsDevice b) =>
a
-> b
-> m Bool
widgetDeviceIsShadowed :: a -> b -> m Bool
widgetDeviceIsShadowed widget :: a
widget device :: b
device = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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 Device
device' <- b -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
device
CInt
result <- Ptr Widget -> Ptr Device -> IO CInt
gtk_widget_device_is_shadowed Ptr Widget
widget' Ptr Device
device'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
device
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetDeviceIsShadowedMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsWidget a, Gdk.Device.IsDevice b) => O.MethodInfo WidgetDeviceIsShadowedMethodInfo a signature where
overloadedMethod = widgetDeviceIsShadowed
#endif
foreign import ccall "gtk_drag_begin" gtk_drag_begin ::
Ptr Widget ->
Ptr Gdk.Device.Device ->
Ptr Gdk.ContentFormats.ContentFormats ->
CUInt ->
Int32 ->
Int32 ->
IO (Ptr Gdk.Drag.Drag)
widgetDragBegin ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Device.IsDevice b) =>
a
-> Maybe (b)
-> Gdk.ContentFormats.ContentFormats
-> [Gdk.Flags.DragAction]
-> Int32
-> Int32
-> m Gdk.Drag.Drag
widgetDragBegin :: a
-> Maybe b
-> ContentFormats
-> [DragAction]
-> Int32
-> Int32
-> m Drag
widgetDragBegin widget :: a
widget device :: Maybe b
device targets :: ContentFormats
targets actions :: [DragAction]
actions x :: Int32
x y :: Int32
y = IO Drag -> m Drag
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Drag -> m Drag) -> IO Drag -> m Drag
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 Device
maybeDevice <- case Maybe b
device of
Nothing -> Ptr Device -> IO (Ptr Device)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
forall a. Ptr a
nullPtr
Just jDevice :: b
jDevice -> do
Ptr Device
jDevice' <- b -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jDevice
Ptr Device -> IO (Ptr Device)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
jDevice'
Ptr ContentFormats
targets' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
targets
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr Drag
result <- Ptr Widget
-> Ptr Device
-> Ptr ContentFormats
-> CUInt
-> Int32
-> Int32
-> IO (Ptr Drag)
gtk_drag_begin Ptr Widget
widget' Ptr Device
maybeDevice Ptr ContentFormats
targets' CUInt
actions' Int32
x Int32
y
Text -> Ptr Drag -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetDragBegin" Ptr Drag
result
Drag
result' <- ((ManagedPtr Drag -> Drag) -> Ptr Drag -> IO Drag
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Drag -> Drag
Gdk.Drag.Drag) Ptr Drag
result
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
device b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ContentFormats
targets
Drag -> IO Drag
forall (m :: * -> *) a. Monad m => a -> m a
return Drag
result'
#if defined(ENABLE_OVERLOADING)
data WidgetDragBeginMethodInfo
instance (signature ~ (Maybe (b) -> Gdk.ContentFormats.ContentFormats -> [Gdk.Flags.DragAction] -> Int32 -> Int32 -> m Gdk.Drag.Drag), MonadIO m, IsWidget a, Gdk.Device.IsDevice b) => O.MethodInfo WidgetDragBeginMethodInfo a signature where
overloadedMethod = widgetDragBegin
#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 :: a -> Int32 -> Int32 -> Int32 -> Int32 -> m Bool
widgetDragCheckThreshold widget :: a
widget startX :: Int32
startX startY :: Int32
startY currentX :: Int32
currentX currentY :: Int32
currentY = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetDragCheckThresholdMethodInfo a signature where
overloadedMethod = widgetDragCheckThreshold
#endif
foreign import ccall "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets ::
Ptr Widget ->
IO ()
widgetDragDestAddImageTargets ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragDestAddImageTargets :: a -> m ()
widgetDragDestAddImageTargets widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_dest_add_image_targets 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 WidgetDragDestAddImageTargetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestAddImageTargetsMethodInfo a signature where
overloadedMethod = widgetDragDestAddImageTargets
#endif
foreign import ccall "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets ::
Ptr Widget ->
IO ()
widgetDragDestAddTextTargets ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragDestAddTextTargets :: a -> m ()
widgetDragDestAddTextTargets widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_dest_add_text_targets 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 WidgetDragDestAddTextTargetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestAddTextTargetsMethodInfo a signature where
overloadedMethod = widgetDragDestAddTextTargets
#endif
foreign import ccall "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets ::
Ptr Widget ->
IO ()
widgetDragDestAddUriTargets ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragDestAddUriTargets :: a -> m ()
widgetDragDestAddUriTargets widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_dest_add_uri_targets 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 WidgetDragDestAddUriTargetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestAddUriTargetsMethodInfo a signature where
overloadedMethod = widgetDragDestAddUriTargets
#endif
foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target ::
Ptr Widget ->
Ptr Gdk.Drop.Drop ->
Ptr Gdk.ContentFormats.ContentFormats ->
IO CString
widgetDragDestFindTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Drop.IsDrop b) =>
a
-> b
-> Maybe (Gdk.ContentFormats.ContentFormats)
-> m (Maybe T.Text)
widgetDragDestFindTarget :: a -> b -> Maybe ContentFormats -> m (Maybe Text)
widgetDragDestFindTarget widget :: a
widget drop :: b
drop targetList :: Maybe ContentFormats
targetList = 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
Ptr Drop
drop' <- b -> IO (Ptr Drop)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drop
Ptr ContentFormats
maybeTargetList <- case Maybe ContentFormats
targetList of
Nothing -> Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
forall a. Ptr a
nullPtr
Just jTargetList :: ContentFormats
jTargetList -> do
Ptr ContentFormats
jTargetList' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
jTargetList
Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
jTargetList'
CString
result <- Ptr Widget -> Ptr Drop -> Ptr ContentFormats -> IO CString
gtk_drag_dest_find_target Ptr Widget
widget' Ptr Drop
drop' Ptr ContentFormats
maybeTargetList
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
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
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drop
Maybe ContentFormats -> (ContentFormats -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe ContentFormats
targetList ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetDragDestFindTargetMethodInfo
instance (signature ~ (b -> Maybe (Gdk.ContentFormats.ContentFormats) -> m (Maybe T.Text)), MonadIO m, IsWidget a, Gdk.Drop.IsDrop b) => O.MethodInfo WidgetDragDestFindTargetMethodInfo a signature where
overloadedMethod = widgetDragDestFindTarget
#endif
foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list ::
Ptr Widget ->
IO (Ptr Gdk.ContentFormats.ContentFormats)
widgetDragDestGetTargetList ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gdk.ContentFormats.ContentFormats)
widgetDragDestGetTargetList :: a -> m (Maybe ContentFormats)
widgetDragDestGetTargetList widget :: a
widget = IO (Maybe ContentFormats) -> m (Maybe ContentFormats)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ContentFormats) -> m (Maybe ContentFormats))
-> IO (Maybe ContentFormats) -> m (Maybe ContentFormats)
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 ContentFormats
result <- Ptr Widget -> IO (Ptr ContentFormats)
gtk_drag_dest_get_target_list Ptr Widget
widget'
Maybe ContentFormats
maybeResult <- Ptr ContentFormats
-> (Ptr ContentFormats -> IO ContentFormats)
-> IO (Maybe ContentFormats)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ContentFormats
result ((Ptr ContentFormats -> IO ContentFormats)
-> IO (Maybe ContentFormats))
-> (Ptr ContentFormats -> IO ContentFormats)
-> IO (Maybe ContentFormats)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr ContentFormats
result' -> do
ContentFormats
result'' <- ((ManagedPtr ContentFormats -> ContentFormats)
-> Ptr ContentFormats -> IO ContentFormats
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr ContentFormats -> ContentFormats
Gdk.ContentFormats.ContentFormats) Ptr ContentFormats
result'
ContentFormats -> IO ContentFormats
forall (m :: * -> *) a. Monad m => a -> m a
return ContentFormats
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe ContentFormats -> IO (Maybe ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ContentFormats
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetDragDestGetTargetListMethodInfo
instance (signature ~ (m (Maybe Gdk.ContentFormats.ContentFormats)), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestGetTargetListMethodInfo a signature where
overloadedMethod = widgetDragDestGetTargetList
#endif
foreign import ccall "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion ::
Ptr Widget ->
IO CInt
widgetDragDestGetTrackMotion ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetDragDestGetTrackMotion :: a -> m Bool
widgetDragDestGetTrackMotion widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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_drag_dest_get_track_motion Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetDragDestGetTrackMotionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestGetTrackMotionMethodInfo a signature where
overloadedMethod = widgetDragDestGetTrackMotion
#endif
foreign import ccall "gtk_drag_dest_set" gtk_drag_dest_set ::
Ptr Widget ->
CUInt ->
Ptr Gdk.ContentFormats.ContentFormats ->
CUInt ->
IO ()
widgetDragDestSet ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> [Gtk.Flags.DestDefaults]
-> Maybe (Gdk.ContentFormats.ContentFormats)
-> [Gdk.Flags.DragAction]
-> m ()
widgetDragDestSet :: a -> [DestDefaults] -> Maybe ContentFormats -> [DragAction] -> m ()
widgetDragDestSet widget :: a
widget flags :: [DestDefaults]
flags targets :: Maybe ContentFormats
targets actions :: [DragAction]
actions = 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' = [DestDefaults] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DestDefaults]
flags
Ptr ContentFormats
maybeTargets <- case Maybe ContentFormats
targets of
Nothing -> Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
forall a. Ptr a
nullPtr
Just jTargets :: ContentFormats
jTargets -> do
Ptr ContentFormats
jTargets' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
jTargets
Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
jTargets'
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr Widget -> CUInt -> Ptr ContentFormats -> CUInt -> IO ()
gtk_drag_dest_set Ptr Widget
widget' CUInt
flags' Ptr ContentFormats
maybeTargets CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe ContentFormats -> (ContentFormats -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe ContentFormats
targets ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragDestSetMethodInfo
instance (signature ~ ([Gtk.Flags.DestDefaults] -> Maybe (Gdk.ContentFormats.ContentFormats) -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestSetMethodInfo a signature where
overloadedMethod = widgetDragDestSet
#endif
foreign import ccall "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list ::
Ptr Widget ->
Ptr Gdk.ContentFormats.ContentFormats ->
IO ()
widgetDragDestSetTargetList ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (Gdk.ContentFormats.ContentFormats)
-> m ()
widgetDragDestSetTargetList :: a -> Maybe ContentFormats -> m ()
widgetDragDestSetTargetList widget :: a
widget targetList :: Maybe ContentFormats
targetList = 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 ContentFormats
maybeTargetList <- case Maybe ContentFormats
targetList of
Nothing -> Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
forall a. Ptr a
nullPtr
Just jTargetList :: ContentFormats
jTargetList -> do
Ptr ContentFormats
jTargetList' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
jTargetList
Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
jTargetList'
Ptr Widget -> Ptr ContentFormats -> IO ()
gtk_drag_dest_set_target_list Ptr Widget
widget' Ptr ContentFormats
maybeTargetList
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe ContentFormats -> (ContentFormats -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe ContentFormats
targetList ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragDestSetTargetListMethodInfo
instance (signature ~ (Maybe (Gdk.ContentFormats.ContentFormats) -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestSetTargetListMethodInfo a signature where
overloadedMethod = widgetDragDestSetTargetList
#endif
foreign import ccall "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion ::
Ptr Widget ->
CInt ->
IO ()
widgetDragDestSetTrackMotion ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetDragDestSetTrackMotion :: a -> Bool -> m ()
widgetDragDestSetTrackMotion widget :: a
widget trackMotion :: Bool
trackMotion = 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 trackMotion' :: CInt
trackMotion' = (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
trackMotion
Ptr Widget -> CInt -> IO ()
gtk_drag_dest_set_track_motion Ptr Widget
widget' CInt
trackMotion'
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 WidgetDragDestSetTrackMotionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestSetTrackMotionMethodInfo a signature where
overloadedMethod = widgetDragDestSetTrackMotion
#endif
foreign import ccall "gtk_drag_dest_unset" gtk_drag_dest_unset ::
Ptr Widget ->
IO ()
widgetDragDestUnset ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragDestUnset :: a -> m ()
widgetDragDestUnset widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_dest_unset 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 WidgetDragDestUnsetMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragDestUnsetMethodInfo a signature where
overloadedMethod = widgetDragDestUnset
#endif
foreign import ccall "gtk_drag_get_data" gtk_drag_get_data ::
Ptr Widget ->
Ptr Gdk.Drop.Drop ->
CString ->
IO ()
widgetDragGetData ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Drop.IsDrop b) =>
a
-> b
-> T.Text
-> m ()
widgetDragGetData :: a -> b -> Text -> m ()
widgetDragGetData widget :: a
widget drop :: b
drop target :: Text
target = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Drop
drop' <- b -> IO (Ptr Drop)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
drop
CString
target' <- Text -> IO CString
textToCString Text
target
Ptr Widget -> Ptr Drop -> CString -> IO ()
gtk_drag_get_data Ptr Widget
widget' Ptr Drop
drop' CString
target'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
drop
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
target'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragGetDataMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsWidget a, Gdk.Drop.IsDrop b) => O.MethodInfo WidgetDragGetDataMethodInfo a signature where
overloadedMethod = widgetDragGetData
#endif
foreign import ccall "gtk_drag_highlight" gtk_drag_highlight ::
Ptr Widget ->
IO ()
widgetDragHighlight ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragHighlight :: a -> m ()
widgetDragHighlight widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_highlight 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 WidgetDragHighlightMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragHighlightMethodInfo a signature where
overloadedMethod = widgetDragHighlight
#endif
foreign import ccall "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets ::
Ptr Widget ->
IO ()
widgetDragSourceAddImageTargets ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragSourceAddImageTargets :: a -> m ()
widgetDragSourceAddImageTargets widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_source_add_image_targets 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 WidgetDragSourceAddImageTargetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceAddImageTargetsMethodInfo a signature where
overloadedMethod = widgetDragSourceAddImageTargets
#endif
foreign import ccall "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets ::
Ptr Widget ->
IO ()
widgetDragSourceAddTextTargets ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragSourceAddTextTargets :: a -> m ()
widgetDragSourceAddTextTargets widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_source_add_text_targets 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 WidgetDragSourceAddTextTargetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceAddTextTargetsMethodInfo a signature where
overloadedMethod = widgetDragSourceAddTextTargets
#endif
foreign import ccall "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets ::
Ptr Widget ->
IO ()
widgetDragSourceAddUriTargets ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragSourceAddUriTargets :: a -> m ()
widgetDragSourceAddUriTargets widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_source_add_uri_targets 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 WidgetDragSourceAddUriTargetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceAddUriTargetsMethodInfo a signature where
overloadedMethod = widgetDragSourceAddUriTargets
#endif
foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list ::
Ptr Widget ->
IO (Ptr Gdk.ContentFormats.ContentFormats)
widgetDragSourceGetTargetList ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gdk.ContentFormats.ContentFormats)
widgetDragSourceGetTargetList :: a -> m (Maybe ContentFormats)
widgetDragSourceGetTargetList widget :: a
widget = IO (Maybe ContentFormats) -> m (Maybe ContentFormats)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ContentFormats) -> m (Maybe ContentFormats))
-> IO (Maybe ContentFormats) -> m (Maybe ContentFormats)
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 ContentFormats
result <- Ptr Widget -> IO (Ptr ContentFormats)
gtk_drag_source_get_target_list Ptr Widget
widget'
Maybe ContentFormats
maybeResult <- Ptr ContentFormats
-> (Ptr ContentFormats -> IO ContentFormats)
-> IO (Maybe ContentFormats)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ContentFormats
result ((Ptr ContentFormats -> IO ContentFormats)
-> IO (Maybe ContentFormats))
-> (Ptr ContentFormats -> IO ContentFormats)
-> IO (Maybe ContentFormats)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr ContentFormats
result' -> do
ContentFormats
result'' <- ((ManagedPtr ContentFormats -> ContentFormats)
-> Ptr ContentFormats -> IO ContentFormats
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr ContentFormats -> ContentFormats
Gdk.ContentFormats.ContentFormats) Ptr ContentFormats
result'
ContentFormats -> IO ContentFormats
forall (m :: * -> *) a. Monad m => a -> m a
return ContentFormats
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe ContentFormats -> IO (Maybe ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ContentFormats
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetDragSourceGetTargetListMethodInfo
instance (signature ~ (m (Maybe Gdk.ContentFormats.ContentFormats)), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceGetTargetListMethodInfo a signature where
overloadedMethod = widgetDragSourceGetTargetList
#endif
foreign import ccall "gtk_drag_source_set" gtk_drag_source_set ::
Ptr Widget ->
CUInt ->
Ptr Gdk.ContentFormats.ContentFormats ->
CUInt ->
IO ()
widgetDragSourceSet ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> [Gdk.Flags.ModifierType]
-> Maybe (Gdk.ContentFormats.ContentFormats)
-> [Gdk.Flags.DragAction]
-> m ()
widgetDragSourceSet :: a -> [ModifierType] -> Maybe ContentFormats -> [DragAction] -> m ()
widgetDragSourceSet widget :: a
widget startButtonMask :: [ModifierType]
startButtonMask targets :: Maybe ContentFormats
targets actions :: [DragAction]
actions = 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 startButtonMask' :: CUInt
startButtonMask' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
startButtonMask
Ptr ContentFormats
maybeTargets <- case Maybe ContentFormats
targets of
Nothing -> Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
forall a. Ptr a
nullPtr
Just jTargets :: ContentFormats
jTargets -> do
Ptr ContentFormats
jTargets' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
jTargets
Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
jTargets'
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr Widget -> CUInt -> Ptr ContentFormats -> CUInt -> IO ()
gtk_drag_source_set Ptr Widget
widget' CUInt
startButtonMask' Ptr ContentFormats
maybeTargets CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe ContentFormats -> (ContentFormats -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe ContentFormats
targets ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragSourceSetMethodInfo
instance (signature ~ ([Gdk.Flags.ModifierType] -> Maybe (Gdk.ContentFormats.ContentFormats) -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceSetMethodInfo a signature where
overloadedMethod = widgetDragSourceSet
#endif
foreign import ccall "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon ::
Ptr Widget ->
Ptr Gio.Icon.Icon ->
IO ()
widgetDragSourceSetIconGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gio.Icon.IsIcon b) =>
a
-> b
-> m ()
widgetDragSourceSetIconGicon :: a -> b -> m ()
widgetDragSourceSetIconGicon widget :: a
widget icon :: b
icon = 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 Icon
icon' <- b -> IO (Ptr Icon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
icon
Ptr Widget -> Ptr Icon -> IO ()
gtk_drag_source_set_icon_gicon Ptr Widget
widget' Ptr Icon
icon'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
icon
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragSourceSetIconGiconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, Gio.Icon.IsIcon b) => O.MethodInfo WidgetDragSourceSetIconGiconMethodInfo a signature where
overloadedMethod = widgetDragSourceSetIconGicon
#endif
foreign import ccall "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name ::
Ptr Widget ->
CString ->
IO ()
widgetDragSourceSetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> m ()
widgetDragSourceSetIconName :: a -> Text -> m ()
widgetDragSourceSetIconName widget :: a
widget iconName :: Text
iconName = 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
iconName' <- Text -> IO CString
textToCString Text
iconName
Ptr Widget -> CString -> IO ()
gtk_drag_source_set_icon_name Ptr Widget
widget' CString
iconName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconName'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragSourceSetIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceSetIconNameMethodInfo a signature where
overloadedMethod = widgetDragSourceSetIconName
#endif
foreign import ccall "gtk_drag_source_set_icon_paintable" gtk_drag_source_set_icon_paintable ::
Ptr Widget ->
Ptr Gdk.Paintable.Paintable ->
IO ()
widgetDragSourceSetIconPaintable ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Paintable.IsPaintable b) =>
a
-> b
-> m ()
widgetDragSourceSetIconPaintable :: a -> b -> m ()
widgetDragSourceSetIconPaintable widget :: a
widget paintable :: b
paintable = 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 Paintable
paintable' <- b -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
paintable
Ptr Widget -> Ptr Paintable -> IO ()
gtk_drag_source_set_icon_paintable Ptr Widget
widget' Ptr Paintable
paintable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
paintable
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragSourceSetIconPaintableMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, Gdk.Paintable.IsPaintable b) => O.MethodInfo WidgetDragSourceSetIconPaintableMethodInfo a signature where
overloadedMethod = widgetDragSourceSetIconPaintable
#endif
foreign import ccall "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list ::
Ptr Widget ->
Ptr Gdk.ContentFormats.ContentFormats ->
IO ()
widgetDragSourceSetTargetList ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (Gdk.ContentFormats.ContentFormats)
-> m ()
widgetDragSourceSetTargetList :: a -> Maybe ContentFormats -> m ()
widgetDragSourceSetTargetList widget :: a
widget targetList :: Maybe ContentFormats
targetList = 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 ContentFormats
maybeTargetList <- case Maybe ContentFormats
targetList of
Nothing -> Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
forall a. Ptr a
nullPtr
Just jTargetList :: ContentFormats
jTargetList -> do
Ptr ContentFormats
jTargetList' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
jTargetList
Ptr ContentFormats -> IO (Ptr ContentFormats)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ContentFormats
jTargetList'
Ptr Widget -> Ptr ContentFormats -> IO ()
gtk_drag_source_set_target_list Ptr Widget
widget' Ptr ContentFormats
maybeTargetList
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe ContentFormats -> (ContentFormats -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe ContentFormats
targetList ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetDragSourceSetTargetListMethodInfo
instance (signature ~ (Maybe (Gdk.ContentFormats.ContentFormats) -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceSetTargetListMethodInfo a signature where
overloadedMethod = widgetDragSourceSetTargetList
#endif
foreign import ccall "gtk_drag_source_unset" gtk_drag_source_unset ::
Ptr Widget ->
IO ()
widgetDragSourceUnset ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragSourceUnset :: a -> m ()
widgetDragSourceUnset widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_source_unset 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 WidgetDragSourceUnsetMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragSourceUnsetMethodInfo a signature where
overloadedMethod = widgetDragSourceUnset
#endif
foreign import ccall "gtk_drag_unhighlight" gtk_drag_unhighlight ::
Ptr Widget ->
IO ()
widgetDragUnhighlight ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetDragUnhighlight :: a -> m ()
widgetDragUnhighlight widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_drag_unhighlight 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 WidgetDragUnhighlightMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetDragUnhighlightMethodInfo a signature where
overloadedMethod = widgetDragUnhighlight
#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 :: a -> m ()
widgetErrorBell widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetErrorBellMethodInfo a signature where
overloadedMethod = widgetErrorBell
#endif
foreign import ccall "gtk_widget_event" gtk_widget_event ::
Ptr Widget ->
Ptr Gdk.Event.Event ->
IO CInt
widgetEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Event.IsEvent b) =>
a
-> b
-> m Bool
widgetEvent :: a -> b -> m Bool
widgetEvent widget :: a
widget event :: b
event = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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 Event
event' <- b -> IO (Ptr Event)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
event
CInt
result <- Ptr Widget -> Ptr Event -> IO CInt
gtk_widget_event Ptr Widget
widget' Ptr Event
event'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
event
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetEventMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsWidget a, Gdk.Event.IsEvent b) => O.MethodInfo WidgetEventMethodInfo a signature where
overloadedMethod = widgetEvent
#endif
foreign import ccall "gtk_widget_get_accessible" gtk_widget_get_accessible ::
Ptr Widget ->
IO (Ptr Atk.Object.Object)
widgetGetAccessible ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Atk.Object.Object
widgetGetAccessible :: a -> m Object
widgetGetAccessible widget :: a
widget = IO Object -> m Object
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Object
result <- Ptr Widget -> IO (Ptr Object)
gtk_widget_get_accessible Ptr Widget
widget'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetGetAccessible" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Atk.Object.Object) Ptr Object
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetAccessibleMethodInfo
instance (signature ~ (m Atk.Object.Object), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetAccessibleMethodInfo a signature where
overloadedMethod = widgetGetAccessible
#endif
foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group ::
Ptr Widget ->
CString ->
IO (Ptr Gio.ActionGroup.ActionGroup)
widgetGetActionGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> T.Text
-> m (Maybe Gio.ActionGroup.ActionGroup)
widgetGetActionGroup :: a -> Text -> m (Maybe ActionGroup)
widgetGetActionGroup widget :: a
widget prefix :: Text
prefix = IO (Maybe ActionGroup) -> m (Maybe ActionGroup)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ActionGroup) -> m (Maybe ActionGroup))
-> IO (Maybe ActionGroup) -> m (Maybe ActionGroup)
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
prefix' <- Text -> IO CString
textToCString Text
prefix
Ptr ActionGroup
result <- Ptr Widget -> CString -> IO (Ptr ActionGroup)
gtk_widget_get_action_group Ptr Widget
widget' CString
prefix'
Maybe ActionGroup
maybeResult <- Ptr ActionGroup
-> (Ptr ActionGroup -> IO ActionGroup) -> IO (Maybe ActionGroup)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ActionGroup
result ((Ptr ActionGroup -> IO ActionGroup) -> IO (Maybe ActionGroup))
-> (Ptr ActionGroup -> IO ActionGroup) -> IO (Maybe ActionGroup)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr ActionGroup
result' -> do
ActionGroup
result'' <- ((ManagedPtr ActionGroup -> ActionGroup)
-> Ptr ActionGroup -> IO ActionGroup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ActionGroup -> ActionGroup
Gio.ActionGroup.ActionGroup) Ptr ActionGroup
result'
ActionGroup -> IO ActionGroup
forall (m :: * -> *) a. Monad m => a -> m a
return ActionGroup
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prefix'
Maybe ActionGroup -> IO (Maybe ActionGroup)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ActionGroup
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetActionGroupMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gio.ActionGroup.ActionGroup)), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetActionGroupMethodInfo a signature where
overloadedMethod = widgetGetActionGroup
#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 :: a -> m Int32
widgetGetAllocatedBaseline widget :: 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.MethodInfo WidgetGetAllocatedBaselineMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetAllocatedHeight widget :: 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.MethodInfo WidgetGetAllocatedHeightMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetAllocatedWidth widget :: 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.MethodInfo WidgetGetAllocatedWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m Rectangle
widgetGetAllocation widget :: 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. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 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, BoxedObject 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.MethodInfo WidgetGetAllocationMethodInfo a signature where
overloadedMethod = 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 :: a -> GType -> m (Maybe Widget)
widgetGetAncestor widget :: a
widget widgetType :: 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
$ \result' :: 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.MethodInfo WidgetGetAncestorMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetCanFocus widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetCanFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetCanTarget widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetCanTargetMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetChildVisible widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetChildVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> m Clipboard
widgetGetClipboard widget :: 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 "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.MethodInfo WidgetGetClipboardMethodInfo a signature where
overloadedMethod = widgetGetClipboard
#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 :: a -> m (Maybe Cursor)
widgetGetCursor widget :: 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
$ \result' :: 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.MethodInfo WidgetGetCursorMethodInfo a signature where
overloadedMethod = 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 :: a -> m TextDirection
widgetGetDirection widget :: 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.MethodInfo WidgetGetDirectionMethodInfo a signature where
overloadedMethod = 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 :: a -> m Display
widgetGetDisplay widget :: 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 "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.MethodInfo WidgetGetDisplayMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
widgetGetFirstChild widget :: 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
$ \result' :: 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.MethodInfo WidgetGetFirstChildMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
widgetGetFocusChild widget :: 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
$ \result' :: 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.MethodInfo WidgetGetFocusChildMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetFocusOnClick widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetFocusOnClickMethodInfo a signature where
overloadedMethod = widgetGetFocusOnClick
#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 :: a -> m (Maybe FontMap)
widgetGetFontMap widget :: 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
$ \result' :: 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.MethodInfo WidgetGetFontMapMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe FontOptions)
widgetGetFontOptions widget :: 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
$ \result' :: Ptr FontOptions
result' -> do
FontOptions
result'' <- ((ManagedPtr FontOptions -> FontOptions)
-> Ptr FontOptions -> IO FontOptions
forall a.
(HasCallStack, BoxedObject 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.MethodInfo WidgetGetFontOptionsMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe FrameClock)
widgetGetFrameClock widget :: 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
$ \result' :: 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.MethodInfo WidgetGetFrameClockMethodInfo a signature where
overloadedMethod = 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 :: a -> m Align
widgetGetHalign widget :: 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.MethodInfo WidgetGetHalignMethodInfo a signature where
overloadedMethod = widgetGetHalign
#endif
foreign import ccall "gtk_widget_get_has_surface" gtk_widget_get_has_surface ::
Ptr Widget ->
IO CInt
widgetGetHasSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetHasSurface :: a -> m Bool
widgetGetHasSurface widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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_surface Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetHasSurfaceMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetHasSurfaceMethodInfo a signature where
overloadedMethod = widgetGetHasSurface
#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 :: a -> m Bool
widgetGetHasTooltip widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetHasTooltipMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetHeight widget :: 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.MethodInfo WidgetGetHeightMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetHexpand widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetHexpandMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetHexpandSet widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetHexpandSetMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
widgetGetLastChild widget :: 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
$ \result' :: 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.MethodInfo WidgetGetLastChildMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe LayoutManager)
widgetGetLayoutManager widget :: 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
$ \result' :: 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.MethodInfo WidgetGetLayoutManagerMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetMapped widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetMappedMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetMarginBottom widget :: 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.MethodInfo WidgetGetMarginBottomMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetMarginEnd widget :: 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.MethodInfo WidgetGetMarginEndMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetMarginStart widget :: 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.MethodInfo WidgetGetMarginStartMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetMarginTop widget :: 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.MethodInfo WidgetGetMarginTopMethodInfo a signature where
overloadedMethod = widgetGetMarginTop
#endif
foreign import ccall "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask ::
Ptr Widget ->
CUInt ->
IO CUInt
widgetGetModifierMask ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Gdk.Enums.ModifierIntent
-> m [Gdk.Flags.ModifierType]
widgetGetModifierMask :: a -> ModifierIntent -> m [ModifierType]
widgetGetModifierMask widget :: a
widget intent :: ModifierIntent
intent = IO [ModifierType] -> m [ModifierType]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ModifierType] -> m [ModifierType])
-> IO [ModifierType] -> m [ModifierType]
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 intent' :: CUInt
intent' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (ModifierIntent -> Int) -> ModifierIntent -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ModifierIntent -> Int
forall a. Enum a => a -> Int
fromEnum) ModifierIntent
intent
CUInt
result <- Ptr Widget -> CUInt -> IO CUInt
gtk_widget_get_modifier_mask Ptr Widget
widget' CUInt
intent'
let result' :: [ModifierType]
result' = CUInt -> [ModifierType]
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
[ModifierType] -> IO [ModifierType]
forall (m :: * -> *) a. Monad m => a -> m a
return [ModifierType]
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetModifierMaskMethodInfo
instance (signature ~ (Gdk.Enums.ModifierIntent -> m [Gdk.Flags.ModifierType]), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetModifierMaskMethodInfo a signature where
overloadedMethod = widgetGetModifierMask
#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 T.Text
widgetGetName :: a -> m Text
widgetGetName widget :: 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
CString
result <- Ptr Widget -> IO CString
gtk_widget_get_name Ptr Widget
widget'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText 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 WidgetGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetNameMethodInfo a signature where
overloadedMethod = widgetGetName
#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 :: a -> m (Maybe Widget)
widgetGetNextSibling widget :: 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
$ \result' :: 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.MethodInfo WidgetGetNextSiblingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
widgetGetOpacity widget :: 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.MethodInfo WidgetGetOpacityMethodInfo a signature where
overloadedMethod = 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 :: a -> m Overflow
widgetGetOverflow widget :: 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.MethodInfo WidgetGetOverflowMethodInfo a signature where
overloadedMethod = 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 :: a -> m Context
widgetGetPangoContext widget :: 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 "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.MethodInfo WidgetGetPangoContextMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
widgetGetParent widget :: 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
$ \result' :: 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.MethodInfo WidgetGetParentMethodInfo a signature where
overloadedMethod = widgetGetParent
#endif
foreign import ccall "gtk_widget_get_path" gtk_widget_get_path ::
Ptr Widget ->
IO (Ptr Gtk.WidgetPath.WidgetPath)
widgetGetPath ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.WidgetPath.WidgetPath
widgetGetPath :: a -> m WidgetPath
widgetGetPath widget :: a
widget = IO WidgetPath -> m WidgetPath
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WidgetPath -> m WidgetPath) -> IO WidgetPath -> m WidgetPath
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr WidgetPath
result <- Ptr Widget -> IO (Ptr WidgetPath)
gtk_widget_get_path Ptr Widget
widget'
Text -> Ptr WidgetPath -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetGetPath" Ptr WidgetPath
result
WidgetPath
result' <- ((ManagedPtr WidgetPath -> WidgetPath)
-> Ptr WidgetPath -> IO WidgetPath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr WidgetPath -> WidgetPath
Gtk.WidgetPath.WidgetPath) Ptr WidgetPath
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetPath -> IO WidgetPath
forall (m :: * -> *) a. Monad m => a -> m a
return WidgetPath
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetPathMethodInfo
instance (signature ~ (m Gtk.WidgetPath.WidgetPath), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetPathMethodInfo a signature where
overloadedMethod = widgetGetPath
#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 :: a -> m (Requisition, Requisition)
widgetGetPreferredSize widget :: 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. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 8 :: IO (Ptr Gtk.Requisition.Requisition)
Ptr Requisition
naturalSize <- Int -> IO (Ptr Requisition)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 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, BoxedObject 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, BoxedObject 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.MethodInfo WidgetGetPreferredSizeMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
widgetGetPrevSibling widget :: 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
$ \result' :: 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.MethodInfo WidgetGetPrevSiblingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Clipboard
widgetGetPrimaryClipboard widget :: 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 "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.MethodInfo WidgetGetPrimaryClipboardMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetRealized widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetRealizedMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetReceivesDefault widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetReceivesDefaultMethodInfo a signature where
overloadedMethod = 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 :: a -> m SizeRequestMode
widgetGetRequestMode widget :: a
widget = IO SizeRequestMode -> m SizeRequestMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SizeRequestMode -> m SizeRequestMode)
-> IO SizeRequestMode -> m SizeRequestMode
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
CUInt
result <- 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.MethodInfo WidgetGetRequestModeMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Root)
widgetGetRoot widget :: 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
$ \result' :: 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.MethodInfo WidgetGetRootMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetScaleFactor widget :: 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.MethodInfo WidgetGetScaleFactorMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetSensitive widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetSensitiveMethodInfo a signature where
overloadedMethod = 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 :: a -> m Settings
widgetGetSettings widget :: 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 "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.MethodInfo WidgetGetSettingsMethodInfo a signature where
overloadedMethod = widgetGetSettings
#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 :: a -> m (Int32, Int32)
widgetGetSizeRequest widget :: 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.MethodInfo WidgetGetSizeRequestMethodInfo a signature where
overloadedMethod = 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 :: a -> m [StateFlags]
widgetGetStateFlags widget :: 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.MethodInfo WidgetGetStateFlagsMethodInfo a signature where
overloadedMethod = 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 :: a -> m StyleContext
widgetGetStyleContext widget :: 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 "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.MethodInfo WidgetGetStyleContextMethodInfo a signature where
overloadedMethod = widgetGetStyleContext
#endif
foreign import ccall "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice ::
Ptr Widget ->
IO CInt
widgetGetSupportMultidevice ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetGetSupportMultidevice :: a -> m Bool
widgetGetSupportMultidevice widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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_support_multidevice Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetSupportMultideviceMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetSupportMultideviceMethodInfo a signature where
overloadedMethod = widgetGetSupportMultidevice
#endif
foreign import ccall "gtk_widget_get_surface" gtk_widget_get_surface ::
Ptr Widget ->
IO (Ptr Gdk.Surface.Surface)
widgetGetSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m (Maybe Gdk.Surface.Surface)
widgetGetSurface :: a -> m (Maybe Surface)
widgetGetSurface widget :: a
widget = IO (Maybe Surface) -> m (Maybe Surface)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Surface) -> m (Maybe Surface))
-> IO (Maybe Surface) -> m (Maybe Surface)
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 Surface
result <- Ptr Widget -> IO (Ptr Surface)
gtk_widget_get_surface Ptr Widget
widget'
Maybe Surface
maybeResult <- Ptr Surface -> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Surface
result ((Ptr Surface -> IO Surface) -> IO (Maybe Surface))
-> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Surface
result' -> do
Surface
result'' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Surface -> Surface
Gdk.Surface.Surface) Ptr Surface
result'
Surface -> IO Surface
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Surface -> IO (Maybe Surface)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Surface
maybeResult
#if defined(ENABLE_OVERLOADING)
data WidgetGetSurfaceMethodInfo
instance (signature ~ (m (Maybe Gdk.Surface.Surface)), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetSurfaceMethodInfo a signature where
overloadedMethod = widgetGetSurface
#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 :: a -> GType -> Text -> m Object
widgetGetTemplateChild widget :: a
widget widgetType :: GType
widgetType name :: 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 "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.MethodInfo WidgetGetTemplateChildMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
widgetGetTooltipMarkup widget :: 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
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
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.MethodInfo WidgetGetTooltipMarkupMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
widgetGetTooltipText widget :: 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
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
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.MethodInfo WidgetGetTooltipTextMethodInfo a signature where
overloadedMethod = widgetGetTooltipText
#endif
foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window ::
Ptr Widget ->
IO (Ptr Gtk.Window.Window)
widgetGetTooltipWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Gtk.Window.Window
widgetGetTooltipWindow :: a -> m Window
widgetGetTooltipWindow widget :: a
widget = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> IO Window -> m Window
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 Window
result <- Ptr Widget -> IO (Ptr Window)
gtk_widget_get_tooltip_window Ptr Widget
widget'
Text -> Ptr Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetGetTooltipWindow" Ptr Window
result
Window
result' <- ((ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) Ptr Window
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Window -> IO Window
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result'
#if defined(ENABLE_OVERLOADING)
data WidgetGetTooltipWindowMethodInfo
instance (signature ~ (m Gtk.Window.Window), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetTooltipWindowMethodInfo a signature where
overloadedMethod = widgetGetTooltipWindow
#endif
foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetToplevel ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Widget
widgetGetToplevel :: a -> m Widget
widgetGetToplevel widget :: 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 Widget
result <- Ptr Widget -> IO (Ptr Widget)
gtk_widget_get_toplevel Ptr Widget
widget'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetGetToplevel" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Widget) 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 WidgetGetToplevelMethodInfo
instance (signature ~ (m Widget), MonadIO m, IsWidget a) => O.MethodInfo WidgetGetToplevelMethodInfo a signature where
overloadedMethod = widgetGetToplevel
#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 :: a -> m Align
widgetGetValign widget :: 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.MethodInfo WidgetGetValignMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetVexpand widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetVexpandMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetVexpandSet widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetVexpandSetMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetGetVisible widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetGetVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
widgetGetWidth widget :: 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.MethodInfo WidgetGetWidthMethodInfo a signature where
overloadedMethod = widgetGetWidth
#endif
foreign import ccall "gtk_grab_add" gtk_grab_add ::
Ptr Widget ->
IO ()
widgetGrabAdd ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetGrabAdd :: a -> m ()
widgetGrabAdd widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_grab_add 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 WidgetGrabAddMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetGrabAddMethodInfo a signature where
overloadedMethod = widgetGrabAdd
#endif
foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus ::
Ptr Widget ->
IO ()
widgetGrabFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetGrabFocus :: a -> m ()
widgetGrabFocus widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_widget_grab_focus 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 WidgetGrabFocusMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetGrabFocusMethodInfo a signature where
overloadedMethod = widgetGrabFocus
#endif
foreign import ccall "gtk_grab_remove" gtk_grab_remove ::
Ptr Widget ->
IO ()
widgetGrabRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetGrabRemove :: a -> m ()
widgetGrabRemove widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_grab_remove 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 WidgetGrabRemoveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetGrabRemoveMethodInfo a signature where
overloadedMethod = widgetGrabRemove
#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 :: a -> m Bool
widgetHasDefault widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetHasDefaultMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetHasFocus widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetHasFocusMethodInfo a signature where
overloadedMethod = widgetHasFocus
#endif
foreign import ccall "gtk_widget_has_grab" gtk_widget_has_grab ::
Ptr Widget ->
IO CInt
widgetHasGrab ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetHasGrab :: a -> m Bool
widgetHasGrab widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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_grab Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetHasGrabMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.MethodInfo WidgetHasGrabMethodInfo a signature where
overloadedMethod = widgetHasGrab
#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 :: a -> m Bool
widgetHasVisibleFocus widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetHasVisibleFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetHide widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetHideMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetInDestruction widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetInDestructionMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetInitTemplate widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetInitTemplateMethodInfo a signature where
overloadedMethod = widgetInitTemplate
#endif
foreign import ccall "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region ::
Ptr Widget ->
Ptr Cairo.Region.Region ->
IO ()
widgetInputShapeCombineRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Maybe (Cairo.Region.Region)
-> m ()
widgetInputShapeCombineRegion :: a -> Maybe Region -> m ()
widgetInputShapeCombineRegion widget :: a
widget region :: Maybe Region
region = 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 Region
maybeRegion <- case Maybe Region
region of
Nothing -> Ptr Region -> IO (Ptr Region)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Region
forall a. Ptr a
nullPtr
Just jRegion :: Region
jRegion -> do
Ptr Region
jRegion' <- Region -> IO (Ptr Region)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Region
jRegion
Ptr Region -> IO (Ptr Region)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Region
jRegion'
Ptr Widget -> Ptr Region -> IO ()
gtk_widget_input_shape_combine_region Ptr Widget
widget' Ptr Region
maybeRegion
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
Maybe Region -> (Region -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Region
region Region -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetInputShapeCombineRegionMethodInfo
instance (signature ~ (Maybe (Cairo.Region.Region) -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetInputShapeCombineRegionMethodInfo a signature where
overloadedMethod = widgetInputShapeCombineRegion
#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 :: a -> Text -> Maybe b -> m ()
widgetInsertActionGroup widget :: a
widget name :: Text
name group :: 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
Nothing -> Ptr ActionGroup -> IO (Ptr ActionGroup)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ActionGroup
forall a. Ptr a
nullPtr
Just jGroup :: 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.MethodInfo WidgetInsertActionGroupMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Maybe c -> m ()
widgetInsertAfter widget :: a
widget parent :: b
parent previousSibling :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jPreviousSibling :: 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.MethodInfo WidgetInsertAfterMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Maybe c -> m ()
widgetInsertBefore widget :: a
widget parent :: b
parent nextSibling :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jNextSibling :: 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.MethodInfo WidgetInsertBeforeMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m Bool
widgetIsAncestor widget :: a
widget ancestor :: b
ancestor = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetIsAncestorMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetIsDrawable widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetIsDrawableMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetIsFocus widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetIsFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
widgetIsSensitive widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetIsSensitiveMethodInfo a signature where
overloadedMethod = widgetIsSensitive
#endif
foreign import ccall "gtk_widget_is_toplevel" gtk_widget_is_toplevel ::
Ptr Widget ->
IO CInt
widgetIsToplevel ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m Bool
widgetIsToplevel :: a -> m Bool
widgetIsToplevel widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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_toplevel Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetIsToplevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWidget a) => O.MethodInfo WidgetIsToplevelMethodInfo a signature where
overloadedMethod = widgetIsToplevel
#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 :: a -> m Bool
widgetIsVisible widget :: a
widget = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetIsVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> DirectionType -> m Bool
widgetKeynavFailed widget :: a
widget direction :: DirectionType
direction = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetKeynavFailedMethodInfo a signature where
overloadedMethod = widgetKeynavFailed
#endif
foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures ::
Ptr Widget ->
IO (Ptr (GList (Ptr (GClosure ()))))
widgetListAccelClosures ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ([GClosure b])
widgetListAccelClosures :: a -> m [GClosure b]
widgetListAccelClosures widget :: a
widget = IO [GClosure b] -> m [GClosure b]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [GClosure b] -> m [GClosure b])
-> IO [GClosure b] -> m [GClosure b]
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 (GClosure ())))
result <- Ptr Widget -> IO (Ptr (GList (Ptr (GClosure ()))))
gtk_widget_list_accel_closures Ptr Widget
widget'
[Ptr (GClosure ())]
result' <- Ptr (GList (Ptr (GClosure ()))) -> IO [Ptr (GClosure ())]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr (GClosure ())))
result
[GClosure b]
result'' <- (Ptr (GClosure ()) -> IO (GClosure b))
-> [Ptr (GClosure ())] -> IO [GClosure b]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (Ptr (GClosure b) -> IO (GClosure b)
forall a. Ptr (GClosure a) -> IO (GClosure a)
B.GClosure.newGClosureFromPtr (Ptr (GClosure b) -> IO (GClosure b))
-> (Ptr (GClosure ()) -> Ptr (GClosure b))
-> Ptr (GClosure ())
-> IO (GClosure b)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Ptr (GClosure ()) -> Ptr (GClosure b)
forall a b. Ptr a -> Ptr b
FP.castPtr) [Ptr (GClosure ())]
result'
Ptr (GList (Ptr (GClosure ()))) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr (GClosure ())))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
[GClosure b] -> IO [GClosure b]
forall (m :: * -> *) a. Monad m => a -> m a
return [GClosure b]
result''
#if defined(ENABLE_OVERLOADING)
data WidgetListAccelClosuresMethodInfo
instance (signature ~ (m ([GClosure b])), MonadIO m, IsWidget a) => O.MethodInfo WidgetListAccelClosuresMethodInfo a signature where
overloadedMethod = widgetListAccelClosures
#endif
foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes ::
Ptr Widget ->
IO (Ptr CString)
widgetListActionPrefixes ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m [T.Text]
widgetListActionPrefixes :: a -> m [Text]
widgetListActionPrefixes widget :: 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_list_action_prefixes Ptr Widget
widget'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "widgetListActionPrefixes" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray 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 WidgetListActionPrefixesMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsWidget a) => O.MethodInfo WidgetListActionPrefixesMethodInfo a signature where
overloadedMethod = widgetListActionPrefixes
#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 :: a -> m [Widget]
widgetListMnemonicLabels widget :: 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.MethodInfo WidgetListMnemonicLabelsMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetMap widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetMapMethodInfo a signature where
overloadedMethod = 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 :: a -> Orientation -> Int32 -> m (Int32, Int32, Int32, Int32)
widgetMeasure widget :: a
widget orientation :: Orientation
orientation forSize :: Int32
forSize = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr Int32
minimum <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
natural <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
minimumBaseline <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalBaseline <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
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.MethodInfo WidgetMeasureMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m Bool
widgetMnemonicActivate widget :: a
widget groupCycling :: Bool
groupCycling = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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
/= 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.MethodInfo WidgetMnemonicActivateMethodInfo a signature where
overloadedMethod = 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 :: a -> m ListModel
widgetObserveChildren widget :: 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 "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.MethodInfo WidgetObserveChildrenMethodInfo a signature where
overloadedMethod = 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 :: a -> m ListModel
widgetObserveControllers widget :: 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 "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.MethodInfo WidgetObserveControllersMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> Double -> [PickFlags] -> m (Maybe Widget)
widgetPick widget :: a
widget x :: Double
x y :: Double
y flags :: [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
$ \result' :: 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.MethodInfo WidgetPickMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetQueueAllocate widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetQueueAllocateMethodInfo a signature where
overloadedMethod = widgetQueueAllocate
#endif
foreign import ccall "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand ::
Ptr Widget ->
IO ()
widgetQueueComputeExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetQueueComputeExpand :: a -> m ()
widgetQueueComputeExpand widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_widget_queue_compute_expand 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 WidgetQueueComputeExpandMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetQueueComputeExpandMethodInfo a signature where
overloadedMethod = widgetQueueComputeExpand
#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 :: a -> m ()
widgetQueueDraw widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetQueueDrawMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetQueueResize widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetQueueResizeMethodInfo a signature where
overloadedMethod = widgetQueueResize
#endif
foreign import ccall "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw ::
Ptr Widget ->
IO ()
widgetQueueResizeNoRedraw ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetQueueResizeNoRedraw :: a -> m ()
widgetQueueResizeNoRedraw widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_widget_queue_resize_no_redraw 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 WidgetQueueResizeNoRedrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetQueueResizeNoRedrawMethodInfo a signature where
overloadedMethod = widgetQueueResizeNoRedraw
#endif
foreign import ccall "gtk_widget_realize" gtk_widget_realize ::
Ptr Widget ->
IO ()
widgetRealize ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetRealize :: a -> m ()
widgetRealize widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetRealizeMethodInfo a signature where
overloadedMethod = widgetRealize
#endif
foreign import ccall "gtk_widget_register_surface" gtk_widget_register_surface ::
Ptr Widget ->
Ptr Gdk.Surface.Surface ->
IO ()
widgetRegisterSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Surface.IsSurface b) =>
a
-> b
-> m ()
widgetRegisterSurface :: a -> b -> m ()
widgetRegisterSurface widget :: a
widget surface :: b
surface = 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 Surface
surface' <- b -> IO (Ptr Surface)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
surface
Ptr Widget -> Ptr Surface -> IO ()
gtk_widget_register_surface Ptr Widget
widget' Ptr Surface
surface'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
surface
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetRegisterSurfaceMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, Gdk.Surface.IsSurface b) => O.MethodInfo WidgetRegisterSurfaceMethodInfo a signature where
overloadedMethod = widgetRegisterSurface
#endif
foreign import ccall "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator ::
Ptr Widget ->
Ptr Gtk.AccelGroup.AccelGroup ->
Word32 ->
CUInt ->
IO CInt
widgetRemoveAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gtk.AccelGroup.IsAccelGroup b) =>
a
-> b
-> Word32
-> [Gdk.Flags.ModifierType]
-> m Bool
widgetRemoveAccelerator :: a -> b -> Word32 -> [ModifierType] -> m Bool
widgetRemoveAccelerator widget :: a
widget accelGroup :: b
accelGroup accelKey :: Word32
accelKey accelMods :: [ModifierType]
accelMods = WidgetPopupMenuCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WidgetPopupMenuCallback -> m Bool)
-> WidgetPopupMenuCallback -> 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 AccelGroup
accelGroup' <- b -> IO (Ptr AccelGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
accelGroup
let accelMods' :: CUInt
accelMods' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
accelMods
CInt
result <- Ptr Widget -> Ptr AccelGroup -> Word32 -> CUInt -> IO CInt
gtk_widget_remove_accelerator Ptr Widget
widget' Ptr AccelGroup
accelGroup' Word32
accelKey CUInt
accelMods'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
accelGroup
WidgetMnemonicActivateCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WidgetRemoveAcceleratorMethodInfo
instance (signature ~ (b -> Word32 -> [Gdk.Flags.ModifierType] -> m Bool), MonadIO m, IsWidget a, Gtk.AccelGroup.IsAccelGroup b) => O.MethodInfo WidgetRemoveAcceleratorMethodInfo a signature where
overloadedMethod = widgetRemoveAccelerator
#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 :: a -> b -> m ()
widgetRemoveController widget :: a
widget controller :: 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.MethodInfo WidgetRemoveControllerMethodInfo a signature where
overloadedMethod = widgetRemoveController
#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 :: a -> b -> m ()
widgetRemoveMnemonicLabel widget :: a
widget label :: 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.MethodInfo WidgetRemoveMnemonicLabelMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> m ()
widgetRemoveTickCallback widget :: a
widget id :: 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.MethodInfo WidgetRemoveTickCallbackMethodInfo a signature where
overloadedMethod = widgetRemoveTickCallback
#endif
foreign import ccall "gtk_widget_reset_style" gtk_widget_reset_style ::
Ptr Widget ->
IO ()
widgetResetStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetResetStyle :: a -> m ()
widgetResetStyle widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr Widget -> IO ()
gtk_widget_reset_style 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 WidgetResetStyleMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetResetStyleMethodInfo a signature where
overloadedMethod = widgetResetStyle
#endif
foreign import ccall "gtk_widget_set_accel_path" gtk_widget_set_accel_path ::
Ptr Widget ->
CString ->
Ptr Gtk.AccelGroup.AccelGroup ->
IO ()
widgetSetAccelPath ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gtk.AccelGroup.IsAccelGroup b) =>
a
-> Maybe (T.Text)
-> Maybe (b)
-> m ()
widgetSetAccelPath :: a -> Maybe Text -> Maybe b -> m ()
widgetSetAccelPath widget :: a
widget accelPath :: Maybe Text
accelPath accelGroup :: Maybe b
accelGroup = 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
maybeAccelPath <- case Maybe Text
accelPath of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jAccelPath :: Text
jAccelPath -> do
CString
jAccelPath' <- Text -> IO CString
textToCString Text
jAccelPath
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jAccelPath'
Ptr AccelGroup
maybeAccelGroup <- case Maybe b
accelGroup of
Nothing -> Ptr AccelGroup -> IO (Ptr AccelGroup)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AccelGroup
forall a. Ptr a
nullPtr
Just jAccelGroup :: b
jAccelGroup -> do
Ptr AccelGroup
jAccelGroup' <- b -> IO (Ptr AccelGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAccelGroup
Ptr AccelGroup -> IO (Ptr AccelGroup)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AccelGroup
jAccelGroup'
Ptr Widget -> CString -> Ptr AccelGroup -> IO ()
gtk_widget_set_accel_path Ptr Widget
widget' CString
maybeAccelPath Ptr AccelGroup
maybeAccelGroup
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
accelGroup b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeAccelPath
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetAccelPathMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m ()), MonadIO m, IsWidget a, Gtk.AccelGroup.IsAccelGroup b) => O.MethodInfo WidgetSetAccelPathMethodInfo a signature where
overloadedMethod = widgetSetAccelPath
#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 :: a -> Bool -> m ()
widgetSetCanFocus widget :: a
widget canFocus :: 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.MethodInfo WidgetSetCanFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetCanTarget widget :: a
widget canTarget :: 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.MethodInfo WidgetSetCanTargetMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetChildVisible widget :: a
widget childVisible :: 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.MethodInfo WidgetSetChildVisibleMethodInfo a signature where
overloadedMethod = widgetSetChildVisible
#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 :: a -> Maybe b -> m ()
widgetSetCursor widget :: a
widget cursor :: 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
Nothing -> Ptr Cursor -> IO (Ptr Cursor)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cursor
forall a. Ptr a
nullPtr
Just jCursor :: 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.MethodInfo WidgetSetCursorMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Text -> m ()
widgetSetCursorFromName widget :: a
widget name :: 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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jName :: 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.MethodInfo WidgetSetCursorFromNameMethodInfo a signature where
overloadedMethod = 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 :: a -> TextDirection -> m ()
widgetSetDirection widget :: a
widget dir :: 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.MethodInfo WidgetSetDirectionMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
widgetSetFocusChild widget :: a
widget child :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jChild :: 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.MethodInfo WidgetSetFocusChildMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetFocusOnClick widget :: a
widget focusOnClick :: 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.MethodInfo WidgetSetFocusOnClickMethodInfo a signature where
overloadedMethod = widgetSetFocusOnClick
#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 :: a -> Maybe b -> m ()
widgetSetFontMap widget :: a
widget fontMap :: 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
Nothing -> Ptr FontMap -> IO (Ptr FontMap)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontMap
forall a. Ptr a
nullPtr
Just jFontMap :: 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.MethodInfo WidgetSetFontMapMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe FontOptions -> m ()
widgetSetFontOptions widget :: a
widget options :: 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
Nothing -> Ptr FontOptions -> IO (Ptr FontOptions)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontOptions
forall a. Ptr a
nullPtr
Just jOptions :: 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.MethodInfo WidgetSetFontOptionsMethodInfo a signature where
overloadedMethod = 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 :: a -> Align -> m ()
widgetSetHalign widget :: a
widget align :: 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.MethodInfo WidgetSetHalignMethodInfo a signature where
overloadedMethod = widgetSetHalign
#endif
foreign import ccall "gtk_widget_set_has_surface" gtk_widget_set_has_surface ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHasSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetHasSurface :: a -> Bool -> m ()
widgetSetHasSurface widget :: a
widget hasSurface :: Bool
hasSurface = 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 hasSurface' :: CInt
hasSurface' = (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
hasSurface
Ptr Widget -> CInt -> IO ()
gtk_widget_set_has_surface Ptr Widget
widget' CInt
hasSurface'
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 WidgetSetHasSurfaceMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetSetHasSurfaceMethodInfo a signature where
overloadedMethod = widgetSetHasSurface
#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 :: a -> Bool -> m ()
widgetSetHasTooltip widget :: a
widget hasTooltip :: 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.MethodInfo WidgetSetHasTooltipMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetHexpand widget :: a
widget expand :: 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.MethodInfo WidgetSetHexpandMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetHexpandSet widget :: a
widget set :: 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.MethodInfo WidgetSetHexpandSetMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
widgetSetLayoutManager widget :: a
widget layoutManager :: 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
Nothing -> Ptr LayoutManager -> IO (Ptr LayoutManager)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr LayoutManager
forall a. Ptr a
nullPtr
Just jLayoutManager :: 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.MethodInfo WidgetSetLayoutManagerMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
widgetSetMarginBottom widget :: a
widget margin :: 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.MethodInfo WidgetSetMarginBottomMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
widgetSetMarginEnd widget :: a
widget margin :: 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.MethodInfo WidgetSetMarginEndMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
widgetSetMarginStart widget :: a
widget margin :: 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.MethodInfo WidgetSetMarginStartMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
widgetSetMarginTop widget :: a
widget margin :: 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.MethodInfo WidgetSetMarginTopMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
widgetSetName widget :: a
widget name :: 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.MethodInfo WidgetSetNameMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> m ()
widgetSetOpacity widget :: a
widget opacity :: 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.MethodInfo WidgetSetOpacityMethodInfo a signature where
overloadedMethod = 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 :: a -> Overflow -> m ()
widgetSetOverflow widget :: a
widget overflow :: 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.MethodInfo WidgetSetOverflowMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
widgetSetParent widget :: a
widget parent :: 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.MethodInfo WidgetSetParentMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetReceivesDefault widget :: a
widget receivesDefault :: 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.MethodInfo WidgetSetReceivesDefaultMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetSensitive widget :: a
widget sensitive :: 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.MethodInfo WidgetSetSensitiveMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Int32 -> m ()
widgetSetSizeRequest widget :: a
widget width :: Int32
width height :: 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.MethodInfo WidgetSetSizeRequestMethodInfo a signature where
overloadedMethod = 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 :: a -> [StateFlags] -> Bool -> m ()
widgetSetStateFlags widget :: a
widget flags :: [StateFlags]
flags clear :: 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.MethodInfo WidgetSetStateFlagsMethodInfo a signature where
overloadedMethod = widgetSetStateFlags
#endif
foreign import ccall "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice ::
Ptr Widget ->
CInt ->
IO ()
widgetSetSupportMultidevice ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> Bool
-> m ()
widgetSetSupportMultidevice :: a -> Bool -> m ()
widgetSetSupportMultidevice widget :: a
widget supportMultidevice :: Bool
supportMultidevice = 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 supportMultidevice' :: CInt
supportMultidevice' = (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
supportMultidevice
Ptr Widget -> CInt -> IO ()
gtk_widget_set_support_multidevice Ptr Widget
widget' CInt
supportMultidevice'
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 WidgetSetSupportMultideviceMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWidget a) => O.MethodInfo WidgetSetSupportMultideviceMethodInfo a signature where
overloadedMethod = widgetSetSupportMultidevice
#endif
foreign import ccall "gtk_widget_set_surface" gtk_widget_set_surface ::
Ptr Widget ->
Ptr Gdk.Surface.Surface ->
IO ()
widgetSetSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Surface.IsSurface b) =>
a
-> b
-> m ()
widgetSetSurface :: a -> b -> m ()
widgetSetSurface widget :: a
widget surface :: b
surface = 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 Surface
surface' <- b -> IO (Ptr Surface)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject b
surface
Ptr Widget -> Ptr Surface -> IO ()
gtk_widget_set_surface Ptr Widget
widget' Ptr Surface
surface'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
surface
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetSurfaceMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, Gdk.Surface.IsSurface b) => O.MethodInfo WidgetSetSurfaceMethodInfo a signature where
overloadedMethod = widgetSetSurface
#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 :: a -> Maybe Text -> m ()
widgetSetTooltipMarkup widget :: a
widget markup :: 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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jMarkup :: 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.MethodInfo WidgetSetTooltipMarkupMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Text -> m ()
widgetSetTooltipText widget :: a
widget text :: 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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jText :: 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.MethodInfo WidgetSetTooltipTextMethodInfo a signature where
overloadedMethod = widgetSetTooltipText
#endif
foreign import ccall "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window ::
Ptr Widget ->
Ptr Gtk.Window.Window ->
IO ()
widgetSetTooltipWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gtk.Window.IsWindow b) =>
a
-> Maybe (b)
-> m ()
widgetSetTooltipWindow :: a -> Maybe b -> m ()
widgetSetTooltipWindow widget :: a
widget customWindow :: Maybe b
customWindow = 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 Window
maybeCustomWindow <- case Maybe b
customWindow of
Nothing -> Ptr Window -> IO (Ptr Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
forall a. Ptr a
nullPtr
Just jCustomWindow :: b
jCustomWindow -> do
Ptr Window
jCustomWindow' <- b -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCustomWindow
Ptr Window -> IO (Ptr Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
jCustomWindow'
Ptr Widget -> Ptr Window -> IO ()
gtk_widget_set_tooltip_window Ptr Widget
widget' Ptr Window
maybeCustomWindow
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
customWindow b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetSetTooltipWindowMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWidget a, Gtk.Window.IsWindow b) => O.MethodInfo WidgetSetTooltipWindowMethodInfo a signature where
overloadedMethod = widgetSetTooltipWindow
#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 :: a -> Align -> m ()
widgetSetValign widget :: a
widget align :: 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.MethodInfo WidgetSetValignMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetVexpand widget :: a
widget expand :: 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.MethodInfo WidgetSetVexpandMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetVexpandSet widget :: a
widget set :: 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.MethodInfo WidgetSetVexpandSetMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
widgetSetVisible widget :: a
widget visible :: 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.MethodInfo WidgetSetVisibleMethodInfo a signature where
overloadedMethod = widgetSetVisible
#endif
foreign import ccall "gtk_widget_show" gtk_widget_show ::
Ptr Widget ->
IO ()
widgetShow ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a) =>
a
-> m ()
widgetShow :: a -> m ()
widgetShow widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetShowMethodInfo a signature where
overloadedMethod = 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 :: a -> Rectangle -> Int32 -> m ()
widgetSizeAllocate widget :: a
widget allocation :: Rectangle
allocation baseline :: Int32
baseline = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetSizeAllocateMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> c -> m ()
widgetSnapshotChild widget :: a
widget child :: b
child snapshot :: 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.MethodInfo WidgetSnapshotChildMethodInfo a signature where
overloadedMethod = widgetSnapshotChild
#endif
foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates ::
Ptr Widget ->
Ptr Widget ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
widgetTranslateCoordinates ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, IsWidget b) =>
a
-> b
-> Int32
-> Int32
-> m ((Bool, Int32, Int32))
widgetTranslateCoordinates :: a -> b -> Int32 -> Int32 -> m (Bool, Int32, Int32)
widgetTranslateCoordinates srcWidget :: a
srcWidget destWidget :: b
destWidget srcX :: Int32
srcX srcY :: Int32
srcY = IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32))
-> IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
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
Ptr Int32
destX <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
destY <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr Widget
-> Ptr Widget
-> Int32
-> Int32
-> Ptr Int32
-> Ptr Int32
-> IO CInt
gtk_widget_translate_coordinates Ptr Widget
srcWidget' Ptr Widget
destWidget' Int32
srcX Int32
srcY Ptr Int32
destX Ptr Int32
destY
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Int32
destX' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
destX
Int32
destY' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
destY
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
srcWidget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
destWidget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
destX
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
destY
(Bool, Int32, Int32) -> IO (Bool, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
destX', Int32
destY')
#if defined(ENABLE_OVERLOADING)
data WidgetTranslateCoordinatesMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> m ((Bool, Int32, Int32))), MonadIO m, IsWidget a, IsWidget b) => O.MethodInfo WidgetTranslateCoordinatesMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetTriggerTooltipQuery widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetTriggerTooltipQueryMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetUnmap widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetUnmapMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetUnparent widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetUnparentMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
widgetUnrealize widget :: a
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
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.MethodInfo WidgetUnrealizeMethodInfo a signature where
overloadedMethod = widgetUnrealize
#endif
foreign import ccall "gtk_widget_unregister_surface" gtk_widget_unregister_surface ::
Ptr Widget ->
Ptr Gdk.Surface.Surface ->
IO ()
widgetUnregisterSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWidget a, Gdk.Surface.IsSurface b) =>
a
-> b
-> m ()
widgetUnregisterSurface :: a -> b -> m ()
widgetUnregisterSurface widget :: a
widget surface :: b
surface = 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 Surface
surface' <- b -> IO (Ptr Surface)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
surface
Ptr Widget -> Ptr Surface -> IO ()
gtk_widget_unregister_surface Ptr Widget
widget' Ptr Surface
surface'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
surface
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WidgetUnregisterSurfaceMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWidget a, Gdk.Surface.IsSurface b) => O.MethodInfo WidgetUnregisterSurfaceMethodInfo a signature where
overloadedMethod = widgetUnregisterSurface
#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 :: a -> [StateFlags] -> m ()
widgetUnsetStateFlags widget :: a
widget flags :: [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.MethodInfo WidgetUnsetStateFlagsMethodInfo a signature where
overloadedMethod = 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 :: 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 :: TextDirection -> m ()
widgetSetDefaultDirection dir :: 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