module GI.Gtk.Objects.Widget
(
Widget(..) ,
WidgetK ,
toWidget ,
noWidget ,
widgetActivate ,
widgetAddAccelerator ,
widgetAddDeviceEvents ,
widgetAddEvents ,
widgetAddMnemonicLabel ,
widgetAddTickCallback ,
widgetCanActivateAccel ,
widgetChildFocus ,
widgetChildNotify ,
widgetClassPath ,
widgetComputeExpand ,
widgetCreatePangoContext ,
widgetCreatePangoLayout ,
widgetDestroy ,
widgetDestroyed ,
widgetDeviceIsShadowed ,
widgetDragBegin ,
widgetDragBeginWithCoordinates ,
widgetDragCheckThreshold ,
widgetDragDestAddImageTargets ,
widgetDragDestAddTextTargets ,
widgetDragDestAddUriTargets ,
widgetDragDestFindTarget ,
widgetDragDestGetTargetList ,
widgetDragDestGetTrackMotion ,
widgetDragDestSet ,
widgetDragDestSetProxy ,
widgetDragDestSetTargetList ,
widgetDragDestSetTrackMotion ,
widgetDragDestUnset ,
widgetDragGetData ,
widgetDragHighlight ,
widgetDragSourceAddImageTargets ,
widgetDragSourceAddTextTargets ,
widgetDragSourceAddUriTargets ,
widgetDragSourceGetTargetList ,
widgetDragSourceSet ,
widgetDragSourceSetIconGicon ,
widgetDragSourceSetIconName ,
widgetDragSourceSetIconPixbuf ,
widgetDragSourceSetIconStock ,
widgetDragSourceSetTargetList ,
widgetDragSourceUnset ,
widgetDragUnhighlight ,
widgetDraw ,
widgetEnsureStyle ,
widgetErrorBell ,
widgetEvent ,
widgetFreezeChildNotify ,
widgetGetAccessible ,
widgetGetActionGroup ,
widgetGetAllocatedBaseline ,
widgetGetAllocatedHeight ,
widgetGetAllocatedWidth ,
widgetGetAllocation ,
widgetGetAncestor ,
widgetGetAppPaintable ,
widgetGetCanDefault ,
widgetGetCanFocus ,
widgetGetChildRequisition ,
widgetGetChildVisible ,
widgetGetClip ,
widgetGetClipboard ,
widgetGetCompositeName ,
widgetGetDefaultDirection ,
widgetGetDefaultStyle ,
widgetGetDeviceEnabled ,
widgetGetDeviceEvents ,
widgetGetDirection ,
widgetGetDisplay ,
widgetGetDoubleBuffered ,
widgetGetEvents ,
widgetGetFrameClock ,
widgetGetHalign ,
widgetGetHasTooltip ,
widgetGetHasWindow ,
widgetGetHexpand ,
widgetGetHexpandSet ,
widgetGetMapped ,
widgetGetMarginBottom ,
widgetGetMarginEnd ,
widgetGetMarginLeft ,
widgetGetMarginRight ,
widgetGetMarginStart ,
widgetGetMarginTop ,
widgetGetModifierMask ,
widgetGetModifierStyle ,
widgetGetName ,
widgetGetNoShowAll ,
widgetGetOpacity ,
widgetGetPangoContext ,
widgetGetParent ,
widgetGetParentWindow ,
widgetGetPath ,
widgetGetPointer ,
widgetGetPreferredHeight ,
widgetGetPreferredHeightAndBaselineForWidth,
widgetGetPreferredHeightForWidth ,
widgetGetPreferredSize ,
widgetGetPreferredWidth ,
widgetGetPreferredWidthForHeight ,
widgetGetRealized ,
widgetGetReceivesDefault ,
widgetGetRequestMode ,
widgetGetRequisition ,
widgetGetRootWindow ,
widgetGetScaleFactor ,
widgetGetScreen ,
widgetGetSensitive ,
widgetGetSettings ,
widgetGetSizeRequest ,
widgetGetState ,
widgetGetStateFlags ,
widgetGetStyle ,
widgetGetStyleContext ,
widgetGetSupportMultidevice ,
widgetGetTemplateChild ,
widgetGetTooltipMarkup ,
widgetGetTooltipText ,
widgetGetTooltipWindow ,
widgetGetToplevel ,
widgetGetValign ,
widgetGetValignWithBaseline ,
widgetGetVexpand ,
widgetGetVexpandSet ,
widgetGetVisible ,
widgetGetVisual ,
widgetGetWindow ,
widgetGrabAdd ,
widgetGrabDefault ,
widgetGrabFocus ,
widgetGrabRemove ,
widgetHasDefault ,
widgetHasFocus ,
widgetHasGrab ,
widgetHasRcStyle ,
widgetHasScreen ,
widgetHasVisibleFocus ,
widgetHide ,
widgetHideOnDelete ,
widgetInDestruction ,
widgetInitTemplate ,
widgetInputShapeCombineRegion ,
widgetInsertActionGroup ,
widgetIntersect ,
widgetIsAncestor ,
widgetIsComposited ,
widgetIsDrawable ,
widgetIsFocus ,
widgetIsSensitive ,
widgetIsToplevel ,
widgetIsVisible ,
widgetKeynavFailed ,
widgetListAccelClosures ,
widgetListActionPrefixes ,
widgetListMnemonicLabels ,
widgetMap ,
widgetMnemonicActivate ,
widgetModifyBase ,
widgetModifyBg ,
widgetModifyCursor ,
widgetModifyFg ,
widgetModifyFont ,
widgetModifyStyle ,
widgetModifyText ,
widgetOverrideBackgroundColor ,
widgetOverrideColor ,
widgetOverrideCursor ,
widgetOverrideFont ,
widgetOverrideSymbolicColor ,
widgetPath ,
widgetPopCompositeChild ,
widgetPushCompositeChild ,
widgetQueueComputeExpand ,
widgetQueueDraw ,
widgetQueueDrawArea ,
widgetQueueDrawRegion ,
widgetQueueResize ,
widgetQueueResizeNoRedraw ,
widgetRealize ,
widgetRegionIntersect ,
widgetRegisterWindow ,
widgetRemoveAccelerator ,
widgetRemoveMnemonicLabel ,
widgetRemoveTickCallback ,
widgetRenderIcon ,
widgetRenderIconPixbuf ,
widgetReparent ,
widgetResetRcStyles ,
widgetResetStyle ,
widgetSendExpose ,
widgetSendFocusChange ,
widgetSetAccelPath ,
widgetSetAllocation ,
widgetSetAppPaintable ,
widgetSetCanDefault ,
widgetSetCanFocus ,
widgetSetChildVisible ,
widgetSetClip ,
widgetSetCompositeName ,
widgetSetDefaultDirection ,
widgetSetDeviceEnabled ,
widgetSetDeviceEvents ,
widgetSetDirection ,
widgetSetDoubleBuffered ,
widgetSetEvents ,
widgetSetHalign ,
widgetSetHasTooltip ,
widgetSetHasWindow ,
widgetSetHexpand ,
widgetSetHexpandSet ,
widgetSetMapped ,
widgetSetMarginBottom ,
widgetSetMarginEnd ,
widgetSetMarginLeft ,
widgetSetMarginRight ,
widgetSetMarginStart ,
widgetSetMarginTop ,
widgetSetName ,
widgetSetNoShowAll ,
widgetSetOpacity ,
widgetSetParent ,
widgetSetParentWindow ,
widgetSetRealized ,
widgetSetReceivesDefault ,
widgetSetRedrawOnAllocate ,
widgetSetSensitive ,
widgetSetSizeRequest ,
widgetSetState ,
widgetSetStateFlags ,
widgetSetStyle ,
widgetSetSupportMultidevice ,
widgetSetTooltipMarkup ,
widgetSetTooltipText ,
widgetSetTooltipWindow ,
widgetSetValign ,
widgetSetVexpand ,
widgetSetVexpandSet ,
widgetSetVisible ,
widgetSetVisual ,
widgetSetWindow ,
widgetShapeCombineRegion ,
widgetShow ,
widgetShowAll ,
widgetShowNow ,
widgetSizeAllocate ,
widgetSizeAllocateWithBaseline ,
widgetSizeRequest ,
widgetStyleAttach ,
widgetStyleGetProperty ,
widgetThawChildNotify ,
widgetTranslateCoordinates ,
widgetTriggerTooltipQuery ,
widgetUnmap ,
widgetUnparent ,
widgetUnrealize ,
widgetUnregisterWindow ,
widgetUnsetStateFlags ,
WidgetAppPaintablePropertyInfo ,
constructWidgetAppPaintable ,
getWidgetAppPaintable ,
setWidgetAppPaintable ,
WidgetCanDefaultPropertyInfo ,
constructWidgetCanDefault ,
getWidgetCanDefault ,
setWidgetCanDefault ,
WidgetCanFocusPropertyInfo ,
constructWidgetCanFocus ,
getWidgetCanFocus ,
setWidgetCanFocus ,
WidgetCompositeChildPropertyInfo ,
getWidgetCompositeChild ,
WidgetDoubleBufferedPropertyInfo ,
constructWidgetDoubleBuffered ,
getWidgetDoubleBuffered ,
setWidgetDoubleBuffered ,
WidgetEventsPropertyInfo ,
constructWidgetEvents ,
getWidgetEvents ,
setWidgetEvents ,
WidgetExpandPropertyInfo ,
constructWidgetExpand ,
getWidgetExpand ,
setWidgetExpand ,
WidgetHalignPropertyInfo ,
constructWidgetHalign ,
getWidgetHalign ,
setWidgetHalign ,
WidgetHasDefaultPropertyInfo ,
constructWidgetHasDefault ,
getWidgetHasDefault ,
setWidgetHasDefault ,
WidgetHasFocusPropertyInfo ,
constructWidgetHasFocus ,
getWidgetHasFocus ,
setWidgetHasFocus ,
WidgetHasTooltipPropertyInfo ,
constructWidgetHasTooltip ,
getWidgetHasTooltip ,
setWidgetHasTooltip ,
WidgetHeightRequestPropertyInfo ,
constructWidgetHeightRequest ,
getWidgetHeightRequest ,
setWidgetHeightRequest ,
WidgetHexpandPropertyInfo ,
constructWidgetHexpand ,
getWidgetHexpand ,
setWidgetHexpand ,
WidgetHexpandSetPropertyInfo ,
constructWidgetHexpandSet ,
getWidgetHexpandSet ,
setWidgetHexpandSet ,
WidgetIsFocusPropertyInfo ,
constructWidgetIsFocus ,
getWidgetIsFocus ,
setWidgetIsFocus ,
WidgetMarginPropertyInfo ,
constructWidgetMargin ,
getWidgetMargin ,
setWidgetMargin ,
WidgetMarginBottomPropertyInfo ,
constructWidgetMarginBottom ,
getWidgetMarginBottom ,
setWidgetMarginBottom ,
WidgetMarginEndPropertyInfo ,
constructWidgetMarginEnd ,
getWidgetMarginEnd ,
setWidgetMarginEnd ,
WidgetMarginLeftPropertyInfo ,
constructWidgetMarginLeft ,
getWidgetMarginLeft ,
setWidgetMarginLeft ,
WidgetMarginRightPropertyInfo ,
constructWidgetMarginRight ,
getWidgetMarginRight ,
setWidgetMarginRight ,
WidgetMarginStartPropertyInfo ,
constructWidgetMarginStart ,
getWidgetMarginStart ,
setWidgetMarginStart ,
WidgetMarginTopPropertyInfo ,
constructWidgetMarginTop ,
getWidgetMarginTop ,
setWidgetMarginTop ,
WidgetNamePropertyInfo ,
constructWidgetName ,
getWidgetName ,
setWidgetName ,
WidgetNoShowAllPropertyInfo ,
constructWidgetNoShowAll ,
getWidgetNoShowAll ,
setWidgetNoShowAll ,
WidgetOpacityPropertyInfo ,
constructWidgetOpacity ,
getWidgetOpacity ,
setWidgetOpacity ,
WidgetParentPropertyInfo ,
constructWidgetParent ,
getWidgetParent ,
setWidgetParent ,
WidgetReceivesDefaultPropertyInfo ,
constructWidgetReceivesDefault ,
getWidgetReceivesDefault ,
setWidgetReceivesDefault ,
WidgetScaleFactorPropertyInfo ,
getWidgetScaleFactor ,
WidgetSensitivePropertyInfo ,
constructWidgetSensitive ,
getWidgetSensitive ,
setWidgetSensitive ,
WidgetStylePropertyInfo ,
constructWidgetStyle ,
getWidgetStyle ,
setWidgetStyle ,
WidgetTooltipMarkupPropertyInfo ,
constructWidgetTooltipMarkup ,
getWidgetTooltipMarkup ,
setWidgetTooltipMarkup ,
WidgetTooltipTextPropertyInfo ,
constructWidgetTooltipText ,
getWidgetTooltipText ,
setWidgetTooltipText ,
WidgetValignPropertyInfo ,
constructWidgetValign ,
getWidgetValign ,
setWidgetValign ,
WidgetVexpandPropertyInfo ,
constructWidgetVexpand ,
getWidgetVexpand ,
setWidgetVexpand ,
WidgetVexpandSetPropertyInfo ,
constructWidgetVexpandSet ,
getWidgetVexpandSet ,
setWidgetVexpandSet ,
WidgetVisiblePropertyInfo ,
constructWidgetVisible ,
getWidgetVisible ,
setWidgetVisible ,
WidgetWidthRequestPropertyInfo ,
constructWidgetWidthRequest ,
getWidgetWidthRequest ,
setWidgetWidthRequest ,
WidgetWindowPropertyInfo ,
getWidgetWindow ,
WidgetAccelClosuresChangedCallback ,
WidgetAccelClosuresChangedCallbackC ,
WidgetAccelClosuresChangedSignalInfo ,
afterWidgetAccelClosuresChanged ,
mkWidgetAccelClosuresChangedCallback ,
noWidgetAccelClosuresChangedCallback ,
onWidgetAccelClosuresChanged ,
widgetAccelClosuresChangedCallbackWrapper,
widgetAccelClosuresChangedClosure ,
WidgetButtonPressEventCallback ,
WidgetButtonPressEventCallbackC ,
WidgetButtonPressEventSignalInfo ,
afterWidgetButtonPressEvent ,
mkWidgetButtonPressEventCallback ,
noWidgetButtonPressEventCallback ,
onWidgetButtonPressEvent ,
widgetButtonPressEventCallbackWrapper ,
widgetButtonPressEventClosure ,
WidgetButtonReleaseEventCallback ,
WidgetButtonReleaseEventCallbackC ,
WidgetButtonReleaseEventSignalInfo ,
afterWidgetButtonReleaseEvent ,
mkWidgetButtonReleaseEventCallback ,
noWidgetButtonReleaseEventCallback ,
onWidgetButtonReleaseEvent ,
widgetButtonReleaseEventCallbackWrapper ,
widgetButtonReleaseEventClosure ,
WidgetCanActivateAccelCallback ,
WidgetCanActivateAccelCallbackC ,
WidgetCanActivateAccelSignalInfo ,
afterWidgetCanActivateAccel ,
mkWidgetCanActivateAccelCallback ,
noWidgetCanActivateAccelCallback ,
onWidgetCanActivateAccel ,
widgetCanActivateAccelCallbackWrapper ,
widgetCanActivateAccelClosure ,
WidgetChildNotifyCallback ,
WidgetChildNotifyCallbackC ,
WidgetChildNotifySignalInfo ,
afterWidgetChildNotify ,
mkWidgetChildNotifyCallback ,
noWidgetChildNotifyCallback ,
onWidgetChildNotify ,
widgetChildNotifyCallbackWrapper ,
widgetChildNotifyClosure ,
WidgetCompositedChangedCallback ,
WidgetCompositedChangedCallbackC ,
WidgetCompositedChangedSignalInfo ,
afterWidgetCompositedChanged ,
mkWidgetCompositedChangedCallback ,
noWidgetCompositedChangedCallback ,
onWidgetCompositedChanged ,
widgetCompositedChangedCallbackWrapper ,
widgetCompositedChangedClosure ,
WidgetConfigureEventCallback ,
WidgetConfigureEventCallbackC ,
WidgetConfigureEventSignalInfo ,
afterWidgetConfigureEvent ,
mkWidgetConfigureEventCallback ,
noWidgetConfigureEventCallback ,
onWidgetConfigureEvent ,
widgetConfigureEventCallbackWrapper ,
widgetConfigureEventClosure ,
WidgetDamageEventCallback ,
WidgetDamageEventCallbackC ,
WidgetDamageEventSignalInfo ,
afterWidgetDamageEvent ,
mkWidgetDamageEventCallback ,
noWidgetDamageEventCallback ,
onWidgetDamageEvent ,
widgetDamageEventCallbackWrapper ,
widgetDamageEventClosure ,
WidgetDeleteEventCallback ,
WidgetDeleteEventCallbackC ,
WidgetDeleteEventSignalInfo ,
afterWidgetDeleteEvent ,
mkWidgetDeleteEventCallback ,
noWidgetDeleteEventCallback ,
onWidgetDeleteEvent ,
widgetDeleteEventCallbackWrapper ,
widgetDeleteEventClosure ,
WidgetDestroyCallback ,
WidgetDestroyCallbackC ,
WidgetDestroySignalInfo ,
afterWidgetDestroy ,
mkWidgetDestroyCallback ,
noWidgetDestroyCallback ,
onWidgetDestroy ,
widgetDestroyCallbackWrapper ,
widgetDestroyClosure ,
WidgetDestroyEventCallback ,
WidgetDestroyEventCallbackC ,
WidgetDestroyEventSignalInfo ,
afterWidgetDestroyEvent ,
mkWidgetDestroyEventCallback ,
noWidgetDestroyEventCallback ,
onWidgetDestroyEvent ,
widgetDestroyEventCallbackWrapper ,
widgetDestroyEventClosure ,
WidgetDirectionChangedCallback ,
WidgetDirectionChangedCallbackC ,
WidgetDirectionChangedSignalInfo ,
afterWidgetDirectionChanged ,
mkWidgetDirectionChangedCallback ,
noWidgetDirectionChangedCallback ,
onWidgetDirectionChanged ,
widgetDirectionChangedCallbackWrapper ,
widgetDirectionChangedClosure ,
WidgetDragBeginCallback ,
WidgetDragBeginCallbackC ,
WidgetDragBeginSignalInfo ,
afterWidgetDragBegin ,
mkWidgetDragBeginCallback ,
noWidgetDragBeginCallback ,
onWidgetDragBegin ,
widgetDragBeginCallbackWrapper ,
widgetDragBeginClosure ,
WidgetDragDataDeleteCallback ,
WidgetDragDataDeleteCallbackC ,
WidgetDragDataDeleteSignalInfo ,
afterWidgetDragDataDelete ,
mkWidgetDragDataDeleteCallback ,
noWidgetDragDataDeleteCallback ,
onWidgetDragDataDelete ,
widgetDragDataDeleteCallbackWrapper ,
widgetDragDataDeleteClosure ,
WidgetDragDataGetCallback ,
WidgetDragDataGetCallbackC ,
WidgetDragDataGetSignalInfo ,
afterWidgetDragDataGet ,
mkWidgetDragDataGetCallback ,
noWidgetDragDataGetCallback ,
onWidgetDragDataGet ,
widgetDragDataGetCallbackWrapper ,
widgetDragDataGetClosure ,
WidgetDragDataReceivedCallback ,
WidgetDragDataReceivedCallbackC ,
WidgetDragDataReceivedSignalInfo ,
afterWidgetDragDataReceived ,
mkWidgetDragDataReceivedCallback ,
noWidgetDragDataReceivedCallback ,
onWidgetDragDataReceived ,
widgetDragDataReceivedCallbackWrapper ,
widgetDragDataReceivedClosure ,
WidgetDragDropCallback ,
WidgetDragDropCallbackC ,
WidgetDragDropSignalInfo ,
afterWidgetDragDrop ,
mkWidgetDragDropCallback ,
noWidgetDragDropCallback ,
onWidgetDragDrop ,
widgetDragDropCallbackWrapper ,
widgetDragDropClosure ,
WidgetDragEndCallback ,
WidgetDragEndCallbackC ,
WidgetDragEndSignalInfo ,
afterWidgetDragEnd ,
mkWidgetDragEndCallback ,
noWidgetDragEndCallback ,
onWidgetDragEnd ,
widgetDragEndCallbackWrapper ,
widgetDragEndClosure ,
WidgetDragFailedCallback ,
WidgetDragFailedCallbackC ,
WidgetDragFailedSignalInfo ,
afterWidgetDragFailed ,
mkWidgetDragFailedCallback ,
noWidgetDragFailedCallback ,
onWidgetDragFailed ,
widgetDragFailedCallbackWrapper ,
widgetDragFailedClosure ,
WidgetDragLeaveCallback ,
WidgetDragLeaveCallbackC ,
WidgetDragLeaveSignalInfo ,
afterWidgetDragLeave ,
mkWidgetDragLeaveCallback ,
noWidgetDragLeaveCallback ,
onWidgetDragLeave ,
widgetDragLeaveCallbackWrapper ,
widgetDragLeaveClosure ,
WidgetDragMotionCallback ,
WidgetDragMotionCallbackC ,
WidgetDragMotionSignalInfo ,
afterWidgetDragMotion ,
mkWidgetDragMotionCallback ,
noWidgetDragMotionCallback ,
onWidgetDragMotion ,
widgetDragMotionCallbackWrapper ,
widgetDragMotionClosure ,
WidgetDrawCallback ,
WidgetDrawCallbackC ,
WidgetDrawSignalInfo ,
afterWidgetDraw ,
mkWidgetDrawCallback ,
noWidgetDrawCallback ,
onWidgetDraw ,
widgetDrawCallbackWrapper ,
widgetDrawClosure ,
WidgetEnterNotifyEventCallback ,
WidgetEnterNotifyEventCallbackC ,
WidgetEnterNotifyEventSignalInfo ,
afterWidgetEnterNotifyEvent ,
mkWidgetEnterNotifyEventCallback ,
noWidgetEnterNotifyEventCallback ,
onWidgetEnterNotifyEvent ,
widgetEnterNotifyEventCallbackWrapper ,
widgetEnterNotifyEventClosure ,
WidgetEventCallback ,
WidgetEventCallbackC ,
WidgetEventSignalInfo ,
afterWidgetEvent ,
mkWidgetEventCallback ,
noWidgetEventCallback ,
onWidgetEvent ,
widgetEventCallbackWrapper ,
widgetEventClosure ,
WidgetEventAfterCallback ,
WidgetEventAfterCallbackC ,
WidgetEventAfterSignalInfo ,
afterWidgetEventAfter ,
mkWidgetEventAfterCallback ,
noWidgetEventAfterCallback ,
onWidgetEventAfter ,
widgetEventAfterCallbackWrapper ,
widgetEventAfterClosure ,
WidgetFocusCallback ,
WidgetFocusCallbackC ,
WidgetFocusSignalInfo ,
afterWidgetFocus ,
mkWidgetFocusCallback ,
noWidgetFocusCallback ,
onWidgetFocus ,
widgetFocusCallbackWrapper ,
widgetFocusClosure ,
WidgetFocusInEventCallback ,
WidgetFocusInEventCallbackC ,
WidgetFocusInEventSignalInfo ,
afterWidgetFocusInEvent ,
mkWidgetFocusInEventCallback ,
noWidgetFocusInEventCallback ,
onWidgetFocusInEvent ,
widgetFocusInEventCallbackWrapper ,
widgetFocusInEventClosure ,
WidgetFocusOutEventCallback ,
WidgetFocusOutEventCallbackC ,
WidgetFocusOutEventSignalInfo ,
afterWidgetFocusOutEvent ,
mkWidgetFocusOutEventCallback ,
noWidgetFocusOutEventCallback ,
onWidgetFocusOutEvent ,
widgetFocusOutEventCallbackWrapper ,
widgetFocusOutEventClosure ,
WidgetGrabBrokenEventCallback ,
WidgetGrabBrokenEventCallbackC ,
WidgetGrabBrokenEventSignalInfo ,
afterWidgetGrabBrokenEvent ,
mkWidgetGrabBrokenEventCallback ,
noWidgetGrabBrokenEventCallback ,
onWidgetGrabBrokenEvent ,
widgetGrabBrokenEventCallbackWrapper ,
widgetGrabBrokenEventClosure ,
WidgetGrabFocusCallback ,
WidgetGrabFocusCallbackC ,
WidgetGrabFocusSignalInfo ,
afterWidgetGrabFocus ,
mkWidgetGrabFocusCallback ,
noWidgetGrabFocusCallback ,
onWidgetGrabFocus ,
widgetGrabFocusCallbackWrapper ,
widgetGrabFocusClosure ,
WidgetGrabNotifyCallback ,
WidgetGrabNotifyCallbackC ,
WidgetGrabNotifySignalInfo ,
afterWidgetGrabNotify ,
mkWidgetGrabNotifyCallback ,
noWidgetGrabNotifyCallback ,
onWidgetGrabNotify ,
widgetGrabNotifyCallbackWrapper ,
widgetGrabNotifyClosure ,
WidgetHideCallback ,
WidgetHideCallbackC ,
WidgetHideSignalInfo ,
afterWidgetHide ,
mkWidgetHideCallback ,
noWidgetHideCallback ,
onWidgetHide ,
widgetHideCallbackWrapper ,
widgetHideClosure ,
WidgetHierarchyChangedCallback ,
WidgetHierarchyChangedCallbackC ,
WidgetHierarchyChangedSignalInfo ,
afterWidgetHierarchyChanged ,
mkWidgetHierarchyChangedCallback ,
noWidgetHierarchyChangedCallback ,
onWidgetHierarchyChanged ,
widgetHierarchyChangedCallbackWrapper ,
widgetHierarchyChangedClosure ,
WidgetKeyPressEventCallback ,
WidgetKeyPressEventCallbackC ,
WidgetKeyPressEventSignalInfo ,
afterWidgetKeyPressEvent ,
mkWidgetKeyPressEventCallback ,
noWidgetKeyPressEventCallback ,
onWidgetKeyPressEvent ,
widgetKeyPressEventCallbackWrapper ,
widgetKeyPressEventClosure ,
WidgetKeyReleaseEventCallback ,
WidgetKeyReleaseEventCallbackC ,
WidgetKeyReleaseEventSignalInfo ,
afterWidgetKeyReleaseEvent ,
mkWidgetKeyReleaseEventCallback ,
noWidgetKeyReleaseEventCallback ,
onWidgetKeyReleaseEvent ,
widgetKeyReleaseEventCallbackWrapper ,
widgetKeyReleaseEventClosure ,
WidgetKeynavFailedCallback ,
WidgetKeynavFailedCallbackC ,
WidgetKeynavFailedSignalInfo ,
afterWidgetKeynavFailed ,
mkWidgetKeynavFailedCallback ,
noWidgetKeynavFailedCallback ,
onWidgetKeynavFailed ,
widgetKeynavFailedCallbackWrapper ,
widgetKeynavFailedClosure ,
WidgetLeaveNotifyEventCallback ,
WidgetLeaveNotifyEventCallbackC ,
WidgetLeaveNotifyEventSignalInfo ,
afterWidgetLeaveNotifyEvent ,
mkWidgetLeaveNotifyEventCallback ,
noWidgetLeaveNotifyEventCallback ,
onWidgetLeaveNotifyEvent ,
widgetLeaveNotifyEventCallbackWrapper ,
widgetLeaveNotifyEventClosure ,
WidgetMapCallback ,
WidgetMapCallbackC ,
WidgetMapSignalInfo ,
afterWidgetMap ,
mkWidgetMapCallback ,
noWidgetMapCallback ,
onWidgetMap ,
widgetMapCallbackWrapper ,
widgetMapClosure ,
WidgetMapEventCallback ,
WidgetMapEventCallbackC ,
WidgetMapEventSignalInfo ,
afterWidgetMapEvent ,
mkWidgetMapEventCallback ,
noWidgetMapEventCallback ,
onWidgetMapEvent ,
widgetMapEventCallbackWrapper ,
widgetMapEventClosure ,
WidgetMnemonicActivateCallback ,
WidgetMnemonicActivateCallbackC ,
WidgetMnemonicActivateSignalInfo ,
afterWidgetMnemonicActivate ,
mkWidgetMnemonicActivateCallback ,
noWidgetMnemonicActivateCallback ,
onWidgetMnemonicActivate ,
widgetMnemonicActivateCallbackWrapper ,
widgetMnemonicActivateClosure ,
WidgetMotionNotifyEventCallback ,
WidgetMotionNotifyEventCallbackC ,
WidgetMotionNotifyEventSignalInfo ,
afterWidgetMotionNotifyEvent ,
mkWidgetMotionNotifyEventCallback ,
noWidgetMotionNotifyEventCallback ,
onWidgetMotionNotifyEvent ,
widgetMotionNotifyEventCallbackWrapper ,
widgetMotionNotifyEventClosure ,
WidgetMoveFocusCallback ,
WidgetMoveFocusCallbackC ,
WidgetMoveFocusSignalInfo ,
afterWidgetMoveFocus ,
mkWidgetMoveFocusCallback ,
noWidgetMoveFocusCallback ,
onWidgetMoveFocus ,
widgetMoveFocusCallbackWrapper ,
widgetMoveFocusClosure ,
WidgetParentSetCallback ,
WidgetParentSetCallbackC ,
WidgetParentSetSignalInfo ,
afterWidgetParentSet ,
mkWidgetParentSetCallback ,
noWidgetParentSetCallback ,
onWidgetParentSet ,
widgetParentSetCallbackWrapper ,
widgetParentSetClosure ,
WidgetPopupMenuCallback ,
WidgetPopupMenuCallbackC ,
WidgetPopupMenuSignalInfo ,
afterWidgetPopupMenu ,
mkWidgetPopupMenuCallback ,
noWidgetPopupMenuCallback ,
onWidgetPopupMenu ,
widgetPopupMenuCallbackWrapper ,
widgetPopupMenuClosure ,
WidgetPropertyNotifyEventCallback ,
WidgetPropertyNotifyEventCallbackC ,
WidgetPropertyNotifyEventSignalInfo ,
afterWidgetPropertyNotifyEvent ,
mkWidgetPropertyNotifyEventCallback ,
noWidgetPropertyNotifyEventCallback ,
onWidgetPropertyNotifyEvent ,
widgetPropertyNotifyEventCallbackWrapper,
widgetPropertyNotifyEventClosure ,
WidgetProximityInEventCallback ,
WidgetProximityInEventCallbackC ,
WidgetProximityInEventSignalInfo ,
afterWidgetProximityInEvent ,
mkWidgetProximityInEventCallback ,
noWidgetProximityInEventCallback ,
onWidgetProximityInEvent ,
widgetProximityInEventCallbackWrapper ,
widgetProximityInEventClosure ,
WidgetProximityOutEventCallback ,
WidgetProximityOutEventCallbackC ,
WidgetProximityOutEventSignalInfo ,
afterWidgetProximityOutEvent ,
mkWidgetProximityOutEventCallback ,
noWidgetProximityOutEventCallback ,
onWidgetProximityOutEvent ,
widgetProximityOutEventCallbackWrapper ,
widgetProximityOutEventClosure ,
WidgetQueryTooltipCallback ,
WidgetQueryTooltipCallbackC ,
WidgetQueryTooltipSignalInfo ,
afterWidgetQueryTooltip ,
mkWidgetQueryTooltipCallback ,
noWidgetQueryTooltipCallback ,
onWidgetQueryTooltip ,
widgetQueryTooltipCallbackWrapper ,
widgetQueryTooltipClosure ,
WidgetRealizeCallback ,
WidgetRealizeCallbackC ,
WidgetRealizeSignalInfo ,
afterWidgetRealize ,
mkWidgetRealizeCallback ,
noWidgetRealizeCallback ,
onWidgetRealize ,
widgetRealizeCallbackWrapper ,
widgetRealizeClosure ,
WidgetScreenChangedCallback ,
WidgetScreenChangedCallbackC ,
WidgetScreenChangedSignalInfo ,
afterWidgetScreenChanged ,
mkWidgetScreenChangedCallback ,
noWidgetScreenChangedCallback ,
onWidgetScreenChanged ,
widgetScreenChangedCallbackWrapper ,
widgetScreenChangedClosure ,
WidgetScrollEventCallback ,
WidgetScrollEventCallbackC ,
WidgetScrollEventSignalInfo ,
afterWidgetScrollEvent ,
mkWidgetScrollEventCallback ,
noWidgetScrollEventCallback ,
onWidgetScrollEvent ,
widgetScrollEventCallbackWrapper ,
widgetScrollEventClosure ,
WidgetSelectionClearEventCallback ,
WidgetSelectionClearEventCallbackC ,
WidgetSelectionClearEventSignalInfo ,
afterWidgetSelectionClearEvent ,
mkWidgetSelectionClearEventCallback ,
noWidgetSelectionClearEventCallback ,
onWidgetSelectionClearEvent ,
widgetSelectionClearEventCallbackWrapper,
widgetSelectionClearEventClosure ,
WidgetSelectionGetCallback ,
WidgetSelectionGetCallbackC ,
WidgetSelectionGetSignalInfo ,
afterWidgetSelectionGet ,
mkWidgetSelectionGetCallback ,
noWidgetSelectionGetCallback ,
onWidgetSelectionGet ,
widgetSelectionGetCallbackWrapper ,
widgetSelectionGetClosure ,
WidgetSelectionNotifyEventCallback ,
WidgetSelectionNotifyEventCallbackC ,
WidgetSelectionNotifyEventSignalInfo ,
afterWidgetSelectionNotifyEvent ,
mkWidgetSelectionNotifyEventCallback ,
noWidgetSelectionNotifyEventCallback ,
onWidgetSelectionNotifyEvent ,
widgetSelectionNotifyEventCallbackWrapper,
widgetSelectionNotifyEventClosure ,
WidgetSelectionReceivedCallback ,
WidgetSelectionReceivedCallbackC ,
WidgetSelectionReceivedSignalInfo ,
afterWidgetSelectionReceived ,
mkWidgetSelectionReceivedCallback ,
noWidgetSelectionReceivedCallback ,
onWidgetSelectionReceived ,
widgetSelectionReceivedCallbackWrapper ,
widgetSelectionReceivedClosure ,
WidgetSelectionRequestEventCallback ,
WidgetSelectionRequestEventCallbackC ,
WidgetSelectionRequestEventSignalInfo ,
afterWidgetSelectionRequestEvent ,
mkWidgetSelectionRequestEventCallback ,
noWidgetSelectionRequestEventCallback ,
onWidgetSelectionRequestEvent ,
widgetSelectionRequestEventCallbackWrapper,
widgetSelectionRequestEventClosure ,
WidgetShowCallback ,
WidgetShowCallbackC ,
WidgetShowSignalInfo ,
afterWidgetShow ,
mkWidgetShowCallback ,
noWidgetShowCallback ,
onWidgetShow ,
widgetShowCallbackWrapper ,
widgetShowClosure ,
WidgetShowHelpCallback ,
WidgetShowHelpCallbackC ,
WidgetShowHelpSignalInfo ,
afterWidgetShowHelp ,
mkWidgetShowHelpCallback ,
noWidgetShowHelpCallback ,
onWidgetShowHelp ,
widgetShowHelpCallbackWrapper ,
widgetShowHelpClosure ,
WidgetSizeAllocateCallback ,
WidgetSizeAllocateCallbackC ,
WidgetSizeAllocateSignalInfo ,
afterWidgetSizeAllocate ,
mkWidgetSizeAllocateCallback ,
noWidgetSizeAllocateCallback ,
onWidgetSizeAllocate ,
widgetSizeAllocateCallbackWrapper ,
widgetSizeAllocateClosure ,
WidgetStateChangedCallback ,
WidgetStateChangedCallbackC ,
WidgetStateChangedSignalInfo ,
afterWidgetStateChanged ,
mkWidgetStateChangedCallback ,
noWidgetStateChangedCallback ,
onWidgetStateChanged ,
widgetStateChangedCallbackWrapper ,
widgetStateChangedClosure ,
WidgetStateFlagsChangedCallback ,
WidgetStateFlagsChangedCallbackC ,
WidgetStateFlagsChangedSignalInfo ,
afterWidgetStateFlagsChanged ,
mkWidgetStateFlagsChangedCallback ,
noWidgetStateFlagsChangedCallback ,
onWidgetStateFlagsChanged ,
widgetStateFlagsChangedCallbackWrapper ,
widgetStateFlagsChangedClosure ,
WidgetStyleSetCallback ,
WidgetStyleSetCallbackC ,
WidgetStyleSetSignalInfo ,
afterWidgetStyleSet ,
mkWidgetStyleSetCallback ,
noWidgetStyleSetCallback ,
onWidgetStyleSet ,
widgetStyleSetCallbackWrapper ,
widgetStyleSetClosure ,
WidgetStyleUpdatedCallback ,
WidgetStyleUpdatedCallbackC ,
WidgetStyleUpdatedSignalInfo ,
afterWidgetStyleUpdated ,
mkWidgetStyleUpdatedCallback ,
noWidgetStyleUpdatedCallback ,
onWidgetStyleUpdated ,
widgetStyleUpdatedCallbackWrapper ,
widgetStyleUpdatedClosure ,
WidgetTouchEventCallback ,
WidgetTouchEventCallbackC ,
WidgetTouchEventSignalInfo ,
afterWidgetTouchEvent ,
mkWidgetTouchEventCallback ,
noWidgetTouchEventCallback ,
onWidgetTouchEvent ,
widgetTouchEventCallbackWrapper ,
widgetTouchEventClosure ,
WidgetUnmapCallback ,
WidgetUnmapCallbackC ,
WidgetUnmapSignalInfo ,
afterWidgetUnmap ,
mkWidgetUnmapCallback ,
noWidgetUnmapCallback ,
onWidgetUnmap ,
widgetUnmapCallbackWrapper ,
widgetUnmapClosure ,
WidgetUnmapEventCallback ,
WidgetUnmapEventCallbackC ,
WidgetUnmapEventSignalInfo ,
afterWidgetUnmapEvent ,
mkWidgetUnmapEventCallback ,
noWidgetUnmapEventCallback ,
onWidgetUnmapEvent ,
widgetUnmapEventCallbackWrapper ,
widgetUnmapEventClosure ,
WidgetUnrealizeCallback ,
WidgetUnrealizeCallbackC ,
WidgetUnrealizeSignalInfo ,
afterWidgetUnrealize ,
mkWidgetUnrealizeCallback ,
noWidgetUnrealizeCallback ,
onWidgetUnrealize ,
widgetUnrealizeCallbackWrapper ,
widgetUnrealizeClosure ,
WidgetVisibilityNotifyEventCallback ,
WidgetVisibilityNotifyEventCallbackC ,
WidgetVisibilityNotifyEventSignalInfo ,
afterWidgetVisibilityNotifyEvent ,
mkWidgetVisibilityNotifyEventCallback ,
noWidgetVisibilityNotifyEventCallback ,
onWidgetVisibilityNotifyEvent ,
widgetVisibilityNotifyEventCallbackWrapper,
widgetVisibilityNotifyEventClosure ,
WidgetWindowStateEventCallback ,
WidgetWindowStateEventCallbackC ,
WidgetWindowStateEventSignalInfo ,
afterWidgetWindowStateEvent ,
mkWidgetWindowStateEventCallback ,
noWidgetWindowStateEventCallback ,
onWidgetWindowStateEvent ,
widgetWindowStateEventCallbackWrapper ,
widgetWindowStateEventClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
import qualified GI.GdkPixbuf as GdkPixbuf
import qualified GI.Gio as Gio
import qualified GI.Pango as Pango
import qualified GI.Cairo as Cairo
newtype Widget = Widget (ForeignPtr Widget)
foreign import ccall "gtk_widget_get_type"
c_gtk_widget_get_type :: IO GType
type instance ParentTypes Widget = WidgetParentTypes
type WidgetParentTypes = '[GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Widget where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_widget_get_type
class GObject o => WidgetK o
instance (GObject o, IsDescendantOf Widget o) => WidgetK o
toWidget :: WidgetK o => o -> IO Widget
toWidget = unsafeCastTo Widget
noWidget :: Maybe Widget
noWidget = Nothing
type WidgetAccelClosuresChangedCallback =
IO ()
noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback
noWidgetAccelClosuresChangedCallback = Nothing
type WidgetAccelClosuresChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetAccelClosuresChangedCallback :: WidgetAccelClosuresChangedCallbackC -> IO (FunPtr WidgetAccelClosuresChangedCallbackC)
widgetAccelClosuresChangedClosure :: WidgetAccelClosuresChangedCallback -> IO Closure
widgetAccelClosuresChangedClosure cb = newCClosure =<< mkWidgetAccelClosuresChangedCallback wrapped
where wrapped = widgetAccelClosuresChangedCallbackWrapper cb
widgetAccelClosuresChangedCallbackWrapper ::
WidgetAccelClosuresChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetAccelClosuresChangedCallbackWrapper _cb _ _ = do
_cb
onWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId
onWidgetAccelClosuresChanged obj cb = liftIO $ connectWidgetAccelClosuresChanged obj cb SignalConnectBefore
afterWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId
afterWidgetAccelClosuresChanged obj cb = connectWidgetAccelClosuresChanged obj cb SignalConnectAfter
connectWidgetAccelClosuresChanged :: (GObject a, MonadIO m) =>
a -> WidgetAccelClosuresChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetAccelClosuresChanged obj cb after = liftIO $ do
cb' <- mkWidgetAccelClosuresChangedCallback (widgetAccelClosuresChangedCallbackWrapper cb)
connectSignalFunPtr obj "accel-closures-changed" cb' after
type WidgetButtonPressEventCallback =
Gdk.EventButton ->
IO Bool
noWidgetButtonPressEventCallback :: Maybe WidgetButtonPressEventCallback
noWidgetButtonPressEventCallback = Nothing
type WidgetButtonPressEventCallbackC =
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetButtonPressEventCallback :: WidgetButtonPressEventCallbackC -> IO (FunPtr WidgetButtonPressEventCallbackC)
widgetButtonPressEventClosure :: WidgetButtonPressEventCallback -> IO Closure
widgetButtonPressEventClosure cb = newCClosure =<< mkWidgetButtonPressEventCallback wrapped
where wrapped = widgetButtonPressEventCallbackWrapper cb
widgetButtonPressEventCallbackWrapper ::
WidgetButtonPressEventCallback ->
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
widgetButtonPressEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId
onWidgetButtonPressEvent obj cb = liftIO $ connectWidgetButtonPressEvent obj cb SignalConnectBefore
afterWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId
afterWidgetButtonPressEvent obj cb = connectWidgetButtonPressEvent obj cb SignalConnectAfter
connectWidgetButtonPressEvent :: (GObject a, MonadIO m) =>
a -> WidgetButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetButtonPressEvent obj cb after = liftIO $ do
cb' <- mkWidgetButtonPressEventCallback (widgetButtonPressEventCallbackWrapper cb)
connectSignalFunPtr obj "button-press-event" cb' after
type WidgetButtonReleaseEventCallback =
Gdk.EventButton ->
IO Bool
noWidgetButtonReleaseEventCallback :: Maybe WidgetButtonReleaseEventCallback
noWidgetButtonReleaseEventCallback = Nothing
type WidgetButtonReleaseEventCallbackC =
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetButtonReleaseEventCallback :: WidgetButtonReleaseEventCallbackC -> IO (FunPtr WidgetButtonReleaseEventCallbackC)
widgetButtonReleaseEventClosure :: WidgetButtonReleaseEventCallback -> IO Closure
widgetButtonReleaseEventClosure cb = newCClosure =<< mkWidgetButtonReleaseEventCallback wrapped
where wrapped = widgetButtonReleaseEventCallbackWrapper cb
widgetButtonReleaseEventCallbackWrapper ::
WidgetButtonReleaseEventCallback ->
Ptr () ->
Ptr Gdk.EventButton ->
Ptr () ->
IO CInt
widgetButtonReleaseEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId
onWidgetButtonReleaseEvent obj cb = liftIO $ connectWidgetButtonReleaseEvent obj cb SignalConnectBefore
afterWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId
afterWidgetButtonReleaseEvent obj cb = connectWidgetButtonReleaseEvent obj cb SignalConnectAfter
connectWidgetButtonReleaseEvent :: (GObject a, MonadIO m) =>
a -> WidgetButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetButtonReleaseEvent obj cb after = liftIO $ do
cb' <- mkWidgetButtonReleaseEventCallback (widgetButtonReleaseEventCallbackWrapper cb)
connectSignalFunPtr obj "button-release-event" cb' after
type WidgetCanActivateAccelCallback =
Word32 ->
IO Bool
noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback
noWidgetCanActivateAccelCallback = Nothing
type WidgetCanActivateAccelCallbackC =
Ptr () ->
Word32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallbackC -> IO (FunPtr WidgetCanActivateAccelCallbackC)
widgetCanActivateAccelClosure :: WidgetCanActivateAccelCallback -> IO Closure
widgetCanActivateAccelClosure cb = newCClosure =<< mkWidgetCanActivateAccelCallback wrapped
where wrapped = widgetCanActivateAccelCallbackWrapper cb
widgetCanActivateAccelCallbackWrapper ::
WidgetCanActivateAccelCallback ->
Ptr () ->
Word32 ->
Ptr () ->
IO CInt
widgetCanActivateAccelCallbackWrapper _cb _ signal_id _ = do
result <- _cb signal_id
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
onWidgetCanActivateAccel obj cb = liftIO $ connectWidgetCanActivateAccel obj cb SignalConnectBefore
afterWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId
afterWidgetCanActivateAccel obj cb = connectWidgetCanActivateAccel obj cb SignalConnectAfter
connectWidgetCanActivateAccel :: (GObject a, MonadIO m) =>
a -> WidgetCanActivateAccelCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetCanActivateAccel obj cb after = liftIO $ do
cb' <- mkWidgetCanActivateAccelCallback (widgetCanActivateAccelCallbackWrapper cb)
connectSignalFunPtr obj "can-activate-accel" cb' after
type WidgetChildNotifyCallback =
GParamSpec ->
IO ()
noWidgetChildNotifyCallback :: Maybe WidgetChildNotifyCallback
noWidgetChildNotifyCallback = Nothing
type WidgetChildNotifyCallbackC =
Ptr () ->
Ptr GParamSpec ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetChildNotifyCallback :: WidgetChildNotifyCallbackC -> IO (FunPtr WidgetChildNotifyCallbackC)
widgetChildNotifyClosure :: WidgetChildNotifyCallback -> IO Closure
widgetChildNotifyClosure cb = newCClosure =<< mkWidgetChildNotifyCallback wrapped
where wrapped = widgetChildNotifyCallbackWrapper cb
widgetChildNotifyCallbackWrapper ::
WidgetChildNotifyCallback ->
Ptr () ->
Ptr GParamSpec ->
Ptr () ->
IO ()
widgetChildNotifyCallbackWrapper _cb _ child_property _ = do
child_property' <- newGParamSpecFromPtr child_property
_cb child_property'
onWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId
onWidgetChildNotify obj cb = liftIO $ connectWidgetChildNotify obj cb SignalConnectBefore
afterWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId
afterWidgetChildNotify obj cb = connectWidgetChildNotify obj cb SignalConnectAfter
connectWidgetChildNotify :: (GObject a, MonadIO m) =>
a -> WidgetChildNotifyCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetChildNotify obj cb after = liftIO $ do
cb' <- mkWidgetChildNotifyCallback (widgetChildNotifyCallbackWrapper cb)
connectSignalFunPtr obj "child-notify" cb' after
type WidgetCompositedChangedCallback =
IO ()
noWidgetCompositedChangedCallback :: Maybe WidgetCompositedChangedCallback
noWidgetCompositedChangedCallback = Nothing
type WidgetCompositedChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetCompositedChangedCallback :: WidgetCompositedChangedCallbackC -> IO (FunPtr WidgetCompositedChangedCallbackC)
widgetCompositedChangedClosure :: WidgetCompositedChangedCallback -> IO Closure
widgetCompositedChangedClosure cb = newCClosure =<< mkWidgetCompositedChangedCallback wrapped
where wrapped = widgetCompositedChangedCallbackWrapper cb
widgetCompositedChangedCallbackWrapper ::
WidgetCompositedChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetCompositedChangedCallbackWrapper _cb _ _ = do
_cb
onWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId
onWidgetCompositedChanged obj cb = liftIO $ connectWidgetCompositedChanged obj cb SignalConnectBefore
afterWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId
afterWidgetCompositedChanged obj cb = connectWidgetCompositedChanged obj cb SignalConnectAfter
connectWidgetCompositedChanged :: (GObject a, MonadIO m) =>
a -> WidgetCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetCompositedChanged obj cb after = liftIO $ do
cb' <- mkWidgetCompositedChangedCallback (widgetCompositedChangedCallbackWrapper cb)
connectSignalFunPtr obj "composited-changed" cb' after
type WidgetConfigureEventCallback =
Gdk.EventConfigure ->
IO Bool
noWidgetConfigureEventCallback :: Maybe WidgetConfigureEventCallback
noWidgetConfigureEventCallback = Nothing
type WidgetConfigureEventCallbackC =
Ptr () ->
Ptr Gdk.EventConfigure ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetConfigureEventCallback :: WidgetConfigureEventCallbackC -> IO (FunPtr WidgetConfigureEventCallbackC)
widgetConfigureEventClosure :: WidgetConfigureEventCallback -> IO Closure
widgetConfigureEventClosure cb = newCClosure =<< mkWidgetConfigureEventCallback wrapped
where wrapped = widgetConfigureEventCallbackWrapper cb
widgetConfigureEventCallbackWrapper ::
WidgetConfigureEventCallback ->
Ptr () ->
Ptr Gdk.EventConfigure ->
Ptr () ->
IO CInt
widgetConfigureEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 40 Gdk.EventConfigure) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId
onWidgetConfigureEvent obj cb = liftIO $ connectWidgetConfigureEvent obj cb SignalConnectBefore
afterWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId
afterWidgetConfigureEvent obj cb = connectWidgetConfigureEvent obj cb SignalConnectAfter
connectWidgetConfigureEvent :: (GObject a, MonadIO m) =>
a -> WidgetConfigureEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetConfigureEvent obj cb after = liftIO $ do
cb' <- mkWidgetConfigureEventCallback (widgetConfigureEventCallbackWrapper cb)
connectSignalFunPtr obj "configure-event" cb' after
type WidgetDamageEventCallback =
Gdk.EventExpose ->
IO Bool
noWidgetDamageEventCallback :: Maybe WidgetDamageEventCallback
noWidgetDamageEventCallback = Nothing
type WidgetDamageEventCallbackC =
Ptr () ->
Ptr Gdk.EventExpose ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetDamageEventCallback :: WidgetDamageEventCallbackC -> IO (FunPtr WidgetDamageEventCallbackC)
widgetDamageEventClosure :: WidgetDamageEventCallback -> IO Closure
widgetDamageEventClosure cb = newCClosure =<< mkWidgetDamageEventCallback wrapped
where wrapped = widgetDamageEventCallbackWrapper cb
widgetDamageEventCallbackWrapper ::
WidgetDamageEventCallback ->
Ptr () ->
Ptr Gdk.EventExpose ->
Ptr () ->
IO CInt
widgetDamageEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 56 Gdk.EventExpose) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId
onWidgetDamageEvent obj cb = liftIO $ connectWidgetDamageEvent obj cb SignalConnectBefore
afterWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId
afterWidgetDamageEvent obj cb = connectWidgetDamageEvent obj cb SignalConnectAfter
connectWidgetDamageEvent :: (GObject a, MonadIO m) =>
a -> WidgetDamageEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDamageEvent obj cb after = liftIO $ do
cb' <- mkWidgetDamageEventCallback (widgetDamageEventCallbackWrapper cb)
connectSignalFunPtr obj "damage-event" cb' after
type WidgetDeleteEventCallback =
Gdk.Event ->
IO Bool
noWidgetDeleteEventCallback :: Maybe WidgetDeleteEventCallback
noWidgetDeleteEventCallback = Nothing
type WidgetDeleteEventCallbackC =
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetDeleteEventCallback :: WidgetDeleteEventCallbackC -> IO (FunPtr WidgetDeleteEventCallbackC)
widgetDeleteEventClosure :: WidgetDeleteEventCallback -> IO Closure
widgetDeleteEventClosure cb = newCClosure =<< mkWidgetDeleteEventCallback wrapped
where wrapped = widgetDeleteEventCallbackWrapper cb
widgetDeleteEventCallbackWrapper ::
WidgetDeleteEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetDeleteEventCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId
onWidgetDeleteEvent obj cb = liftIO $ connectWidgetDeleteEvent obj cb SignalConnectBefore
afterWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId
afterWidgetDeleteEvent obj cb = connectWidgetDeleteEvent obj cb SignalConnectAfter
connectWidgetDeleteEvent :: (GObject a, MonadIO m) =>
a -> WidgetDeleteEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDeleteEvent obj cb after = liftIO $ do
cb' <- mkWidgetDeleteEventCallback (widgetDeleteEventCallbackWrapper cb)
connectSignalFunPtr obj "delete-event" cb' after
type WidgetDestroyCallback =
IO ()
noWidgetDestroyCallback :: Maybe WidgetDestroyCallback
noWidgetDestroyCallback = Nothing
type WidgetDestroyCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDestroyCallback :: WidgetDestroyCallbackC -> IO (FunPtr WidgetDestroyCallbackC)
widgetDestroyClosure :: WidgetDestroyCallback -> IO Closure
widgetDestroyClosure cb = newCClosure =<< mkWidgetDestroyCallback wrapped
where wrapped = widgetDestroyCallbackWrapper cb
widgetDestroyCallbackWrapper ::
WidgetDestroyCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetDestroyCallbackWrapper _cb _ _ = do
_cb
onWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
onWidgetDestroy obj cb = liftIO $ connectWidgetDestroy obj cb SignalConnectBefore
afterWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId
afterWidgetDestroy obj cb = connectWidgetDestroy obj cb SignalConnectAfter
connectWidgetDestroy :: (GObject a, MonadIO m) =>
a -> WidgetDestroyCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDestroy obj cb after = liftIO $ do
cb' <- mkWidgetDestroyCallback (widgetDestroyCallbackWrapper cb)
connectSignalFunPtr obj "destroy" cb' after
type WidgetDestroyEventCallback =
Gdk.Event ->
IO Bool
noWidgetDestroyEventCallback :: Maybe WidgetDestroyEventCallback
noWidgetDestroyEventCallback = Nothing
type WidgetDestroyEventCallbackC =
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetDestroyEventCallback :: WidgetDestroyEventCallbackC -> IO (FunPtr WidgetDestroyEventCallbackC)
widgetDestroyEventClosure :: WidgetDestroyEventCallback -> IO Closure
widgetDestroyEventClosure cb = newCClosure =<< mkWidgetDestroyEventCallback wrapped
where wrapped = widgetDestroyEventCallbackWrapper cb
widgetDestroyEventCallbackWrapper ::
WidgetDestroyEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetDestroyEventCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId
onWidgetDestroyEvent obj cb = liftIO $ connectWidgetDestroyEvent obj cb SignalConnectBefore
afterWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId
afterWidgetDestroyEvent obj cb = connectWidgetDestroyEvent obj cb SignalConnectAfter
connectWidgetDestroyEvent :: (GObject a, MonadIO m) =>
a -> WidgetDestroyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDestroyEvent obj cb after = liftIO $ do
cb' <- mkWidgetDestroyEventCallback (widgetDestroyEventCallbackWrapper cb)
connectSignalFunPtr obj "destroy-event" cb' after
type WidgetDirectionChangedCallback =
TextDirection ->
IO ()
noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback
noWidgetDirectionChangedCallback = Nothing
type WidgetDirectionChangedCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDirectionChangedCallback :: WidgetDirectionChangedCallbackC -> IO (FunPtr WidgetDirectionChangedCallbackC)
widgetDirectionChangedClosure :: WidgetDirectionChangedCallback -> IO Closure
widgetDirectionChangedClosure cb = newCClosure =<< mkWidgetDirectionChangedCallback wrapped
where wrapped = widgetDirectionChangedCallbackWrapper cb
widgetDirectionChangedCallbackWrapper ::
WidgetDirectionChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetDirectionChangedCallbackWrapper _cb _ previous_direction _ = do
let previous_direction' = (toEnum . fromIntegral) previous_direction
_cb previous_direction'
onWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId
onWidgetDirectionChanged obj cb = liftIO $ connectWidgetDirectionChanged obj cb SignalConnectBefore
afterWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId
afterWidgetDirectionChanged obj cb = connectWidgetDirectionChanged obj cb SignalConnectAfter
connectWidgetDirectionChanged :: (GObject a, MonadIO m) =>
a -> WidgetDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDirectionChanged obj cb after = liftIO $ do
cb' <- mkWidgetDirectionChangedCallback (widgetDirectionChangedCallbackWrapper cb)
connectSignalFunPtr obj "direction-changed" cb' after
type WidgetDragBeginCallback =
Gdk.DragContext ->
IO ()
noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback
noWidgetDragBeginCallback = Nothing
type WidgetDragBeginCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDragBeginCallback :: WidgetDragBeginCallbackC -> IO (FunPtr WidgetDragBeginCallbackC)
widgetDragBeginClosure :: WidgetDragBeginCallback -> IO Closure
widgetDragBeginClosure cb = newCClosure =<< mkWidgetDragBeginCallback wrapped
where wrapped = widgetDragBeginCallbackWrapper cb
widgetDragBeginCallbackWrapper ::
WidgetDragBeginCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
widgetDragBeginCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.DragContext) context
_cb context'
onWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId
onWidgetDragBegin obj cb = liftIO $ connectWidgetDragBegin obj cb SignalConnectBefore
afterWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId
afterWidgetDragBegin obj cb = connectWidgetDragBegin obj cb SignalConnectAfter
connectWidgetDragBegin :: (GObject a, MonadIO m) =>
a -> WidgetDragBeginCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragBegin obj cb after = liftIO $ do
cb' <- mkWidgetDragBeginCallback (widgetDragBeginCallbackWrapper cb)
connectSignalFunPtr obj "drag-begin" cb' after
type WidgetDragDataDeleteCallback =
Gdk.DragContext ->
IO ()
noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback
noWidgetDragDataDeleteCallback = Nothing
type WidgetDragDataDeleteCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDragDataDeleteCallback :: WidgetDragDataDeleteCallbackC -> IO (FunPtr WidgetDragDataDeleteCallbackC)
widgetDragDataDeleteClosure :: WidgetDragDataDeleteCallback -> IO Closure
widgetDragDataDeleteClosure cb = newCClosure =<< mkWidgetDragDataDeleteCallback wrapped
where wrapped = widgetDragDataDeleteCallbackWrapper cb
widgetDragDataDeleteCallbackWrapper ::
WidgetDragDataDeleteCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
widgetDragDataDeleteCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.DragContext) context
_cb context'
onWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId
onWidgetDragDataDelete obj cb = liftIO $ connectWidgetDragDataDelete obj cb SignalConnectBefore
afterWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId
afterWidgetDragDataDelete obj cb = connectWidgetDragDataDelete obj cb SignalConnectAfter
connectWidgetDragDataDelete :: (GObject a, MonadIO m) =>
a -> WidgetDragDataDeleteCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDataDelete obj cb after = liftIO $ do
cb' <- mkWidgetDragDataDeleteCallback (widgetDragDataDeleteCallbackWrapper cb)
connectSignalFunPtr obj "drag-data-delete" cb' after
type WidgetDragDataGetCallback =
Gdk.DragContext ->
SelectionData ->
Word32 ->
Word32 ->
IO ()
noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback
noWidgetDragDataGetCallback = Nothing
type WidgetDragDataGetCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDragDataGetCallback :: WidgetDragDataGetCallbackC -> IO (FunPtr WidgetDragDataGetCallbackC)
widgetDragDataGetClosure :: WidgetDragDataGetCallback -> IO Closure
widgetDragDataGetClosure cb = newCClosure =<< mkWidgetDragDataGetCallback wrapped
where wrapped = widgetDragDataGetCallbackWrapper cb
widgetDragDataGetCallbackWrapper ::
WidgetDragDataGetCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
widgetDragDataGetCallbackWrapper _cb _ context data_ info time _ = do
context' <- (newObject Gdk.DragContext) context
data_' <- (newBoxed SelectionData) data_
_cb context' data_' info time
onWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId
onWidgetDragDataGet obj cb = liftIO $ connectWidgetDragDataGet obj cb SignalConnectBefore
afterWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId
afterWidgetDragDataGet obj cb = connectWidgetDragDataGet obj cb SignalConnectAfter
connectWidgetDragDataGet :: (GObject a, MonadIO m) =>
a -> WidgetDragDataGetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDataGet obj cb after = liftIO $ do
cb' <- mkWidgetDragDataGetCallback (widgetDragDataGetCallbackWrapper cb)
connectSignalFunPtr obj "drag-data-get" cb' after
type WidgetDragDataReceivedCallback =
Gdk.DragContext ->
Int32 ->
Int32 ->
SelectionData ->
Word32 ->
Word32 ->
IO ()
noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback
noWidgetDragDataReceivedCallback = Nothing
type WidgetDragDataReceivedCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallbackC -> IO (FunPtr WidgetDragDataReceivedCallbackC)
widgetDragDataReceivedClosure :: WidgetDragDataReceivedCallback -> IO Closure
widgetDragDataReceivedClosure cb = newCClosure =<< mkWidgetDragDataReceivedCallback wrapped
where wrapped = widgetDragDataReceivedCallbackWrapper cb
widgetDragDataReceivedCallbackWrapper ::
WidgetDragDataReceivedCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
widgetDragDataReceivedCallbackWrapper _cb _ context x y data_ info time _ = do
context' <- (newObject Gdk.DragContext) context
data_' <- (newBoxed SelectionData) data_
_cb context' x y data_' info time
onWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
onWidgetDragDataReceived obj cb = liftIO $ connectWidgetDragDataReceived obj cb SignalConnectBefore
afterWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId
afterWidgetDragDataReceived obj cb = connectWidgetDragDataReceived obj cb SignalConnectAfter
connectWidgetDragDataReceived :: (GObject a, MonadIO m) =>
a -> WidgetDragDataReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDataReceived obj cb after = liftIO $ do
cb' <- mkWidgetDragDataReceivedCallback (widgetDragDataReceivedCallbackWrapper cb)
connectSignalFunPtr obj "drag-data-received" cb' after
type WidgetDragDropCallback =
Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
IO Bool
noWidgetDragDropCallback :: Maybe WidgetDragDropCallback
noWidgetDragDropCallback = Nothing
type WidgetDragDropCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetDragDropCallback :: WidgetDragDropCallbackC -> IO (FunPtr WidgetDragDropCallbackC)
widgetDragDropClosure :: WidgetDragDropCallback -> IO Closure
widgetDragDropClosure cb = newCClosure =<< mkWidgetDragDropCallback wrapped
where wrapped = widgetDragDropCallbackWrapper cb
widgetDragDropCallbackWrapper ::
WidgetDragDropCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () ->
IO CInt
widgetDragDropCallbackWrapper _cb _ context x y time _ = do
context' <- (newObject Gdk.DragContext) context
result <- _cb context' x y time
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId
onWidgetDragDrop obj cb = liftIO $ connectWidgetDragDrop obj cb SignalConnectBefore
afterWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId
afterWidgetDragDrop obj cb = connectWidgetDragDrop obj cb SignalConnectAfter
connectWidgetDragDrop :: (GObject a, MonadIO m) =>
a -> WidgetDragDropCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragDrop obj cb after = liftIO $ do
cb' <- mkWidgetDragDropCallback (widgetDragDropCallbackWrapper cb)
connectSignalFunPtr obj "drag-drop" cb' after
type WidgetDragEndCallback =
Gdk.DragContext ->
IO ()
noWidgetDragEndCallback :: Maybe WidgetDragEndCallback
noWidgetDragEndCallback = Nothing
type WidgetDragEndCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDragEndCallback :: WidgetDragEndCallbackC -> IO (FunPtr WidgetDragEndCallbackC)
widgetDragEndClosure :: WidgetDragEndCallback -> IO Closure
widgetDragEndClosure cb = newCClosure =<< mkWidgetDragEndCallback wrapped
where wrapped = widgetDragEndCallbackWrapper cb
widgetDragEndCallbackWrapper ::
WidgetDragEndCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Ptr () ->
IO ()
widgetDragEndCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.DragContext) context
_cb context'
onWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId
onWidgetDragEnd obj cb = liftIO $ connectWidgetDragEnd obj cb SignalConnectBefore
afterWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId
afterWidgetDragEnd obj cb = connectWidgetDragEnd obj cb SignalConnectAfter
connectWidgetDragEnd :: (GObject a, MonadIO m) =>
a -> WidgetDragEndCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragEnd obj cb after = liftIO $ do
cb' <- mkWidgetDragEndCallback (widgetDragEndCallbackWrapper cb)
connectSignalFunPtr obj "drag-end" cb' after
type WidgetDragFailedCallback =
Gdk.DragContext ->
DragResult ->
IO Bool
noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback
noWidgetDragFailedCallback = Nothing
type WidgetDragFailedCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetDragFailedCallback :: WidgetDragFailedCallbackC -> IO (FunPtr WidgetDragFailedCallbackC)
widgetDragFailedClosure :: WidgetDragFailedCallback -> IO Closure
widgetDragFailedClosure cb = newCClosure =<< mkWidgetDragFailedCallback wrapped
where wrapped = widgetDragFailedCallbackWrapper cb
widgetDragFailedCallbackWrapper ::
WidgetDragFailedCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
CUInt ->
Ptr () ->
IO CInt
widgetDragFailedCallbackWrapper _cb _ context result_ _ = do
context' <- (newObject Gdk.DragContext) context
let result_' = (toEnum . fromIntegral) result_
result <- _cb context' result_'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId
onWidgetDragFailed obj cb = liftIO $ connectWidgetDragFailed obj cb SignalConnectBefore
afterWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId
afterWidgetDragFailed obj cb = connectWidgetDragFailed obj cb SignalConnectAfter
connectWidgetDragFailed :: (GObject a, MonadIO m) =>
a -> WidgetDragFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragFailed obj cb after = liftIO $ do
cb' <- mkWidgetDragFailedCallback (widgetDragFailedCallbackWrapper cb)
connectSignalFunPtr obj "drag-failed" cb' after
type WidgetDragLeaveCallback =
Gdk.DragContext ->
Word32 ->
IO ()
noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback
noWidgetDragLeaveCallback = Nothing
type WidgetDragLeaveCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetDragLeaveCallback :: WidgetDragLeaveCallbackC -> IO (FunPtr WidgetDragLeaveCallbackC)
widgetDragLeaveClosure :: WidgetDragLeaveCallback -> IO Closure
widgetDragLeaveClosure cb = newCClosure =<< mkWidgetDragLeaveCallback wrapped
where wrapped = widgetDragLeaveCallbackWrapper cb
widgetDragLeaveCallbackWrapper ::
WidgetDragLeaveCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Word32 ->
Ptr () ->
IO ()
widgetDragLeaveCallbackWrapper _cb _ context time _ = do
context' <- (newObject Gdk.DragContext) context
_cb context' time
onWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId
onWidgetDragLeave obj cb = liftIO $ connectWidgetDragLeave obj cb SignalConnectBefore
afterWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId
afterWidgetDragLeave obj cb = connectWidgetDragLeave obj cb SignalConnectAfter
connectWidgetDragLeave :: (GObject a, MonadIO m) =>
a -> WidgetDragLeaveCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragLeave obj cb after = liftIO $ do
cb' <- mkWidgetDragLeaveCallback (widgetDragLeaveCallbackWrapper cb)
connectSignalFunPtr obj "drag-leave" cb' after
type WidgetDragMotionCallback =
Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
IO Bool
noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback
noWidgetDragMotionCallback = Nothing
type WidgetDragMotionCallbackC =
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetDragMotionCallback :: WidgetDragMotionCallbackC -> IO (FunPtr WidgetDragMotionCallbackC)
widgetDragMotionClosure :: WidgetDragMotionCallback -> IO Closure
widgetDragMotionClosure cb = newCClosure =<< mkWidgetDragMotionCallback wrapped
where wrapped = widgetDragMotionCallbackWrapper cb
widgetDragMotionCallbackWrapper ::
WidgetDragMotionCallback ->
Ptr () ->
Ptr Gdk.DragContext ->
Int32 ->
Int32 ->
Word32 ->
Ptr () ->
IO CInt
widgetDragMotionCallbackWrapper _cb _ context x y time _ = do
context' <- (newObject Gdk.DragContext) context
result <- _cb context' x y time
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId
onWidgetDragMotion obj cb = liftIO $ connectWidgetDragMotion obj cb SignalConnectBefore
afterWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId
afterWidgetDragMotion obj cb = connectWidgetDragMotion obj cb SignalConnectAfter
connectWidgetDragMotion :: (GObject a, MonadIO m) =>
a -> WidgetDragMotionCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDragMotion obj cb after = liftIO $ do
cb' <- mkWidgetDragMotionCallback (widgetDragMotionCallbackWrapper cb)
connectSignalFunPtr obj "drag-motion" cb' after
type WidgetDrawCallback =
Cairo.Context ->
IO Bool
noWidgetDrawCallback :: Maybe WidgetDrawCallback
noWidgetDrawCallback = Nothing
type WidgetDrawCallbackC =
Ptr () ->
Ptr Cairo.Context ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetDrawCallback :: WidgetDrawCallbackC -> IO (FunPtr WidgetDrawCallbackC)
widgetDrawClosure :: WidgetDrawCallback -> IO Closure
widgetDrawClosure cb = newCClosure =<< mkWidgetDrawCallback wrapped
where wrapped = widgetDrawCallbackWrapper cb
widgetDrawCallbackWrapper ::
WidgetDrawCallback ->
Ptr () ->
Ptr Cairo.Context ->
Ptr () ->
IO CInt
widgetDrawCallbackWrapper _cb _ cr _ = do
cr' <- (newBoxed Cairo.Context) cr
result <- _cb cr'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId
onWidgetDraw obj cb = liftIO $ connectWidgetDraw obj cb SignalConnectBefore
afterWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId
afterWidgetDraw obj cb = connectWidgetDraw obj cb SignalConnectAfter
connectWidgetDraw :: (GObject a, MonadIO m) =>
a -> WidgetDrawCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetDraw obj cb after = liftIO $ do
cb' <- mkWidgetDrawCallback (widgetDrawCallbackWrapper cb)
connectSignalFunPtr obj "draw" cb' after
type WidgetEnterNotifyEventCallback =
Gdk.EventCrossing ->
IO Bool
noWidgetEnterNotifyEventCallback :: Maybe WidgetEnterNotifyEventCallback
noWidgetEnterNotifyEventCallback = Nothing
type WidgetEnterNotifyEventCallbackC =
Ptr () ->
Ptr Gdk.EventCrossing ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetEnterNotifyEventCallback :: WidgetEnterNotifyEventCallbackC -> IO (FunPtr WidgetEnterNotifyEventCallbackC)
widgetEnterNotifyEventClosure :: WidgetEnterNotifyEventCallback -> IO Closure
widgetEnterNotifyEventClosure cb = newCClosure =<< mkWidgetEnterNotifyEventCallback wrapped
where wrapped = widgetEnterNotifyEventCallbackWrapper cb
widgetEnterNotifyEventCallbackWrapper ::
WidgetEnterNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventCrossing ->
Ptr () ->
IO CInt
widgetEnterNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 88 Gdk.EventCrossing) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId
onWidgetEnterNotifyEvent obj cb = liftIO $ connectWidgetEnterNotifyEvent obj cb SignalConnectBefore
afterWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId
afterWidgetEnterNotifyEvent obj cb = connectWidgetEnterNotifyEvent obj cb SignalConnectAfter
connectWidgetEnterNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetEnterNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetEnterNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetEnterNotifyEventCallback (widgetEnterNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "enter-notify-event" cb' after
type WidgetEventCallback =
Gdk.Event ->
IO Bool
noWidgetEventCallback :: Maybe WidgetEventCallback
noWidgetEventCallback = Nothing
type WidgetEventCallbackC =
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetEventCallback :: WidgetEventCallbackC -> IO (FunPtr WidgetEventCallbackC)
widgetEventClosure :: WidgetEventCallback -> IO Closure
widgetEventClosure cb = newCClosure =<< mkWidgetEventCallback wrapped
where wrapped = widgetEventCallbackWrapper cb
widgetEventCallbackWrapper ::
WidgetEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetEventCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId
onWidgetEvent obj cb = liftIO $ connectWidgetEvent obj cb SignalConnectBefore
afterWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId
afterWidgetEvent obj cb = connectWidgetEvent obj cb SignalConnectAfter
connectWidgetEvent :: (GObject a, MonadIO m) =>
a -> WidgetEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetEvent obj cb after = liftIO $ do
cb' <- mkWidgetEventCallback (widgetEventCallbackWrapper cb)
connectSignalFunPtr obj "event" cb' after
type WidgetEventAfterCallback =
Gdk.Event ->
IO ()
noWidgetEventAfterCallback :: Maybe WidgetEventAfterCallback
noWidgetEventAfterCallback = Nothing
type WidgetEventAfterCallbackC =
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetEventAfterCallback :: WidgetEventAfterCallbackC -> IO (FunPtr WidgetEventAfterCallbackC)
widgetEventAfterClosure :: WidgetEventAfterCallback -> IO Closure
widgetEventAfterClosure cb = newCClosure =<< mkWidgetEventAfterCallback wrapped
where wrapped = widgetEventAfterCallbackWrapper cb
widgetEventAfterCallbackWrapper ::
WidgetEventAfterCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO ()
widgetEventAfterCallbackWrapper _cb _ event _ = do
event' <- (newBoxed Gdk.Event) event
_cb event'
onWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId
onWidgetEventAfter obj cb = liftIO $ connectWidgetEventAfter obj cb SignalConnectBefore
afterWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId
afterWidgetEventAfter obj cb = connectWidgetEventAfter obj cb SignalConnectAfter
connectWidgetEventAfter :: (GObject a, MonadIO m) =>
a -> WidgetEventAfterCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetEventAfter obj cb after = liftIO $ do
cb' <- mkWidgetEventAfterCallback (widgetEventAfterCallbackWrapper cb)
connectSignalFunPtr obj "event-after" cb' after
type WidgetFocusCallback =
DirectionType ->
IO Bool
noWidgetFocusCallback :: Maybe WidgetFocusCallback
noWidgetFocusCallback = Nothing
type WidgetFocusCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetFocusCallback :: WidgetFocusCallbackC -> IO (FunPtr WidgetFocusCallbackC)
widgetFocusClosure :: WidgetFocusCallback -> IO Closure
widgetFocusClosure cb = newCClosure =<< mkWidgetFocusCallback wrapped
where wrapped = widgetFocusCallbackWrapper cb
widgetFocusCallbackWrapper ::
WidgetFocusCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
widgetFocusCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
result <- _cb direction'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId
onWidgetFocus obj cb = liftIO $ connectWidgetFocus obj cb SignalConnectBefore
afterWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId
afterWidgetFocus obj cb = connectWidgetFocus obj cb SignalConnectAfter
connectWidgetFocus :: (GObject a, MonadIO m) =>
a -> WidgetFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetFocus obj cb after = liftIO $ do
cb' <- mkWidgetFocusCallback (widgetFocusCallbackWrapper cb)
connectSignalFunPtr obj "focus" cb' after
type WidgetFocusInEventCallback =
Gdk.EventFocus ->
IO Bool
noWidgetFocusInEventCallback :: Maybe WidgetFocusInEventCallback
noWidgetFocusInEventCallback = Nothing
type WidgetFocusInEventCallbackC =
Ptr () ->
Ptr Gdk.EventFocus ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetFocusInEventCallback :: WidgetFocusInEventCallbackC -> IO (FunPtr WidgetFocusInEventCallbackC)
widgetFocusInEventClosure :: WidgetFocusInEventCallback -> IO Closure
widgetFocusInEventClosure cb = newCClosure =<< mkWidgetFocusInEventCallback wrapped
where wrapped = widgetFocusInEventCallbackWrapper cb
widgetFocusInEventCallbackWrapper ::
WidgetFocusInEventCallback ->
Ptr () ->
Ptr Gdk.EventFocus ->
Ptr () ->
IO CInt
widgetFocusInEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventFocus) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId
onWidgetFocusInEvent obj cb = liftIO $ connectWidgetFocusInEvent obj cb SignalConnectBefore
afterWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId
afterWidgetFocusInEvent obj cb = connectWidgetFocusInEvent obj cb SignalConnectAfter
connectWidgetFocusInEvent :: (GObject a, MonadIO m) =>
a -> WidgetFocusInEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetFocusInEvent obj cb after = liftIO $ do
cb' <- mkWidgetFocusInEventCallback (widgetFocusInEventCallbackWrapper cb)
connectSignalFunPtr obj "focus-in-event" cb' after
type WidgetFocusOutEventCallback =
Gdk.EventFocus ->
IO Bool
noWidgetFocusOutEventCallback :: Maybe WidgetFocusOutEventCallback
noWidgetFocusOutEventCallback = Nothing
type WidgetFocusOutEventCallbackC =
Ptr () ->
Ptr Gdk.EventFocus ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetFocusOutEventCallback :: WidgetFocusOutEventCallbackC -> IO (FunPtr WidgetFocusOutEventCallbackC)
widgetFocusOutEventClosure :: WidgetFocusOutEventCallback -> IO Closure
widgetFocusOutEventClosure cb = newCClosure =<< mkWidgetFocusOutEventCallback wrapped
where wrapped = widgetFocusOutEventCallbackWrapper cb
widgetFocusOutEventCallbackWrapper ::
WidgetFocusOutEventCallback ->
Ptr () ->
Ptr Gdk.EventFocus ->
Ptr () ->
IO CInt
widgetFocusOutEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventFocus) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId
onWidgetFocusOutEvent obj cb = liftIO $ connectWidgetFocusOutEvent obj cb SignalConnectBefore
afterWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId
afterWidgetFocusOutEvent obj cb = connectWidgetFocusOutEvent obj cb SignalConnectAfter
connectWidgetFocusOutEvent :: (GObject a, MonadIO m) =>
a -> WidgetFocusOutEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetFocusOutEvent obj cb after = liftIO $ do
cb' <- mkWidgetFocusOutEventCallback (widgetFocusOutEventCallbackWrapper cb)
connectSignalFunPtr obj "focus-out-event" cb' after
type WidgetGrabBrokenEventCallback =
Gdk.EventGrabBroken ->
IO Bool
noWidgetGrabBrokenEventCallback :: Maybe WidgetGrabBrokenEventCallback
noWidgetGrabBrokenEventCallback = Nothing
type WidgetGrabBrokenEventCallbackC =
Ptr () ->
Ptr Gdk.EventGrabBroken ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetGrabBrokenEventCallback :: WidgetGrabBrokenEventCallbackC -> IO (FunPtr WidgetGrabBrokenEventCallbackC)
widgetGrabBrokenEventClosure :: WidgetGrabBrokenEventCallback -> IO Closure
widgetGrabBrokenEventClosure cb = newCClosure =<< mkWidgetGrabBrokenEventCallback wrapped
where wrapped = widgetGrabBrokenEventCallbackWrapper cb
widgetGrabBrokenEventCallbackWrapper ::
WidgetGrabBrokenEventCallback ->
Ptr () ->
Ptr Gdk.EventGrabBroken ->
Ptr () ->
IO CInt
widgetGrabBrokenEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 40 Gdk.EventGrabBroken) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId
onWidgetGrabBrokenEvent obj cb = liftIO $ connectWidgetGrabBrokenEvent obj cb SignalConnectBefore
afterWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId
afterWidgetGrabBrokenEvent obj cb = connectWidgetGrabBrokenEvent obj cb SignalConnectAfter
connectWidgetGrabBrokenEvent :: (GObject a, MonadIO m) =>
a -> WidgetGrabBrokenEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetGrabBrokenEvent obj cb after = liftIO $ do
cb' <- mkWidgetGrabBrokenEventCallback (widgetGrabBrokenEventCallbackWrapper cb)
connectSignalFunPtr obj "grab-broken-event" cb' after
type WidgetGrabFocusCallback =
IO ()
noWidgetGrabFocusCallback :: Maybe WidgetGrabFocusCallback
noWidgetGrabFocusCallback = Nothing
type WidgetGrabFocusCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetGrabFocusCallback :: WidgetGrabFocusCallbackC -> IO (FunPtr WidgetGrabFocusCallbackC)
widgetGrabFocusClosure :: WidgetGrabFocusCallback -> IO Closure
widgetGrabFocusClosure cb = newCClosure =<< mkWidgetGrabFocusCallback wrapped
where wrapped = widgetGrabFocusCallbackWrapper cb
widgetGrabFocusCallbackWrapper ::
WidgetGrabFocusCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetGrabFocusCallbackWrapper _cb _ _ = do
_cb
onWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId
onWidgetGrabFocus obj cb = liftIO $ connectWidgetGrabFocus obj cb SignalConnectBefore
afterWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId
afterWidgetGrabFocus obj cb = connectWidgetGrabFocus obj cb SignalConnectAfter
connectWidgetGrabFocus :: (GObject a, MonadIO m) =>
a -> WidgetGrabFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetGrabFocus obj cb after = liftIO $ do
cb' <- mkWidgetGrabFocusCallback (widgetGrabFocusCallbackWrapper cb)
connectSignalFunPtr obj "grab-focus" cb' after
type WidgetGrabNotifyCallback =
Bool ->
IO ()
noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback
noWidgetGrabNotifyCallback = Nothing
type WidgetGrabNotifyCallbackC =
Ptr () ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetGrabNotifyCallback :: WidgetGrabNotifyCallbackC -> IO (FunPtr WidgetGrabNotifyCallbackC)
widgetGrabNotifyClosure :: WidgetGrabNotifyCallback -> IO Closure
widgetGrabNotifyClosure cb = newCClosure =<< mkWidgetGrabNotifyCallback wrapped
where wrapped = widgetGrabNotifyCallbackWrapper cb
widgetGrabNotifyCallbackWrapper ::
WidgetGrabNotifyCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO ()
widgetGrabNotifyCallbackWrapper _cb _ was_grabbed _ = do
let was_grabbed' = (/= 0) was_grabbed
_cb was_grabbed'
onWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId
onWidgetGrabNotify obj cb = liftIO $ connectWidgetGrabNotify obj cb SignalConnectBefore
afterWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId
afterWidgetGrabNotify obj cb = connectWidgetGrabNotify obj cb SignalConnectAfter
connectWidgetGrabNotify :: (GObject a, MonadIO m) =>
a -> WidgetGrabNotifyCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetGrabNotify obj cb after = liftIO $ do
cb' <- mkWidgetGrabNotifyCallback (widgetGrabNotifyCallbackWrapper cb)
connectSignalFunPtr obj "grab-notify" cb' after
type WidgetHideCallback =
IO ()
noWidgetHideCallback :: Maybe WidgetHideCallback
noWidgetHideCallback = Nothing
type WidgetHideCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetHideCallback :: WidgetHideCallbackC -> IO (FunPtr WidgetHideCallbackC)
widgetHideClosure :: WidgetHideCallback -> IO Closure
widgetHideClosure cb = newCClosure =<< mkWidgetHideCallback wrapped
where wrapped = widgetHideCallbackWrapper cb
widgetHideCallbackWrapper ::
WidgetHideCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetHideCallbackWrapper _cb _ _ = do
_cb
onWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
onWidgetHide obj cb = liftIO $ connectWidgetHide obj cb SignalConnectBefore
afterWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId
afterWidgetHide obj cb = connectWidgetHide obj cb SignalConnectAfter
connectWidgetHide :: (GObject a, MonadIO m) =>
a -> WidgetHideCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetHide obj cb after = liftIO $ do
cb' <- mkWidgetHideCallback (widgetHideCallbackWrapper cb)
connectSignalFunPtr obj "hide" cb' after
type WidgetHierarchyChangedCallback =
Maybe Widget ->
IO ()
noWidgetHierarchyChangedCallback :: Maybe WidgetHierarchyChangedCallback
noWidgetHierarchyChangedCallback = Nothing
type WidgetHierarchyChangedCallbackC =
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetHierarchyChangedCallback :: WidgetHierarchyChangedCallbackC -> IO (FunPtr WidgetHierarchyChangedCallbackC)
widgetHierarchyChangedClosure :: WidgetHierarchyChangedCallback -> IO Closure
widgetHierarchyChangedClosure cb = newCClosure =<< mkWidgetHierarchyChangedCallback wrapped
where wrapped = widgetHierarchyChangedCallbackWrapper cb
widgetHierarchyChangedCallbackWrapper ::
WidgetHierarchyChangedCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
widgetHierarchyChangedCallbackWrapper _cb _ previous_toplevel _ = do
maybePrevious_toplevel <-
if previous_toplevel == nullPtr
then return Nothing
else do
previous_toplevel' <- (newObject Widget) previous_toplevel
return $ Just previous_toplevel'
_cb maybePrevious_toplevel
onWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId
onWidgetHierarchyChanged obj cb = liftIO $ connectWidgetHierarchyChanged obj cb SignalConnectBefore
afterWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId
afterWidgetHierarchyChanged obj cb = connectWidgetHierarchyChanged obj cb SignalConnectAfter
connectWidgetHierarchyChanged :: (GObject a, MonadIO m) =>
a -> WidgetHierarchyChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetHierarchyChanged obj cb after = liftIO $ do
cb' <- mkWidgetHierarchyChangedCallback (widgetHierarchyChangedCallbackWrapper cb)
connectSignalFunPtr obj "hierarchy-changed" cb' after
type WidgetKeyPressEventCallback =
Gdk.EventKey ->
IO Bool
noWidgetKeyPressEventCallback :: Maybe WidgetKeyPressEventCallback
noWidgetKeyPressEventCallback = Nothing
type WidgetKeyPressEventCallbackC =
Ptr () ->
Ptr Gdk.EventKey ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetKeyPressEventCallback :: WidgetKeyPressEventCallbackC -> IO (FunPtr WidgetKeyPressEventCallbackC)
widgetKeyPressEventClosure :: WidgetKeyPressEventCallback -> IO Closure
widgetKeyPressEventClosure cb = newCClosure =<< mkWidgetKeyPressEventCallback wrapped
where wrapped = widgetKeyPressEventCallbackWrapper cb
widgetKeyPressEventCallbackWrapper ::
WidgetKeyPressEventCallback ->
Ptr () ->
Ptr Gdk.EventKey ->
Ptr () ->
IO CInt
widgetKeyPressEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 56 Gdk.EventKey) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId
onWidgetKeyPressEvent obj cb = liftIO $ connectWidgetKeyPressEvent obj cb SignalConnectBefore
afterWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId
afterWidgetKeyPressEvent obj cb = connectWidgetKeyPressEvent obj cb SignalConnectAfter
connectWidgetKeyPressEvent :: (GObject a, MonadIO m) =>
a -> WidgetKeyPressEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetKeyPressEvent obj cb after = liftIO $ do
cb' <- mkWidgetKeyPressEventCallback (widgetKeyPressEventCallbackWrapper cb)
connectSignalFunPtr obj "key-press-event" cb' after
type WidgetKeyReleaseEventCallback =
Gdk.EventKey ->
IO Bool
noWidgetKeyReleaseEventCallback :: Maybe WidgetKeyReleaseEventCallback
noWidgetKeyReleaseEventCallback = Nothing
type WidgetKeyReleaseEventCallbackC =
Ptr () ->
Ptr Gdk.EventKey ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetKeyReleaseEventCallback :: WidgetKeyReleaseEventCallbackC -> IO (FunPtr WidgetKeyReleaseEventCallbackC)
widgetKeyReleaseEventClosure :: WidgetKeyReleaseEventCallback -> IO Closure
widgetKeyReleaseEventClosure cb = newCClosure =<< mkWidgetKeyReleaseEventCallback wrapped
where wrapped = widgetKeyReleaseEventCallbackWrapper cb
widgetKeyReleaseEventCallbackWrapper ::
WidgetKeyReleaseEventCallback ->
Ptr () ->
Ptr Gdk.EventKey ->
Ptr () ->
IO CInt
widgetKeyReleaseEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 56 Gdk.EventKey) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId
onWidgetKeyReleaseEvent obj cb = liftIO $ connectWidgetKeyReleaseEvent obj cb SignalConnectBefore
afterWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId
afterWidgetKeyReleaseEvent obj cb = connectWidgetKeyReleaseEvent obj cb SignalConnectAfter
connectWidgetKeyReleaseEvent :: (GObject a, MonadIO m) =>
a -> WidgetKeyReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetKeyReleaseEvent obj cb after = liftIO $ do
cb' <- mkWidgetKeyReleaseEventCallback (widgetKeyReleaseEventCallbackWrapper cb)
connectSignalFunPtr obj "key-release-event" cb' after
type WidgetKeynavFailedCallback =
DirectionType ->
IO Bool
noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback
noWidgetKeynavFailedCallback = Nothing
type WidgetKeynavFailedCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetKeynavFailedCallback :: WidgetKeynavFailedCallbackC -> IO (FunPtr WidgetKeynavFailedCallbackC)
widgetKeynavFailedClosure :: WidgetKeynavFailedCallback -> IO Closure
widgetKeynavFailedClosure cb = newCClosure =<< mkWidgetKeynavFailedCallback wrapped
where wrapped = widgetKeynavFailedCallbackWrapper cb
widgetKeynavFailedCallbackWrapper ::
WidgetKeynavFailedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
widgetKeynavFailedCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
result <- _cb direction'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId
onWidgetKeynavFailed obj cb = liftIO $ connectWidgetKeynavFailed obj cb SignalConnectBefore
afterWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId
afterWidgetKeynavFailed obj cb = connectWidgetKeynavFailed obj cb SignalConnectAfter
connectWidgetKeynavFailed :: (GObject a, MonadIO m) =>
a -> WidgetKeynavFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetKeynavFailed obj cb after = liftIO $ do
cb' <- mkWidgetKeynavFailedCallback (widgetKeynavFailedCallbackWrapper cb)
connectSignalFunPtr obj "keynav-failed" cb' after
type WidgetLeaveNotifyEventCallback =
Gdk.EventCrossing ->
IO Bool
noWidgetLeaveNotifyEventCallback :: Maybe WidgetLeaveNotifyEventCallback
noWidgetLeaveNotifyEventCallback = Nothing
type WidgetLeaveNotifyEventCallbackC =
Ptr () ->
Ptr Gdk.EventCrossing ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetLeaveNotifyEventCallback :: WidgetLeaveNotifyEventCallbackC -> IO (FunPtr WidgetLeaveNotifyEventCallbackC)
widgetLeaveNotifyEventClosure :: WidgetLeaveNotifyEventCallback -> IO Closure
widgetLeaveNotifyEventClosure cb = newCClosure =<< mkWidgetLeaveNotifyEventCallback wrapped
where wrapped = widgetLeaveNotifyEventCallbackWrapper cb
widgetLeaveNotifyEventCallbackWrapper ::
WidgetLeaveNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventCrossing ->
Ptr () ->
IO CInt
widgetLeaveNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 88 Gdk.EventCrossing) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId
onWidgetLeaveNotifyEvent obj cb = liftIO $ connectWidgetLeaveNotifyEvent obj cb SignalConnectBefore
afterWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId
afterWidgetLeaveNotifyEvent obj cb = connectWidgetLeaveNotifyEvent obj cb SignalConnectAfter
connectWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetLeaveNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetLeaveNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetLeaveNotifyEventCallback (widgetLeaveNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "leave-notify-event" cb' after
type WidgetMapCallback =
IO ()
noWidgetMapCallback :: Maybe WidgetMapCallback
noWidgetMapCallback = Nothing
type WidgetMapCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetMapCallback :: WidgetMapCallbackC -> IO (FunPtr WidgetMapCallbackC)
widgetMapClosure :: WidgetMapCallback -> IO Closure
widgetMapClosure cb = newCClosure =<< mkWidgetMapCallback wrapped
where wrapped = widgetMapCallbackWrapper cb
widgetMapCallbackWrapper ::
WidgetMapCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetMapCallbackWrapper _cb _ _ = do
_cb
onWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
onWidgetMap obj cb = liftIO $ connectWidgetMap obj cb SignalConnectBefore
afterWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId
afterWidgetMap obj cb = connectWidgetMap obj cb SignalConnectAfter
connectWidgetMap :: (GObject a, MonadIO m) =>
a -> WidgetMapCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMap obj cb after = liftIO $ do
cb' <- mkWidgetMapCallback (widgetMapCallbackWrapper cb)
connectSignalFunPtr obj "map" cb' after
type WidgetMapEventCallback =
Gdk.EventAny ->
IO Bool
noWidgetMapEventCallback :: Maybe WidgetMapEventCallback
noWidgetMapEventCallback = Nothing
type WidgetMapEventCallbackC =
Ptr () ->
Ptr Gdk.EventAny ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetMapEventCallback :: WidgetMapEventCallbackC -> IO (FunPtr WidgetMapEventCallbackC)
widgetMapEventClosure :: WidgetMapEventCallback -> IO Closure
widgetMapEventClosure cb = newCClosure =<< mkWidgetMapEventCallback wrapped
where wrapped = widgetMapEventCallbackWrapper cb
widgetMapEventCallbackWrapper ::
WidgetMapEventCallback ->
Ptr () ->
Ptr Gdk.EventAny ->
Ptr () ->
IO CInt
widgetMapEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventAny) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId
onWidgetMapEvent obj cb = liftIO $ connectWidgetMapEvent obj cb SignalConnectBefore
afterWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId
afterWidgetMapEvent obj cb = connectWidgetMapEvent obj cb SignalConnectAfter
connectWidgetMapEvent :: (GObject a, MonadIO m) =>
a -> WidgetMapEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMapEvent obj cb after = liftIO $ do
cb' <- mkWidgetMapEventCallback (widgetMapEventCallbackWrapper cb)
connectSignalFunPtr obj "map-event" cb' after
type WidgetMnemonicActivateCallback =
Bool ->
IO Bool
noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback
noWidgetMnemonicActivateCallback = Nothing
type WidgetMnemonicActivateCallbackC =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallbackC -> IO (FunPtr WidgetMnemonicActivateCallbackC)
widgetMnemonicActivateClosure :: WidgetMnemonicActivateCallback -> IO Closure
widgetMnemonicActivateClosure cb = newCClosure =<< mkWidgetMnemonicActivateCallback wrapped
where wrapped = widgetMnemonicActivateCallbackWrapper cb
widgetMnemonicActivateCallbackWrapper ::
WidgetMnemonicActivateCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
widgetMnemonicActivateCallbackWrapper _cb _ arg1 _ = do
let arg1' = (/= 0) arg1
result <- _cb arg1'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
onWidgetMnemonicActivate obj cb = liftIO $ connectWidgetMnemonicActivate obj cb SignalConnectBefore
afterWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId
afterWidgetMnemonicActivate obj cb = connectWidgetMnemonicActivate obj cb SignalConnectAfter
connectWidgetMnemonicActivate :: (GObject a, MonadIO m) =>
a -> WidgetMnemonicActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMnemonicActivate obj cb after = liftIO $ do
cb' <- mkWidgetMnemonicActivateCallback (widgetMnemonicActivateCallbackWrapper cb)
connectSignalFunPtr obj "mnemonic-activate" cb' after
type WidgetMotionNotifyEventCallback =
Gdk.EventMotion ->
IO Bool
noWidgetMotionNotifyEventCallback :: Maybe WidgetMotionNotifyEventCallback
noWidgetMotionNotifyEventCallback = Nothing
type WidgetMotionNotifyEventCallbackC =
Ptr () ->
Ptr Gdk.EventMotion ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetMotionNotifyEventCallback :: WidgetMotionNotifyEventCallbackC -> IO (FunPtr WidgetMotionNotifyEventCallbackC)
widgetMotionNotifyEventClosure :: WidgetMotionNotifyEventCallback -> IO Closure
widgetMotionNotifyEventClosure cb = newCClosure =<< mkWidgetMotionNotifyEventCallback wrapped
where wrapped = widgetMotionNotifyEventCallbackWrapper cb
widgetMotionNotifyEventCallbackWrapper ::
WidgetMotionNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventMotion ->
Ptr () ->
IO CInt
widgetMotionNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 80 Gdk.EventMotion) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId
onWidgetMotionNotifyEvent obj cb = liftIO $ connectWidgetMotionNotifyEvent obj cb SignalConnectBefore
afterWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId
afterWidgetMotionNotifyEvent obj cb = connectWidgetMotionNotifyEvent obj cb SignalConnectAfter
connectWidgetMotionNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetMotionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMotionNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetMotionNotifyEventCallback (widgetMotionNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "motion-notify-event" cb' after
type WidgetMoveFocusCallback =
DirectionType ->
IO ()
noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback
noWidgetMoveFocusCallback = Nothing
type WidgetMoveFocusCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetMoveFocusCallback :: WidgetMoveFocusCallbackC -> IO (FunPtr WidgetMoveFocusCallbackC)
widgetMoveFocusClosure :: WidgetMoveFocusCallback -> IO Closure
widgetMoveFocusClosure cb = newCClosure =<< mkWidgetMoveFocusCallback wrapped
where wrapped = widgetMoveFocusCallbackWrapper cb
widgetMoveFocusCallbackWrapper ::
WidgetMoveFocusCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetMoveFocusCallbackWrapper _cb _ direction _ = do
let direction' = (toEnum . fromIntegral) direction
_cb direction'
onWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId
onWidgetMoveFocus obj cb = liftIO $ connectWidgetMoveFocus obj cb SignalConnectBefore
afterWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId
afterWidgetMoveFocus obj cb = connectWidgetMoveFocus obj cb SignalConnectAfter
connectWidgetMoveFocus :: (GObject a, MonadIO m) =>
a -> WidgetMoveFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetMoveFocus obj cb after = liftIO $ do
cb' <- mkWidgetMoveFocusCallback (widgetMoveFocusCallbackWrapper cb)
connectSignalFunPtr obj "move-focus" cb' after
type WidgetParentSetCallback =
Maybe Widget ->
IO ()
noWidgetParentSetCallback :: Maybe WidgetParentSetCallback
noWidgetParentSetCallback = Nothing
type WidgetParentSetCallbackC =
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetParentSetCallback :: WidgetParentSetCallbackC -> IO (FunPtr WidgetParentSetCallbackC)
widgetParentSetClosure :: WidgetParentSetCallback -> IO Closure
widgetParentSetClosure cb = newCClosure =<< mkWidgetParentSetCallback wrapped
where wrapped = widgetParentSetCallbackWrapper cb
widgetParentSetCallbackWrapper ::
WidgetParentSetCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
widgetParentSetCallbackWrapper _cb _ old_parent _ = do
maybeOld_parent <-
if old_parent == nullPtr
then return Nothing
else do
old_parent' <- (newObject Widget) old_parent
return $ Just old_parent'
_cb maybeOld_parent
onWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId
onWidgetParentSet obj cb = liftIO $ connectWidgetParentSet obj cb SignalConnectBefore
afterWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId
afterWidgetParentSet obj cb = connectWidgetParentSet obj cb SignalConnectAfter
connectWidgetParentSet :: (GObject a, MonadIO m) =>
a -> WidgetParentSetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetParentSet obj cb after = liftIO $ do
cb' <- mkWidgetParentSetCallback (widgetParentSetCallbackWrapper cb)
connectSignalFunPtr obj "parent-set" cb' after
type WidgetPopupMenuCallback =
IO Bool
noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback
noWidgetPopupMenuCallback = Nothing
type WidgetPopupMenuCallbackC =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetPopupMenuCallback :: WidgetPopupMenuCallbackC -> IO (FunPtr WidgetPopupMenuCallbackC)
widgetPopupMenuClosure :: WidgetPopupMenuCallback -> IO Closure
widgetPopupMenuClosure cb = newCClosure =<< mkWidgetPopupMenuCallback wrapped
where wrapped = widgetPopupMenuCallbackWrapper cb
widgetPopupMenuCallbackWrapper ::
WidgetPopupMenuCallback ->
Ptr () ->
Ptr () ->
IO CInt
widgetPopupMenuCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId
onWidgetPopupMenu obj cb = liftIO $ connectWidgetPopupMenu obj cb SignalConnectBefore
afterWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId
afterWidgetPopupMenu obj cb = connectWidgetPopupMenu obj cb SignalConnectAfter
connectWidgetPopupMenu :: (GObject a, MonadIO m) =>
a -> WidgetPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetPopupMenu obj cb after = liftIO $ do
cb' <- mkWidgetPopupMenuCallback (widgetPopupMenuCallbackWrapper cb)
connectSignalFunPtr obj "popup-menu" cb' after
type WidgetPropertyNotifyEventCallback =
Gdk.EventProperty ->
IO Bool
noWidgetPropertyNotifyEventCallback :: Maybe WidgetPropertyNotifyEventCallback
noWidgetPropertyNotifyEventCallback = Nothing
type WidgetPropertyNotifyEventCallbackC =
Ptr () ->
Ptr Gdk.EventProperty ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetPropertyNotifyEventCallback :: WidgetPropertyNotifyEventCallbackC -> IO (FunPtr WidgetPropertyNotifyEventCallbackC)
widgetPropertyNotifyEventClosure :: WidgetPropertyNotifyEventCallback -> IO Closure
widgetPropertyNotifyEventClosure cb = newCClosure =<< mkWidgetPropertyNotifyEventCallback wrapped
where wrapped = widgetPropertyNotifyEventCallbackWrapper cb
widgetPropertyNotifyEventCallbackWrapper ::
WidgetPropertyNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventProperty ->
Ptr () ->
IO CInt
widgetPropertyNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 40 Gdk.EventProperty) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId
onWidgetPropertyNotifyEvent obj cb = liftIO $ connectWidgetPropertyNotifyEvent obj cb SignalConnectBefore
afterWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId
afterWidgetPropertyNotifyEvent obj cb = connectWidgetPropertyNotifyEvent obj cb SignalConnectAfter
connectWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetPropertyNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetPropertyNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetPropertyNotifyEventCallback (widgetPropertyNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "property-notify-event" cb' after
type WidgetProximityInEventCallback =
Gdk.EventProximity ->
IO Bool
noWidgetProximityInEventCallback :: Maybe WidgetProximityInEventCallback
noWidgetProximityInEventCallback = Nothing
type WidgetProximityInEventCallbackC =
Ptr () ->
Ptr Gdk.EventProximity ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetProximityInEventCallback :: WidgetProximityInEventCallbackC -> IO (FunPtr WidgetProximityInEventCallbackC)
widgetProximityInEventClosure :: WidgetProximityInEventCallback -> IO Closure
widgetProximityInEventClosure cb = newCClosure =<< mkWidgetProximityInEventCallback wrapped
where wrapped = widgetProximityInEventCallbackWrapper cb
widgetProximityInEventCallbackWrapper ::
WidgetProximityInEventCallback ->
Ptr () ->
Ptr Gdk.EventProximity ->
Ptr () ->
IO CInt
widgetProximityInEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 32 Gdk.EventProximity) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId
onWidgetProximityInEvent obj cb = liftIO $ connectWidgetProximityInEvent obj cb SignalConnectBefore
afterWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId
afterWidgetProximityInEvent obj cb = connectWidgetProximityInEvent obj cb SignalConnectAfter
connectWidgetProximityInEvent :: (GObject a, MonadIO m) =>
a -> WidgetProximityInEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetProximityInEvent obj cb after = liftIO $ do
cb' <- mkWidgetProximityInEventCallback (widgetProximityInEventCallbackWrapper cb)
connectSignalFunPtr obj "proximity-in-event" cb' after
type WidgetProximityOutEventCallback =
Gdk.EventProximity ->
IO Bool
noWidgetProximityOutEventCallback :: Maybe WidgetProximityOutEventCallback
noWidgetProximityOutEventCallback = Nothing
type WidgetProximityOutEventCallbackC =
Ptr () ->
Ptr Gdk.EventProximity ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetProximityOutEventCallback :: WidgetProximityOutEventCallbackC -> IO (FunPtr WidgetProximityOutEventCallbackC)
widgetProximityOutEventClosure :: WidgetProximityOutEventCallback -> IO Closure
widgetProximityOutEventClosure cb = newCClosure =<< mkWidgetProximityOutEventCallback wrapped
where wrapped = widgetProximityOutEventCallbackWrapper cb
widgetProximityOutEventCallbackWrapper ::
WidgetProximityOutEventCallback ->
Ptr () ->
Ptr Gdk.EventProximity ->
Ptr () ->
IO CInt
widgetProximityOutEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 32 Gdk.EventProximity) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId
onWidgetProximityOutEvent obj cb = liftIO $ connectWidgetProximityOutEvent obj cb SignalConnectBefore
afterWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId
afterWidgetProximityOutEvent obj cb = connectWidgetProximityOutEvent obj cb SignalConnectAfter
connectWidgetProximityOutEvent :: (GObject a, MonadIO m) =>
a -> WidgetProximityOutEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetProximityOutEvent obj cb after = liftIO $ do
cb' <- mkWidgetProximityOutEventCallback (widgetProximityOutEventCallbackWrapper cb)
connectSignalFunPtr obj "proximity-out-event" cb' after
type WidgetQueryTooltipCallback =
Int32 ->
Int32 ->
Bool ->
Tooltip ->
IO Bool
noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback
noWidgetQueryTooltipCallback = Nothing
type WidgetQueryTooltipCallbackC =
Ptr () ->
Int32 ->
Int32 ->
CInt ->
Ptr Tooltip ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetQueryTooltipCallback :: WidgetQueryTooltipCallbackC -> IO (FunPtr WidgetQueryTooltipCallbackC)
widgetQueryTooltipClosure :: WidgetQueryTooltipCallback -> IO Closure
widgetQueryTooltipClosure cb = newCClosure =<< mkWidgetQueryTooltipCallback wrapped
where wrapped = widgetQueryTooltipCallbackWrapper cb
widgetQueryTooltipCallbackWrapper ::
WidgetQueryTooltipCallback ->
Ptr () ->
Int32 ->
Int32 ->
CInt ->
Ptr Tooltip ->
Ptr () ->
IO CInt
widgetQueryTooltipCallbackWrapper _cb _ x y keyboard_mode tooltip _ = do
let keyboard_mode' = (/= 0) keyboard_mode
tooltip' <- (newObject Tooltip) tooltip
result <- _cb x y keyboard_mode' tooltip'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId
onWidgetQueryTooltip obj cb = liftIO $ connectWidgetQueryTooltip obj cb SignalConnectBefore
afterWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId
afterWidgetQueryTooltip obj cb = connectWidgetQueryTooltip obj cb SignalConnectAfter
connectWidgetQueryTooltip :: (GObject a, MonadIO m) =>
a -> WidgetQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetQueryTooltip obj cb after = liftIO $ do
cb' <- mkWidgetQueryTooltipCallback (widgetQueryTooltipCallbackWrapper cb)
connectSignalFunPtr obj "query-tooltip" cb' after
type WidgetRealizeCallback =
IO ()
noWidgetRealizeCallback :: Maybe WidgetRealizeCallback
noWidgetRealizeCallback = Nothing
type WidgetRealizeCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetRealizeCallback :: WidgetRealizeCallbackC -> IO (FunPtr WidgetRealizeCallbackC)
widgetRealizeClosure :: WidgetRealizeCallback -> IO Closure
widgetRealizeClosure cb = newCClosure =<< mkWidgetRealizeCallback wrapped
where wrapped = widgetRealizeCallbackWrapper cb
widgetRealizeCallbackWrapper ::
WidgetRealizeCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetRealizeCallbackWrapper _cb _ _ = do
_cb
onWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
onWidgetRealize obj cb = liftIO $ connectWidgetRealize obj cb SignalConnectBefore
afterWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId
afterWidgetRealize obj cb = connectWidgetRealize obj cb SignalConnectAfter
connectWidgetRealize :: (GObject a, MonadIO m) =>
a -> WidgetRealizeCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetRealize obj cb after = liftIO $ do
cb' <- mkWidgetRealizeCallback (widgetRealizeCallbackWrapper cb)
connectSignalFunPtr obj "realize" cb' after
type WidgetScreenChangedCallback =
Maybe Gdk.Screen ->
IO ()
noWidgetScreenChangedCallback :: Maybe WidgetScreenChangedCallback
noWidgetScreenChangedCallback = Nothing
type WidgetScreenChangedCallbackC =
Ptr () ->
Ptr Gdk.Screen ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetScreenChangedCallback :: WidgetScreenChangedCallbackC -> IO (FunPtr WidgetScreenChangedCallbackC)
widgetScreenChangedClosure :: WidgetScreenChangedCallback -> IO Closure
widgetScreenChangedClosure cb = newCClosure =<< mkWidgetScreenChangedCallback wrapped
where wrapped = widgetScreenChangedCallbackWrapper cb
widgetScreenChangedCallbackWrapper ::
WidgetScreenChangedCallback ->
Ptr () ->
Ptr Gdk.Screen ->
Ptr () ->
IO ()
widgetScreenChangedCallbackWrapper _cb _ previous_screen _ = do
maybePrevious_screen <-
if previous_screen == nullPtr
then return Nothing
else do
previous_screen' <- (newObject Gdk.Screen) previous_screen
return $ Just previous_screen'
_cb maybePrevious_screen
onWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId
onWidgetScreenChanged obj cb = liftIO $ connectWidgetScreenChanged obj cb SignalConnectBefore
afterWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId
afterWidgetScreenChanged obj cb = connectWidgetScreenChanged obj cb SignalConnectAfter
connectWidgetScreenChanged :: (GObject a, MonadIO m) =>
a -> WidgetScreenChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetScreenChanged obj cb after = liftIO $ do
cb' <- mkWidgetScreenChangedCallback (widgetScreenChangedCallbackWrapper cb)
connectSignalFunPtr obj "screen-changed" cb' after
type WidgetScrollEventCallback =
Gdk.EventScroll ->
IO Bool
noWidgetScrollEventCallback :: Maybe WidgetScrollEventCallback
noWidgetScrollEventCallback = Nothing
type WidgetScrollEventCallbackC =
Ptr () ->
Ptr Gdk.EventScroll ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetScrollEventCallback :: WidgetScrollEventCallbackC -> IO (FunPtr WidgetScrollEventCallbackC)
widgetScrollEventClosure :: WidgetScrollEventCallback -> IO Closure
widgetScrollEventClosure cb = newCClosure =<< mkWidgetScrollEventCallback wrapped
where wrapped = widgetScrollEventCallbackWrapper cb
widgetScrollEventCallbackWrapper ::
WidgetScrollEventCallback ->
Ptr () ->
Ptr Gdk.EventScroll ->
Ptr () ->
IO CInt
widgetScrollEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 88 Gdk.EventScroll) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId
onWidgetScrollEvent obj cb = liftIO $ connectWidgetScrollEvent obj cb SignalConnectBefore
afterWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId
afterWidgetScrollEvent obj cb = connectWidgetScrollEvent obj cb SignalConnectAfter
connectWidgetScrollEvent :: (GObject a, MonadIO m) =>
a -> WidgetScrollEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetScrollEvent obj cb after = liftIO $ do
cb' <- mkWidgetScrollEventCallback (widgetScrollEventCallbackWrapper cb)
connectSignalFunPtr obj "scroll-event" cb' after
type WidgetSelectionClearEventCallback =
Gdk.EventSelection ->
IO Bool
noWidgetSelectionClearEventCallback :: Maybe WidgetSelectionClearEventCallback
noWidgetSelectionClearEventCallback = Nothing
type WidgetSelectionClearEventCallbackC =
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetSelectionClearEventCallback :: WidgetSelectionClearEventCallbackC -> IO (FunPtr WidgetSelectionClearEventCallbackC)
widgetSelectionClearEventClosure :: WidgetSelectionClearEventCallback -> IO Closure
widgetSelectionClearEventClosure cb = newCClosure =<< mkWidgetSelectionClearEventCallback wrapped
where wrapped = widgetSelectionClearEventCallbackWrapper cb
widgetSelectionClearEventCallbackWrapper ::
WidgetSelectionClearEventCallback ->
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
widgetSelectionClearEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 64 Gdk.EventSelection) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId
onWidgetSelectionClearEvent obj cb = liftIO $ connectWidgetSelectionClearEvent obj cb SignalConnectBefore
afterWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId
afterWidgetSelectionClearEvent obj cb = connectWidgetSelectionClearEvent obj cb SignalConnectAfter
connectWidgetSelectionClearEvent :: (GObject a, MonadIO m) =>
a -> WidgetSelectionClearEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionClearEvent obj cb after = liftIO $ do
cb' <- mkWidgetSelectionClearEventCallback (widgetSelectionClearEventCallbackWrapper cb)
connectSignalFunPtr obj "selection-clear-event" cb' after
type WidgetSelectionGetCallback =
SelectionData ->
Word32 ->
Word32 ->
IO ()
noWidgetSelectionGetCallback :: Maybe WidgetSelectionGetCallback
noWidgetSelectionGetCallback = Nothing
type WidgetSelectionGetCallbackC =
Ptr () ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetSelectionGetCallback :: WidgetSelectionGetCallbackC -> IO (FunPtr WidgetSelectionGetCallbackC)
widgetSelectionGetClosure :: WidgetSelectionGetCallback -> IO Closure
widgetSelectionGetClosure cb = newCClosure =<< mkWidgetSelectionGetCallback wrapped
where wrapped = widgetSelectionGetCallbackWrapper cb
widgetSelectionGetCallbackWrapper ::
WidgetSelectionGetCallback ->
Ptr () ->
Ptr SelectionData ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
widgetSelectionGetCallbackWrapper _cb _ data_ info time _ = do
data_' <- (newBoxed SelectionData) data_
_cb data_' info time
onWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId
onWidgetSelectionGet obj cb = liftIO $ connectWidgetSelectionGet obj cb SignalConnectBefore
afterWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId
afterWidgetSelectionGet obj cb = connectWidgetSelectionGet obj cb SignalConnectAfter
connectWidgetSelectionGet :: (GObject a, MonadIO m) =>
a -> WidgetSelectionGetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionGet obj cb after = liftIO $ do
cb' <- mkWidgetSelectionGetCallback (widgetSelectionGetCallbackWrapper cb)
connectSignalFunPtr obj "selection-get" cb' after
type WidgetSelectionNotifyEventCallback =
Gdk.EventSelection ->
IO Bool
noWidgetSelectionNotifyEventCallback :: Maybe WidgetSelectionNotifyEventCallback
noWidgetSelectionNotifyEventCallback = Nothing
type WidgetSelectionNotifyEventCallbackC =
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetSelectionNotifyEventCallback :: WidgetSelectionNotifyEventCallbackC -> IO (FunPtr WidgetSelectionNotifyEventCallbackC)
widgetSelectionNotifyEventClosure :: WidgetSelectionNotifyEventCallback -> IO Closure
widgetSelectionNotifyEventClosure cb = newCClosure =<< mkWidgetSelectionNotifyEventCallback wrapped
where wrapped = widgetSelectionNotifyEventCallbackWrapper cb
widgetSelectionNotifyEventCallbackWrapper ::
WidgetSelectionNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
widgetSelectionNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 64 Gdk.EventSelection) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId
onWidgetSelectionNotifyEvent obj cb = liftIO $ connectWidgetSelectionNotifyEvent obj cb SignalConnectBefore
afterWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId
afterWidgetSelectionNotifyEvent obj cb = connectWidgetSelectionNotifyEvent obj cb SignalConnectAfter
connectWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetSelectionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetSelectionNotifyEventCallback (widgetSelectionNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "selection-notify-event" cb' after
type WidgetSelectionReceivedCallback =
SelectionData ->
Word32 ->
IO ()
noWidgetSelectionReceivedCallback :: Maybe WidgetSelectionReceivedCallback
noWidgetSelectionReceivedCallback = Nothing
type WidgetSelectionReceivedCallbackC =
Ptr () ->
Ptr SelectionData ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetSelectionReceivedCallback :: WidgetSelectionReceivedCallbackC -> IO (FunPtr WidgetSelectionReceivedCallbackC)
widgetSelectionReceivedClosure :: WidgetSelectionReceivedCallback -> IO Closure
widgetSelectionReceivedClosure cb = newCClosure =<< mkWidgetSelectionReceivedCallback wrapped
where wrapped = widgetSelectionReceivedCallbackWrapper cb
widgetSelectionReceivedCallbackWrapper ::
WidgetSelectionReceivedCallback ->
Ptr () ->
Ptr SelectionData ->
Word32 ->
Ptr () ->
IO ()
widgetSelectionReceivedCallbackWrapper _cb _ data_ time _ = do
data_' <- (newBoxed SelectionData) data_
_cb data_' time
onWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId
onWidgetSelectionReceived obj cb = liftIO $ connectWidgetSelectionReceived obj cb SignalConnectBefore
afterWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId
afterWidgetSelectionReceived obj cb = connectWidgetSelectionReceived obj cb SignalConnectAfter
connectWidgetSelectionReceived :: (GObject a, MonadIO m) =>
a -> WidgetSelectionReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionReceived obj cb after = liftIO $ do
cb' <- mkWidgetSelectionReceivedCallback (widgetSelectionReceivedCallbackWrapper cb)
connectSignalFunPtr obj "selection-received" cb' after
type WidgetSelectionRequestEventCallback =
Gdk.EventSelection ->
IO Bool
noWidgetSelectionRequestEventCallback :: Maybe WidgetSelectionRequestEventCallback
noWidgetSelectionRequestEventCallback = Nothing
type WidgetSelectionRequestEventCallbackC =
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetSelectionRequestEventCallback :: WidgetSelectionRequestEventCallbackC -> IO (FunPtr WidgetSelectionRequestEventCallbackC)
widgetSelectionRequestEventClosure :: WidgetSelectionRequestEventCallback -> IO Closure
widgetSelectionRequestEventClosure cb = newCClosure =<< mkWidgetSelectionRequestEventCallback wrapped
where wrapped = widgetSelectionRequestEventCallbackWrapper cb
widgetSelectionRequestEventCallbackWrapper ::
WidgetSelectionRequestEventCallback ->
Ptr () ->
Ptr Gdk.EventSelection ->
Ptr () ->
IO CInt
widgetSelectionRequestEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 64 Gdk.EventSelection) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId
onWidgetSelectionRequestEvent obj cb = liftIO $ connectWidgetSelectionRequestEvent obj cb SignalConnectBefore
afterWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId
afterWidgetSelectionRequestEvent obj cb = connectWidgetSelectionRequestEvent obj cb SignalConnectAfter
connectWidgetSelectionRequestEvent :: (GObject a, MonadIO m) =>
a -> WidgetSelectionRequestEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSelectionRequestEvent obj cb after = liftIO $ do
cb' <- mkWidgetSelectionRequestEventCallback (widgetSelectionRequestEventCallbackWrapper cb)
connectSignalFunPtr obj "selection-request-event" cb' after
type WidgetShowCallback =
IO ()
noWidgetShowCallback :: Maybe WidgetShowCallback
noWidgetShowCallback = Nothing
type WidgetShowCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetShowCallback :: WidgetShowCallbackC -> IO (FunPtr WidgetShowCallbackC)
widgetShowClosure :: WidgetShowCallback -> IO Closure
widgetShowClosure cb = newCClosure =<< mkWidgetShowCallback wrapped
where wrapped = widgetShowCallbackWrapper cb
widgetShowCallbackWrapper ::
WidgetShowCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetShowCallbackWrapper _cb _ _ = do
_cb
onWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
onWidgetShow obj cb = liftIO $ connectWidgetShow obj cb SignalConnectBefore
afterWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId
afterWidgetShow obj cb = connectWidgetShow obj cb SignalConnectAfter
connectWidgetShow :: (GObject a, MonadIO m) =>
a -> WidgetShowCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetShow obj cb after = liftIO $ do
cb' <- mkWidgetShowCallback (widgetShowCallbackWrapper cb)
connectSignalFunPtr obj "show" cb' after
type WidgetShowHelpCallback =
WidgetHelpType ->
IO Bool
noWidgetShowHelpCallback :: Maybe WidgetShowHelpCallback
noWidgetShowHelpCallback = Nothing
type WidgetShowHelpCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetShowHelpCallback :: WidgetShowHelpCallbackC -> IO (FunPtr WidgetShowHelpCallbackC)
widgetShowHelpClosure :: WidgetShowHelpCallback -> IO Closure
widgetShowHelpClosure cb = newCClosure =<< mkWidgetShowHelpCallback wrapped
where wrapped = widgetShowHelpCallbackWrapper cb
widgetShowHelpCallbackWrapper ::
WidgetShowHelpCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
widgetShowHelpCallbackWrapper _cb _ help_type _ = do
let help_type' = (toEnum . fromIntegral) help_type
result <- _cb help_type'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId
onWidgetShowHelp obj cb = liftIO $ connectWidgetShowHelp obj cb SignalConnectBefore
afterWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId
afterWidgetShowHelp obj cb = connectWidgetShowHelp obj cb SignalConnectAfter
connectWidgetShowHelp :: (GObject a, MonadIO m) =>
a -> WidgetShowHelpCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetShowHelp obj cb after = liftIO $ do
cb' <- mkWidgetShowHelpCallback (widgetShowHelpCallbackWrapper cb)
connectSignalFunPtr obj "show-help" cb' after
type WidgetSizeAllocateCallback =
Cairo.RectangleInt ->
IO ()
noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback
noWidgetSizeAllocateCallback = Nothing
type WidgetSizeAllocateCallbackC =
Ptr () ->
Ptr Cairo.RectangleInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetSizeAllocateCallback :: WidgetSizeAllocateCallbackC -> IO (FunPtr WidgetSizeAllocateCallbackC)
widgetSizeAllocateClosure :: WidgetSizeAllocateCallback -> IO Closure
widgetSizeAllocateClosure cb = newCClosure =<< mkWidgetSizeAllocateCallback wrapped
where wrapped = widgetSizeAllocateCallbackWrapper cb
widgetSizeAllocateCallbackWrapper ::
WidgetSizeAllocateCallback ->
Ptr () ->
Ptr Cairo.RectangleInt ->
Ptr () ->
IO ()
widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do
allocation' <- (newBoxed Cairo.RectangleInt) allocation
_cb allocation'
onWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId
onWidgetSizeAllocate obj cb = liftIO $ connectWidgetSizeAllocate obj cb SignalConnectBefore
afterWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId
afterWidgetSizeAllocate obj cb = connectWidgetSizeAllocate obj cb SignalConnectAfter
connectWidgetSizeAllocate :: (GObject a, MonadIO m) =>
a -> WidgetSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetSizeAllocate obj cb after = liftIO $ do
cb' <- mkWidgetSizeAllocateCallback (widgetSizeAllocateCallbackWrapper cb)
connectSignalFunPtr obj "size-allocate" cb' after
type WidgetStateChangedCallback =
StateType ->
IO ()
noWidgetStateChangedCallback :: Maybe WidgetStateChangedCallback
noWidgetStateChangedCallback = Nothing
type WidgetStateChangedCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetStateChangedCallback :: WidgetStateChangedCallbackC -> IO (FunPtr WidgetStateChangedCallbackC)
widgetStateChangedClosure :: WidgetStateChangedCallback -> IO Closure
widgetStateChangedClosure cb = newCClosure =<< mkWidgetStateChangedCallback wrapped
where wrapped = widgetStateChangedCallbackWrapper cb
widgetStateChangedCallbackWrapper ::
WidgetStateChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetStateChangedCallbackWrapper _cb _ state _ = do
let state' = (toEnum . fromIntegral) state
_cb state'
onWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId
onWidgetStateChanged obj cb = liftIO $ connectWidgetStateChanged obj cb SignalConnectBefore
afterWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId
afterWidgetStateChanged obj cb = connectWidgetStateChanged obj cb SignalConnectAfter
connectWidgetStateChanged :: (GObject a, MonadIO m) =>
a -> WidgetStateChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStateChanged obj cb after = liftIO $ do
cb' <- mkWidgetStateChangedCallback (widgetStateChangedCallbackWrapper cb)
connectSignalFunPtr obj "state-changed" cb' after
type WidgetStateFlagsChangedCallback =
[StateFlags] ->
IO ()
noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback
noWidgetStateFlagsChangedCallback = Nothing
type WidgetStateFlagsChangedCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallbackC -> IO (FunPtr WidgetStateFlagsChangedCallbackC)
widgetStateFlagsChangedClosure :: WidgetStateFlagsChangedCallback -> IO Closure
widgetStateFlagsChangedClosure cb = newCClosure =<< mkWidgetStateFlagsChangedCallback wrapped
where wrapped = widgetStateFlagsChangedCallbackWrapper cb
widgetStateFlagsChangedCallbackWrapper ::
WidgetStateFlagsChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
widgetStateFlagsChangedCallbackWrapper _cb _ flags _ = do
let flags' = wordToGFlags flags
_cb flags'
onWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
onWidgetStateFlagsChanged obj cb = liftIO $ connectWidgetStateFlagsChanged obj cb SignalConnectBefore
afterWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId
afterWidgetStateFlagsChanged obj cb = connectWidgetStateFlagsChanged obj cb SignalConnectAfter
connectWidgetStateFlagsChanged :: (GObject a, MonadIO m) =>
a -> WidgetStateFlagsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStateFlagsChanged obj cb after = liftIO $ do
cb' <- mkWidgetStateFlagsChangedCallback (widgetStateFlagsChangedCallbackWrapper cb)
connectSignalFunPtr obj "state-flags-changed" cb' after
type WidgetStyleSetCallback =
Maybe Style ->
IO ()
noWidgetStyleSetCallback :: Maybe WidgetStyleSetCallback
noWidgetStyleSetCallback = Nothing
type WidgetStyleSetCallbackC =
Ptr () ->
Ptr Style ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetStyleSetCallback :: WidgetStyleSetCallbackC -> IO (FunPtr WidgetStyleSetCallbackC)
widgetStyleSetClosure :: WidgetStyleSetCallback -> IO Closure
widgetStyleSetClosure cb = newCClosure =<< mkWidgetStyleSetCallback wrapped
where wrapped = widgetStyleSetCallbackWrapper cb
widgetStyleSetCallbackWrapper ::
WidgetStyleSetCallback ->
Ptr () ->
Ptr Style ->
Ptr () ->
IO ()
widgetStyleSetCallbackWrapper _cb _ previous_style _ = do
maybePrevious_style <-
if previous_style == nullPtr
then return Nothing
else do
previous_style' <- (newObject Style) previous_style
return $ Just previous_style'
_cb maybePrevious_style
onWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId
onWidgetStyleSet obj cb = liftIO $ connectWidgetStyleSet obj cb SignalConnectBefore
afterWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId
afterWidgetStyleSet obj cb = connectWidgetStyleSet obj cb SignalConnectAfter
connectWidgetStyleSet :: (GObject a, MonadIO m) =>
a -> WidgetStyleSetCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStyleSet obj cb after = liftIO $ do
cb' <- mkWidgetStyleSetCallback (widgetStyleSetCallbackWrapper cb)
connectSignalFunPtr obj "style-set" cb' after
type WidgetStyleUpdatedCallback =
IO ()
noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback
noWidgetStyleUpdatedCallback = Nothing
type WidgetStyleUpdatedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetStyleUpdatedCallback :: WidgetStyleUpdatedCallbackC -> IO (FunPtr WidgetStyleUpdatedCallbackC)
widgetStyleUpdatedClosure :: WidgetStyleUpdatedCallback -> IO Closure
widgetStyleUpdatedClosure cb = newCClosure =<< mkWidgetStyleUpdatedCallback wrapped
where wrapped = widgetStyleUpdatedCallbackWrapper cb
widgetStyleUpdatedCallbackWrapper ::
WidgetStyleUpdatedCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetStyleUpdatedCallbackWrapper _cb _ _ = do
_cb
onWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId
onWidgetStyleUpdated obj cb = liftIO $ connectWidgetStyleUpdated obj cb SignalConnectBefore
afterWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId
afterWidgetStyleUpdated obj cb = connectWidgetStyleUpdated obj cb SignalConnectAfter
connectWidgetStyleUpdated :: (GObject a, MonadIO m) =>
a -> WidgetStyleUpdatedCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetStyleUpdated obj cb after = liftIO $ do
cb' <- mkWidgetStyleUpdatedCallback (widgetStyleUpdatedCallbackWrapper cb)
connectSignalFunPtr obj "style-updated" cb' after
type WidgetTouchEventCallback =
Gdk.Event ->
IO Bool
noWidgetTouchEventCallback :: Maybe WidgetTouchEventCallback
noWidgetTouchEventCallback = Nothing
type WidgetTouchEventCallbackC =
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetTouchEventCallback :: WidgetTouchEventCallbackC -> IO (FunPtr WidgetTouchEventCallbackC)
widgetTouchEventClosure :: WidgetTouchEventCallback -> IO Closure
widgetTouchEventClosure cb = newCClosure =<< mkWidgetTouchEventCallback wrapped
where wrapped = widgetTouchEventCallbackWrapper cb
widgetTouchEventCallbackWrapper ::
WidgetTouchEventCallback ->
Ptr () ->
Ptr Gdk.Event ->
Ptr () ->
IO CInt
widgetTouchEventCallbackWrapper _cb _ object _ = do
object' <- (newBoxed Gdk.Event) object
result <- _cb object'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId
onWidgetTouchEvent obj cb = liftIO $ connectWidgetTouchEvent obj cb SignalConnectBefore
afterWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId
afterWidgetTouchEvent obj cb = connectWidgetTouchEvent obj cb SignalConnectAfter
connectWidgetTouchEvent :: (GObject a, MonadIO m) =>
a -> WidgetTouchEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetTouchEvent obj cb after = liftIO $ do
cb' <- mkWidgetTouchEventCallback (widgetTouchEventCallbackWrapper cb)
connectSignalFunPtr obj "touch-event" cb' after
type WidgetUnmapCallback =
IO ()
noWidgetUnmapCallback :: Maybe WidgetUnmapCallback
noWidgetUnmapCallback = Nothing
type WidgetUnmapCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetUnmapCallback :: WidgetUnmapCallbackC -> IO (FunPtr WidgetUnmapCallbackC)
widgetUnmapClosure :: WidgetUnmapCallback -> IO Closure
widgetUnmapClosure cb = newCClosure =<< mkWidgetUnmapCallback wrapped
where wrapped = widgetUnmapCallbackWrapper cb
widgetUnmapCallbackWrapper ::
WidgetUnmapCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetUnmapCallbackWrapper _cb _ _ = do
_cb
onWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
onWidgetUnmap obj cb = liftIO $ connectWidgetUnmap obj cb SignalConnectBefore
afterWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId
afterWidgetUnmap obj cb = connectWidgetUnmap obj cb SignalConnectAfter
connectWidgetUnmap :: (GObject a, MonadIO m) =>
a -> WidgetUnmapCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetUnmap obj cb after = liftIO $ do
cb' <- mkWidgetUnmapCallback (widgetUnmapCallbackWrapper cb)
connectSignalFunPtr obj "unmap" cb' after
type WidgetUnmapEventCallback =
Gdk.EventAny ->
IO Bool
noWidgetUnmapEventCallback :: Maybe WidgetUnmapEventCallback
noWidgetUnmapEventCallback = Nothing
type WidgetUnmapEventCallbackC =
Ptr () ->
Ptr Gdk.EventAny ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetUnmapEventCallback :: WidgetUnmapEventCallbackC -> IO (FunPtr WidgetUnmapEventCallbackC)
widgetUnmapEventClosure :: WidgetUnmapEventCallback -> IO Closure
widgetUnmapEventClosure cb = newCClosure =<< mkWidgetUnmapEventCallback wrapped
where wrapped = widgetUnmapEventCallbackWrapper cb
widgetUnmapEventCallbackWrapper ::
WidgetUnmapEventCallback ->
Ptr () ->
Ptr Gdk.EventAny ->
Ptr () ->
IO CInt
widgetUnmapEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventAny) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId
onWidgetUnmapEvent obj cb = liftIO $ connectWidgetUnmapEvent obj cb SignalConnectBefore
afterWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId
afterWidgetUnmapEvent obj cb = connectWidgetUnmapEvent obj cb SignalConnectAfter
connectWidgetUnmapEvent :: (GObject a, MonadIO m) =>
a -> WidgetUnmapEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetUnmapEvent obj cb after = liftIO $ do
cb' <- mkWidgetUnmapEventCallback (widgetUnmapEventCallbackWrapper cb)
connectSignalFunPtr obj "unmap-event" cb' after
type WidgetUnrealizeCallback =
IO ()
noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback
noWidgetUnrealizeCallback = Nothing
type WidgetUnrealizeCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWidgetUnrealizeCallback :: WidgetUnrealizeCallbackC -> IO (FunPtr WidgetUnrealizeCallbackC)
widgetUnrealizeClosure :: WidgetUnrealizeCallback -> IO Closure
widgetUnrealizeClosure cb = newCClosure =<< mkWidgetUnrealizeCallback wrapped
where wrapped = widgetUnrealizeCallbackWrapper cb
widgetUnrealizeCallbackWrapper ::
WidgetUnrealizeCallback ->
Ptr () ->
Ptr () ->
IO ()
widgetUnrealizeCallbackWrapper _cb _ _ = do
_cb
onWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
onWidgetUnrealize obj cb = liftIO $ connectWidgetUnrealize obj cb SignalConnectBefore
afterWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId
afterWidgetUnrealize obj cb = connectWidgetUnrealize obj cb SignalConnectAfter
connectWidgetUnrealize :: (GObject a, MonadIO m) =>
a -> WidgetUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetUnrealize obj cb after = liftIO $ do
cb' <- mkWidgetUnrealizeCallback (widgetUnrealizeCallbackWrapper cb)
connectSignalFunPtr obj "unrealize" cb' after
type WidgetVisibilityNotifyEventCallback =
Gdk.EventVisibility ->
IO Bool
noWidgetVisibilityNotifyEventCallback :: Maybe WidgetVisibilityNotifyEventCallback
noWidgetVisibilityNotifyEventCallback = Nothing
type WidgetVisibilityNotifyEventCallbackC =
Ptr () ->
Ptr Gdk.EventVisibility ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetVisibilityNotifyEventCallback :: WidgetVisibilityNotifyEventCallbackC -> IO (FunPtr WidgetVisibilityNotifyEventCallbackC)
widgetVisibilityNotifyEventClosure :: WidgetVisibilityNotifyEventCallback -> IO Closure
widgetVisibilityNotifyEventClosure cb = newCClosure =<< mkWidgetVisibilityNotifyEventCallback wrapped
where wrapped = widgetVisibilityNotifyEventCallbackWrapper cb
widgetVisibilityNotifyEventCallbackWrapper ::
WidgetVisibilityNotifyEventCallback ->
Ptr () ->
Ptr Gdk.EventVisibility ->
Ptr () ->
IO CInt
widgetVisibilityNotifyEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 24 Gdk.EventVisibility) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId
onWidgetVisibilityNotifyEvent obj cb = liftIO $ connectWidgetVisibilityNotifyEvent obj cb SignalConnectBefore
afterWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId
afterWidgetVisibilityNotifyEvent obj cb = connectWidgetVisibilityNotifyEvent obj cb SignalConnectAfter
connectWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) =>
a -> WidgetVisibilityNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetVisibilityNotifyEvent obj cb after = liftIO $ do
cb' <- mkWidgetVisibilityNotifyEventCallback (widgetVisibilityNotifyEventCallbackWrapper cb)
connectSignalFunPtr obj "visibility-notify-event" cb' after
type WidgetWindowStateEventCallback =
Gdk.EventWindowState ->
IO Bool
noWidgetWindowStateEventCallback :: Maybe WidgetWindowStateEventCallback
noWidgetWindowStateEventCallback = Nothing
type WidgetWindowStateEventCallbackC =
Ptr () ->
Ptr Gdk.EventWindowState ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWidgetWindowStateEventCallback :: WidgetWindowStateEventCallbackC -> IO (FunPtr WidgetWindowStateEventCallbackC)
widgetWindowStateEventClosure :: WidgetWindowStateEventCallback -> IO Closure
widgetWindowStateEventClosure cb = newCClosure =<< mkWidgetWindowStateEventCallback wrapped
where wrapped = widgetWindowStateEventCallbackWrapper cb
widgetWindowStateEventCallbackWrapper ::
WidgetWindowStateEventCallback ->
Ptr () ->
Ptr Gdk.EventWindowState ->
Ptr () ->
IO CInt
widgetWindowStateEventCallbackWrapper _cb _ event _ = do
event' <- (newPtr 32 Gdk.EventWindowState) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId
onWidgetWindowStateEvent obj cb = liftIO $ connectWidgetWindowStateEvent obj cb SignalConnectBefore
afterWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId
afterWidgetWindowStateEvent obj cb = connectWidgetWindowStateEvent obj cb SignalConnectAfter
connectWidgetWindowStateEvent :: (GObject a, MonadIO m) =>
a -> WidgetWindowStateEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWidgetWindowStateEvent obj cb after = liftIO $ do
cb' <- mkWidgetWindowStateEventCallback (widgetWindowStateEventCallbackWrapper cb)
connectSignalFunPtr obj "window-state-event" cb' after
getWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetAppPaintable obj = liftIO $ getObjectPropertyBool obj "app-paintable"
setWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetAppPaintable obj val = liftIO $ setObjectPropertyBool obj "app-paintable" val
constructWidgetAppPaintable :: Bool -> IO ([Char], GValue)
constructWidgetAppPaintable val = constructObjectPropertyBool "app-paintable" val
data WidgetAppPaintablePropertyInfo
instance AttrInfo WidgetAppPaintablePropertyInfo where
type AttrAllowedOps WidgetAppPaintablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetAppPaintablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetAppPaintablePropertyInfo = WidgetK
type AttrGetType WidgetAppPaintablePropertyInfo = Bool
type AttrLabel WidgetAppPaintablePropertyInfo = "Widget::app-paintable"
attrGet _ = getWidgetAppPaintable
attrSet _ = setWidgetAppPaintable
attrConstruct _ = constructWidgetAppPaintable
getWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetCanDefault obj = liftIO $ getObjectPropertyBool obj "can-default"
setWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetCanDefault obj val = liftIO $ setObjectPropertyBool obj "can-default" val
constructWidgetCanDefault :: Bool -> IO ([Char], GValue)
constructWidgetCanDefault val = constructObjectPropertyBool "can-default" val
data WidgetCanDefaultPropertyInfo
instance AttrInfo WidgetCanDefaultPropertyInfo where
type AttrAllowedOps WidgetCanDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetCanDefaultPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetCanDefaultPropertyInfo = WidgetK
type AttrGetType WidgetCanDefaultPropertyInfo = Bool
type AttrLabel WidgetCanDefaultPropertyInfo = "Widget::can-default"
attrGet _ = getWidgetCanDefault
attrSet _ = setWidgetCanDefault
attrConstruct _ = constructWidgetCanDefault
getWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetCanFocus obj = liftIO $ getObjectPropertyBool obj "can-focus"
setWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetCanFocus obj val = liftIO $ setObjectPropertyBool obj "can-focus" val
constructWidgetCanFocus :: Bool -> IO ([Char], GValue)
constructWidgetCanFocus val = constructObjectPropertyBool "can-focus" val
data WidgetCanFocusPropertyInfo
instance AttrInfo WidgetCanFocusPropertyInfo where
type AttrAllowedOps WidgetCanFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetCanFocusPropertyInfo = WidgetK
type AttrGetType WidgetCanFocusPropertyInfo = Bool
type AttrLabel WidgetCanFocusPropertyInfo = "Widget::can-focus"
attrGet _ = getWidgetCanFocus
attrSet _ = setWidgetCanFocus
attrConstruct _ = constructWidgetCanFocus
getWidgetCompositeChild :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetCompositeChild obj = liftIO $ getObjectPropertyBool obj "composite-child"
data WidgetCompositeChildPropertyInfo
instance AttrInfo WidgetCompositeChildPropertyInfo where
type AttrAllowedOps WidgetCompositeChildPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WidgetCompositeChildPropertyInfo = (~) ()
type AttrBaseTypeConstraint WidgetCompositeChildPropertyInfo = WidgetK
type AttrGetType WidgetCompositeChildPropertyInfo = Bool
type AttrLabel WidgetCompositeChildPropertyInfo = "Widget::composite-child"
attrGet _ = getWidgetCompositeChild
attrSet _ = undefined
attrConstruct _ = undefined
getWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetDoubleBuffered obj = liftIO $ getObjectPropertyBool obj "double-buffered"
setWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetDoubleBuffered obj val = liftIO $ setObjectPropertyBool obj "double-buffered" val
constructWidgetDoubleBuffered :: Bool -> IO ([Char], GValue)
constructWidgetDoubleBuffered val = constructObjectPropertyBool "double-buffered" val
data WidgetDoubleBufferedPropertyInfo
instance AttrInfo WidgetDoubleBufferedPropertyInfo where
type AttrAllowedOps WidgetDoubleBufferedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetDoubleBufferedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetDoubleBufferedPropertyInfo = WidgetK
type AttrGetType WidgetDoubleBufferedPropertyInfo = Bool
type AttrLabel WidgetDoubleBufferedPropertyInfo = "Widget::double-buffered"
attrGet _ = getWidgetDoubleBuffered
attrSet _ = setWidgetDoubleBuffered
attrConstruct _ = constructWidgetDoubleBuffered
getWidgetEvents :: (MonadIO m, WidgetK o) => o -> m [Gdk.EventMask]
getWidgetEvents obj = liftIO $ getObjectPropertyFlags obj "events"
setWidgetEvents :: (MonadIO m, WidgetK o) => o -> [Gdk.EventMask] -> m ()
setWidgetEvents obj val = liftIO $ setObjectPropertyFlags obj "events" val
constructWidgetEvents :: [Gdk.EventMask] -> IO ([Char], GValue)
constructWidgetEvents val = constructObjectPropertyFlags "events" val
data WidgetEventsPropertyInfo
instance AttrInfo WidgetEventsPropertyInfo where
type AttrAllowedOps WidgetEventsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetEventsPropertyInfo = (~) [Gdk.EventMask]
type AttrBaseTypeConstraint WidgetEventsPropertyInfo = WidgetK
type AttrGetType WidgetEventsPropertyInfo = [Gdk.EventMask]
type AttrLabel WidgetEventsPropertyInfo = "Widget::events"
attrGet _ = getWidgetEvents
attrSet _ = setWidgetEvents
attrConstruct _ = constructWidgetEvents
getWidgetExpand :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetExpand obj = liftIO $ getObjectPropertyBool obj "expand"
setWidgetExpand :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val
constructWidgetExpand :: Bool -> IO ([Char], GValue)
constructWidgetExpand val = constructObjectPropertyBool "expand" val
data WidgetExpandPropertyInfo
instance AttrInfo WidgetExpandPropertyInfo where
type AttrAllowedOps WidgetExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetExpandPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetExpandPropertyInfo = WidgetK
type AttrGetType WidgetExpandPropertyInfo = Bool
type AttrLabel WidgetExpandPropertyInfo = "Widget::expand"
attrGet _ = getWidgetExpand
attrSet _ = setWidgetExpand
attrConstruct _ = constructWidgetExpand
getWidgetHalign :: (MonadIO m, WidgetK o) => o -> m Align
getWidgetHalign obj = liftIO $ getObjectPropertyEnum obj "halign"
setWidgetHalign :: (MonadIO m, WidgetK o) => o -> Align -> m ()
setWidgetHalign obj val = liftIO $ setObjectPropertyEnum obj "halign" val
constructWidgetHalign :: Align -> IO ([Char], GValue)
constructWidgetHalign val = constructObjectPropertyEnum "halign" val
data WidgetHalignPropertyInfo
instance AttrInfo WidgetHalignPropertyInfo where
type AttrAllowedOps WidgetHalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetHalignPropertyInfo = (~) Align
type AttrBaseTypeConstraint WidgetHalignPropertyInfo = WidgetK
type AttrGetType WidgetHalignPropertyInfo = Align
type AttrLabel WidgetHalignPropertyInfo = "Widget::halign"
attrGet _ = getWidgetHalign
attrSet _ = setWidgetHalign
attrConstruct _ = constructWidgetHalign
getWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetHasDefault obj = liftIO $ getObjectPropertyBool obj "has-default"
setWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetHasDefault obj val = liftIO $ setObjectPropertyBool obj "has-default" val
constructWidgetHasDefault :: Bool -> IO ([Char], GValue)
constructWidgetHasDefault val = constructObjectPropertyBool "has-default" val
data WidgetHasDefaultPropertyInfo
instance AttrInfo WidgetHasDefaultPropertyInfo where
type AttrAllowedOps WidgetHasDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetHasDefaultPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetHasDefaultPropertyInfo = WidgetK
type AttrGetType WidgetHasDefaultPropertyInfo = Bool
type AttrLabel WidgetHasDefaultPropertyInfo = "Widget::has-default"
attrGet _ = getWidgetHasDefault
attrSet _ = setWidgetHasDefault
attrConstruct _ = constructWidgetHasDefault
getWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetHasFocus obj = liftIO $ getObjectPropertyBool obj "has-focus"
setWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetHasFocus obj val = liftIO $ setObjectPropertyBool obj "has-focus" val
constructWidgetHasFocus :: Bool -> IO ([Char], GValue)
constructWidgetHasFocus val = constructObjectPropertyBool "has-focus" val
data WidgetHasFocusPropertyInfo
instance AttrInfo WidgetHasFocusPropertyInfo where
type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = WidgetK
type AttrGetType WidgetHasFocusPropertyInfo = Bool
type AttrLabel WidgetHasFocusPropertyInfo = "Widget::has-focus"
attrGet _ = getWidgetHasFocus
attrSet _ = setWidgetHasFocus
attrConstruct _ = constructWidgetHasFocus
getWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip"
setWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val
constructWidgetHasTooltip :: Bool -> IO ([Char], GValue)
constructWidgetHasTooltip val = constructObjectPropertyBool "has-tooltip" val
data WidgetHasTooltipPropertyInfo
instance AttrInfo WidgetHasTooltipPropertyInfo where
type AttrAllowedOps WidgetHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetHasTooltipPropertyInfo = WidgetK
type AttrGetType WidgetHasTooltipPropertyInfo = Bool
type AttrLabel WidgetHasTooltipPropertyInfo = "Widget::has-tooltip"
attrGet _ = getWidgetHasTooltip
attrSet _ = setWidgetHasTooltip
attrConstruct _ = constructWidgetHasTooltip
getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetHeightRequest obj = liftIO $ getObjectPropertyCInt obj "height-request"
setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetHeightRequest obj val = liftIO $ setObjectPropertyCInt obj "height-request" val
constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue)
constructWidgetHeightRequest val = constructObjectPropertyCInt "height-request" val
data WidgetHeightRequestPropertyInfo
instance AttrInfo WidgetHeightRequestPropertyInfo where
type AttrAllowedOps WidgetHeightRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetHeightRequestPropertyInfo = WidgetK
type AttrGetType WidgetHeightRequestPropertyInfo = Int32
type AttrLabel WidgetHeightRequestPropertyInfo = "Widget::height-request"
attrGet _ = getWidgetHeightRequest
attrSet _ = setWidgetHeightRequest
attrConstruct _ = constructWidgetHeightRequest
getWidgetHexpand :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetHexpand obj = liftIO $ getObjectPropertyBool obj "hexpand"
setWidgetHexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetHexpand obj val = liftIO $ setObjectPropertyBool obj "hexpand" val
constructWidgetHexpand :: Bool -> IO ([Char], GValue)
constructWidgetHexpand val = constructObjectPropertyBool "hexpand" val
data WidgetHexpandPropertyInfo
instance AttrInfo WidgetHexpandPropertyInfo where
type AttrAllowedOps WidgetHexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetHexpandPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetHexpandPropertyInfo = WidgetK
type AttrGetType WidgetHexpandPropertyInfo = Bool
type AttrLabel WidgetHexpandPropertyInfo = "Widget::hexpand"
attrGet _ = getWidgetHexpand
attrSet _ = setWidgetHexpand
attrConstruct _ = constructWidgetHexpand
getWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetHexpandSet obj = liftIO $ getObjectPropertyBool obj "hexpand-set"
setWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetHexpandSet obj val = liftIO $ setObjectPropertyBool obj "hexpand-set" val
constructWidgetHexpandSet :: Bool -> IO ([Char], GValue)
constructWidgetHexpandSet val = constructObjectPropertyBool "hexpand-set" val
data WidgetHexpandSetPropertyInfo
instance AttrInfo WidgetHexpandSetPropertyInfo where
type AttrAllowedOps WidgetHexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetHexpandSetPropertyInfo = WidgetK
type AttrGetType WidgetHexpandSetPropertyInfo = Bool
type AttrLabel WidgetHexpandSetPropertyInfo = "Widget::hexpand-set"
attrGet _ = getWidgetHexpandSet
attrSet _ = setWidgetHexpandSet
attrConstruct _ = constructWidgetHexpandSet
getWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetIsFocus obj = liftIO $ getObjectPropertyBool obj "is-focus"
setWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetIsFocus obj val = liftIO $ setObjectPropertyBool obj "is-focus" val
constructWidgetIsFocus :: Bool -> IO ([Char], GValue)
constructWidgetIsFocus val = constructObjectPropertyBool "is-focus" val
data WidgetIsFocusPropertyInfo
instance AttrInfo WidgetIsFocusPropertyInfo where
type AttrAllowedOps WidgetIsFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetIsFocusPropertyInfo = WidgetK
type AttrGetType WidgetIsFocusPropertyInfo = Bool
type AttrLabel WidgetIsFocusPropertyInfo = "Widget::is-focus"
attrGet _ = getWidgetIsFocus
attrSet _ = setWidgetIsFocus
attrConstruct _ = constructWidgetIsFocus
getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetMargin obj = liftIO $ getObjectPropertyCInt obj "margin"
setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val
constructWidgetMargin :: Int32 -> IO ([Char], GValue)
constructWidgetMargin val = constructObjectPropertyCInt "margin" val
data WidgetMarginPropertyInfo
instance AttrInfo WidgetMarginPropertyInfo where
type AttrAllowedOps WidgetMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetMarginPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetMarginPropertyInfo = WidgetK
type AttrGetType WidgetMarginPropertyInfo = Int32
type AttrLabel WidgetMarginPropertyInfo = "Widget::margin"
attrGet _ = getWidgetMargin
attrSet _ = setWidgetMargin
attrConstruct _ = constructWidgetMargin
getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetMarginBottom obj = liftIO $ getObjectPropertyCInt obj "margin-bottom"
setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetMarginBottom obj val = liftIO $ setObjectPropertyCInt obj "margin-bottom" val
constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue)
constructWidgetMarginBottom val = constructObjectPropertyCInt "margin-bottom" val
data WidgetMarginBottomPropertyInfo
instance AttrInfo WidgetMarginBottomPropertyInfo where
type AttrAllowedOps WidgetMarginBottomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetMarginBottomPropertyInfo = WidgetK
type AttrGetType WidgetMarginBottomPropertyInfo = Int32
type AttrLabel WidgetMarginBottomPropertyInfo = "Widget::margin-bottom"
attrGet _ = getWidgetMarginBottom
attrSet _ = setWidgetMarginBottom
attrConstruct _ = constructWidgetMarginBottom
getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetMarginEnd obj = liftIO $ getObjectPropertyCInt obj "margin-end"
setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetMarginEnd obj val = liftIO $ setObjectPropertyCInt obj "margin-end" val
constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue)
constructWidgetMarginEnd val = constructObjectPropertyCInt "margin-end" val
data WidgetMarginEndPropertyInfo
instance AttrInfo WidgetMarginEndPropertyInfo where
type AttrAllowedOps WidgetMarginEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetMarginEndPropertyInfo = WidgetK
type AttrGetType WidgetMarginEndPropertyInfo = Int32
type AttrLabel WidgetMarginEndPropertyInfo = "Widget::margin-end"
attrGet _ = getWidgetMarginEnd
attrSet _ = setWidgetMarginEnd
attrConstruct _ = constructWidgetMarginEnd
getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetMarginLeft obj = liftIO $ getObjectPropertyCInt obj "margin-left"
setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetMarginLeft obj val = liftIO $ setObjectPropertyCInt obj "margin-left" val
constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue)
constructWidgetMarginLeft val = constructObjectPropertyCInt "margin-left" val
data WidgetMarginLeftPropertyInfo
instance AttrInfo WidgetMarginLeftPropertyInfo where
type AttrAllowedOps WidgetMarginLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetMarginLeftPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetMarginLeftPropertyInfo = WidgetK
type AttrGetType WidgetMarginLeftPropertyInfo = Int32
type AttrLabel WidgetMarginLeftPropertyInfo = "Widget::margin-left"
attrGet _ = getWidgetMarginLeft
attrSet _ = setWidgetMarginLeft
attrConstruct _ = constructWidgetMarginLeft
getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetMarginRight obj = liftIO $ getObjectPropertyCInt obj "margin-right"
setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetMarginRight obj val = liftIO $ setObjectPropertyCInt obj "margin-right" val
constructWidgetMarginRight :: Int32 -> IO ([Char], GValue)
constructWidgetMarginRight val = constructObjectPropertyCInt "margin-right" val
data WidgetMarginRightPropertyInfo
instance AttrInfo WidgetMarginRightPropertyInfo where
type AttrAllowedOps WidgetMarginRightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetMarginRightPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetMarginRightPropertyInfo = WidgetK
type AttrGetType WidgetMarginRightPropertyInfo = Int32
type AttrLabel WidgetMarginRightPropertyInfo = "Widget::margin-right"
attrGet _ = getWidgetMarginRight
attrSet _ = setWidgetMarginRight
attrConstruct _ = constructWidgetMarginRight
getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetMarginStart obj = liftIO $ getObjectPropertyCInt obj "margin-start"
setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetMarginStart obj val = liftIO $ setObjectPropertyCInt obj "margin-start" val
constructWidgetMarginStart :: Int32 -> IO ([Char], GValue)
constructWidgetMarginStart val = constructObjectPropertyCInt "margin-start" val
data WidgetMarginStartPropertyInfo
instance AttrInfo WidgetMarginStartPropertyInfo where
type AttrAllowedOps WidgetMarginStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetMarginStartPropertyInfo = WidgetK
type AttrGetType WidgetMarginStartPropertyInfo = Int32
type AttrLabel WidgetMarginStartPropertyInfo = "Widget::margin-start"
attrGet _ = getWidgetMarginStart
attrSet _ = setWidgetMarginStart
attrConstruct _ = constructWidgetMarginStart
getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetMarginTop obj = liftIO $ getObjectPropertyCInt obj "margin-top"
setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetMarginTop obj val = liftIO $ setObjectPropertyCInt obj "margin-top" val
constructWidgetMarginTop :: Int32 -> IO ([Char], GValue)
constructWidgetMarginTop val = constructObjectPropertyCInt "margin-top" val
data WidgetMarginTopPropertyInfo
instance AttrInfo WidgetMarginTopPropertyInfo where
type AttrAllowedOps WidgetMarginTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetMarginTopPropertyInfo = WidgetK
type AttrGetType WidgetMarginTopPropertyInfo = Int32
type AttrLabel WidgetMarginTopPropertyInfo = "Widget::margin-top"
attrGet _ = getWidgetMarginTop
attrSet _ = setWidgetMarginTop
attrConstruct _ = constructWidgetMarginTop
getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text
getWidgetName obj = liftIO $ getObjectPropertyString obj "name"
setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m ()
setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" val
constructWidgetName :: T.Text -> IO ([Char], GValue)
constructWidgetName val = constructObjectPropertyString "name" val
data WidgetNamePropertyInfo
instance AttrInfo WidgetNamePropertyInfo where
type AttrAllowedOps WidgetNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WidgetNamePropertyInfo = WidgetK
type AttrGetType WidgetNamePropertyInfo = T.Text
type AttrLabel WidgetNamePropertyInfo = "Widget::name"
attrGet _ = getWidgetName
attrSet _ = setWidgetName
attrConstruct _ = constructWidgetName
getWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetNoShowAll obj = liftIO $ getObjectPropertyBool obj "no-show-all"
setWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetNoShowAll obj val = liftIO $ setObjectPropertyBool obj "no-show-all" val
constructWidgetNoShowAll :: Bool -> IO ([Char], GValue)
constructWidgetNoShowAll val = constructObjectPropertyBool "no-show-all" val
data WidgetNoShowAllPropertyInfo
instance AttrInfo WidgetNoShowAllPropertyInfo where
type AttrAllowedOps WidgetNoShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetNoShowAllPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetNoShowAllPropertyInfo = WidgetK
type AttrGetType WidgetNoShowAllPropertyInfo = Bool
type AttrLabel WidgetNoShowAllPropertyInfo = "Widget::no-show-all"
attrGet _ = getWidgetNoShowAll
attrSet _ = setWidgetNoShowAll
attrConstruct _ = constructWidgetNoShowAll
getWidgetOpacity :: (MonadIO m, WidgetK o) => o -> m Double
getWidgetOpacity obj = liftIO $ getObjectPropertyDouble obj "opacity"
setWidgetOpacity :: (MonadIO m, WidgetK o) => o -> Double -> m ()
setWidgetOpacity obj val = liftIO $ setObjectPropertyDouble obj "opacity" val
constructWidgetOpacity :: Double -> IO ([Char], GValue)
constructWidgetOpacity val = constructObjectPropertyDouble "opacity" val
data WidgetOpacityPropertyInfo
instance AttrInfo WidgetOpacityPropertyInfo where
type AttrAllowedOps WidgetOpacityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetOpacityPropertyInfo = (~) Double
type AttrBaseTypeConstraint WidgetOpacityPropertyInfo = WidgetK
type AttrGetType WidgetOpacityPropertyInfo = Double
type AttrLabel WidgetOpacityPropertyInfo = "Widget::opacity"
attrGet _ = getWidgetOpacity
attrSet _ = setWidgetOpacity
attrConstruct _ = constructWidgetOpacity
getWidgetParent :: (MonadIO m, WidgetK o) => o -> m Container
getWidgetParent obj = liftIO $ getObjectPropertyObject obj "parent" Container
setWidgetParent :: (MonadIO m, WidgetK o, ContainerK a) => o -> a -> m ()
setWidgetParent obj val = liftIO $ setObjectPropertyObject obj "parent" val
constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue)
constructWidgetParent val = constructObjectPropertyObject "parent" val
data WidgetParentPropertyInfo
instance AttrInfo WidgetParentPropertyInfo where
type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK
type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK
type AttrGetType WidgetParentPropertyInfo = Container
type AttrLabel WidgetParentPropertyInfo = "Widget::parent"
attrGet _ = getWidgetParent
attrSet _ = setWidgetParent
attrConstruct _ = constructWidgetParent
getWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetReceivesDefault obj = liftIO $ getObjectPropertyBool obj "receives-default"
setWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetReceivesDefault obj val = liftIO $ setObjectPropertyBool obj "receives-default" val
constructWidgetReceivesDefault :: Bool -> IO ([Char], GValue)
constructWidgetReceivesDefault val = constructObjectPropertyBool "receives-default" val
data WidgetReceivesDefaultPropertyInfo
instance AttrInfo WidgetReceivesDefaultPropertyInfo where
type AttrAllowedOps WidgetReceivesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetReceivesDefaultPropertyInfo = WidgetK
type AttrGetType WidgetReceivesDefaultPropertyInfo = Bool
type AttrLabel WidgetReceivesDefaultPropertyInfo = "Widget::receives-default"
attrGet _ = getWidgetReceivesDefault
attrSet _ = setWidgetReceivesDefault
attrConstruct _ = constructWidgetReceivesDefault
getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetScaleFactor obj = liftIO $ getObjectPropertyCInt obj "scale-factor"
data WidgetScaleFactorPropertyInfo
instance AttrInfo WidgetScaleFactorPropertyInfo where
type AttrAllowedOps WidgetScaleFactorPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WidgetScaleFactorPropertyInfo = (~) ()
type AttrBaseTypeConstraint WidgetScaleFactorPropertyInfo = WidgetK
type AttrGetType WidgetScaleFactorPropertyInfo = Int32
type AttrLabel WidgetScaleFactorPropertyInfo = "Widget::scale-factor"
attrGet _ = getWidgetScaleFactor
attrSet _ = undefined
attrConstruct _ = undefined
getWidgetSensitive :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive"
setWidgetSensitive :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val
constructWidgetSensitive :: Bool -> IO ([Char], GValue)
constructWidgetSensitive val = constructObjectPropertyBool "sensitive" val
data WidgetSensitivePropertyInfo
instance AttrInfo WidgetSensitivePropertyInfo where
type AttrAllowedOps WidgetSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetSensitivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetSensitivePropertyInfo = WidgetK
type AttrGetType WidgetSensitivePropertyInfo = Bool
type AttrLabel WidgetSensitivePropertyInfo = "Widget::sensitive"
attrGet _ = getWidgetSensitive
attrSet _ = setWidgetSensitive
attrConstruct _ = constructWidgetSensitive
getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style
getWidgetStyle obj = liftIO $ getObjectPropertyObject obj "style" Style
setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m ()
setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" val
constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue)
constructWidgetStyle val = constructObjectPropertyObject "style" val
data WidgetStylePropertyInfo
instance AttrInfo WidgetStylePropertyInfo where
type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK
type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK
type AttrGetType WidgetStylePropertyInfo = Style
type AttrLabel WidgetStylePropertyInfo = "Widget::style"
attrGet _ = getWidgetStyle
attrSet _ = setWidgetStyle
attrConstruct _ = constructWidgetStyle
getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m T.Text
getWidgetTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup"
setWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> T.Text -> m ()
setWidgetTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" val
constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue)
constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val
data WidgetTooltipMarkupPropertyInfo
instance AttrInfo WidgetTooltipMarkupPropertyInfo where
type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK
type AttrGetType WidgetTooltipMarkupPropertyInfo = T.Text
type AttrLabel WidgetTooltipMarkupPropertyInfo = "Widget::tooltip-markup"
attrGet _ = getWidgetTooltipMarkup
attrSet _ = setWidgetTooltipMarkup
attrConstruct _ = constructWidgetTooltipMarkup
getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m T.Text
getWidgetTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text"
setWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> T.Text -> m ()
setWidgetTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" val
constructWidgetTooltipText :: T.Text -> IO ([Char], GValue)
constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" val
data WidgetTooltipTextPropertyInfo
instance AttrInfo WidgetTooltipTextPropertyInfo where
type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK
type AttrGetType WidgetTooltipTextPropertyInfo = T.Text
type AttrLabel WidgetTooltipTextPropertyInfo = "Widget::tooltip-text"
attrGet _ = getWidgetTooltipText
attrSet _ = setWidgetTooltipText
attrConstruct _ = constructWidgetTooltipText
getWidgetValign :: (MonadIO m, WidgetK o) => o -> m Align
getWidgetValign obj = liftIO $ getObjectPropertyEnum obj "valign"
setWidgetValign :: (MonadIO m, WidgetK o) => o -> Align -> m ()
setWidgetValign obj val = liftIO $ setObjectPropertyEnum obj "valign" val
constructWidgetValign :: Align -> IO ([Char], GValue)
constructWidgetValign val = constructObjectPropertyEnum "valign" val
data WidgetValignPropertyInfo
instance AttrInfo WidgetValignPropertyInfo where
type AttrAllowedOps WidgetValignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetValignPropertyInfo = (~) Align
type AttrBaseTypeConstraint WidgetValignPropertyInfo = WidgetK
type AttrGetType WidgetValignPropertyInfo = Align
type AttrLabel WidgetValignPropertyInfo = "Widget::valign"
attrGet _ = getWidgetValign
attrSet _ = setWidgetValign
attrConstruct _ = constructWidgetValign
getWidgetVexpand :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetVexpand obj = liftIO $ getObjectPropertyBool obj "vexpand"
setWidgetVexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetVexpand obj val = liftIO $ setObjectPropertyBool obj "vexpand" val
constructWidgetVexpand :: Bool -> IO ([Char], GValue)
constructWidgetVexpand val = constructObjectPropertyBool "vexpand" val
data WidgetVexpandPropertyInfo
instance AttrInfo WidgetVexpandPropertyInfo where
type AttrAllowedOps WidgetVexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetVexpandPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetVexpandPropertyInfo = WidgetK
type AttrGetType WidgetVexpandPropertyInfo = Bool
type AttrLabel WidgetVexpandPropertyInfo = "Widget::vexpand"
attrGet _ = getWidgetVexpand
attrSet _ = setWidgetVexpand
attrConstruct _ = constructWidgetVexpand
getWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetVexpandSet obj = liftIO $ getObjectPropertyBool obj "vexpand-set"
setWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetVexpandSet obj val = liftIO $ setObjectPropertyBool obj "vexpand-set" val
constructWidgetVexpandSet :: Bool -> IO ([Char], GValue)
constructWidgetVexpandSet val = constructObjectPropertyBool "vexpand-set" val
data WidgetVexpandSetPropertyInfo
instance AttrInfo WidgetVexpandSetPropertyInfo where
type AttrAllowedOps WidgetVexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetVexpandSetPropertyInfo = WidgetK
type AttrGetType WidgetVexpandSetPropertyInfo = Bool
type AttrLabel WidgetVexpandSetPropertyInfo = "Widget::vexpand-set"
attrGet _ = getWidgetVexpandSet
attrSet _ = setWidgetVexpandSet
attrConstruct _ = constructWidgetVexpandSet
getWidgetVisible :: (MonadIO m, WidgetK o) => o -> m Bool
getWidgetVisible obj = liftIO $ getObjectPropertyBool obj "visible"
setWidgetVisible :: (MonadIO m, WidgetK o) => o -> Bool -> m ()
setWidgetVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val
constructWidgetVisible :: Bool -> IO ([Char], GValue)
constructWidgetVisible val = constructObjectPropertyBool "visible" val
data WidgetVisiblePropertyInfo
instance AttrInfo WidgetVisiblePropertyInfo where
type AttrAllowedOps WidgetVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WidgetVisiblePropertyInfo = WidgetK
type AttrGetType WidgetVisiblePropertyInfo = Bool
type AttrLabel WidgetVisiblePropertyInfo = "Widget::visible"
attrGet _ = getWidgetVisible
attrSet _ = setWidgetVisible
attrConstruct _ = constructWidgetVisible
getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32
getWidgetWidthRequest obj = liftIO $ getObjectPropertyCInt obj "width-request"
setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m ()
setWidgetWidthRequest obj val = liftIO $ setObjectPropertyCInt obj "width-request" val
constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue)
constructWidgetWidthRequest val = constructObjectPropertyCInt "width-request" val
data WidgetWidthRequestPropertyInfo
instance AttrInfo WidgetWidthRequestPropertyInfo where
type AttrAllowedOps WidgetWidthRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WidgetWidthRequestPropertyInfo = WidgetK
type AttrGetType WidgetWidthRequestPropertyInfo = Int32
type AttrLabel WidgetWidthRequestPropertyInfo = "Widget::width-request"
attrGet _ = getWidgetWidthRequest
attrSet _ = setWidgetWidthRequest
attrConstruct _ = constructWidgetWidthRequest
getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window
getWidgetWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window
data WidgetWindowPropertyInfo
instance AttrInfo WidgetWindowPropertyInfo where
type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) ()
type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK
type AttrGetType WidgetWindowPropertyInfo = Gdk.Window
type AttrLabel WidgetWindowPropertyInfo = "Widget::window"
attrGet _ = getWidgetWindow
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList Widget = WidgetAttributeList
type WidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data WidgetAccelClosuresChangedSignalInfo
instance SignalInfo WidgetAccelClosuresChangedSignalInfo where
type HaskellCallbackType WidgetAccelClosuresChangedSignalInfo = WidgetAccelClosuresChangedCallback
connectSignal _ = connectWidgetAccelClosuresChanged
data WidgetButtonPressEventSignalInfo
instance SignalInfo WidgetButtonPressEventSignalInfo where
type HaskellCallbackType WidgetButtonPressEventSignalInfo = WidgetButtonPressEventCallback
connectSignal _ = connectWidgetButtonPressEvent
data WidgetButtonReleaseEventSignalInfo
instance SignalInfo WidgetButtonReleaseEventSignalInfo where
type HaskellCallbackType WidgetButtonReleaseEventSignalInfo = WidgetButtonReleaseEventCallback
connectSignal _ = connectWidgetButtonReleaseEvent
data WidgetCanActivateAccelSignalInfo
instance SignalInfo WidgetCanActivateAccelSignalInfo where
type HaskellCallbackType WidgetCanActivateAccelSignalInfo = WidgetCanActivateAccelCallback
connectSignal _ = connectWidgetCanActivateAccel
data WidgetChildNotifySignalInfo
instance SignalInfo WidgetChildNotifySignalInfo where
type HaskellCallbackType WidgetChildNotifySignalInfo = WidgetChildNotifyCallback
connectSignal _ = connectWidgetChildNotify
data WidgetCompositedChangedSignalInfo
instance SignalInfo WidgetCompositedChangedSignalInfo where
type HaskellCallbackType WidgetCompositedChangedSignalInfo = WidgetCompositedChangedCallback
connectSignal _ = connectWidgetCompositedChanged
data WidgetConfigureEventSignalInfo
instance SignalInfo WidgetConfigureEventSignalInfo where
type HaskellCallbackType WidgetConfigureEventSignalInfo = WidgetConfigureEventCallback
connectSignal _ = connectWidgetConfigureEvent
data WidgetDamageEventSignalInfo
instance SignalInfo WidgetDamageEventSignalInfo where
type HaskellCallbackType WidgetDamageEventSignalInfo = WidgetDamageEventCallback
connectSignal _ = connectWidgetDamageEvent
data WidgetDeleteEventSignalInfo
instance SignalInfo WidgetDeleteEventSignalInfo where
type HaskellCallbackType WidgetDeleteEventSignalInfo = WidgetDeleteEventCallback
connectSignal _ = connectWidgetDeleteEvent
data WidgetDestroySignalInfo
instance SignalInfo WidgetDestroySignalInfo where
type HaskellCallbackType WidgetDestroySignalInfo = WidgetDestroyCallback
connectSignal _ = connectWidgetDestroy
data WidgetDestroyEventSignalInfo
instance SignalInfo WidgetDestroyEventSignalInfo where
type HaskellCallbackType WidgetDestroyEventSignalInfo = WidgetDestroyEventCallback
connectSignal _ = connectWidgetDestroyEvent
data WidgetDirectionChangedSignalInfo
instance SignalInfo WidgetDirectionChangedSignalInfo where
type HaskellCallbackType WidgetDirectionChangedSignalInfo = WidgetDirectionChangedCallback
connectSignal _ = connectWidgetDirectionChanged
data WidgetDragBeginSignalInfo
instance SignalInfo WidgetDragBeginSignalInfo where
type HaskellCallbackType WidgetDragBeginSignalInfo = WidgetDragBeginCallback
connectSignal _ = connectWidgetDragBegin
data WidgetDragDataDeleteSignalInfo
instance SignalInfo WidgetDragDataDeleteSignalInfo where
type HaskellCallbackType WidgetDragDataDeleteSignalInfo = WidgetDragDataDeleteCallback
connectSignal _ = connectWidgetDragDataDelete
data WidgetDragDataGetSignalInfo
instance SignalInfo WidgetDragDataGetSignalInfo where
type HaskellCallbackType WidgetDragDataGetSignalInfo = WidgetDragDataGetCallback
connectSignal _ = connectWidgetDragDataGet
data WidgetDragDataReceivedSignalInfo
instance SignalInfo WidgetDragDataReceivedSignalInfo where
type HaskellCallbackType WidgetDragDataReceivedSignalInfo = WidgetDragDataReceivedCallback
connectSignal _ = connectWidgetDragDataReceived
data WidgetDragDropSignalInfo
instance SignalInfo WidgetDragDropSignalInfo where
type HaskellCallbackType WidgetDragDropSignalInfo = WidgetDragDropCallback
connectSignal _ = connectWidgetDragDrop
data WidgetDragEndSignalInfo
instance SignalInfo WidgetDragEndSignalInfo where
type HaskellCallbackType WidgetDragEndSignalInfo = WidgetDragEndCallback
connectSignal _ = connectWidgetDragEnd
data WidgetDragFailedSignalInfo
instance SignalInfo WidgetDragFailedSignalInfo where
type HaskellCallbackType WidgetDragFailedSignalInfo = WidgetDragFailedCallback
connectSignal _ = connectWidgetDragFailed
data WidgetDragLeaveSignalInfo
instance SignalInfo WidgetDragLeaveSignalInfo where
type HaskellCallbackType WidgetDragLeaveSignalInfo = WidgetDragLeaveCallback
connectSignal _ = connectWidgetDragLeave
data WidgetDragMotionSignalInfo
instance SignalInfo WidgetDragMotionSignalInfo where
type HaskellCallbackType WidgetDragMotionSignalInfo = WidgetDragMotionCallback
connectSignal _ = connectWidgetDragMotion
data WidgetDrawSignalInfo
instance SignalInfo WidgetDrawSignalInfo where
type HaskellCallbackType WidgetDrawSignalInfo = WidgetDrawCallback
connectSignal _ = connectWidgetDraw
data WidgetEnterNotifyEventSignalInfo
instance SignalInfo WidgetEnterNotifyEventSignalInfo where
type HaskellCallbackType WidgetEnterNotifyEventSignalInfo = WidgetEnterNotifyEventCallback
connectSignal _ = connectWidgetEnterNotifyEvent
data WidgetEventSignalInfo
instance SignalInfo WidgetEventSignalInfo where
type HaskellCallbackType WidgetEventSignalInfo = WidgetEventCallback
connectSignal _ = connectWidgetEvent
data WidgetEventAfterSignalInfo
instance SignalInfo WidgetEventAfterSignalInfo where
type HaskellCallbackType WidgetEventAfterSignalInfo = WidgetEventAfterCallback
connectSignal _ = connectWidgetEventAfter
data WidgetFocusSignalInfo
instance SignalInfo WidgetFocusSignalInfo where
type HaskellCallbackType WidgetFocusSignalInfo = WidgetFocusCallback
connectSignal _ = connectWidgetFocus
data WidgetFocusInEventSignalInfo
instance SignalInfo WidgetFocusInEventSignalInfo where
type HaskellCallbackType WidgetFocusInEventSignalInfo = WidgetFocusInEventCallback
connectSignal _ = connectWidgetFocusInEvent
data WidgetFocusOutEventSignalInfo
instance SignalInfo WidgetFocusOutEventSignalInfo where
type HaskellCallbackType WidgetFocusOutEventSignalInfo = WidgetFocusOutEventCallback
connectSignal _ = connectWidgetFocusOutEvent
data WidgetGrabBrokenEventSignalInfo
instance SignalInfo WidgetGrabBrokenEventSignalInfo where
type HaskellCallbackType WidgetGrabBrokenEventSignalInfo = WidgetGrabBrokenEventCallback
connectSignal _ = connectWidgetGrabBrokenEvent
data WidgetGrabFocusSignalInfo
instance SignalInfo WidgetGrabFocusSignalInfo where
type HaskellCallbackType WidgetGrabFocusSignalInfo = WidgetGrabFocusCallback
connectSignal _ = connectWidgetGrabFocus
data WidgetGrabNotifySignalInfo
instance SignalInfo WidgetGrabNotifySignalInfo where
type HaskellCallbackType WidgetGrabNotifySignalInfo = WidgetGrabNotifyCallback
connectSignal _ = connectWidgetGrabNotify
data WidgetHideSignalInfo
instance SignalInfo WidgetHideSignalInfo where
type HaskellCallbackType WidgetHideSignalInfo = WidgetHideCallback
connectSignal _ = connectWidgetHide
data WidgetHierarchyChangedSignalInfo
instance SignalInfo WidgetHierarchyChangedSignalInfo where
type HaskellCallbackType WidgetHierarchyChangedSignalInfo = WidgetHierarchyChangedCallback
connectSignal _ = connectWidgetHierarchyChanged
data WidgetKeyPressEventSignalInfo
instance SignalInfo WidgetKeyPressEventSignalInfo where
type HaskellCallbackType WidgetKeyPressEventSignalInfo = WidgetKeyPressEventCallback
connectSignal _ = connectWidgetKeyPressEvent
data WidgetKeyReleaseEventSignalInfo
instance SignalInfo WidgetKeyReleaseEventSignalInfo where
type HaskellCallbackType WidgetKeyReleaseEventSignalInfo = WidgetKeyReleaseEventCallback
connectSignal _ = connectWidgetKeyReleaseEvent
data WidgetKeynavFailedSignalInfo
instance SignalInfo WidgetKeynavFailedSignalInfo where
type HaskellCallbackType WidgetKeynavFailedSignalInfo = WidgetKeynavFailedCallback
connectSignal _ = connectWidgetKeynavFailed
data WidgetLeaveNotifyEventSignalInfo
instance SignalInfo WidgetLeaveNotifyEventSignalInfo where
type HaskellCallbackType WidgetLeaveNotifyEventSignalInfo = WidgetLeaveNotifyEventCallback
connectSignal _ = connectWidgetLeaveNotifyEvent
data WidgetMapSignalInfo
instance SignalInfo WidgetMapSignalInfo where
type HaskellCallbackType WidgetMapSignalInfo = WidgetMapCallback
connectSignal _ = connectWidgetMap
data WidgetMapEventSignalInfo
instance SignalInfo WidgetMapEventSignalInfo where
type HaskellCallbackType WidgetMapEventSignalInfo = WidgetMapEventCallback
connectSignal _ = connectWidgetMapEvent
data WidgetMnemonicActivateSignalInfo
instance SignalInfo WidgetMnemonicActivateSignalInfo where
type HaskellCallbackType WidgetMnemonicActivateSignalInfo = WidgetMnemonicActivateCallback
connectSignal _ = connectWidgetMnemonicActivate
data WidgetMotionNotifyEventSignalInfo
instance SignalInfo WidgetMotionNotifyEventSignalInfo where
type HaskellCallbackType WidgetMotionNotifyEventSignalInfo = WidgetMotionNotifyEventCallback
connectSignal _ = connectWidgetMotionNotifyEvent
data WidgetMoveFocusSignalInfo
instance SignalInfo WidgetMoveFocusSignalInfo where
type HaskellCallbackType WidgetMoveFocusSignalInfo = WidgetMoveFocusCallback
connectSignal _ = connectWidgetMoveFocus
data WidgetParentSetSignalInfo
instance SignalInfo WidgetParentSetSignalInfo where
type HaskellCallbackType WidgetParentSetSignalInfo = WidgetParentSetCallback
connectSignal _ = connectWidgetParentSet
data WidgetPopupMenuSignalInfo
instance SignalInfo WidgetPopupMenuSignalInfo where
type HaskellCallbackType WidgetPopupMenuSignalInfo = WidgetPopupMenuCallback
connectSignal _ = connectWidgetPopupMenu
data WidgetPropertyNotifyEventSignalInfo
instance SignalInfo WidgetPropertyNotifyEventSignalInfo where
type HaskellCallbackType WidgetPropertyNotifyEventSignalInfo = WidgetPropertyNotifyEventCallback
connectSignal _ = connectWidgetPropertyNotifyEvent
data WidgetProximityInEventSignalInfo
instance SignalInfo WidgetProximityInEventSignalInfo where
type HaskellCallbackType WidgetProximityInEventSignalInfo = WidgetProximityInEventCallback
connectSignal _ = connectWidgetProximityInEvent
data WidgetProximityOutEventSignalInfo
instance SignalInfo WidgetProximityOutEventSignalInfo where
type HaskellCallbackType WidgetProximityOutEventSignalInfo = WidgetProximityOutEventCallback
connectSignal _ = connectWidgetProximityOutEvent
data WidgetQueryTooltipSignalInfo
instance SignalInfo WidgetQueryTooltipSignalInfo where
type HaskellCallbackType WidgetQueryTooltipSignalInfo = WidgetQueryTooltipCallback
connectSignal _ = connectWidgetQueryTooltip
data WidgetRealizeSignalInfo
instance SignalInfo WidgetRealizeSignalInfo where
type HaskellCallbackType WidgetRealizeSignalInfo = WidgetRealizeCallback
connectSignal _ = connectWidgetRealize
data WidgetScreenChangedSignalInfo
instance SignalInfo WidgetScreenChangedSignalInfo where
type HaskellCallbackType WidgetScreenChangedSignalInfo = WidgetScreenChangedCallback
connectSignal _ = connectWidgetScreenChanged
data WidgetScrollEventSignalInfo
instance SignalInfo WidgetScrollEventSignalInfo where
type HaskellCallbackType WidgetScrollEventSignalInfo = WidgetScrollEventCallback
connectSignal _ = connectWidgetScrollEvent
data WidgetSelectionClearEventSignalInfo
instance SignalInfo WidgetSelectionClearEventSignalInfo where
type HaskellCallbackType WidgetSelectionClearEventSignalInfo = WidgetSelectionClearEventCallback
connectSignal _ = connectWidgetSelectionClearEvent
data WidgetSelectionGetSignalInfo
instance SignalInfo WidgetSelectionGetSignalInfo where
type HaskellCallbackType WidgetSelectionGetSignalInfo = WidgetSelectionGetCallback
connectSignal _ = connectWidgetSelectionGet
data WidgetSelectionNotifyEventSignalInfo
instance SignalInfo WidgetSelectionNotifyEventSignalInfo where
type HaskellCallbackType WidgetSelectionNotifyEventSignalInfo = WidgetSelectionNotifyEventCallback
connectSignal _ = connectWidgetSelectionNotifyEvent
data WidgetSelectionReceivedSignalInfo
instance SignalInfo WidgetSelectionReceivedSignalInfo where
type HaskellCallbackType WidgetSelectionReceivedSignalInfo = WidgetSelectionReceivedCallback
connectSignal _ = connectWidgetSelectionReceived
data WidgetSelectionRequestEventSignalInfo
instance SignalInfo WidgetSelectionRequestEventSignalInfo where
type HaskellCallbackType WidgetSelectionRequestEventSignalInfo = WidgetSelectionRequestEventCallback
connectSignal _ = connectWidgetSelectionRequestEvent
data WidgetShowSignalInfo
instance SignalInfo WidgetShowSignalInfo where
type HaskellCallbackType WidgetShowSignalInfo = WidgetShowCallback
connectSignal _ = connectWidgetShow
data WidgetShowHelpSignalInfo
instance SignalInfo WidgetShowHelpSignalInfo where
type HaskellCallbackType WidgetShowHelpSignalInfo = WidgetShowHelpCallback
connectSignal _ = connectWidgetShowHelp
data WidgetSizeAllocateSignalInfo
instance SignalInfo WidgetSizeAllocateSignalInfo where
type HaskellCallbackType WidgetSizeAllocateSignalInfo = WidgetSizeAllocateCallback
connectSignal _ = connectWidgetSizeAllocate
data WidgetStateChangedSignalInfo
instance SignalInfo WidgetStateChangedSignalInfo where
type HaskellCallbackType WidgetStateChangedSignalInfo = WidgetStateChangedCallback
connectSignal _ = connectWidgetStateChanged
data WidgetStateFlagsChangedSignalInfo
instance SignalInfo WidgetStateFlagsChangedSignalInfo where
type HaskellCallbackType WidgetStateFlagsChangedSignalInfo = WidgetStateFlagsChangedCallback
connectSignal _ = connectWidgetStateFlagsChanged
data WidgetStyleSetSignalInfo
instance SignalInfo WidgetStyleSetSignalInfo where
type HaskellCallbackType WidgetStyleSetSignalInfo = WidgetStyleSetCallback
connectSignal _ = connectWidgetStyleSet
data WidgetStyleUpdatedSignalInfo
instance SignalInfo WidgetStyleUpdatedSignalInfo where
type HaskellCallbackType WidgetStyleUpdatedSignalInfo = WidgetStyleUpdatedCallback
connectSignal _ = connectWidgetStyleUpdated
data WidgetTouchEventSignalInfo
instance SignalInfo WidgetTouchEventSignalInfo where
type HaskellCallbackType WidgetTouchEventSignalInfo = WidgetTouchEventCallback
connectSignal _ = connectWidgetTouchEvent
data WidgetUnmapSignalInfo
instance SignalInfo WidgetUnmapSignalInfo where
type HaskellCallbackType WidgetUnmapSignalInfo = WidgetUnmapCallback
connectSignal _ = connectWidgetUnmap
data WidgetUnmapEventSignalInfo
instance SignalInfo WidgetUnmapEventSignalInfo where
type HaskellCallbackType WidgetUnmapEventSignalInfo = WidgetUnmapEventCallback
connectSignal _ = connectWidgetUnmapEvent
data WidgetUnrealizeSignalInfo
instance SignalInfo WidgetUnrealizeSignalInfo where
type HaskellCallbackType WidgetUnrealizeSignalInfo = WidgetUnrealizeCallback
connectSignal _ = connectWidgetUnrealize
data WidgetVisibilityNotifyEventSignalInfo
instance SignalInfo WidgetVisibilityNotifyEventSignalInfo where
type HaskellCallbackType WidgetVisibilityNotifyEventSignalInfo = WidgetVisibilityNotifyEventCallback
connectSignal _ = connectWidgetVisibilityNotifyEvent
data WidgetWindowStateEventSignalInfo
instance SignalInfo WidgetWindowStateEventSignalInfo where
type HaskellCallbackType WidgetWindowStateEventSignalInfo = WidgetWindowStateEventCallback
connectSignal _ = connectWidgetWindowStateEvent
type instance SignalList Widget = WidgetSignalList
type WidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_widget_activate" gtk_widget_activate ::
Ptr Widget ->
IO CInt
widgetActivate ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_activate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_add_accelerator" gtk_widget_add_accelerator ::
Ptr Widget ->
CString ->
Ptr AccelGroup ->
Word32 ->
CUInt ->
CUInt ->
IO ()
widgetAddAccelerator ::
(MonadIO m, WidgetK a, AccelGroupK b) =>
a ->
T.Text ->
b ->
Word32 ->
[Gdk.ModifierType] ->
[AccelFlags] ->
m ()
widgetAddAccelerator _obj accel_signal accel_group accel_key accel_mods accel_flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accel_signal' <- textToCString accel_signal
let accel_group' = unsafeManagedPtrCastPtr accel_group
let accel_mods' = gflagsToWord accel_mods
let accel_flags' = gflagsToWord accel_flags
gtk_widget_add_accelerator _obj' accel_signal' accel_group' accel_key accel_mods' accel_flags'
touchManagedPtr _obj
touchManagedPtr accel_group
freeMem accel_signal'
return ()
foreign import ccall "gtk_widget_add_device_events" gtk_widget_add_device_events ::
Ptr Widget ->
Ptr Gdk.Device ->
CUInt ->
IO ()
widgetAddDeviceEvents ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a ->
b ->
[Gdk.EventMask] ->
m ()
widgetAddDeviceEvents _obj device events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let events' = gflagsToWord events
gtk_widget_add_device_events _obj' device' events'
touchManagedPtr _obj
touchManagedPtr device
return ()
foreign import ccall "gtk_widget_add_events" gtk_widget_add_events ::
Ptr Widget ->
Int32 ->
IO ()
widgetAddEvents ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetAddEvents _obj events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_add_events _obj' events
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetAddMnemonicLabel ::
(MonadIO m, WidgetK a, WidgetK b) =>
a ->
b ->
m ()
widgetAddMnemonicLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let label' = unsafeManagedPtrCastPtr label
gtk_widget_add_mnemonic_label _obj' label'
touchManagedPtr _obj
touchManagedPtr label
return ()
foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback ::
Ptr Widget ->
FunPtr TickCallbackC ->
Ptr () ->
FunPtr GLib.DestroyNotifyC ->
IO Word32
widgetAddTickCallback ::
(MonadIO m, WidgetK a) =>
a ->
TickCallback ->
m Word32
widgetAddTickCallback _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkTickCallback (tickCallbackWrapper Nothing callback)
let user_data = castFunPtrToPtr callback'
let notify = safeFreeFunPtrPtr
result <- gtk_widget_add_tick_callback _obj' callback' user_data notify
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel ::
Ptr Widget ->
Word32 ->
IO CInt
widgetCanActivateAccel ::
(MonadIO m, WidgetK a) =>
a ->
Word32 ->
m Bool
widgetCanActivateAccel _obj signal_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_can_activate_accel _obj' signal_id
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_child_focus" gtk_widget_child_focus ::
Ptr Widget ->
CUInt ->
IO CInt
widgetChildFocus ::
(MonadIO m, WidgetK a) =>
a ->
DirectionType ->
m Bool
widgetChildFocus _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
result <- gtk_widget_child_focus _obj' direction'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_child_notify" gtk_widget_child_notify ::
Ptr Widget ->
CString ->
IO ()
widgetChildNotify ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
m ()
widgetChildNotify _obj child_property = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
child_property' <- textToCString child_property
gtk_widget_child_notify _obj' child_property'
touchManagedPtr _obj
freeMem child_property'
return ()
foreign import ccall "gtk_widget_class_path" gtk_widget_class_path ::
Ptr Widget ->
Ptr Word32 ->
Ptr CString ->
Ptr CString ->
IO ()
widgetClassPath ::
(MonadIO m, WidgetK a) =>
a ->
m (Word32,T.Text,T.Text)
widgetClassPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path_length <- allocMem :: IO (Ptr Word32)
path <- allocMem :: IO (Ptr CString)
path_reversed <- allocMem :: IO (Ptr CString)
gtk_widget_class_path _obj' path_length path path_reversed
path_length' <- peek path_length
path' <- peek path
path'' <- cstringToText path'
freeMem path'
path_reversed' <- peek path_reversed
path_reversed'' <- cstringToText path_reversed'
freeMem path_reversed'
touchManagedPtr _obj
freeMem path_length
freeMem path
freeMem path_reversed
return (path_length', path'', path_reversed'')
foreign import ccall "gtk_widget_compute_expand" gtk_widget_compute_expand ::
Ptr Widget ->
CUInt ->
IO CInt
widgetComputeExpand ::
(MonadIO m, WidgetK a) =>
a ->
Orientation ->
m Bool
widgetComputeExpand _obj orientation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_widget_compute_expand _obj' orientation'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_create_pango_context" gtk_widget_create_pango_context ::
Ptr Widget ->
IO (Ptr Pango.Context)
widgetCreatePangoContext ::
(MonadIO m, WidgetK a) =>
a ->
m Pango.Context
widgetCreatePangoContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_create_pango_context _obj'
checkUnexpectedReturnNULL "gtk_widget_create_pango_context" result
result' <- (wrapObject Pango.Context) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout ::
Ptr Widget ->
CString ->
IO (Ptr Pango.Layout)
widgetCreatePangoLayout ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (T.Text) ->
m Pango.Layout
widgetCreatePangoLayout _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeText <- case text of
Nothing -> return nullPtr
Just jText -> do
jText' <- textToCString jText
return jText'
result <- gtk_widget_create_pango_layout _obj' maybeText
checkUnexpectedReturnNULL "gtk_widget_create_pango_layout" result
result' <- (wrapObject Pango.Layout) result
touchManagedPtr _obj
freeMem maybeText
return result'
foreign import ccall "gtk_widget_destroy" gtk_widget_destroy ::
Ptr Widget ->
IO ()
widgetDestroy ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDestroy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_destroy _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed ::
Ptr Widget ->
Ptr (Ptr Widget) ->
IO ()
widgetDestroyed ::
(MonadIO m, WidgetK a, WidgetK b) =>
a ->
b ->
m (Widget)
widgetDestroyed _obj widget_pointer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget_pointer' = unsafeManagedPtrCastPtr widget_pointer
widget_pointer'' <- allocMem :: IO (Ptr (Ptr Widget))
poke widget_pointer'' widget_pointer'
gtk_widget_destroyed _obj' widget_pointer''
widget_pointer''' <- peek widget_pointer''
widget_pointer'''' <- (newObject Widget) widget_pointer'''
touchManagedPtr _obj
touchManagedPtr widget_pointer
freeMem widget_pointer''
return widget_pointer''''
foreign import ccall "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed ::
Ptr Widget ->
Ptr Gdk.Device ->
IO CInt
widgetDeviceIsShadowed ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a ->
b ->
m Bool
widgetDeviceIsShadowed _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gtk_widget_device_is_shadowed _obj' device'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr device
return result'
foreign import ccall "gtk_drag_begin" gtk_drag_begin ::
Ptr Widget ->
Ptr TargetList ->
CUInt ->
Int32 ->
Ptr Gdk.Event ->
IO (Ptr Gdk.DragContext)
widgetDragBegin ::
(MonadIO m, WidgetK a) =>
a ->
TargetList ->
[Gdk.DragAction] ->
Int32 ->
Maybe (Gdk.Event) ->
m Gdk.DragContext
widgetDragBegin _obj targets actions button event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = unsafeManagedPtrGetPtr targets
let actions' = gflagsToWord actions
maybeEvent <- case event of
Nothing -> return nullPtr
Just jEvent -> do
let jEvent' = unsafeManagedPtrGetPtr jEvent
return jEvent'
result <- gtk_drag_begin _obj' targets' actions' button maybeEvent
checkUnexpectedReturnNULL "gtk_drag_begin" result
result' <- (newObject Gdk.DragContext) result
touchManagedPtr _obj
touchManagedPtr targets
whenJust event touchManagedPtr
return result'
foreign import ccall "gtk_drag_begin_with_coordinates" gtk_drag_begin_with_coordinates ::
Ptr Widget ->
Ptr TargetList ->
CUInt ->
Int32 ->
Ptr Gdk.Event ->
Int32 ->
Int32 ->
IO (Ptr Gdk.DragContext)
widgetDragBeginWithCoordinates ::
(MonadIO m, WidgetK a) =>
a ->
TargetList ->
[Gdk.DragAction] ->
Int32 ->
Maybe (Gdk.Event) ->
Int32 ->
Int32 ->
m Gdk.DragContext
widgetDragBeginWithCoordinates _obj targets actions button event x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = unsafeManagedPtrGetPtr targets
let actions' = gflagsToWord actions
maybeEvent <- case event of
Nothing -> return nullPtr
Just jEvent -> do
let jEvent' = unsafeManagedPtrGetPtr jEvent
return jEvent'
result <- gtk_drag_begin_with_coordinates _obj' targets' actions' button maybeEvent x y
checkUnexpectedReturnNULL "gtk_drag_begin_with_coordinates" result
result' <- (newObject Gdk.DragContext) result
touchManagedPtr _obj
touchManagedPtr targets
whenJust event touchManagedPtr
return result'
foreign import ccall "gtk_drag_check_threshold" gtk_drag_check_threshold ::
Ptr Widget ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO CInt
widgetDragCheckThreshold ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
m Bool
widgetDragCheckThreshold _obj start_x start_y current_x current_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_check_threshold _obj' start_x start_y current_x current_y
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets ::
Ptr Widget ->
IO ()
widgetDragDestAddImageTargets ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragDestAddImageTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_add_image_targets _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets ::
Ptr Widget ->
IO ()
widgetDragDestAddTextTargets ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragDestAddTextTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_add_text_targets _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets ::
Ptr Widget ->
IO ()
widgetDragDestAddUriTargets ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragDestAddUriTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_add_uri_targets _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target ::
Ptr Widget ->
Ptr Gdk.DragContext ->
Ptr TargetList ->
IO (Ptr Gdk.Atom)
widgetDragDestFindTarget ::
(MonadIO m, WidgetK a, Gdk.DragContextK b) =>
a ->
b ->
Maybe (TargetList) ->
m Gdk.Atom
widgetDragDestFindTarget _obj context target_list = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
maybeTarget_list <- case target_list of
Nothing -> return nullPtr
Just jTarget_list -> do
let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list
return jTarget_list'
result <- gtk_drag_dest_find_target _obj' context' maybeTarget_list
checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result
result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result
touchManagedPtr _obj
touchManagedPtr context
whenJust target_list touchManagedPtr
return result'
foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list ::
Ptr Widget ->
IO (Ptr TargetList)
widgetDragDestGetTargetList ::
(MonadIO m, WidgetK a) =>
a ->
m TargetList
widgetDragDestGetTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_dest_get_target_list _obj'
checkUnexpectedReturnNULL "gtk_drag_dest_get_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion ::
Ptr Widget ->
IO CInt
widgetDragDestGetTrackMotion ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetDragDestGetTrackMotion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_dest_get_track_motion _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_drag_dest_set" gtk_drag_dest_set ::
Ptr Widget ->
CUInt ->
Ptr TargetEntry ->
Int32 ->
CUInt ->
IO ()
widgetDragDestSet ::
(MonadIO m, WidgetK a) =>
a ->
[DestDefaults] ->
Maybe ([TargetEntry]) ->
[Gdk.DragAction] ->
m ()
widgetDragDestSet _obj flags targets actions = liftIO $ do
let n_targets = case targets of
Nothing -> 0
Just jTargets -> fromIntegral $ length jTargets
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
maybeTargets <- case targets of
Nothing -> return nullPtr
Just jTargets -> do
let jTargets' = map unsafeManagedPtrGetPtr jTargets
jTargets'' <- packBlockArray 16 jTargets'
return jTargets''
let actions' = gflagsToWord actions
gtk_drag_dest_set _obj' flags' maybeTargets n_targets actions'
touchManagedPtr _obj
whenJust targets (mapM_ touchManagedPtr)
freeMem maybeTargets
return ()
foreign import ccall "gtk_drag_dest_set_proxy" gtk_drag_dest_set_proxy ::
Ptr Widget ->
Ptr Gdk.Window ->
CUInt ->
CInt ->
IO ()
widgetDragDestSetProxy ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a ->
b ->
Gdk.DragProtocol ->
Bool ->
m ()
widgetDragDestSetProxy _obj proxy_window protocol use_coordinates = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let proxy_window' = unsafeManagedPtrCastPtr proxy_window
let protocol' = (fromIntegral . fromEnum) protocol
let use_coordinates' = (fromIntegral . fromEnum) use_coordinates
gtk_drag_dest_set_proxy _obj' proxy_window' protocol' use_coordinates'
touchManagedPtr _obj
touchManagedPtr proxy_window
return ()
foreign import ccall "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list ::
Ptr Widget ->
Ptr TargetList ->
IO ()
widgetDragDestSetTargetList ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (TargetList) ->
m ()
widgetDragDestSetTargetList _obj target_list = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTarget_list <- case target_list of
Nothing -> return nullPtr
Just jTarget_list -> do
let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list
return jTarget_list'
gtk_drag_dest_set_target_list _obj' maybeTarget_list
touchManagedPtr _obj
whenJust target_list touchManagedPtr
return ()
foreign import ccall "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion ::
Ptr Widget ->
CInt ->
IO ()
widgetDragDestSetTrackMotion ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetDragDestSetTrackMotion _obj track_motion = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let track_motion' = (fromIntegral . fromEnum) track_motion
gtk_drag_dest_set_track_motion _obj' track_motion'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_dest_unset" gtk_drag_dest_unset ::
Ptr Widget ->
IO ()
widgetDragDestUnset ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragDestUnset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_dest_unset _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_get_data" gtk_drag_get_data ::
Ptr Widget ->
Ptr Gdk.DragContext ->
Ptr Gdk.Atom ->
Word32 ->
IO ()
widgetDragGetData ::
(MonadIO m, WidgetK a, Gdk.DragContextK b) =>
a ->
b ->
Gdk.Atom ->
Word32 ->
m ()
widgetDragGetData _obj context target time_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let context' = unsafeManagedPtrCastPtr context
let target' = unsafeManagedPtrGetPtr target
gtk_drag_get_data _obj' context' target' time_
touchManagedPtr _obj
touchManagedPtr context
touchManagedPtr target
return ()
foreign import ccall "gtk_drag_highlight" gtk_drag_highlight ::
Ptr Widget ->
IO ()
widgetDragHighlight ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragHighlight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_highlight _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets ::
Ptr Widget ->
IO ()
widgetDragSourceAddImageTargets ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragSourceAddImageTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_add_image_targets _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets ::
Ptr Widget ->
IO ()
widgetDragSourceAddTextTargets ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragSourceAddTextTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_add_text_targets _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets ::
Ptr Widget ->
IO ()
widgetDragSourceAddUriTargets ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragSourceAddUriTargets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_add_uri_targets _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list ::
Ptr Widget ->
IO (Ptr TargetList)
widgetDragSourceGetTargetList ::
(MonadIO m, WidgetK a) =>
a ->
m TargetList
widgetDragSourceGetTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_drag_source_get_target_list _obj'
checkUnexpectedReturnNULL "gtk_drag_source_get_target_list" result
result' <- (newBoxed TargetList) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_drag_source_set" gtk_drag_source_set ::
Ptr Widget ->
CUInt ->
Ptr TargetEntry ->
Int32 ->
CUInt ->
IO ()
widgetDragSourceSet ::
(MonadIO m, WidgetK a) =>
a ->
[Gdk.ModifierType] ->
Maybe ([TargetEntry]) ->
[Gdk.DragAction] ->
m ()
widgetDragSourceSet _obj start_button_mask targets actions = liftIO $ do
let n_targets = case targets of
Nothing -> 0
Just jTargets -> fromIntegral $ length jTargets
let _obj' = unsafeManagedPtrCastPtr _obj
let start_button_mask' = gflagsToWord start_button_mask
maybeTargets <- case targets of
Nothing -> return nullPtr
Just jTargets -> do
let jTargets' = map unsafeManagedPtrGetPtr jTargets
jTargets'' <- packBlockArray 16 jTargets'
return jTargets''
let actions' = gflagsToWord actions
gtk_drag_source_set _obj' start_button_mask' maybeTargets n_targets actions'
touchManagedPtr _obj
whenJust targets (mapM_ touchManagedPtr)
freeMem maybeTargets
return ()
foreign import ccall "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon ::
Ptr Widget ->
Ptr Gio.Icon ->
IO ()
widgetDragSourceSetIconGicon ::
(MonadIO m, WidgetK a, Gio.IconK b) =>
a ->
b ->
m ()
widgetDragSourceSetIconGicon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
gtk_drag_source_set_icon_gicon _obj' icon'
touchManagedPtr _obj
touchManagedPtr icon
return ()
foreign import ccall "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name ::
Ptr Widget ->
CString ->
IO ()
widgetDragSourceSetIconName ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
m ()
widgetDragSourceSetIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
icon_name' <- textToCString icon_name
gtk_drag_source_set_icon_name _obj' icon_name'
touchManagedPtr _obj
freeMem icon_name'
return ()
foreign import ccall "gtk_drag_source_set_icon_pixbuf" gtk_drag_source_set_icon_pixbuf ::
Ptr Widget ->
Ptr GdkPixbuf.Pixbuf ->
IO ()
widgetDragSourceSetIconPixbuf ::
(MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) =>
a ->
b ->
m ()
widgetDragSourceSetIconPixbuf _obj pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_drag_source_set_icon_pixbuf _obj' pixbuf'
touchManagedPtr _obj
touchManagedPtr pixbuf
return ()
foreign import ccall "gtk_drag_source_set_icon_stock" gtk_drag_source_set_icon_stock ::
Ptr Widget ->
CString ->
IO ()
widgetDragSourceSetIconStock ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
m ()
widgetDragSourceSetIconStock _obj stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
gtk_drag_source_set_icon_stock _obj' stock_id'
touchManagedPtr _obj
freeMem stock_id'
return ()
foreign import ccall "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list ::
Ptr Widget ->
Ptr TargetList ->
IO ()
widgetDragSourceSetTargetList ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (TargetList) ->
m ()
widgetDragSourceSetTargetList _obj target_list = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTarget_list <- case target_list of
Nothing -> return nullPtr
Just jTarget_list -> do
let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list
return jTarget_list'
gtk_drag_source_set_target_list _obj' maybeTarget_list
touchManagedPtr _obj
whenJust target_list touchManagedPtr
return ()
foreign import ccall "gtk_drag_source_unset" gtk_drag_source_unset ::
Ptr Widget ->
IO ()
widgetDragSourceUnset ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragSourceUnset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_source_unset _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_drag_unhighlight" gtk_drag_unhighlight ::
Ptr Widget ->
IO ()
widgetDragUnhighlight ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetDragUnhighlight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_drag_unhighlight _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_draw" gtk_widget_draw ::
Ptr Widget ->
Ptr Cairo.Context ->
IO ()
widgetDraw ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.Context ->
m ()
widgetDraw _obj cr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
gtk_widget_draw _obj' cr'
touchManagedPtr _obj
touchManagedPtr cr
return ()
foreign import ccall "gtk_widget_ensure_style" gtk_widget_ensure_style ::
Ptr Widget ->
IO ()
widgetEnsureStyle ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetEnsureStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_ensure_style _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_error_bell" gtk_widget_error_bell ::
Ptr Widget ->
IO ()
widgetErrorBell ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetErrorBell _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_error_bell _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_event" gtk_widget_event ::
Ptr Widget ->
Ptr Gdk.Event ->
IO CInt
widgetEvent ::
(MonadIO m, WidgetK a) =>
a ->
Gdk.Event ->
m Bool
widgetEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_widget_event _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
foreign import ccall "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify ::
Ptr Widget ->
IO ()
widgetFreezeChildNotify ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetFreezeChildNotify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_freeze_child_notify _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_get_accessible" gtk_widget_get_accessible ::
Ptr Widget ->
IO (Ptr Atk.Object)
widgetGetAccessible ::
(MonadIO m, WidgetK a) =>
a ->
m Atk.Object
widgetGetAccessible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_accessible _obj'
checkUnexpectedReturnNULL "gtk_widget_get_accessible" result
result' <- (newObject Atk.Object) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group ::
Ptr Widget ->
CString ->
IO (Ptr Gio.ActionGroup)
widgetGetActionGroup ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
m Gio.ActionGroup
widgetGetActionGroup _obj prefix = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
prefix' <- textToCString prefix
result <- gtk_widget_get_action_group _obj' prefix'
checkUnexpectedReturnNULL "gtk_widget_get_action_group" result
result' <- (newObject Gio.ActionGroup) result
touchManagedPtr _obj
freeMem prefix'
return result'
foreign import ccall "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline ::
Ptr Widget ->
IO Int32
widgetGetAllocatedBaseline ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetAllocatedBaseline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_allocated_baseline _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height ::
Ptr Widget ->
IO Int32
widgetGetAllocatedHeight ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetAllocatedHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_allocated_height _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width ::
Ptr Widget ->
IO Int32
widgetGetAllocatedWidth ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetAllocatedWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_allocated_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation ::
Ptr Widget ->
Ptr Cairo.RectangleInt ->
IO ()
widgetGetAllocation ::
(MonadIO m, WidgetK a) =>
a ->
m (Cairo.RectangleInt)
widgetGetAllocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
allocation <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)
gtk_widget_get_allocation _obj' allocation
allocation' <- (wrapBoxed Cairo.RectangleInt) allocation
touchManagedPtr _obj
return allocation'
foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor ::
Ptr Widget ->
CGType ->
IO (Ptr Widget)
widgetGetAncestor ::
(MonadIO m, WidgetK a) =>
a ->
GType ->
m Widget
widgetGetAncestor _obj widget_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget_type' = gtypeToCGType widget_type
result <- gtk_widget_get_ancestor _obj' widget_type'
checkUnexpectedReturnNULL "gtk_widget_get_ancestor" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_app_paintable" gtk_widget_get_app_paintable ::
Ptr Widget ->
IO CInt
widgetGetAppPaintable ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetAppPaintable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_app_paintable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_can_default" gtk_widget_get_can_default ::
Ptr Widget ->
IO CInt
widgetGetCanDefault ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetCanDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_can_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_can_focus" gtk_widget_get_can_focus ::
Ptr Widget ->
IO CInt
widgetGetCanFocus ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetCanFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_can_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_child_requisition" gtk_widget_get_child_requisition ::
Ptr Widget ->
Ptr Requisition ->
IO ()
widgetGetChildRequisition ::
(MonadIO m, WidgetK a) =>
a ->
m (Requisition)
widgetGetChildRequisition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_get_child_requisition _obj' requisition
requisition' <- (wrapBoxed Requisition) requisition
touchManagedPtr _obj
return requisition'
foreign import ccall "gtk_widget_get_child_visible" gtk_widget_get_child_visible ::
Ptr Widget ->
IO CInt
widgetGetChildVisible ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetChildVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_child_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_clip" gtk_widget_get_clip ::
Ptr Widget ->
Ptr Cairo.RectangleInt ->
IO ()
widgetGetClip ::
(MonadIO m, WidgetK a) =>
a ->
m (Cairo.RectangleInt)
widgetGetClip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
clip <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)
gtk_widget_get_clip _obj' clip
clip' <- (wrapBoxed Cairo.RectangleInt) clip
touchManagedPtr _obj
return clip'
foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard ::
Ptr Widget ->
Ptr Gdk.Atom ->
IO (Ptr Clipboard)
widgetGetClipboard ::
(MonadIO m, WidgetK a) =>
a ->
Gdk.Atom ->
m Clipboard
widgetGetClipboard _obj selection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_widget_get_clipboard _obj' selection'
checkUnexpectedReturnNULL "gtk_widget_get_clipboard" result
result' <- (newObject Clipboard) result
touchManagedPtr _obj
touchManagedPtr selection
return result'
foreign import ccall "gtk_widget_get_composite_name" gtk_widget_get_composite_name ::
Ptr Widget ->
IO CString
widgetGetCompositeName ::
(MonadIO m, WidgetK a) =>
a ->
m T.Text
widgetGetCompositeName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_composite_name _obj'
checkUnexpectedReturnNULL "gtk_widget_get_composite_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_device_enabled" gtk_widget_get_device_enabled ::
Ptr Widget ->
Ptr Gdk.Device ->
IO CInt
widgetGetDeviceEnabled ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a ->
b ->
m Bool
widgetGetDeviceEnabled _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gtk_widget_get_device_enabled _obj' device'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr device
return result'
foreign import ccall "gtk_widget_get_device_events" gtk_widget_get_device_events ::
Ptr Widget ->
Ptr Gdk.Device ->
IO CUInt
widgetGetDeviceEvents ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a ->
b ->
m [Gdk.EventMask]
widgetGetDeviceEvents _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gtk_widget_get_device_events _obj' device'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr device
return result'
foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction ::
Ptr Widget ->
IO CUInt
widgetGetDirection ::
(MonadIO m, WidgetK a) =>
a ->
m TextDirection
widgetGetDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_direction _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_display" gtk_widget_get_display ::
Ptr Widget ->
IO (Ptr Gdk.Display)
widgetGetDisplay ::
(MonadIO m, WidgetK a) =>
a ->
m Gdk.Display
widgetGetDisplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_display _obj'
checkUnexpectedReturnNULL "gtk_widget_get_display" result
result' <- (newObject Gdk.Display) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_double_buffered" gtk_widget_get_double_buffered ::
Ptr Widget ->
IO CInt
widgetGetDoubleBuffered ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetDoubleBuffered _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_double_buffered _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_events" gtk_widget_get_events ::
Ptr Widget ->
IO Int32
widgetGetEvents ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_events _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock ::
Ptr Widget ->
IO (Ptr Gdk.FrameClock)
widgetGetFrameClock ::
(MonadIO m, WidgetK a) =>
a ->
m Gdk.FrameClock
widgetGetFrameClock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_frame_clock _obj'
checkUnexpectedReturnNULL "gtk_widget_get_frame_clock" result
result' <- (newObject Gdk.FrameClock) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign ::
Ptr Widget ->
IO CUInt
widgetGetHalign ::
(MonadIO m, WidgetK a) =>
a ->
m Align
widgetGetHalign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_halign _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip ::
Ptr Widget ->
IO CInt
widgetGetHasTooltip ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetHasTooltip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_has_tooltip _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_has_window" gtk_widget_get_has_window ::
Ptr Widget ->
IO CInt
widgetGetHasWindow ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetHasWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_has_window _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_hexpand" gtk_widget_get_hexpand ::
Ptr Widget ->
IO CInt
widgetGetHexpand ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetHexpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_hexpand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set ::
Ptr Widget ->
IO CInt
widgetGetHexpandSet ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetHexpandSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_hexpand_set _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_mapped" gtk_widget_get_mapped ::
Ptr Widget ->
IO CInt
widgetGetMapped ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetMapped _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_mapped _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom ::
Ptr Widget ->
IO Int32
widgetGetMarginBottom ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetMarginBottom _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_bottom _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_margin_end" gtk_widget_get_margin_end ::
Ptr Widget ->
IO Int32
widgetGetMarginEnd ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetMarginEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_end _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_margin_left" gtk_widget_get_margin_left ::
Ptr Widget ->
IO Int32
widgetGetMarginLeft ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetMarginLeft _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_left _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_margin_right" gtk_widget_get_margin_right ::
Ptr Widget ->
IO Int32
widgetGetMarginRight ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetMarginRight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_right _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_margin_start" gtk_widget_get_margin_start ::
Ptr Widget ->
IO Int32
widgetGetMarginStart ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetMarginStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_start _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_margin_top" gtk_widget_get_margin_top ::
Ptr Widget ->
IO Int32
widgetGetMarginTop ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetMarginTop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_margin_top _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask ::
Ptr Widget ->
CUInt ->
IO CUInt
widgetGetModifierMask ::
(MonadIO m, WidgetK a) =>
a ->
Gdk.ModifierIntent ->
m [Gdk.ModifierType]
widgetGetModifierMask _obj intent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let intent' = (fromIntegral . fromEnum) intent
result <- gtk_widget_get_modifier_mask _obj' intent'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_modifier_style" gtk_widget_get_modifier_style ::
Ptr Widget ->
IO (Ptr RcStyle)
widgetGetModifierStyle ::
(MonadIO m, WidgetK a) =>
a ->
m RcStyle
widgetGetModifierStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_modifier_style _obj'
checkUnexpectedReturnNULL "gtk_widget_get_modifier_style" result
result' <- (newObject RcStyle) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_name" gtk_widget_get_name ::
Ptr Widget ->
IO CString
widgetGetName ::
(MonadIO m, WidgetK a) =>
a ->
m T.Text
widgetGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_name _obj'
checkUnexpectedReturnNULL "gtk_widget_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_no_show_all" gtk_widget_get_no_show_all ::
Ptr Widget ->
IO CInt
widgetGetNoShowAll ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetNoShowAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_no_show_all _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_opacity" gtk_widget_get_opacity ::
Ptr Widget ->
IO CDouble
widgetGetOpacity ::
(MonadIO m, WidgetK a) =>
a ->
m Double
widgetGetOpacity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_opacity _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_pango_context" gtk_widget_get_pango_context ::
Ptr Widget ->
IO (Ptr Pango.Context)
widgetGetPangoContext ::
(MonadIO m, WidgetK a) =>
a ->
m Pango.Context
widgetGetPangoContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_pango_context _obj'
checkUnexpectedReturnNULL "gtk_widget_get_pango_context" result
result' <- (newObject Pango.Context) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetParent ::
(MonadIO m, WidgetK a) =>
a ->
m Widget
widgetGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_parent _obj'
checkUnexpectedReturnNULL "gtk_widget_get_parent" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_parent_window" gtk_widget_get_parent_window ::
Ptr Widget ->
IO (Ptr Gdk.Window)
widgetGetParentWindow ::
(MonadIO m, WidgetK a) =>
a ->
m Gdk.Window
widgetGetParentWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_parent_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_parent_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_path" gtk_widget_get_path ::
Ptr Widget ->
IO (Ptr WidgetPath)
widgetGetPath ::
(MonadIO m, WidgetK a) =>
a ->
m WidgetPath
widgetGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_path _obj'
checkUnexpectedReturnNULL "gtk_widget_get_path" result
result' <- (newBoxed WidgetPath) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_pointer" gtk_widget_get_pointer ::
Ptr Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetPointer ::
(MonadIO m, WidgetK a) =>
a ->
m (Int32,Int32)
widgetGetPointer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_widget_get_pointer _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
foreign import ccall "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height ::
Ptr Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetPreferredHeight ::
(MonadIO m, WidgetK a) =>
a ->
m (Int32,Int32)
widgetGetPreferredHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_height _obj' minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
foreign import ccall "gtk_widget_get_preferred_height_and_baseline_for_width" gtk_widget_get_preferred_height_and_baseline_for_width ::
Ptr Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetPreferredHeightAndBaselineForWidth ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m (Int32,Int32,Int32,Int32)
widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
minimum_baseline <- allocMem :: IO (Ptr Int32)
natural_baseline <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimum_height natural_height minimum_baseline natural_baseline
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
minimum_baseline' <- peek minimum_baseline
natural_baseline' <- peek natural_baseline
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
freeMem minimum_baseline
freeMem natural_baseline
return (minimum_height', natural_height', minimum_baseline', natural_baseline')
foreign import ccall "gtk_widget_get_preferred_height_for_width" gtk_widget_get_preferred_height_for_width ::
Ptr Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetPreferredHeightForWidth ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m (Int32,Int32)
widgetGetPreferredHeightForWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_height_for_width _obj' width minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
foreign import ccall "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size ::
Ptr Widget ->
Ptr Requisition ->
Ptr Requisition ->
IO ()
widgetGetPreferredSize ::
(MonadIO m, WidgetK a) =>
a ->
m (Requisition,Requisition)
widgetGetPreferredSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_get_preferred_size _obj' minimum_size natural_size
minimum_size' <- (wrapBoxed Requisition) minimum_size
natural_size' <- (wrapBoxed Requisition) natural_size
touchManagedPtr _obj
return (minimum_size', natural_size')
foreign import ccall "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width ::
Ptr Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetPreferredWidth ::
(MonadIO m, WidgetK a) =>
a ->
m (Int32,Int32)
widgetGetPreferredWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_width _obj' minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
foreign import ccall "gtk_widget_get_preferred_width_for_height" gtk_widget_get_preferred_width_for_height ::
Ptr Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetPreferredWidthForHeight ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m (Int32,Int32)
widgetGetPreferredWidthForHeight _obj height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_widget_get_preferred_width_for_height _obj' height minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
foreign import ccall "gtk_widget_get_realized" gtk_widget_get_realized ::
Ptr Widget ->
IO CInt
widgetGetRealized ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetRealized _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_realized _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_receives_default" gtk_widget_get_receives_default ::
Ptr Widget ->
IO CInt
widgetGetReceivesDefault ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetReceivesDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_receives_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode ::
Ptr Widget ->
IO CUInt
widgetGetRequestMode ::
(MonadIO m, WidgetK a) =>
a ->
m SizeRequestMode
widgetGetRequestMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_request_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_requisition" gtk_widget_get_requisition ::
Ptr Widget ->
Ptr Requisition ->
IO ()
widgetGetRequisition ::
(MonadIO m, WidgetK a) =>
a ->
m (Requisition)
widgetGetRequisition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_get_requisition _obj' requisition
requisition' <- (wrapBoxed Requisition) requisition
touchManagedPtr _obj
return requisition'
foreign import ccall "gtk_widget_get_root_window" gtk_widget_get_root_window ::
Ptr Widget ->
IO (Ptr Gdk.Window)
widgetGetRootWindow ::
(MonadIO m, WidgetK a) =>
a ->
m Gdk.Window
widgetGetRootWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_root_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_root_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor ::
Ptr Widget ->
IO Int32
widgetGetScaleFactor ::
(MonadIO m, WidgetK a) =>
a ->
m Int32
widgetGetScaleFactor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_scale_factor _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_widget_get_screen" gtk_widget_get_screen ::
Ptr Widget ->
IO (Ptr Gdk.Screen)
widgetGetScreen ::
(MonadIO m, WidgetK a) =>
a ->
m Gdk.Screen
widgetGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_screen _obj'
checkUnexpectedReturnNULL "gtk_widget_get_screen" result
result' <- (newObject Gdk.Screen) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_sensitive" gtk_widget_get_sensitive ::
Ptr Widget ->
IO CInt
widgetGetSensitive ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings ::
Ptr Widget ->
IO (Ptr Settings)
widgetGetSettings ::
(MonadIO m, WidgetK a) =>
a ->
m Settings
widgetGetSettings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_settings _obj'
checkUnexpectedReturnNULL "gtk_widget_get_settings" result
result' <- (newObject Settings) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_size_request" gtk_widget_get_size_request ::
Ptr Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
widgetGetSizeRequest ::
(MonadIO m, WidgetK a) =>
a ->
m (Int32,Int32)
widgetGetSizeRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_widget_get_size_request _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
foreign import ccall "gtk_widget_get_state" gtk_widget_get_state ::
Ptr Widget ->
IO CUInt
widgetGetState ::
(MonadIO m, WidgetK a) =>
a ->
m StateType
widgetGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_state _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags ::
Ptr Widget ->
IO CUInt
widgetGetStateFlags ::
(MonadIO m, WidgetK a) =>
a ->
m [StateFlags]
widgetGetStateFlags _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_state_flags _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_style" gtk_widget_get_style ::
Ptr Widget ->
IO (Ptr Style)
widgetGetStyle ::
(MonadIO m, WidgetK a) =>
a ->
m Style
widgetGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_style _obj'
checkUnexpectedReturnNULL "gtk_widget_get_style" result
result' <- (newObject Style) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context ::
Ptr Widget ->
IO (Ptr StyleContext)
widgetGetStyleContext ::
(MonadIO m, WidgetK a) =>
a ->
m StyleContext
widgetGetStyleContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_style_context _obj'
checkUnexpectedReturnNULL "gtk_widget_get_style_context" result
result' <- (newObject StyleContext) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice ::
Ptr Widget ->
IO CInt
widgetGetSupportMultidevice ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetSupportMultidevice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_support_multidevice _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child ::
Ptr Widget ->
CGType ->
CString ->
IO (Ptr GObject.Object)
widgetGetTemplateChild ::
(MonadIO m, WidgetK a) =>
a ->
GType ->
T.Text ->
m GObject.Object
widgetGetTemplateChild _obj widget_type name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget_type' = gtypeToCGType widget_type
name' <- textToCString name
result <- gtk_widget_get_template_child _obj' widget_type' name'
checkUnexpectedReturnNULL "gtk_widget_get_template_child" result
result' <- (newObject GObject.Object) result
touchManagedPtr _obj
freeMem name'
return result'
foreign import ccall "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup ::
Ptr Widget ->
IO CString
widgetGetTooltipMarkup ::
(MonadIO m, WidgetK a) =>
a ->
m T.Text
widgetGetTooltipMarkup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_tooltip_markup _obj'
checkUnexpectedReturnNULL "gtk_widget_get_tooltip_markup" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text ::
Ptr Widget ->
IO CString
widgetGetTooltipText ::
(MonadIO m, WidgetK a) =>
a ->
m T.Text
widgetGetTooltipText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_tooltip_text _obj'
checkUnexpectedReturnNULL "gtk_widget_get_tooltip_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window ::
Ptr Widget ->
IO (Ptr Window)
widgetGetTooltipWindow ::
(MonadIO m, WidgetK a) =>
a ->
m Window
widgetGetTooltipWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_tooltip_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_tooltip_window" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel ::
Ptr Widget ->
IO (Ptr Widget)
widgetGetToplevel ::
(MonadIO m, WidgetK a) =>
a ->
m Widget
widgetGetToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_toplevel _obj'
checkUnexpectedReturnNULL "gtk_widget_get_toplevel" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign ::
Ptr Widget ->
IO CUInt
widgetGetValign ::
(MonadIO m, WidgetK a) =>
a ->
m Align
widgetGetValign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_valign _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_valign_with_baseline" gtk_widget_get_valign_with_baseline ::
Ptr Widget ->
IO CUInt
widgetGetValignWithBaseline ::
(MonadIO m, WidgetK a) =>
a ->
m Align
widgetGetValignWithBaseline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_valign_with_baseline _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_vexpand" gtk_widget_get_vexpand ::
Ptr Widget ->
IO CInt
widgetGetVexpand ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetVexpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_vexpand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set ::
Ptr Widget ->
IO CInt
widgetGetVexpandSet ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetVexpandSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_vexpand_set _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_visible" gtk_widget_get_visible ::
Ptr Widget ->
IO CInt
widgetGetVisible ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_visual" gtk_widget_get_visual ::
Ptr Widget ->
IO (Ptr Gdk.Visual)
widgetGetVisual ::
(MonadIO m, WidgetK a) =>
a ->
m Gdk.Visual
widgetGetVisual _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_visual _obj'
checkUnexpectedReturnNULL "gtk_widget_get_visual" result
result' <- (newObject Gdk.Visual) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_get_window" gtk_widget_get_window ::
Ptr Widget ->
IO (Ptr Gdk.Window)
widgetGetWindow ::
(MonadIO m, WidgetK a) =>
a ->
m Gdk.Window
widgetGetWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_get_window _obj'
checkUnexpectedReturnNULL "gtk_widget_get_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_grab_add" gtk_grab_add ::
Ptr Widget ->
IO ()
widgetGrabAdd ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetGrabAdd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grab_add _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_grab_default" gtk_widget_grab_default ::
Ptr Widget ->
IO ()
widgetGrabDefault ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetGrabDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_grab_default _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus ::
Ptr Widget ->
IO ()
widgetGrabFocus ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetGrabFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_grab_focus _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_grab_remove" gtk_grab_remove ::
Ptr Widget ->
IO ()
widgetGrabRemove ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetGrabRemove _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grab_remove _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_has_default" gtk_widget_has_default ::
Ptr Widget ->
IO CInt
widgetHasDefault ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetHasDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_has_focus" gtk_widget_has_focus ::
Ptr Widget ->
IO CInt
widgetHasFocus ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetHasFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_has_grab" gtk_widget_has_grab ::
Ptr Widget ->
IO CInt
widgetHasGrab ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetHasGrab _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_grab _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_has_rc_style" gtk_widget_has_rc_style ::
Ptr Widget ->
IO CInt
widgetHasRcStyle ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetHasRcStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_rc_style _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_has_screen" gtk_widget_has_screen ::
Ptr Widget ->
IO CInt
widgetHasScreen ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetHasScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_screen _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus ::
Ptr Widget ->
IO CInt
widgetHasVisibleFocus ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetHasVisibleFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_has_visible_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_hide" gtk_widget_hide ::
Ptr Widget ->
IO ()
widgetHide ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetHide _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_hide _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_hide_on_delete" gtk_widget_hide_on_delete ::
Ptr Widget ->
IO CInt
widgetHideOnDelete ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetHideOnDelete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_hide_on_delete _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_in_destruction" gtk_widget_in_destruction ::
Ptr Widget ->
IO CInt
widgetInDestruction ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetInDestruction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_in_destruction _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_init_template" gtk_widget_init_template ::
Ptr Widget ->
IO ()
widgetInitTemplate ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetInitTemplate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_init_template _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region ::
Ptr Widget ->
Ptr Cairo.Region ->
IO ()
widgetInputShapeCombineRegion ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (Cairo.Region) ->
m ()
widgetInputShapeCombineRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRegion <- case region of
Nothing -> return nullPtr
Just jRegion -> do
let jRegion' = unsafeManagedPtrGetPtr jRegion
return jRegion'
gtk_widget_input_shape_combine_region _obj' maybeRegion
touchManagedPtr _obj
whenJust region touchManagedPtr
return ()
foreign import ccall "gtk_widget_insert_action_group" gtk_widget_insert_action_group ::
Ptr Widget ->
CString ->
Ptr Gio.ActionGroup ->
IO ()
widgetInsertActionGroup ::
(MonadIO m, WidgetK a, Gio.ActionGroupK b) =>
a ->
T.Text ->
Maybe (b) ->
m ()
widgetInsertActionGroup _obj name group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrCastPtr jGroup
return jGroup'
gtk_widget_insert_action_group _obj' name' maybeGroup
touchManagedPtr _obj
whenJust group touchManagedPtr
freeMem name'
return ()
foreign import ccall "gtk_widget_intersect" gtk_widget_intersect ::
Ptr Widget ->
Ptr Cairo.RectangleInt ->
Ptr Cairo.RectangleInt ->
IO CInt
widgetIntersect ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.RectangleInt ->
Maybe (Cairo.RectangleInt) ->
m Bool
widgetIntersect _obj area intersection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let area' = unsafeManagedPtrGetPtr area
maybeIntersection <- case intersection of
Nothing -> return nullPtr
Just jIntersection -> do
let jIntersection' = unsafeManagedPtrGetPtr jIntersection
return jIntersection'
result <- gtk_widget_intersect _obj' area' maybeIntersection
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr area
whenJust intersection touchManagedPtr
return result'
foreign import ccall "gtk_widget_is_ancestor" gtk_widget_is_ancestor ::
Ptr Widget ->
Ptr Widget ->
IO CInt
widgetIsAncestor ::
(MonadIO m, WidgetK a, WidgetK b) =>
a ->
b ->
m Bool
widgetIsAncestor _obj ancestor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ancestor' = unsafeManagedPtrCastPtr ancestor
result <- gtk_widget_is_ancestor _obj' ancestor'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr ancestor
return result'
foreign import ccall "gtk_widget_is_composited" gtk_widget_is_composited ::
Ptr Widget ->
IO CInt
widgetIsComposited ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetIsComposited _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_composited _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_is_drawable" gtk_widget_is_drawable ::
Ptr Widget ->
IO CInt
widgetIsDrawable ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetIsDrawable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_drawable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_is_focus" gtk_widget_is_focus ::
Ptr Widget ->
IO CInt
widgetIsFocus ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetIsFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_is_sensitive" gtk_widget_is_sensitive ::
Ptr Widget ->
IO CInt
widgetIsSensitive ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetIsSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_is_toplevel" gtk_widget_is_toplevel ::
Ptr Widget ->
IO CInt
widgetIsToplevel ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetIsToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_toplevel _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_is_visible" gtk_widget_is_visible ::
Ptr Widget ->
IO CInt
widgetIsVisible ::
(MonadIO m, WidgetK a) =>
a ->
m Bool
widgetIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_keynav_failed" gtk_widget_keynav_failed ::
Ptr Widget ->
CUInt ->
IO CInt
widgetKeynavFailed ::
(MonadIO m, WidgetK a) =>
a ->
DirectionType ->
m Bool
widgetKeynavFailed _obj direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
result <- gtk_widget_keynav_failed _obj' direction'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures ::
Ptr Widget ->
IO (Ptr (GList (Ptr Closure)))
widgetListAccelClosures ::
(MonadIO m, WidgetK a) =>
a ->
m [Closure]
widgetListAccelClosures _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_list_accel_closures _obj'
checkUnexpectedReturnNULL "gtk_widget_list_accel_closures" result
result' <- unpackGList result
result'' <- mapM (newBoxed Closure) result'
g_list_free result
touchManagedPtr _obj
return result''
foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes ::
Ptr Widget ->
IO (Ptr CString)
widgetListActionPrefixes ::
(MonadIO m, WidgetK a) =>
a ->
m [T.Text]
widgetListActionPrefixes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_list_action_prefixes _obj'
checkUnexpectedReturnNULL "gtk_widget_list_action_prefixes" result
result' <- unpackZeroTerminatedUTF8CArray result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels ::
Ptr Widget ->
IO (Ptr (GList (Ptr Widget)))
widgetListMnemonicLabels ::
(MonadIO m, WidgetK a) =>
a ->
m [Widget]
widgetListMnemonicLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_widget_list_mnemonic_labels _obj'
checkUnexpectedReturnNULL "gtk_widget_list_mnemonic_labels" result
result' <- unpackGList result
result'' <- mapM (newObject Widget) result'
g_list_free result
touchManagedPtr _obj
return result''
foreign import ccall "gtk_widget_map" gtk_widget_map ::
Ptr Widget ->
IO ()
widgetMap ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_map _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate ::
Ptr Widget ->
CInt ->
IO CInt
widgetMnemonicActivate ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m Bool
widgetMnemonicActivate _obj group_cycling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group_cycling' = (fromIntegral . fromEnum) group_cycling
result <- gtk_widget_mnemonic_activate _obj' group_cycling'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_widget_modify_base" gtk_widget_modify_base ::
Ptr Widget ->
CUInt ->
Ptr Gdk.Color ->
IO ()
widgetModifyBase ::
(MonadIO m, WidgetK a) =>
a ->
StateType ->
Maybe (Gdk.Color) ->
m ()
widgetModifyBase _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_base _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
foreign import ccall "gtk_widget_modify_bg" gtk_widget_modify_bg ::
Ptr Widget ->
CUInt ->
Ptr Gdk.Color ->
IO ()
widgetModifyBg ::
(MonadIO m, WidgetK a) =>
a ->
StateType ->
Maybe (Gdk.Color) ->
m ()
widgetModifyBg _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_bg _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
foreign import ccall "gtk_widget_modify_cursor" gtk_widget_modify_cursor ::
Ptr Widget ->
Ptr Gdk.Color ->
Ptr Gdk.Color ->
IO ()
widgetModifyCursor ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (Gdk.Color) ->
Maybe (Gdk.Color) ->
m ()
widgetModifyCursor _obj primary secondary = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePrimary <- case primary of
Nothing -> return nullPtr
Just jPrimary -> do
let jPrimary' = unsafeManagedPtrGetPtr jPrimary
return jPrimary'
maybeSecondary <- case secondary of
Nothing -> return nullPtr
Just jSecondary -> do
let jSecondary' = unsafeManagedPtrGetPtr jSecondary
return jSecondary'
gtk_widget_modify_cursor _obj' maybePrimary maybeSecondary
touchManagedPtr _obj
whenJust primary touchManagedPtr
whenJust secondary touchManagedPtr
return ()
foreign import ccall "gtk_widget_modify_fg" gtk_widget_modify_fg ::
Ptr Widget ->
CUInt ->
Ptr Gdk.Color ->
IO ()
widgetModifyFg ::
(MonadIO m, WidgetK a) =>
a ->
StateType ->
Maybe (Gdk.Color) ->
m ()
widgetModifyFg _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_fg _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
foreign import ccall "gtk_widget_modify_font" gtk_widget_modify_font ::
Ptr Widget ->
Ptr Pango.FontDescription ->
IO ()
widgetModifyFont ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (Pango.FontDescription) ->
m ()
widgetModifyFont _obj font_desc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFont_desc <- case font_desc of
Nothing -> return nullPtr
Just jFont_desc -> do
let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc
return jFont_desc'
gtk_widget_modify_font _obj' maybeFont_desc
touchManagedPtr _obj
whenJust font_desc touchManagedPtr
return ()
foreign import ccall "gtk_widget_modify_style" gtk_widget_modify_style ::
Ptr Widget ->
Ptr RcStyle ->
IO ()
widgetModifyStyle ::
(MonadIO m, WidgetK a, RcStyleK b) =>
a ->
b ->
m ()
widgetModifyStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = unsafeManagedPtrCastPtr style
gtk_widget_modify_style _obj' style'
touchManagedPtr _obj
touchManagedPtr style
return ()
foreign import ccall "gtk_widget_modify_text" gtk_widget_modify_text ::
Ptr Widget ->
CUInt ->
Ptr Gdk.Color ->
IO ()
widgetModifyText ::
(MonadIO m, WidgetK a) =>
a ->
StateType ->
Maybe (Gdk.Color) ->
m ()
widgetModifyText _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_modify_text _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
foreign import ccall "gtk_widget_override_background_color" gtk_widget_override_background_color ::
Ptr Widget ->
CUInt ->
Ptr Gdk.RGBA ->
IO ()
widgetOverrideBackgroundColor ::
(MonadIO m, WidgetK a) =>
a ->
[StateFlags] ->
Maybe (Gdk.RGBA) ->
m ()
widgetOverrideBackgroundColor _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_override_background_color _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
foreign import ccall "gtk_widget_override_color" gtk_widget_override_color ::
Ptr Widget ->
CUInt ->
Ptr Gdk.RGBA ->
IO ()
widgetOverrideColor ::
(MonadIO m, WidgetK a) =>
a ->
[StateFlags] ->
Maybe (Gdk.RGBA) ->
m ()
widgetOverrideColor _obj state color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = gflagsToWord state
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_override_color _obj' state' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
return ()
foreign import ccall "gtk_widget_override_cursor" gtk_widget_override_cursor ::
Ptr Widget ->
Ptr Gdk.RGBA ->
Ptr Gdk.RGBA ->
IO ()
widgetOverrideCursor ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (Gdk.RGBA) ->
Maybe (Gdk.RGBA) ->
m ()
widgetOverrideCursor _obj cursor secondary_cursor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCursor <- case cursor of
Nothing -> return nullPtr
Just jCursor -> do
let jCursor' = unsafeManagedPtrGetPtr jCursor
return jCursor'
maybeSecondary_cursor <- case secondary_cursor of
Nothing -> return nullPtr
Just jSecondary_cursor -> do
let jSecondary_cursor' = unsafeManagedPtrGetPtr jSecondary_cursor
return jSecondary_cursor'
gtk_widget_override_cursor _obj' maybeCursor maybeSecondary_cursor
touchManagedPtr _obj
whenJust cursor touchManagedPtr
whenJust secondary_cursor touchManagedPtr
return ()
foreign import ccall "gtk_widget_override_font" gtk_widget_override_font ::
Ptr Widget ->
Ptr Pango.FontDescription ->
IO ()
widgetOverrideFont ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (Pango.FontDescription) ->
m ()
widgetOverrideFont _obj font_desc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeFont_desc <- case font_desc of
Nothing -> return nullPtr
Just jFont_desc -> do
let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc
return jFont_desc'
gtk_widget_override_font _obj' maybeFont_desc
touchManagedPtr _obj
whenJust font_desc touchManagedPtr
return ()
foreign import ccall "gtk_widget_override_symbolic_color" gtk_widget_override_symbolic_color ::
Ptr Widget ->
CString ->
Ptr Gdk.RGBA ->
IO ()
widgetOverrideSymbolicColor ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
Maybe (Gdk.RGBA) ->
m ()
widgetOverrideSymbolicColor _obj name color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
let jColor' = unsafeManagedPtrGetPtr jColor
return jColor'
gtk_widget_override_symbolic_color _obj' name' maybeColor
touchManagedPtr _obj
whenJust color touchManagedPtr
freeMem name'
return ()
foreign import ccall "gtk_widget_path" gtk_widget_path ::
Ptr Widget ->
Ptr Word32 ->
Ptr CString ->
Ptr CString ->
IO ()
widgetPath ::
(MonadIO m, WidgetK a) =>
a ->
m (Word32,T.Text,T.Text)
widgetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path_length <- allocMem :: IO (Ptr Word32)
path <- allocMem :: IO (Ptr CString)
path_reversed <- allocMem :: IO (Ptr CString)
gtk_widget_path _obj' path_length path path_reversed
path_length' <- peek path_length
path' <- peek path
path'' <- cstringToText path'
freeMem path'
path_reversed' <- peek path_reversed
path_reversed'' <- cstringToText path_reversed'
freeMem path_reversed'
touchManagedPtr _obj
freeMem path_length
freeMem path
freeMem path_reversed
return (path_length', path'', path_reversed'')
foreign import ccall "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand ::
Ptr Widget ->
IO ()
widgetQueueComputeExpand ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetQueueComputeExpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_compute_expand _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_queue_draw" gtk_widget_queue_draw ::
Ptr Widget ->
IO ()
widgetQueueDraw ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetQueueDraw _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_draw _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_queue_draw_area" gtk_widget_queue_draw_area ::
Ptr Widget ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO ()
widgetQueueDrawArea ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
m ()
widgetQueueDrawArea _obj x y width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_draw_area _obj' x y width height
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_queue_draw_region" gtk_widget_queue_draw_region ::
Ptr Widget ->
Ptr Cairo.Region ->
IO ()
widgetQueueDrawRegion ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.Region ->
m ()
widgetQueueDrawRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
gtk_widget_queue_draw_region _obj' region'
touchManagedPtr _obj
touchManagedPtr region
return ()
foreign import ccall "gtk_widget_queue_resize" gtk_widget_queue_resize ::
Ptr Widget ->
IO ()
widgetQueueResize ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetQueueResize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_resize _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw ::
Ptr Widget ->
IO ()
widgetQueueResizeNoRedraw ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetQueueResizeNoRedraw _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_queue_resize_no_redraw _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_realize" gtk_widget_realize ::
Ptr Widget ->
IO ()
widgetRealize ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetRealize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_realize _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_region_intersect" gtk_widget_region_intersect ::
Ptr Widget ->
Ptr Cairo.Region ->
IO (Ptr Cairo.Region)
widgetRegionIntersect ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.Region ->
m Cairo.Region
widgetRegionIntersect _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
result <- gtk_widget_region_intersect _obj' region'
checkUnexpectedReturnNULL "gtk_widget_region_intersect" result
result' <- (wrapBoxed Cairo.Region) result
touchManagedPtr _obj
touchManagedPtr region
return result'
foreign import ccall "gtk_widget_register_window" gtk_widget_register_window ::
Ptr Widget ->
Ptr Gdk.Window ->
IO ()
widgetRegisterWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a ->
b ->
m ()
widgetRegisterWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_widget_register_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
foreign import ccall "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator ::
Ptr Widget ->
Ptr AccelGroup ->
Word32 ->
CUInt ->
IO CInt
widgetRemoveAccelerator ::
(MonadIO m, WidgetK a, AccelGroupK b) =>
a ->
b ->
Word32 ->
[Gdk.ModifierType] ->
m Bool
widgetRemoveAccelerator _obj accel_group accel_key accel_mods = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accel_group' = unsafeManagedPtrCastPtr accel_group
let accel_mods' = gflagsToWord accel_mods
result <- gtk_widget_remove_accelerator _obj' accel_group' accel_key accel_mods'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr accel_group
return result'
foreign import ccall "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetRemoveMnemonicLabel ::
(MonadIO m, WidgetK a, WidgetK b) =>
a ->
b ->
m ()
widgetRemoveMnemonicLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let label' = unsafeManagedPtrCastPtr label
gtk_widget_remove_mnemonic_label _obj' label'
touchManagedPtr _obj
touchManagedPtr label
return ()
foreign import ccall "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback ::
Ptr Widget ->
Word32 ->
IO ()
widgetRemoveTickCallback ::
(MonadIO m, WidgetK a) =>
a ->
Word32 ->
m ()
widgetRemoveTickCallback _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_remove_tick_callback _obj' id
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_render_icon" gtk_widget_render_icon ::
Ptr Widget ->
CString ->
Int32 ->
CString ->
IO (Ptr GdkPixbuf.Pixbuf)
widgetRenderIcon ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
Int32 ->
Maybe (T.Text) ->
m GdkPixbuf.Pixbuf
widgetRenderIcon _obj stock_id size detail = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
result <- gtk_widget_render_icon _obj' stock_id' size maybeDetail
checkUnexpectedReturnNULL "gtk_widget_render_icon" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem stock_id'
freeMem maybeDetail
return result'
foreign import ccall "gtk_widget_render_icon_pixbuf" gtk_widget_render_icon_pixbuf ::
Ptr Widget ->
CString ->
Int32 ->
IO (Ptr GdkPixbuf.Pixbuf)
widgetRenderIconPixbuf ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
Int32 ->
m GdkPixbuf.Pixbuf
widgetRenderIconPixbuf _obj stock_id size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stock_id' <- textToCString stock_id
result <- gtk_widget_render_icon_pixbuf _obj' stock_id' size
checkUnexpectedReturnNULL "gtk_widget_render_icon_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem stock_id'
return result'
foreign import ccall "gtk_widget_reparent" gtk_widget_reparent ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetReparent ::
(MonadIO m, WidgetK a, WidgetK b) =>
a ->
b ->
m ()
widgetReparent _obj new_parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let new_parent' = unsafeManagedPtrCastPtr new_parent
gtk_widget_reparent _obj' new_parent'
touchManagedPtr _obj
touchManagedPtr new_parent
return ()
foreign import ccall "gtk_widget_reset_rc_styles" gtk_widget_reset_rc_styles ::
Ptr Widget ->
IO ()
widgetResetRcStyles ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetResetRcStyles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_reset_rc_styles _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_reset_style" gtk_widget_reset_style ::
Ptr Widget ->
IO ()
widgetResetStyle ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetResetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_reset_style _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_send_expose" gtk_widget_send_expose ::
Ptr Widget ->
Ptr Gdk.Event ->
IO Int32
widgetSendExpose ::
(MonadIO m, WidgetK a) =>
a ->
Gdk.Event ->
m Int32
widgetSendExpose _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_widget_send_expose _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return result
foreign import ccall "gtk_widget_send_focus_change" gtk_widget_send_focus_change ::
Ptr Widget ->
Ptr Gdk.Event ->
IO CInt
widgetSendFocusChange ::
(MonadIO m, WidgetK a) =>
a ->
Gdk.Event ->
m Bool
widgetSendFocusChange _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_widget_send_focus_change _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
foreign import ccall "gtk_widget_set_accel_path" gtk_widget_set_accel_path ::
Ptr Widget ->
CString ->
Ptr AccelGroup ->
IO ()
widgetSetAccelPath ::
(MonadIO m, WidgetK a, AccelGroupK b) =>
a ->
Maybe (T.Text) ->
Maybe (b) ->
m ()
widgetSetAccelPath _obj accel_path accel_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccel_path <- case accel_path of
Nothing -> return nullPtr
Just jAccel_path -> do
jAccel_path' <- textToCString jAccel_path
return jAccel_path'
maybeAccel_group <- case accel_group of
Nothing -> return nullPtr
Just jAccel_group -> do
let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group
return jAccel_group'
gtk_widget_set_accel_path _obj' maybeAccel_path maybeAccel_group
touchManagedPtr _obj
whenJust accel_group touchManagedPtr
freeMem maybeAccel_path
return ()
foreign import ccall "gtk_widget_set_allocation" gtk_widget_set_allocation ::
Ptr Widget ->
Ptr Cairo.RectangleInt ->
IO ()
widgetSetAllocation ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.RectangleInt ->
m ()
widgetSetAllocation _obj allocation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allocation' = unsafeManagedPtrGetPtr allocation
gtk_widget_set_allocation _obj' allocation'
touchManagedPtr _obj
touchManagedPtr allocation
return ()
foreign import ccall "gtk_widget_set_app_paintable" gtk_widget_set_app_paintable ::
Ptr Widget ->
CInt ->
IO ()
widgetSetAppPaintable ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetAppPaintable _obj app_paintable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let app_paintable' = (fromIntegral . fromEnum) app_paintable
gtk_widget_set_app_paintable _obj' app_paintable'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_can_default" gtk_widget_set_can_default ::
Ptr Widget ->
CInt ->
IO ()
widgetSetCanDefault ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetCanDefault _obj can_default = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let can_default' = (fromIntegral . fromEnum) can_default
gtk_widget_set_can_default _obj' can_default'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_can_focus" gtk_widget_set_can_focus ::
Ptr Widget ->
CInt ->
IO ()
widgetSetCanFocus ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetCanFocus _obj can_focus = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let can_focus' = (fromIntegral . fromEnum) can_focus
gtk_widget_set_can_focus _obj' can_focus'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_child_visible" gtk_widget_set_child_visible ::
Ptr Widget ->
CInt ->
IO ()
widgetSetChildVisible ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetChildVisible _obj is_visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_visible' = (fromIntegral . fromEnum) is_visible
gtk_widget_set_child_visible _obj' is_visible'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_clip" gtk_widget_set_clip ::
Ptr Widget ->
Ptr Cairo.RectangleInt ->
IO ()
widgetSetClip ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.RectangleInt ->
m ()
widgetSetClip _obj clip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clip' = unsafeManagedPtrGetPtr clip
gtk_widget_set_clip _obj' clip'
touchManagedPtr _obj
touchManagedPtr clip
return ()
foreign import ccall "gtk_widget_set_composite_name" gtk_widget_set_composite_name ::
Ptr Widget ->
CString ->
IO ()
widgetSetCompositeName ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
m ()
widgetSetCompositeName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_widget_set_composite_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
foreign import ccall "gtk_widget_set_device_enabled" gtk_widget_set_device_enabled ::
Ptr Widget ->
Ptr Gdk.Device ->
CInt ->
IO ()
widgetSetDeviceEnabled ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a ->
b ->
Bool ->
m ()
widgetSetDeviceEnabled _obj device enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let enabled' = (fromIntegral . fromEnum) enabled
gtk_widget_set_device_enabled _obj' device' enabled'
touchManagedPtr _obj
touchManagedPtr device
return ()
foreign import ccall "gtk_widget_set_device_events" gtk_widget_set_device_events ::
Ptr Widget ->
Ptr Gdk.Device ->
CUInt ->
IO ()
widgetSetDeviceEvents ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a ->
b ->
[Gdk.EventMask] ->
m ()
widgetSetDeviceEvents _obj device events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let events' = gflagsToWord events
gtk_widget_set_device_events _obj' device' events'
touchManagedPtr _obj
touchManagedPtr device
return ()
foreign import ccall "gtk_widget_set_direction" gtk_widget_set_direction ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetDirection ::
(MonadIO m, WidgetK a) =>
a ->
TextDirection ->
m ()
widgetSetDirection _obj dir = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dir' = (fromIntegral . fromEnum) dir
gtk_widget_set_direction _obj' dir'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_double_buffered" gtk_widget_set_double_buffered ::
Ptr Widget ->
CInt ->
IO ()
widgetSetDoubleBuffered ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetDoubleBuffered _obj double_buffered = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let double_buffered' = (fromIntegral . fromEnum) double_buffered
gtk_widget_set_double_buffered _obj' double_buffered'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_events" gtk_widget_set_events ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetEvents ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetSetEvents _obj events = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_events _obj' events
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_halign" gtk_widget_set_halign ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetHalign ::
(MonadIO m, WidgetK a) =>
a ->
Align ->
m ()
widgetSetHalign _obj align = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let align' = (fromIntegral . fromEnum) align
gtk_widget_set_halign _obj' align'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHasTooltip ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetHasTooltip _obj has_tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_tooltip' = (fromIntegral . fromEnum) has_tooltip
gtk_widget_set_has_tooltip _obj' has_tooltip'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_has_window" gtk_widget_set_has_window ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHasWindow ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetHasWindow _obj has_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_window' = (fromIntegral . fromEnum) has_window
gtk_widget_set_has_window _obj' has_window'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_hexpand" gtk_widget_set_hexpand ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHexpand ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetHexpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_widget_set_hexpand _obj' expand'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set ::
Ptr Widget ->
CInt ->
IO ()
widgetSetHexpandSet ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetHexpandSet _obj set = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let set' = (fromIntegral . fromEnum) set
gtk_widget_set_hexpand_set _obj' set'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_mapped" gtk_widget_set_mapped ::
Ptr Widget ->
CInt ->
IO ()
widgetSetMapped ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetMapped _obj mapped = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mapped' = (fromIntegral . fromEnum) mapped
gtk_widget_set_mapped _obj' mapped'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginBottom ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetSetMarginBottom _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_bottom _obj' margin
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_margin_end" gtk_widget_set_margin_end ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginEnd ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetSetMarginEnd _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_end _obj' margin
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_margin_left" gtk_widget_set_margin_left ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginLeft ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetSetMarginLeft _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_left _obj' margin
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_margin_right" gtk_widget_set_margin_right ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginRight ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetSetMarginRight _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_right _obj' margin
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_margin_start" gtk_widget_set_margin_start ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginStart ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetSetMarginStart _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_start _obj' margin
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_margin_top" gtk_widget_set_margin_top ::
Ptr Widget ->
Int32 ->
IO ()
widgetSetMarginTop ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
m ()
widgetSetMarginTop _obj margin = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_margin_top _obj' margin
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_name" gtk_widget_set_name ::
Ptr Widget ->
CString ->
IO ()
widgetSetName ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
m ()
widgetSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
gtk_widget_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
foreign import ccall "gtk_widget_set_no_show_all" gtk_widget_set_no_show_all ::
Ptr Widget ->
CInt ->
IO ()
widgetSetNoShowAll ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetNoShowAll _obj no_show_all = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let no_show_all' = (fromIntegral . fromEnum) no_show_all
gtk_widget_set_no_show_all _obj' no_show_all'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_opacity" gtk_widget_set_opacity ::
Ptr Widget ->
CDouble ->
IO ()
widgetSetOpacity ::
(MonadIO m, WidgetK a) =>
a ->
Double ->
m ()
widgetSetOpacity _obj opacity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let opacity' = realToFrac opacity
gtk_widget_set_opacity _obj' opacity'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_parent" gtk_widget_set_parent ::
Ptr Widget ->
Ptr Widget ->
IO ()
widgetSetParent ::
(MonadIO m, WidgetK a, WidgetK b) =>
a ->
b ->
m ()
widgetSetParent _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parent' = unsafeManagedPtrCastPtr parent
gtk_widget_set_parent _obj' parent'
touchManagedPtr _obj
touchManagedPtr parent
return ()
foreign import ccall "gtk_widget_set_parent_window" gtk_widget_set_parent_window ::
Ptr Widget ->
Ptr Gdk.Window ->
IO ()
widgetSetParentWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a ->
b ->
m ()
widgetSetParentWindow _obj parent_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parent_window' = unsafeManagedPtrCastPtr parent_window
gtk_widget_set_parent_window _obj' parent_window'
touchManagedPtr _obj
touchManagedPtr parent_window
return ()
foreign import ccall "gtk_widget_set_realized" gtk_widget_set_realized ::
Ptr Widget ->
CInt ->
IO ()
widgetSetRealized ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetRealized _obj realized = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let realized' = (fromIntegral . fromEnum) realized
gtk_widget_set_realized _obj' realized'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_receives_default" gtk_widget_set_receives_default ::
Ptr Widget ->
CInt ->
IO ()
widgetSetReceivesDefault ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetReceivesDefault _obj receives_default = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let receives_default' = (fromIntegral . fromEnum) receives_default
gtk_widget_set_receives_default _obj' receives_default'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_redraw_on_allocate" gtk_widget_set_redraw_on_allocate ::
Ptr Widget ->
CInt ->
IO ()
widgetSetRedrawOnAllocate ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetRedrawOnAllocate _obj redraw_on_allocate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let redraw_on_allocate' = (fromIntegral . fromEnum) redraw_on_allocate
gtk_widget_set_redraw_on_allocate _obj' redraw_on_allocate'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_sensitive" gtk_widget_set_sensitive ::
Ptr Widget ->
CInt ->
IO ()
widgetSetSensitive ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_widget_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_size_request" gtk_widget_set_size_request ::
Ptr Widget ->
Int32 ->
Int32 ->
IO ()
widgetSetSizeRequest ::
(MonadIO m, WidgetK a) =>
a ->
Int32 ->
Int32 ->
m ()
widgetSetSizeRequest _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_set_size_request _obj' width height
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_state" gtk_widget_set_state ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetState ::
(MonadIO m, WidgetK a) =>
a ->
StateType ->
m ()
widgetSetState _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
gtk_widget_set_state _obj' state'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_state_flags" gtk_widget_set_state_flags ::
Ptr Widget ->
CUInt ->
CInt ->
IO ()
widgetSetStateFlags ::
(MonadIO m, WidgetK a) =>
a ->
[StateFlags] ->
Bool ->
m ()
widgetSetStateFlags _obj flags clear = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
let clear' = (fromIntegral . fromEnum) clear
gtk_widget_set_state_flags _obj' flags' clear'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_style" gtk_widget_set_style ::
Ptr Widget ->
Ptr Style ->
IO ()
widgetSetStyle ::
(MonadIO m, WidgetK a, StyleK b) =>
a ->
Maybe (b) ->
m ()
widgetSetStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeStyle <- case style of
Nothing -> return nullPtr
Just jStyle -> do
let jStyle' = unsafeManagedPtrCastPtr jStyle
return jStyle'
gtk_widget_set_style _obj' maybeStyle
touchManagedPtr _obj
whenJust style touchManagedPtr
return ()
foreign import ccall "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice ::
Ptr Widget ->
CInt ->
IO ()
widgetSetSupportMultidevice ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetSupportMultidevice _obj support_multidevice = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let support_multidevice' = (fromIntegral . fromEnum) support_multidevice
gtk_widget_set_support_multidevice _obj' support_multidevice'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup ::
Ptr Widget ->
CString ->
IO ()
widgetSetTooltipMarkup ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (T.Text) ->
m ()
widgetSetTooltipMarkup _obj markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMarkup <- case markup of
Nothing -> return nullPtr
Just jMarkup -> do
jMarkup' <- textToCString jMarkup
return jMarkup'
gtk_widget_set_tooltip_markup _obj' maybeMarkup
touchManagedPtr _obj
freeMem maybeMarkup
return ()
foreign import ccall "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text ::
Ptr Widget ->
CString ->
IO ()
widgetSetTooltipText ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (T.Text) ->
m ()
widgetSetTooltipText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeText <- case text of
Nothing -> return nullPtr
Just jText -> do
jText' <- textToCString jText
return jText'
gtk_widget_set_tooltip_text _obj' maybeText
touchManagedPtr _obj
freeMem maybeText
return ()
foreign import ccall "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window ::
Ptr Widget ->
Ptr Window ->
IO ()
widgetSetTooltipWindow ::
(MonadIO m, WidgetK a, WindowK b) =>
a ->
Maybe (b) ->
m ()
widgetSetTooltipWindow _obj custom_window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCustom_window <- case custom_window of
Nothing -> return nullPtr
Just jCustom_window -> do
let jCustom_window' = unsafeManagedPtrCastPtr jCustom_window
return jCustom_window'
gtk_widget_set_tooltip_window _obj' maybeCustom_window
touchManagedPtr _obj
whenJust custom_window touchManagedPtr
return ()
foreign import ccall "gtk_widget_set_valign" gtk_widget_set_valign ::
Ptr Widget ->
CUInt ->
IO ()
widgetSetValign ::
(MonadIO m, WidgetK a) =>
a ->
Align ->
m ()
widgetSetValign _obj align = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let align' = (fromIntegral . fromEnum) align
gtk_widget_set_valign _obj' align'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_vexpand" gtk_widget_set_vexpand ::
Ptr Widget ->
CInt ->
IO ()
widgetSetVexpand ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetVexpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_widget_set_vexpand _obj' expand'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set ::
Ptr Widget ->
CInt ->
IO ()
widgetSetVexpandSet ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetVexpandSet _obj set = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let set' = (fromIntegral . fromEnum) set
gtk_widget_set_vexpand_set _obj' set'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_visible" gtk_widget_set_visible ::
Ptr Widget ->
CInt ->
IO ()
widgetSetVisible ::
(MonadIO m, WidgetK a) =>
a ->
Bool ->
m ()
widgetSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_widget_set_visible _obj' visible'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_set_visual" gtk_widget_set_visual ::
Ptr Widget ->
Ptr Gdk.Visual ->
IO ()
widgetSetVisual ::
(MonadIO m, WidgetK a, Gdk.VisualK b) =>
a ->
Maybe (b) ->
m ()
widgetSetVisual _obj visual = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeVisual <- case visual of
Nothing -> return nullPtr
Just jVisual -> do
let jVisual' = unsafeManagedPtrCastPtr jVisual
return jVisual'
gtk_widget_set_visual _obj' maybeVisual
touchManagedPtr _obj
whenJust visual touchManagedPtr
return ()
foreign import ccall "gtk_widget_set_window" gtk_widget_set_window ::
Ptr Widget ->
Ptr Gdk.Window ->
IO ()
widgetSetWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a ->
b ->
m ()
widgetSetWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
window' <- refObject window
gtk_widget_set_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
foreign import ccall "gtk_widget_shape_combine_region" gtk_widget_shape_combine_region ::
Ptr Widget ->
Ptr Cairo.Region ->
IO ()
widgetShapeCombineRegion ::
(MonadIO m, WidgetK a) =>
a ->
Maybe (Cairo.Region) ->
m ()
widgetShapeCombineRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRegion <- case region of
Nothing -> return nullPtr
Just jRegion -> do
let jRegion' = unsafeManagedPtrGetPtr jRegion
return jRegion'
gtk_widget_shape_combine_region _obj' maybeRegion
touchManagedPtr _obj
whenJust region touchManagedPtr
return ()
foreign import ccall "gtk_widget_show" gtk_widget_show ::
Ptr Widget ->
IO ()
widgetShow ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_show _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_show_all" gtk_widget_show_all ::
Ptr Widget ->
IO ()
widgetShowAll ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetShowAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_show_all _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_show_now" gtk_widget_show_now ::
Ptr Widget ->
IO ()
widgetShowNow ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetShowNow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_show_now _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_size_allocate" gtk_widget_size_allocate ::
Ptr Widget ->
Ptr Cairo.RectangleInt ->
IO ()
widgetSizeAllocate ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.RectangleInt ->
m ()
widgetSizeAllocate _obj allocation = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allocation' = unsafeManagedPtrGetPtr allocation
gtk_widget_size_allocate _obj' allocation'
touchManagedPtr _obj
touchManagedPtr allocation
return ()
foreign import ccall "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline ::
Ptr Widget ->
Ptr Cairo.RectangleInt ->
Int32 ->
IO ()
widgetSizeAllocateWithBaseline ::
(MonadIO m, WidgetK a) =>
a ->
Cairo.RectangleInt ->
Int32 ->
m ()
widgetSizeAllocateWithBaseline _obj allocation baseline = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allocation' = unsafeManagedPtrGetPtr allocation
gtk_widget_size_allocate_with_baseline _obj' allocation' baseline
touchManagedPtr _obj
touchManagedPtr allocation
return ()
foreign import ccall "gtk_widget_size_request" gtk_widget_size_request ::
Ptr Widget ->
Ptr Requisition ->
IO ()
widgetSizeRequest ::
(MonadIO m, WidgetK a) =>
a ->
m (Requisition)
widgetSizeRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_widget_size_request _obj' requisition
requisition' <- (wrapBoxed Requisition) requisition
touchManagedPtr _obj
return requisition'
foreign import ccall "gtk_widget_style_attach" gtk_widget_style_attach ::
Ptr Widget ->
IO ()
widgetStyleAttach ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetStyleAttach _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_style_attach _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_style_get_property" gtk_widget_style_get_property ::
Ptr Widget ->
CString ->
Ptr GValue ->
IO ()
widgetStyleGetProperty ::
(MonadIO m, WidgetK a) =>
a ->
T.Text ->
GValue ->
m ()
widgetStyleGetProperty _obj property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_widget_style_get_property _obj' property_name' value'
touchManagedPtr _obj
touchManagedPtr value
freeMem property_name'
return ()
foreign import ccall "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify ::
Ptr Widget ->
IO ()
widgetThawChildNotify ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetThawChildNotify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_thaw_child_notify _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates ::
Ptr Widget ->
Ptr Widget ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
widgetTranslateCoordinates ::
(MonadIO m, WidgetK a, WidgetK b) =>
a ->
b ->
Int32 ->
Int32 ->
m (Bool,Int32,Int32)
widgetTranslateCoordinates _obj dest_widget src_x src_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest_widget' = unsafeManagedPtrCastPtr dest_widget
dest_x <- allocMem :: IO (Ptr Int32)
dest_y <- allocMem :: IO (Ptr Int32)
result <- gtk_widget_translate_coordinates _obj' dest_widget' src_x src_y dest_x dest_y
let result' = (/= 0) result
dest_x' <- peek dest_x
dest_y' <- peek dest_y
touchManagedPtr _obj
touchManagedPtr dest_widget
freeMem dest_x
freeMem dest_y
return (result', dest_x', dest_y')
foreign import ccall "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query ::
Ptr Widget ->
IO ()
widgetTriggerTooltipQuery ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetTriggerTooltipQuery _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_trigger_tooltip_query _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_unmap" gtk_widget_unmap ::
Ptr Widget ->
IO ()
widgetUnmap ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetUnmap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_unmap _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_unparent" gtk_widget_unparent ::
Ptr Widget ->
IO ()
widgetUnparent ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetUnparent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_unparent _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_unrealize" gtk_widget_unrealize ::
Ptr Widget ->
IO ()
widgetUnrealize ::
(MonadIO m, WidgetK a) =>
a ->
m ()
widgetUnrealize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_widget_unrealize _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_unregister_window" gtk_widget_unregister_window ::
Ptr Widget ->
Ptr Gdk.Window ->
IO ()
widgetUnregisterWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
a ->
b ->
m ()
widgetUnregisterWindow _obj window = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
gtk_widget_unregister_window _obj' window'
touchManagedPtr _obj
touchManagedPtr window
return ()
foreign import ccall "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags ::
Ptr Widget ->
CUInt ->
IO ()
widgetUnsetStateFlags ::
(MonadIO m, WidgetK a) =>
a ->
[StateFlags] ->
m ()
widgetUnsetStateFlags _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
gtk_widget_unset_state_flags _obj' flags'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction ::
IO CUInt
widgetGetDefaultDirection ::
(MonadIO m) =>
m TextDirection
widgetGetDefaultDirection = liftIO $ do
result <- gtk_widget_get_default_direction
let result' = (toEnum . fromIntegral) result
return result'
foreign import ccall "gtk_widget_get_default_style" gtk_widget_get_default_style ::
IO (Ptr Style)
widgetGetDefaultStyle ::
(MonadIO m) =>
m Style
widgetGetDefaultStyle = liftIO $ do
result <- gtk_widget_get_default_style
checkUnexpectedReturnNULL "gtk_widget_get_default_style" result
result' <- (newObject Style) result
return result'
foreign import ccall "gtk_widget_pop_composite_child" gtk_widget_pop_composite_child ::
IO ()
widgetPopCompositeChild ::
(MonadIO m) =>
m ()
widgetPopCompositeChild = liftIO $ do
gtk_widget_pop_composite_child
return ()
foreign import ccall "gtk_widget_push_composite_child" gtk_widget_push_composite_child ::
IO ()
widgetPushCompositeChild ::
(MonadIO m) =>
m ()
widgetPushCompositeChild = liftIO $ do
gtk_widget_push_composite_child
return ()
foreign import ccall "gtk_widget_set_default_direction" gtk_widget_set_default_direction ::
CUInt ->
IO ()
widgetSetDefaultDirection ::
(MonadIO m) =>
TextDirection ->
m ()
widgetSetDefaultDirection dir = liftIO $ do
let dir' = (fromIntegral . fromEnum) dir
gtk_widget_set_default_direction dir'
return ()