gi-gtk-0.3.18.13: GI/Gtk/Objects/Switch.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.Switch
(
-- * Exported types
Switch(..) ,
SwitchK ,
toSwitch ,
noSwitch ,
-- * Methods
-- ** switchGetActive
SwitchGetActiveMethodInfo ,
switchGetActive ,
-- ** switchGetState
SwitchGetStateMethodInfo ,
switchGetState ,
-- ** switchNew
switchNew ,
-- ** switchSetActive
SwitchSetActiveMethodInfo ,
switchSetActive ,
-- ** switchSetState
SwitchSetStateMethodInfo ,
switchSetState ,
-- * Properties
-- ** Active
SwitchActivePropertyInfo ,
constructSwitchActive ,
getSwitchActive ,
setSwitchActive ,
-- ** State
SwitchStatePropertyInfo ,
constructSwitchState ,
getSwitchState ,
setSwitchState ,
-- * Signals
-- ** Activate
SwitchActivateCallback ,
SwitchActivateCallbackC ,
SwitchActivateSignalInfo ,
afterSwitchActivate ,
mkSwitchActivateCallback ,
noSwitchActivateCallback ,
onSwitchActivate ,
switchActivateCallbackWrapper ,
switchActivateClosure ,
-- ** StateSet
SwitchStateSetCallback ,
SwitchStateSetCallbackC ,
SwitchStateSetSignalInfo ,
afterSwitchStateSet ,
mkSwitchStateSetCallback ,
noSwitchStateSetCallback ,
onSwitchStateSet ,
switchStateSetCallbackWrapper ,
switchStateSetClosure ,
) 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.GObject as GObject
newtype Switch = Switch (ForeignPtr Switch)
foreign import ccall "gtk_switch_get_type"
c_gtk_switch_get_type :: IO GType
type instance ParentTypes Switch = SwitchParentTypes
type SwitchParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Actionable, Activatable, Buildable]
instance GObject Switch where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_switch_get_type
class GObject o => SwitchK o
instance (GObject o, IsDescendantOf Switch o) => SwitchK o
toSwitch :: SwitchK o => o -> IO Switch
toSwitch = unsafeCastTo Switch
noSwitch :: Maybe Switch
noSwitch = Nothing
type family ResolveSwitchMethod (t :: Symbol) (o :: *) :: * where
ResolveSwitchMethod "activate" o = WidgetActivateMethodInfo
ResolveSwitchMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo
ResolveSwitchMethod "addChild" o = BuildableAddChildMethodInfo
ResolveSwitchMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo
ResolveSwitchMethod "addEvents" o = WidgetAddEventsMethodInfo
ResolveSwitchMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo
ResolveSwitchMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo
ResolveSwitchMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveSwitchMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveSwitchMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo
ResolveSwitchMethod "childFocus" o = WidgetChildFocusMethodInfo
ResolveSwitchMethod "childNotify" o = WidgetChildNotifyMethodInfo
ResolveSwitchMethod "classPath" o = WidgetClassPathMethodInfo
ResolveSwitchMethod "computeExpand" o = WidgetComputeExpandMethodInfo
ResolveSwitchMethod "constructChild" o = BuildableConstructChildMethodInfo
ResolveSwitchMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo
ResolveSwitchMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo
ResolveSwitchMethod "customFinished" o = BuildableCustomFinishedMethodInfo
ResolveSwitchMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
ResolveSwitchMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
ResolveSwitchMethod "destroy" o = WidgetDestroyMethodInfo
ResolveSwitchMethod "destroyed" o = WidgetDestroyedMethodInfo
ResolveSwitchMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo
ResolveSwitchMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo
ResolveSwitchMethod "dragBegin" o = WidgetDragBeginMethodInfo
ResolveSwitchMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo
ResolveSwitchMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo
ResolveSwitchMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo
ResolveSwitchMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo
ResolveSwitchMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo
ResolveSwitchMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo
ResolveSwitchMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo
ResolveSwitchMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo
ResolveSwitchMethod "dragDestSet" o = WidgetDragDestSetMethodInfo
ResolveSwitchMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo
ResolveSwitchMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo
ResolveSwitchMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo
ResolveSwitchMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo
ResolveSwitchMethod "dragGetData" o = WidgetDragGetDataMethodInfo
ResolveSwitchMethod "dragHighlight" o = WidgetDragHighlightMethodInfo
ResolveSwitchMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo
ResolveSwitchMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo
ResolveSwitchMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo
ResolveSwitchMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo
ResolveSwitchMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo
ResolveSwitchMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo
ResolveSwitchMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo
ResolveSwitchMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo
ResolveSwitchMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo
ResolveSwitchMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo
ResolveSwitchMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo
ResolveSwitchMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo
ResolveSwitchMethod "draw" o = WidgetDrawMethodInfo
ResolveSwitchMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo
ResolveSwitchMethod "errorBell" o = WidgetErrorBellMethodInfo
ResolveSwitchMethod "event" o = WidgetEventMethodInfo
ResolveSwitchMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveSwitchMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo
ResolveSwitchMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveSwitchMethod "grabAdd" o = WidgetGrabAddMethodInfo
ResolveSwitchMethod "grabDefault" o = WidgetGrabDefaultMethodInfo
ResolveSwitchMethod "grabFocus" o = WidgetGrabFocusMethodInfo
ResolveSwitchMethod "grabRemove" o = WidgetGrabRemoveMethodInfo
ResolveSwitchMethod "hasDefault" o = WidgetHasDefaultMethodInfo
ResolveSwitchMethod "hasFocus" o = WidgetHasFocusMethodInfo
ResolveSwitchMethod "hasGrab" o = WidgetHasGrabMethodInfo
ResolveSwitchMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo
ResolveSwitchMethod "hasScreen" o = WidgetHasScreenMethodInfo
ResolveSwitchMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo
ResolveSwitchMethod "hide" o = WidgetHideMethodInfo
ResolveSwitchMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo
ResolveSwitchMethod "inDestruction" o = WidgetInDestructionMethodInfo
ResolveSwitchMethod "initTemplate" o = WidgetInitTemplateMethodInfo
ResolveSwitchMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo
ResolveSwitchMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo
ResolveSwitchMethod "intersect" o = WidgetIntersectMethodInfo
ResolveSwitchMethod "isAncestor" o = WidgetIsAncestorMethodInfo
ResolveSwitchMethod "isComposited" o = WidgetIsCompositedMethodInfo
ResolveSwitchMethod "isDrawable" o = WidgetIsDrawableMethodInfo
ResolveSwitchMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveSwitchMethod "isFocus" o = WidgetIsFocusMethodInfo
ResolveSwitchMethod "isSensitive" o = WidgetIsSensitiveMethodInfo
ResolveSwitchMethod "isToplevel" o = WidgetIsToplevelMethodInfo
ResolveSwitchMethod "isVisible" o = WidgetIsVisibleMethodInfo
ResolveSwitchMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo
ResolveSwitchMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo
ResolveSwitchMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo
ResolveSwitchMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo
ResolveSwitchMethod "map" o = WidgetMapMethodInfo
ResolveSwitchMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo
ResolveSwitchMethod "modifyBase" o = WidgetModifyBaseMethodInfo
ResolveSwitchMethod "modifyBg" o = WidgetModifyBgMethodInfo
ResolveSwitchMethod "modifyCursor" o = WidgetModifyCursorMethodInfo
ResolveSwitchMethod "modifyFg" o = WidgetModifyFgMethodInfo
ResolveSwitchMethod "modifyFont" o = WidgetModifyFontMethodInfo
ResolveSwitchMethod "modifyStyle" o = WidgetModifyStyleMethodInfo
ResolveSwitchMethod "modifyText" o = WidgetModifyTextMethodInfo
ResolveSwitchMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveSwitchMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveSwitchMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo
ResolveSwitchMethod "overrideColor" o = WidgetOverrideColorMethodInfo
ResolveSwitchMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo
ResolveSwitchMethod "overrideFont" o = WidgetOverrideFontMethodInfo
ResolveSwitchMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo
ResolveSwitchMethod "parserFinished" o = BuildableParserFinishedMethodInfo
ResolveSwitchMethod "path" o = WidgetPathMethodInfo
ResolveSwitchMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo
ResolveSwitchMethod "queueDraw" o = WidgetQueueDrawMethodInfo
ResolveSwitchMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo
ResolveSwitchMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo
ResolveSwitchMethod "queueResize" o = WidgetQueueResizeMethodInfo
ResolveSwitchMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo
ResolveSwitchMethod "realize" o = WidgetRealizeMethodInfo
ResolveSwitchMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveSwitchMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveSwitchMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo
ResolveSwitchMethod "registerWindow" o = WidgetRegisterWindowMethodInfo
ResolveSwitchMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo
ResolveSwitchMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo
ResolveSwitchMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo
ResolveSwitchMethod "renderIcon" o = WidgetRenderIconMethodInfo
ResolveSwitchMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo
ResolveSwitchMethod "reparent" o = WidgetReparentMethodInfo
ResolveSwitchMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveSwitchMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveSwitchMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo
ResolveSwitchMethod "resetStyle" o = WidgetResetStyleMethodInfo
ResolveSwitchMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveSwitchMethod "sendExpose" o = WidgetSendExposeMethodInfo
ResolveSwitchMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo
ResolveSwitchMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo
ResolveSwitchMethod "show" o = WidgetShowMethodInfo
ResolveSwitchMethod "showAll" o = WidgetShowAllMethodInfo
ResolveSwitchMethod "showNow" o = WidgetShowNowMethodInfo
ResolveSwitchMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo
ResolveSwitchMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo
ResolveSwitchMethod "sizeRequest" o = WidgetSizeRequestMethodInfo
ResolveSwitchMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveSwitchMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveSwitchMethod "styleAttach" o = WidgetStyleAttachMethodInfo
ResolveSwitchMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo
ResolveSwitchMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo
ResolveSwitchMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo
ResolveSwitchMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveSwitchMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo
ResolveSwitchMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo
ResolveSwitchMethod "unmap" o = WidgetUnmapMethodInfo
ResolveSwitchMethod "unparent" o = WidgetUnparentMethodInfo
ResolveSwitchMethod "unrealize" o = WidgetUnrealizeMethodInfo
ResolveSwitchMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveSwitchMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo
ResolveSwitchMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo
ResolveSwitchMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveSwitchMethod "getAccessible" o = WidgetGetAccessibleMethodInfo
ResolveSwitchMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo
ResolveSwitchMethod "getActionName" o = ActionableGetActionNameMethodInfo
ResolveSwitchMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo
ResolveSwitchMethod "getActive" o = SwitchGetActiveMethodInfo
ResolveSwitchMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo
ResolveSwitchMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo
ResolveSwitchMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo
ResolveSwitchMethod "getAllocation" o = WidgetGetAllocationMethodInfo
ResolveSwitchMethod "getAncestor" o = WidgetGetAncestorMethodInfo
ResolveSwitchMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo
ResolveSwitchMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo
ResolveSwitchMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo
ResolveSwitchMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo
ResolveSwitchMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo
ResolveSwitchMethod "getClip" o = WidgetGetClipMethodInfo
ResolveSwitchMethod "getClipboard" o = WidgetGetClipboardMethodInfo
ResolveSwitchMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo
ResolveSwitchMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveSwitchMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo
ResolveSwitchMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo
ResolveSwitchMethod "getDirection" o = WidgetGetDirectionMethodInfo
ResolveSwitchMethod "getDisplay" o = WidgetGetDisplayMethodInfo
ResolveSwitchMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo
ResolveSwitchMethod "getEvents" o = WidgetGetEventsMethodInfo
ResolveSwitchMethod "getFontMap" o = WidgetGetFontMapMethodInfo
ResolveSwitchMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo
ResolveSwitchMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo
ResolveSwitchMethod "getHalign" o = WidgetGetHalignMethodInfo
ResolveSwitchMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo
ResolveSwitchMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo
ResolveSwitchMethod "getHexpand" o = WidgetGetHexpandMethodInfo
ResolveSwitchMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo
ResolveSwitchMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
ResolveSwitchMethod "getMapped" o = WidgetGetMappedMethodInfo
ResolveSwitchMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo
ResolveSwitchMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo
ResolveSwitchMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo
ResolveSwitchMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo
ResolveSwitchMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo
ResolveSwitchMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo
ResolveSwitchMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo
ResolveSwitchMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo
ResolveSwitchMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo
ResolveSwitchMethod "getOpacity" o = WidgetGetOpacityMethodInfo
ResolveSwitchMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo
ResolveSwitchMethod "getParent" o = WidgetGetParentMethodInfo
ResolveSwitchMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo
ResolveSwitchMethod "getPath" o = WidgetGetPathMethodInfo
ResolveSwitchMethod "getPointer" o = WidgetGetPointerMethodInfo
ResolveSwitchMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo
ResolveSwitchMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveSwitchMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo
ResolveSwitchMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo
ResolveSwitchMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo
ResolveSwitchMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo
ResolveSwitchMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveSwitchMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveSwitchMethod "getRealized" o = WidgetGetRealizedMethodInfo
ResolveSwitchMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo
ResolveSwitchMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo
ResolveSwitchMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo
ResolveSwitchMethod "getRequisition" o = WidgetGetRequisitionMethodInfo
ResolveSwitchMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo
ResolveSwitchMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo
ResolveSwitchMethod "getScreen" o = WidgetGetScreenMethodInfo
ResolveSwitchMethod "getSensitive" o = WidgetGetSensitiveMethodInfo
ResolveSwitchMethod "getSettings" o = WidgetGetSettingsMethodInfo
ResolveSwitchMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo
ResolveSwitchMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo
ResolveSwitchMethod "getStyle" o = WidgetGetStyleMethodInfo
ResolveSwitchMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo
ResolveSwitchMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo
ResolveSwitchMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo
ResolveSwitchMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo
ResolveSwitchMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo
ResolveSwitchMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo
ResolveSwitchMethod "getToplevel" o = WidgetGetToplevelMethodInfo
ResolveSwitchMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo
ResolveSwitchMethod "getValign" o = WidgetGetValignMethodInfo
ResolveSwitchMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo
ResolveSwitchMethod "getVexpand" o = WidgetGetVexpandMethodInfo
ResolveSwitchMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo
ResolveSwitchMethod "getVisible" o = WidgetGetVisibleMethodInfo
ResolveSwitchMethod "getVisual" o = WidgetGetVisualMethodInfo
ResolveSwitchMethod "getWindow" o = WidgetGetWindowMethodInfo
ResolveSwitchMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo
ResolveSwitchMethod "setActionName" o = ActionableSetActionNameMethodInfo
ResolveSwitchMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo
ResolveSwitchMethod "setActive" o = SwitchSetActiveMethodInfo
ResolveSwitchMethod "setAllocation" o = WidgetSetAllocationMethodInfo
ResolveSwitchMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo
ResolveSwitchMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
ResolveSwitchMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo
ResolveSwitchMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo
ResolveSwitchMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo
ResolveSwitchMethod "setClip" o = WidgetSetClipMethodInfo
ResolveSwitchMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo
ResolveSwitchMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveSwitchMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo
ResolveSwitchMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo
ResolveSwitchMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo
ResolveSwitchMethod "setDirection" o = WidgetSetDirectionMethodInfo
ResolveSwitchMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo
ResolveSwitchMethod "setEvents" o = WidgetSetEventsMethodInfo
ResolveSwitchMethod "setFontMap" o = WidgetSetFontMapMethodInfo
ResolveSwitchMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo
ResolveSwitchMethod "setHalign" o = WidgetSetHalignMethodInfo
ResolveSwitchMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo
ResolveSwitchMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo
ResolveSwitchMethod "setHexpand" o = WidgetSetHexpandMethodInfo
ResolveSwitchMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo
ResolveSwitchMethod "setMapped" o = WidgetSetMappedMethodInfo
ResolveSwitchMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo
ResolveSwitchMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo
ResolveSwitchMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo
ResolveSwitchMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo
ResolveSwitchMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo
ResolveSwitchMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo
ResolveSwitchMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo
ResolveSwitchMethod "setOpacity" o = WidgetSetOpacityMethodInfo
ResolveSwitchMethod "setParent" o = WidgetSetParentMethodInfo
ResolveSwitchMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo
ResolveSwitchMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveSwitchMethod "setRealized" o = WidgetSetRealizedMethodInfo
ResolveSwitchMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo
ResolveSwitchMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo
ResolveSwitchMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo
ResolveSwitchMethod "setSensitive" o = WidgetSetSensitiveMethodInfo
ResolveSwitchMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo
ResolveSwitchMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo
ResolveSwitchMethod "setStyle" o = WidgetSetStyleMethodInfo
ResolveSwitchMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo
ResolveSwitchMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo
ResolveSwitchMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo
ResolveSwitchMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo
ResolveSwitchMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo
ResolveSwitchMethod "setValign" o = WidgetSetValignMethodInfo
ResolveSwitchMethod "setVexpand" o = WidgetSetVexpandMethodInfo
ResolveSwitchMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo
ResolveSwitchMethod "setVisible" o = WidgetSetVisibleMethodInfo
ResolveSwitchMethod "setVisual" o = WidgetSetVisualMethodInfo
ResolveSwitchMethod "setWindow" o = WidgetSetWindowMethodInfo
ResolveSwitchMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveSwitchMethod t Switch, MethodInfo info Switch p) => IsLabelProxy t (Switch -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSwitchMethod t Switch, MethodInfo info Switch p) => IsLabel t (Switch -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal Switch::activate
type SwitchActivateCallback =
IO ()
noSwitchActivateCallback :: Maybe SwitchActivateCallback
noSwitchActivateCallback = Nothing
type SwitchActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkSwitchActivateCallback :: SwitchActivateCallbackC -> IO (FunPtr SwitchActivateCallbackC)
switchActivateClosure :: SwitchActivateCallback -> IO Closure
switchActivateClosure cb = newCClosure =<< mkSwitchActivateCallback wrapped
where wrapped = switchActivateCallbackWrapper cb
switchActivateCallbackWrapper ::
SwitchActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
switchActivateCallbackWrapper _cb _ _ = do
_cb
onSwitchActivate :: (GObject a, MonadIO m) => a -> SwitchActivateCallback -> m SignalHandlerId
onSwitchActivate obj cb = liftIO $ connectSwitchActivate obj cb SignalConnectBefore
afterSwitchActivate :: (GObject a, MonadIO m) => a -> SwitchActivateCallback -> m SignalHandlerId
afterSwitchActivate obj cb = connectSwitchActivate obj cb SignalConnectAfter
connectSwitchActivate :: (GObject a, MonadIO m) =>
a -> SwitchActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectSwitchActivate obj cb after = liftIO $ do
cb' <- mkSwitchActivateCallback (switchActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- signal Switch::state-set
type SwitchStateSetCallback =
Bool ->
IO Bool
noSwitchStateSetCallback :: Maybe SwitchStateSetCallback
noSwitchStateSetCallback = Nothing
type SwitchStateSetCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkSwitchStateSetCallback :: SwitchStateSetCallbackC -> IO (FunPtr SwitchStateSetCallbackC)
switchStateSetClosure :: SwitchStateSetCallback -> IO Closure
switchStateSetClosure cb = newCClosure =<< mkSwitchStateSetCallback wrapped
where wrapped = switchStateSetCallbackWrapper cb
switchStateSetCallbackWrapper ::
SwitchStateSetCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
switchStateSetCallbackWrapper _cb _ state _ = do
let state' = (/= 0) state
result <- _cb state'
let result' = (fromIntegral . fromEnum) result
return result'
onSwitchStateSet :: (GObject a, MonadIO m) => a -> SwitchStateSetCallback -> m SignalHandlerId
onSwitchStateSet obj cb = liftIO $ connectSwitchStateSet obj cb SignalConnectBefore
afterSwitchStateSet :: (GObject a, MonadIO m) => a -> SwitchStateSetCallback -> m SignalHandlerId
afterSwitchStateSet obj cb = connectSwitchStateSet obj cb SignalConnectAfter
connectSwitchStateSet :: (GObject a, MonadIO m) =>
a -> SwitchStateSetCallback -> SignalConnectMode -> m SignalHandlerId
connectSwitchStateSet obj cb after = liftIO $ do
cb' <- mkSwitchStateSetCallback (switchStateSetCallbackWrapper cb)
connectSignalFunPtr obj "state-set" cb' after
-- VVV Prop "active"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getSwitchActive :: (MonadIO m, SwitchK o) => o -> m Bool
getSwitchActive obj = liftIO $ getObjectPropertyBool obj "active"
setSwitchActive :: (MonadIO m, SwitchK o) => o -> Bool -> m ()
setSwitchActive obj val = liftIO $ setObjectPropertyBool obj "active" val
constructSwitchActive :: Bool -> IO ([Char], GValue)
constructSwitchActive val = constructObjectPropertyBool "active" val
data SwitchActivePropertyInfo
instance AttrInfo SwitchActivePropertyInfo where
type AttrAllowedOps SwitchActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SwitchActivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SwitchActivePropertyInfo = SwitchK
type AttrGetType SwitchActivePropertyInfo = Bool
type AttrLabel SwitchActivePropertyInfo = "active"
attrGet _ = getSwitchActive
attrSet _ = setSwitchActive
attrConstruct _ = constructSwitchActive
-- VVV Prop "state"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getSwitchState :: (MonadIO m, SwitchK o) => o -> m Bool
getSwitchState obj = liftIO $ getObjectPropertyBool obj "state"
setSwitchState :: (MonadIO m, SwitchK o) => o -> Bool -> m ()
setSwitchState obj val = liftIO $ setObjectPropertyBool obj "state" val
constructSwitchState :: Bool -> IO ([Char], GValue)
constructSwitchState val = constructObjectPropertyBool "state" val
data SwitchStatePropertyInfo
instance AttrInfo SwitchStatePropertyInfo where
type AttrAllowedOps SwitchStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SwitchStatePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SwitchStatePropertyInfo = SwitchK
type AttrGetType SwitchStatePropertyInfo = Bool
type AttrLabel SwitchStatePropertyInfo = "state"
attrGet _ = getSwitchState
attrSet _ = setSwitchState
attrConstruct _ = constructSwitchState
type instance AttributeList Switch = SwitchAttributeList
type SwitchAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", SwitchActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("state", SwitchStatePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data SwitchActivateSignalInfo
instance SignalInfo SwitchActivateSignalInfo where
type HaskellCallbackType SwitchActivateSignalInfo = SwitchActivateCallback
connectSignal _ = connectSwitchActivate
data SwitchStateSetSignalInfo
instance SignalInfo SwitchStateSetSignalInfo where
type HaskellCallbackType SwitchStateSetSignalInfo = SwitchStateSetCallback
connectSignal _ = connectSwitchStateSet
type instance SignalList Switch = SwitchSignalList
type SwitchSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", SwitchActivateSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("stateSet", SwitchStateSetSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
-- method Switch::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gtk" "Switch"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_new" gtk_switch_new ::
IO (Ptr Switch)
switchNew ::
(MonadIO m) =>
m Switch -- result
switchNew = liftIO $ do
result <- gtk_switch_new
checkUnexpectedReturnNULL "gtk_switch_new" result
result' <- (newObject Switch) result
return result'
-- method Switch::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_get_active" gtk_switch_get_active ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
IO CInt
switchGetActive ::
(MonadIO m, SwitchK a) =>
a -- _obj
-> m Bool -- result
switchGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_switch_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SwitchGetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, SwitchK a) => MethodInfo SwitchGetActiveMethodInfo a signature where
overloadedMethod _ = switchGetActive
-- method Switch::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_get_state" gtk_switch_get_state ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
IO CInt
switchGetState ::
(MonadIO m, SwitchK a) =>
a -- _obj
-> m Bool -- result
switchGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_switch_get_state _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SwitchGetStateMethodInfo
instance (signature ~ (m Bool), MonadIO m, SwitchK a) => MethodInfo SwitchGetStateMethodInfo a signature where
overloadedMethod _ = switchGetState
-- method Switch::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_set_active" gtk_switch_set_active ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
CInt -> -- is_active : TBasicType TBoolean
IO ()
switchSetActive ::
(MonadIO m, SwitchK a) =>
a -- _obj
-> Bool -- isActive
-> m () -- result
switchSetActive _obj isActive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let isActive' = (fromIntegral . fromEnum) isActive
gtk_switch_set_active _obj' isActive'
touchManagedPtr _obj
return ()
data SwitchSetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SwitchK a) => MethodInfo SwitchSetActiveMethodInfo a signature where
overloadedMethod _ = switchSetActive
-- method Switch::set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_switch_set_state" gtk_switch_set_state ::
Ptr Switch -> -- _obj : TInterface "Gtk" "Switch"
CInt -> -- state : TBasicType TBoolean
IO ()
switchSetState ::
(MonadIO m, SwitchK a) =>
a -- _obj
-> Bool -- state
-> m () -- result
switchSetState _obj state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let state' = (fromIntegral . fromEnum) state
gtk_switch_set_state _obj' state'
touchManagedPtr _obj
return ()
data SwitchSetStateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SwitchK a) => MethodInfo SwitchSetStateMethodInfo a signature where
overloadedMethod _ = switchSetState