{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.SwitchRow
(
SwitchRow(..) ,
IsSwitchRow ,
toSwitchRow ,
#if defined(ENABLE_OVERLOADING)
ResolveSwitchRowMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SwitchRowGetActiveMethodInfo ,
#endif
switchRowGetActive ,
switchRowNew ,
#if defined(ENABLE_OVERLOADING)
SwitchRowSetActiveMethodInfo ,
#endif
switchRowSetActive ,
#if defined(ENABLE_OVERLOADING)
SwitchRowActivePropertyInfo ,
#endif
constructSwitchRowActive ,
getSwitchRowActive ,
setSwitchRowActive ,
#if defined(ENABLE_OVERLOADING)
switchRowActive ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import {-# SOURCE #-} qualified GI.Adw.Objects.ActionRow as Adw.ActionRow
import {-# SOURCE #-} qualified GI.Adw.Objects.PreferencesRow as Adw.PreferencesRow
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Objects.ListBoxRow as Gtk.ListBoxRow
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#else
import {-# SOURCE #-} qualified GI.Adw.Objects.ActionRow as Adw.ActionRow
import {-# SOURCE #-} qualified GI.Adw.Objects.PreferencesRow as Adw.PreferencesRow
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Objects.ListBoxRow as Gtk.ListBoxRow
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype SwitchRow = SwitchRow (SP.ManagedPtr SwitchRow)
deriving (SwitchRow -> SwitchRow -> Bool
(SwitchRow -> SwitchRow -> Bool)
-> (SwitchRow -> SwitchRow -> Bool) -> Eq SwitchRow
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SwitchRow -> SwitchRow -> Bool
== :: SwitchRow -> SwitchRow -> Bool
$c/= :: SwitchRow -> SwitchRow -> Bool
/= :: SwitchRow -> SwitchRow -> Bool
Eq)
instance SP.ManagedPtrNewtype SwitchRow where
toManagedPtr :: SwitchRow -> ManagedPtr SwitchRow
toManagedPtr (SwitchRow ManagedPtr SwitchRow
p) = ManagedPtr SwitchRow
p
foreign import ccall "adw_switch_row_get_type"
c_adw_switch_row_get_type :: IO B.Types.GType
instance B.Types.TypedObject SwitchRow where
glibType :: IO GType
glibType = IO GType
c_adw_switch_row_get_type
instance B.Types.GObject SwitchRow
class (SP.GObject o, O.IsDescendantOf SwitchRow o) => IsSwitchRow o
instance (SP.GObject o, O.IsDescendantOf SwitchRow o) => IsSwitchRow o
instance O.HasParentTypes SwitchRow
type instance O.ParentTypes SwitchRow = '[Adw.ActionRow.ActionRow, Adw.PreferencesRow.PreferencesRow, Gtk.ListBoxRow.ListBoxRow, Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toSwitchRow :: (MIO.MonadIO m, IsSwitchRow o) => o -> m SwitchRow
toSwitchRow :: forall (m :: * -> *) o.
(MonadIO m, IsSwitchRow o) =>
o -> m SwitchRow
toSwitchRow = IO SwitchRow -> m SwitchRow
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SwitchRow -> m SwitchRow)
-> (o -> IO SwitchRow) -> o -> m SwitchRow
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SwitchRow -> SwitchRow) -> o -> IO SwitchRow
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SwitchRow -> SwitchRow
SwitchRow
instance B.GValue.IsGValue (Maybe SwitchRow) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_switch_row_get_type
gvalueSet_ :: Ptr GValue -> Maybe SwitchRow -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SwitchRow
P.Nothing = Ptr GValue -> Ptr SwitchRow -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SwitchRow
forall a. Ptr a
FP.nullPtr :: FP.Ptr SwitchRow)
gvalueSet_ Ptr GValue
gv (P.Just SwitchRow
obj) = SwitchRow -> (Ptr SwitchRow -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SwitchRow
obj (Ptr GValue -> Ptr SwitchRow -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SwitchRow)
gvalueGet_ Ptr GValue
gv = do
Ptr SwitchRow
ptr <- Ptr GValue -> IO (Ptr SwitchRow)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SwitchRow)
if Ptr SwitchRow
ptr Ptr SwitchRow -> Ptr SwitchRow -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SwitchRow
forall a. Ptr a
FP.nullPtr
then SwitchRow -> Maybe SwitchRow
forall a. a -> Maybe a
P.Just (SwitchRow -> Maybe SwitchRow)
-> IO SwitchRow -> IO (Maybe SwitchRow)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SwitchRow -> SwitchRow)
-> Ptr SwitchRow -> IO SwitchRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SwitchRow -> SwitchRow
SwitchRow Ptr SwitchRow
ptr
else Maybe SwitchRow -> IO (Maybe SwitchRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SwitchRow
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSwitchRowMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSwitchRowMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveSwitchRowMethod "activate" o = Adw.ActionRow.ActionRowActivateMethodInfo
ResolveSwitchRowMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveSwitchRowMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveSwitchRowMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveSwitchRowMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveSwitchRowMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveSwitchRowMethod "addPrefix" o = Adw.ActionRow.ActionRowAddPrefixMethodInfo
ResolveSwitchRowMethod "addSuffix" o = Adw.ActionRow.ActionRowAddSuffixMethodInfo
ResolveSwitchRowMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveSwitchRowMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveSwitchRowMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveSwitchRowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSwitchRowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSwitchRowMethod "changed" o = Gtk.ListBoxRow.ListBoxRowChangedMethodInfo
ResolveSwitchRowMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveSwitchRowMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveSwitchRowMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveSwitchRowMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveSwitchRowMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveSwitchRowMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveSwitchRowMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveSwitchRowMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveSwitchRowMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveSwitchRowMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveSwitchRowMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveSwitchRowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSwitchRowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSwitchRowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSwitchRowMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveSwitchRowMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveSwitchRowMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveSwitchRowMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveSwitchRowMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveSwitchRowMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveSwitchRowMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveSwitchRowMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveSwitchRowMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveSwitchRowMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveSwitchRowMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveSwitchRowMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveSwitchRowMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveSwitchRowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSwitchRowMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveSwitchRowMethod "isSelected" o = Gtk.ListBoxRow.ListBoxRowIsSelectedMethodInfo
ResolveSwitchRowMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveSwitchRowMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveSwitchRowMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveSwitchRowMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveSwitchRowMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveSwitchRowMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveSwitchRowMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveSwitchRowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSwitchRowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSwitchRowMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveSwitchRowMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveSwitchRowMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveSwitchRowMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveSwitchRowMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveSwitchRowMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveSwitchRowMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveSwitchRowMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSwitchRowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSwitchRowMethod "remove" o = Adw.ActionRow.ActionRowRemoveMethodInfo
ResolveSwitchRowMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveSwitchRowMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveSwitchRowMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveSwitchRowMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveSwitchRowMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveSwitchRowMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveSwitchRowMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveSwitchRowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSwitchRowMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveSwitchRowMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveSwitchRowMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveSwitchRowMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveSwitchRowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSwitchRowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSwitchRowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSwitchRowMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveSwitchRowMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveSwitchRowMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveSwitchRowMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveSwitchRowMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveSwitchRowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSwitchRowMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveSwitchRowMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveSwitchRowMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveSwitchRowMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveSwitchRowMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveSwitchRowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSwitchRowMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveSwitchRowMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveSwitchRowMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveSwitchRowMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveSwitchRowMethod "getActivatable" o = Gtk.ListBoxRow.ListBoxRowGetActivatableMethodInfo
ResolveSwitchRowMethod "getActivatableWidget" o = Adw.ActionRow.ActionRowGetActivatableWidgetMethodInfo
ResolveSwitchRowMethod "getActive" o = SwitchRowGetActiveMethodInfo
ResolveSwitchRowMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveSwitchRowMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveSwitchRowMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveSwitchRowMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveSwitchRowMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveSwitchRowMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveSwitchRowMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveSwitchRowMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveSwitchRowMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveSwitchRowMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveSwitchRowMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveSwitchRowMethod "getChild" o = Gtk.ListBoxRow.ListBoxRowGetChildMethodInfo
ResolveSwitchRowMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveSwitchRowMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveSwitchRowMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveSwitchRowMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveSwitchRowMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveSwitchRowMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveSwitchRowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSwitchRowMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveSwitchRowMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveSwitchRowMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveSwitchRowMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveSwitchRowMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveSwitchRowMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveSwitchRowMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveSwitchRowMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveSwitchRowMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveSwitchRowMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveSwitchRowMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveSwitchRowMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveSwitchRowMethod "getHeader" o = Gtk.ListBoxRow.ListBoxRowGetHeaderMethodInfo
ResolveSwitchRowMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveSwitchRowMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveSwitchRowMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveSwitchRowMethod "getIconName" o = Adw.ActionRow.ActionRowGetIconNameMethodInfo
ResolveSwitchRowMethod "getIndex" o = Gtk.ListBoxRow.ListBoxRowGetIndexMethodInfo
ResolveSwitchRowMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveSwitchRowMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveSwitchRowMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveSwitchRowMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveSwitchRowMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveSwitchRowMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveSwitchRowMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveSwitchRowMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveSwitchRowMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveSwitchRowMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveSwitchRowMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveSwitchRowMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveSwitchRowMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveSwitchRowMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveSwitchRowMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveSwitchRowMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveSwitchRowMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveSwitchRowMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveSwitchRowMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveSwitchRowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSwitchRowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSwitchRowMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveSwitchRowMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveSwitchRowMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveSwitchRowMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveSwitchRowMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveSwitchRowMethod "getSelectable" o = Gtk.ListBoxRow.ListBoxRowGetSelectableMethodInfo
ResolveSwitchRowMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveSwitchRowMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveSwitchRowMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveSwitchRowMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveSwitchRowMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveSwitchRowMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveSwitchRowMethod "getSubtitle" o = Adw.ActionRow.ActionRowGetSubtitleMethodInfo
ResolveSwitchRowMethod "getSubtitleLines" o = Adw.ActionRow.ActionRowGetSubtitleLinesMethodInfo
ResolveSwitchRowMethod "getSubtitleSelectable" o = Adw.ActionRow.ActionRowGetSubtitleSelectableMethodInfo
ResolveSwitchRowMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveSwitchRowMethod "getTitle" o = Adw.PreferencesRow.PreferencesRowGetTitleMethodInfo
ResolveSwitchRowMethod "getTitleLines" o = Adw.ActionRow.ActionRowGetTitleLinesMethodInfo
ResolveSwitchRowMethod "getTitleSelectable" o = Adw.PreferencesRow.PreferencesRowGetTitleSelectableMethodInfo
ResolveSwitchRowMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveSwitchRowMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveSwitchRowMethod "getUseMarkup" o = Adw.PreferencesRow.PreferencesRowGetUseMarkupMethodInfo
ResolveSwitchRowMethod "getUseUnderline" o = Adw.PreferencesRow.PreferencesRowGetUseUnderlineMethodInfo
ResolveSwitchRowMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveSwitchRowMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveSwitchRowMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveSwitchRowMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveSwitchRowMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveSwitchRowMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveSwitchRowMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveSwitchRowMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveSwitchRowMethod "setActivatable" o = Gtk.ListBoxRow.ListBoxRowSetActivatableMethodInfo
ResolveSwitchRowMethod "setActivatableWidget" o = Adw.ActionRow.ActionRowSetActivatableWidgetMethodInfo
ResolveSwitchRowMethod "setActive" o = SwitchRowSetActiveMethodInfo
ResolveSwitchRowMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveSwitchRowMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveSwitchRowMethod "setChild" o = Gtk.ListBoxRow.ListBoxRowSetChildMethodInfo
ResolveSwitchRowMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveSwitchRowMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveSwitchRowMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveSwitchRowMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveSwitchRowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSwitchRowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSwitchRowMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveSwitchRowMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveSwitchRowMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveSwitchRowMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveSwitchRowMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveSwitchRowMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveSwitchRowMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveSwitchRowMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveSwitchRowMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveSwitchRowMethod "setHeader" o = Gtk.ListBoxRow.ListBoxRowSetHeaderMethodInfo
ResolveSwitchRowMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveSwitchRowMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveSwitchRowMethod "setIconName" o = Adw.ActionRow.ActionRowSetIconNameMethodInfo
ResolveSwitchRowMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveSwitchRowMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveSwitchRowMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveSwitchRowMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveSwitchRowMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveSwitchRowMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveSwitchRowMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveSwitchRowMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveSwitchRowMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveSwitchRowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSwitchRowMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveSwitchRowMethod "setSelectable" o = Gtk.ListBoxRow.ListBoxRowSetSelectableMethodInfo
ResolveSwitchRowMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveSwitchRowMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveSwitchRowMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveSwitchRowMethod "setSubtitle" o = Adw.ActionRow.ActionRowSetSubtitleMethodInfo
ResolveSwitchRowMethod "setSubtitleLines" o = Adw.ActionRow.ActionRowSetSubtitleLinesMethodInfo
ResolveSwitchRowMethod "setSubtitleSelectable" o = Adw.ActionRow.ActionRowSetSubtitleSelectableMethodInfo
ResolveSwitchRowMethod "setTitle" o = Adw.PreferencesRow.PreferencesRowSetTitleMethodInfo
ResolveSwitchRowMethod "setTitleLines" o = Adw.ActionRow.ActionRowSetTitleLinesMethodInfo
ResolveSwitchRowMethod "setTitleSelectable" o = Adw.PreferencesRow.PreferencesRowSetTitleSelectableMethodInfo
ResolveSwitchRowMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveSwitchRowMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveSwitchRowMethod "setUseMarkup" o = Adw.PreferencesRow.PreferencesRowSetUseMarkupMethodInfo
ResolveSwitchRowMethod "setUseUnderline" o = Adw.PreferencesRow.PreferencesRowSetUseUnderlineMethodInfo
ResolveSwitchRowMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveSwitchRowMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveSwitchRowMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveSwitchRowMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveSwitchRowMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSwitchRowMethod t SwitchRow, O.OverloadedMethod info SwitchRow p) => OL.IsLabel t (SwitchRow -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveSwitchRowMethod t SwitchRow, O.OverloadedMethod info SwitchRow p, R.HasField t SwitchRow p) => R.HasField t SwitchRow p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSwitchRowMethod t SwitchRow, O.OverloadedMethodInfo info SwitchRow) => OL.IsLabel t (O.MethodProxy info SwitchRow) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSwitchRowActive :: (MonadIO m, IsSwitchRow o) => o -> m Bool
getSwitchRowActive :: forall (m :: * -> *) o. (MonadIO m, IsSwitchRow o) => o -> m Bool
getSwitchRowActive o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"active"
setSwitchRowActive :: (MonadIO m, IsSwitchRow o) => o -> Bool -> m ()
setSwitchRowActive :: forall (m :: * -> *) o.
(MonadIO m, IsSwitchRow o) =>
o -> Bool -> m ()
setSwitchRowActive o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"active" Bool
val
constructSwitchRowActive :: (IsSwitchRow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSwitchRowActive :: forall o (m :: * -> *).
(IsSwitchRow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSwitchRowActive Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"active" Bool
val
#if defined(ENABLE_OVERLOADING)
data SwitchRowActivePropertyInfo
instance AttrInfo SwitchRowActivePropertyInfo where
type AttrAllowedOps SwitchRowActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SwitchRowActivePropertyInfo = IsSwitchRow
type AttrSetTypeConstraint SwitchRowActivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SwitchRowActivePropertyInfo = (~) Bool
type AttrTransferType SwitchRowActivePropertyInfo = Bool
type AttrGetType SwitchRowActivePropertyInfo = Bool
type AttrLabel SwitchRowActivePropertyInfo = "active"
type AttrOrigin SwitchRowActivePropertyInfo = SwitchRow
attrGet = getSwitchRowActive
attrSet = setSwitchRowActive
attrTransfer _ v = do
return v
attrConstruct = constructSwitchRowActive
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.SwitchRow.active"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-SwitchRow.html#g:attr:active"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SwitchRow
type instance O.AttributeList SwitchRow = SwitchRowAttributeList
type SwitchRowAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("activatable", Gtk.ListBoxRow.ListBoxRowActivatablePropertyInfo), '("activatableWidget", Adw.ActionRow.ActionRowActivatableWidgetPropertyInfo), '("active", SwitchRowActivePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", Gtk.ListBoxRow.ListBoxRowChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("iconName", Adw.ActionRow.ActionRowIconNamePropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectable", Gtk.ListBoxRow.ListBoxRowSelectablePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("subtitle", Adw.ActionRow.ActionRowSubtitlePropertyInfo), '("subtitleLines", Adw.ActionRow.ActionRowSubtitleLinesPropertyInfo), '("subtitleSelectable", Adw.ActionRow.ActionRowSubtitleSelectablePropertyInfo), '("title", Adw.PreferencesRow.PreferencesRowTitlePropertyInfo), '("titleLines", Adw.ActionRow.ActionRowTitleLinesPropertyInfo), '("titleSelectable", Adw.PreferencesRow.PreferencesRowTitleSelectablePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useMarkup", Adw.PreferencesRow.PreferencesRowUseMarkupPropertyInfo), '("useUnderline", Adw.PreferencesRow.PreferencesRowUseUnderlinePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
switchRowActive :: AttrLabelProxy "active"
switchRowActive = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SwitchRow = SwitchRowSignalList
type SwitchRowSignalList = ('[ '("activate", Gtk.ListBoxRow.ListBoxRowActivateSignalInfo), '("activated", Adw.ActionRow.ActionRowActivatedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "adw_switch_row_new" adw_switch_row_new ::
IO (Ptr SwitchRow)
switchRowNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SwitchRow
switchRowNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m SwitchRow
switchRowNew = IO SwitchRow -> m SwitchRow
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SwitchRow -> m SwitchRow) -> IO SwitchRow -> m SwitchRow
forall a b. (a -> b) -> a -> b
$ do
Ptr SwitchRow
result <- IO (Ptr SwitchRow)
adw_switch_row_new
Text -> Ptr SwitchRow -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"switchRowNew" Ptr SwitchRow
result
SwitchRow
result' <- ((ManagedPtr SwitchRow -> SwitchRow)
-> Ptr SwitchRow -> IO SwitchRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SwitchRow -> SwitchRow
SwitchRow) Ptr SwitchRow
result
SwitchRow -> IO SwitchRow
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SwitchRow
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_switch_row_get_active" adw_switch_row_get_active ::
Ptr SwitchRow ->
IO CInt
switchRowGetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsSwitchRow a) =>
a
-> m Bool
switchRowGetActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwitchRow a) =>
a -> m Bool
switchRowGetActive a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SwitchRow
self' <- a -> IO (Ptr SwitchRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SwitchRow -> IO CInt
adw_switch_row_get_active Ptr SwitchRow
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SwitchRowGetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSwitchRow a) => O.OverloadedMethod SwitchRowGetActiveMethodInfo a signature where
overloadedMethod = switchRowGetActive
instance O.OverloadedMethodInfo SwitchRowGetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.SwitchRow.switchRowGetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-SwitchRow.html#v:switchRowGetActive"
})
#endif
foreign import ccall "adw_switch_row_set_active" adw_switch_row_set_active ::
Ptr SwitchRow ->
CInt ->
IO ()
switchRowSetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsSwitchRow a) =>
a
-> Bool
-> m ()
switchRowSetActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSwitchRow a) =>
a -> Bool -> m ()
switchRowSetActive a
self Bool
isActive = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SwitchRow
self' <- a -> IO (Ptr SwitchRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let isActive' :: CInt
isActive' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
isActive
Ptr SwitchRow -> CInt -> IO ()
adw_switch_row_set_active Ptr SwitchRow
self' CInt
isActive'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SwitchRowSetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSwitchRow a) => O.OverloadedMethod SwitchRowSetActiveMethodInfo a signature where
overloadedMethod = switchRowSetActive
instance O.OverloadedMethodInfo SwitchRowSetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.SwitchRow.switchRowSetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-SwitchRow.html#v:switchRowSetActive"
})
#endif