{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Revealer
(
Revealer(..) ,
IsRevealer ,
toRevealer ,
#if defined(ENABLE_OVERLOADING)
ResolveRevealerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RevealerGetChildMethodInfo ,
#endif
revealerGetChild ,
#if defined(ENABLE_OVERLOADING)
RevealerGetChildRevealedMethodInfo ,
#endif
revealerGetChildRevealed ,
#if defined(ENABLE_OVERLOADING)
RevealerGetRevealChildMethodInfo ,
#endif
revealerGetRevealChild ,
#if defined(ENABLE_OVERLOADING)
RevealerGetTransitionDurationMethodInfo ,
#endif
revealerGetTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
RevealerGetTransitionTypeMethodInfo ,
#endif
revealerGetTransitionType ,
revealerNew ,
#if defined(ENABLE_OVERLOADING)
RevealerSetChildMethodInfo ,
#endif
revealerSetChild ,
#if defined(ENABLE_OVERLOADING)
RevealerSetRevealChildMethodInfo ,
#endif
revealerSetRevealChild ,
#if defined(ENABLE_OVERLOADING)
RevealerSetTransitionDurationMethodInfo ,
#endif
revealerSetTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
RevealerSetTransitionTypeMethodInfo ,
#endif
revealerSetTransitionType ,
#if defined(ENABLE_OVERLOADING)
RevealerChildPropertyInfo ,
#endif
clearRevealerChild ,
constructRevealerChild ,
getRevealerChild ,
#if defined(ENABLE_OVERLOADING)
revealerChild ,
#endif
setRevealerChild ,
#if defined(ENABLE_OVERLOADING)
RevealerChildRevealedPropertyInfo ,
#endif
getRevealerChildRevealed ,
#if defined(ENABLE_OVERLOADING)
revealerChildRevealed ,
#endif
#if defined(ENABLE_OVERLOADING)
RevealerRevealChildPropertyInfo ,
#endif
constructRevealerRevealChild ,
getRevealerRevealChild ,
#if defined(ENABLE_OVERLOADING)
revealerRevealChild ,
#endif
setRevealerRevealChild ,
#if defined(ENABLE_OVERLOADING)
RevealerTransitionDurationPropertyInfo ,
#endif
constructRevealerTransitionDuration ,
getRevealerTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
revealerTransitionDuration ,
#endif
setRevealerTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
RevealerTransitionTypePropertyInfo ,
#endif
constructRevealerTransitionType ,
getRevealerTransitionType ,
#if defined(ENABLE_OVERLOADING)
revealerTransitionType ,
#endif
setRevealerTransitionType ,
) 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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Revealer = Revealer (SP.ManagedPtr Revealer)
deriving (Revealer -> Revealer -> Bool
(Revealer -> Revealer -> Bool)
-> (Revealer -> Revealer -> Bool) -> Eq Revealer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Revealer -> Revealer -> Bool
== :: Revealer -> Revealer -> Bool
$c/= :: Revealer -> Revealer -> Bool
/= :: Revealer -> Revealer -> Bool
Eq)
instance SP.ManagedPtrNewtype Revealer where
toManagedPtr :: Revealer -> ManagedPtr Revealer
toManagedPtr (Revealer ManagedPtr Revealer
p) = ManagedPtr Revealer
p
foreign import ccall "gtk_revealer_get_type"
c_gtk_revealer_get_type :: IO B.Types.GType
instance B.Types.TypedObject Revealer where
glibType :: IO GType
glibType = IO GType
c_gtk_revealer_get_type
instance B.Types.GObject Revealer
class (SP.GObject o, O.IsDescendantOf Revealer o) => IsRevealer o
instance (SP.GObject o, O.IsDescendantOf Revealer o) => IsRevealer o
instance O.HasParentTypes Revealer
type instance O.ParentTypes Revealer = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toRevealer :: (MIO.MonadIO m, IsRevealer o) => o -> m Revealer
toRevealer :: forall (m :: * -> *) o.
(MonadIO m, IsRevealer o) =>
o -> m Revealer
toRevealer = IO Revealer -> m Revealer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Revealer -> m Revealer)
-> (o -> IO Revealer) -> o -> m Revealer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Revealer -> Revealer) -> o -> IO Revealer
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Revealer -> Revealer
Revealer
instance B.GValue.IsGValue (Maybe Revealer) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_revealer_get_type
gvalueSet_ :: Ptr GValue -> Maybe Revealer -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Revealer
P.Nothing = Ptr GValue -> Ptr Revealer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Revealer
forall a. Ptr a
FP.nullPtr :: FP.Ptr Revealer)
gvalueSet_ Ptr GValue
gv (P.Just Revealer
obj) = Revealer -> (Ptr Revealer -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Revealer
obj (Ptr GValue -> Ptr Revealer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Revealer)
gvalueGet_ Ptr GValue
gv = do
Ptr Revealer
ptr <- Ptr GValue -> IO (Ptr Revealer)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Revealer)
if Ptr Revealer
ptr Ptr Revealer -> Ptr Revealer -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Revealer
forall a. Ptr a
FP.nullPtr
then Revealer -> Maybe Revealer
forall a. a -> Maybe a
P.Just (Revealer -> Maybe Revealer) -> IO Revealer -> IO (Maybe Revealer)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Revealer -> Revealer) -> Ptr Revealer -> IO Revealer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Revealer -> Revealer
Revealer Ptr Revealer
ptr
else Maybe Revealer -> IO (Maybe Revealer)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Revealer
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRevealerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRevealerMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveRevealerMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveRevealerMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveRevealerMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveRevealerMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveRevealerMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveRevealerMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveRevealerMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveRevealerMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveRevealerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRevealerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRevealerMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveRevealerMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveRevealerMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveRevealerMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveRevealerMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveRevealerMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveRevealerMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveRevealerMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveRevealerMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveRevealerMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveRevealerMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveRevealerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRevealerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRevealerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRevealerMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveRevealerMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveRevealerMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveRevealerMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveRevealerMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveRevealerMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveRevealerMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveRevealerMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveRevealerMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveRevealerMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveRevealerMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveRevealerMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveRevealerMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveRevealerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRevealerMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveRevealerMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveRevealerMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveRevealerMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveRevealerMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveRevealerMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveRevealerMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveRevealerMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveRevealerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRevealerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRevealerMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveRevealerMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveRevealerMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveRevealerMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveRevealerMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveRevealerMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveRevealerMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveRevealerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRevealerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRevealerMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveRevealerMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveRevealerMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveRevealerMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveRevealerMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveRevealerMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveRevealerMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveRevealerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRevealerMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveRevealerMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveRevealerMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveRevealerMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveRevealerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRevealerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRevealerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRevealerMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveRevealerMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveRevealerMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveRevealerMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveRevealerMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveRevealerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRevealerMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveRevealerMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveRevealerMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveRevealerMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveRevealerMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveRevealerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRevealerMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveRevealerMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveRevealerMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveRevealerMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveRevealerMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveRevealerMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveRevealerMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveRevealerMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveRevealerMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveRevealerMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveRevealerMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveRevealerMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveRevealerMethod "getChild" o = RevealerGetChildMethodInfo
ResolveRevealerMethod "getChildRevealed" o = RevealerGetChildRevealedMethodInfo
ResolveRevealerMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveRevealerMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveRevealerMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveRevealerMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveRevealerMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveRevealerMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveRevealerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRevealerMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveRevealerMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveRevealerMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveRevealerMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveRevealerMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveRevealerMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveRevealerMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveRevealerMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveRevealerMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveRevealerMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveRevealerMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveRevealerMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveRevealerMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveRevealerMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveRevealerMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveRevealerMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveRevealerMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveRevealerMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveRevealerMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveRevealerMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveRevealerMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveRevealerMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveRevealerMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveRevealerMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveRevealerMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveRevealerMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveRevealerMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveRevealerMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveRevealerMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveRevealerMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveRevealerMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveRevealerMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveRevealerMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveRevealerMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveRevealerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRevealerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRevealerMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveRevealerMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveRevealerMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveRevealerMethod "getRevealChild" o = RevealerGetRevealChildMethodInfo
ResolveRevealerMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveRevealerMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveRevealerMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveRevealerMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveRevealerMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveRevealerMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveRevealerMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveRevealerMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveRevealerMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveRevealerMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveRevealerMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveRevealerMethod "getTransitionDuration" o = RevealerGetTransitionDurationMethodInfo
ResolveRevealerMethod "getTransitionType" o = RevealerGetTransitionTypeMethodInfo
ResolveRevealerMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveRevealerMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveRevealerMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveRevealerMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveRevealerMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveRevealerMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveRevealerMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveRevealerMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveRevealerMethod "setChild" o = RevealerSetChildMethodInfo
ResolveRevealerMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveRevealerMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveRevealerMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveRevealerMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveRevealerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRevealerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRevealerMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveRevealerMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveRevealerMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveRevealerMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveRevealerMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveRevealerMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveRevealerMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveRevealerMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveRevealerMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveRevealerMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveRevealerMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveRevealerMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveRevealerMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveRevealerMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveRevealerMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveRevealerMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveRevealerMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveRevealerMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveRevealerMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveRevealerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRevealerMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveRevealerMethod "setRevealChild" o = RevealerSetRevealChildMethodInfo
ResolveRevealerMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveRevealerMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveRevealerMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveRevealerMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveRevealerMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveRevealerMethod "setTransitionDuration" o = RevealerSetTransitionDurationMethodInfo
ResolveRevealerMethod "setTransitionType" o = RevealerSetTransitionTypeMethodInfo
ResolveRevealerMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveRevealerMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveRevealerMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveRevealerMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveRevealerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRevealerMethod t Revealer, O.OverloadedMethod info Revealer p) => OL.IsLabel t (Revealer -> 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 ~ ResolveRevealerMethod t Revealer, O.OverloadedMethod info Revealer p, R.HasField t Revealer p) => R.HasField t Revealer p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRevealerMethod t Revealer, O.OverloadedMethodInfo info Revealer) => OL.IsLabel t (O.MethodProxy info Revealer) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getRevealerChild :: (MonadIO m, IsRevealer o) => o -> m (Maybe Gtk.Widget.Widget)
getRevealerChild :: forall (m :: * -> *) o.
(MonadIO m, IsRevealer o) =>
o -> m (Maybe Widget)
getRevealerChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setRevealerChild :: (MonadIO m, IsRevealer o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setRevealerChild :: forall (m :: * -> *) o a.
(MonadIO m, IsRevealer o, IsWidget a) =>
o -> a -> m ()
setRevealerChild o
obj a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructRevealerChild :: (IsRevealer o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructRevealerChild :: forall o (m :: * -> *) a.
(IsRevealer o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructRevealerChild a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearRevealerChild :: (MonadIO m, IsRevealer o) => o -> m ()
clearRevealerChild :: forall (m :: * -> *) o. (MonadIO m, IsRevealer o) => o -> m ()
clearRevealerChild o
obj = 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
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data RevealerChildPropertyInfo
instance AttrInfo RevealerChildPropertyInfo where
type AttrAllowedOps RevealerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint RevealerChildPropertyInfo = IsRevealer
type AttrSetTypeConstraint RevealerChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint RevealerChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType RevealerChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType RevealerChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel RevealerChildPropertyInfo = "child"
type AttrOrigin RevealerChildPropertyInfo = Revealer
attrGet = getRevealerChild
attrSet = setRevealerChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructRevealerChild
attrClear = clearRevealerChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#g:attr:child"
})
#endif
getRevealerChildRevealed :: (MonadIO m, IsRevealer o) => o -> m Bool
getRevealerChildRevealed :: forall (m :: * -> *) o. (MonadIO m, IsRevealer o) => o -> m Bool
getRevealerChildRevealed 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
"child-revealed"
#if defined(ENABLE_OVERLOADING)
data RevealerChildRevealedPropertyInfo
instance AttrInfo RevealerChildRevealedPropertyInfo where
type AttrAllowedOps RevealerChildRevealedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint RevealerChildRevealedPropertyInfo = IsRevealer
type AttrSetTypeConstraint RevealerChildRevealedPropertyInfo = (~) ()
type AttrTransferTypeConstraint RevealerChildRevealedPropertyInfo = (~) ()
type AttrTransferType RevealerChildRevealedPropertyInfo = ()
type AttrGetType RevealerChildRevealedPropertyInfo = Bool
type AttrLabel RevealerChildRevealedPropertyInfo = "child-revealed"
type AttrOrigin RevealerChildRevealedPropertyInfo = Revealer
attrGet = getRevealerChildRevealed
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.childRevealed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#g:attr:childRevealed"
})
#endif
getRevealerRevealChild :: (MonadIO m, IsRevealer o) => o -> m Bool
getRevealerRevealChild :: forall (m :: * -> *) o. (MonadIO m, IsRevealer o) => o -> m Bool
getRevealerRevealChild 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
"reveal-child"
setRevealerRevealChild :: (MonadIO m, IsRevealer o) => o -> Bool -> m ()
setRevealerRevealChild :: forall (m :: * -> *) o.
(MonadIO m, IsRevealer o) =>
o -> Bool -> m ()
setRevealerRevealChild 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
"reveal-child" Bool
val
constructRevealerRevealChild :: (IsRevealer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructRevealerRevealChild :: forall o (m :: * -> *).
(IsRevealer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructRevealerRevealChild 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
"reveal-child" Bool
val
#if defined(ENABLE_OVERLOADING)
data RevealerRevealChildPropertyInfo
instance AttrInfo RevealerRevealChildPropertyInfo where
type AttrAllowedOps RevealerRevealChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RevealerRevealChildPropertyInfo = IsRevealer
type AttrSetTypeConstraint RevealerRevealChildPropertyInfo = (~) Bool
type AttrTransferTypeConstraint RevealerRevealChildPropertyInfo = (~) Bool
type AttrTransferType RevealerRevealChildPropertyInfo = Bool
type AttrGetType RevealerRevealChildPropertyInfo = Bool
type AttrLabel RevealerRevealChildPropertyInfo = "reveal-child"
type AttrOrigin RevealerRevealChildPropertyInfo = Revealer
attrGet = getRevealerRevealChild
attrSet = setRevealerRevealChild
attrTransfer _ v = do
return v
attrConstruct = constructRevealerRevealChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#g:attr:revealChild"
})
#endif
getRevealerTransitionDuration :: (MonadIO m, IsRevealer o) => o -> m Word32
getRevealerTransitionDuration :: forall (m :: * -> *) o. (MonadIO m, IsRevealer o) => o -> m Word32
getRevealerTransitionDuration o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"transition-duration"
setRevealerTransitionDuration :: (MonadIO m, IsRevealer o) => o -> Word32 -> m ()
setRevealerTransitionDuration :: forall (m :: * -> *) o.
(MonadIO m, IsRevealer o) =>
o -> Word32 -> m ()
setRevealerTransitionDuration o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"transition-duration" Word32
val
constructRevealerTransitionDuration :: (IsRevealer o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructRevealerTransitionDuration :: forall o (m :: * -> *).
(IsRevealer o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructRevealerTransitionDuration Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"transition-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data RevealerTransitionDurationPropertyInfo
instance AttrInfo RevealerTransitionDurationPropertyInfo where
type AttrAllowedOps RevealerTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RevealerTransitionDurationPropertyInfo = IsRevealer
type AttrSetTypeConstraint RevealerTransitionDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint RevealerTransitionDurationPropertyInfo = (~) Word32
type AttrTransferType RevealerTransitionDurationPropertyInfo = Word32
type AttrGetType RevealerTransitionDurationPropertyInfo = Word32
type AttrLabel RevealerTransitionDurationPropertyInfo = "transition-duration"
type AttrOrigin RevealerTransitionDurationPropertyInfo = Revealer
attrGet = getRevealerTransitionDuration
attrSet = setRevealerTransitionDuration
attrTransfer _ v = do
return v
attrConstruct = constructRevealerTransitionDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.transitionDuration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#g:attr:transitionDuration"
})
#endif
getRevealerTransitionType :: (MonadIO m, IsRevealer o) => o -> m Gtk.Enums.RevealerTransitionType
getRevealerTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsRevealer o) =>
o -> m RevealerTransitionType
getRevealerTransitionType o
obj = IO RevealerTransitionType -> m RevealerTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO RevealerTransitionType -> m RevealerTransitionType)
-> IO RevealerTransitionType -> m RevealerTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO RevealerTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"transition-type"
setRevealerTransitionType :: (MonadIO m, IsRevealer o) => o -> Gtk.Enums.RevealerTransitionType -> m ()
setRevealerTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsRevealer o) =>
o -> RevealerTransitionType -> m ()
setRevealerTransitionType o
obj RevealerTransitionType
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 -> RevealerTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"transition-type" RevealerTransitionType
val
constructRevealerTransitionType :: (IsRevealer o, MIO.MonadIO m) => Gtk.Enums.RevealerTransitionType -> m (GValueConstruct o)
constructRevealerTransitionType :: forall o (m :: * -> *).
(IsRevealer o, MonadIO m) =>
RevealerTransitionType -> m (GValueConstruct o)
constructRevealerTransitionType RevealerTransitionType
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 -> RevealerTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"transition-type" RevealerTransitionType
val
#if defined(ENABLE_OVERLOADING)
data RevealerTransitionTypePropertyInfo
instance AttrInfo RevealerTransitionTypePropertyInfo where
type AttrAllowedOps RevealerTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RevealerTransitionTypePropertyInfo = IsRevealer
type AttrSetTypeConstraint RevealerTransitionTypePropertyInfo = (~) Gtk.Enums.RevealerTransitionType
type AttrTransferTypeConstraint RevealerTransitionTypePropertyInfo = (~) Gtk.Enums.RevealerTransitionType
type AttrTransferType RevealerTransitionTypePropertyInfo = Gtk.Enums.RevealerTransitionType
type AttrGetType RevealerTransitionTypePropertyInfo = Gtk.Enums.RevealerTransitionType
type AttrLabel RevealerTransitionTypePropertyInfo = "transition-type"
type AttrOrigin RevealerTransitionTypePropertyInfo = Revealer
attrGet = getRevealerTransitionType
attrSet = setRevealerTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructRevealerTransitionType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.transitionType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#g:attr:transitionType"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Revealer
type instance O.AttributeList Revealer = RevealerAttributeList
type RevealerAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", RevealerChildPropertyInfo), '("childRevealed", RevealerChildRevealedPropertyInfo), '("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), '("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), '("revealChild", RevealerRevealChildPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transitionDuration", RevealerTransitionDurationPropertyInfo), '("transitionType", RevealerTransitionTypePropertyInfo), '("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)
revealerChild :: AttrLabelProxy "child"
revealerChild = AttrLabelProxy
revealerChildRevealed :: AttrLabelProxy "childRevealed"
revealerChildRevealed = AttrLabelProxy
revealerRevealChild :: AttrLabelProxy "revealChild"
revealerRevealChild = AttrLabelProxy
revealerTransitionDuration :: AttrLabelProxy "transitionDuration"
revealerTransitionDuration = AttrLabelProxy
revealerTransitionType :: AttrLabelProxy "transitionType"
revealerTransitionType = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Revealer = RevealerSignalList
type RevealerSignalList = ('[ '("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 "gtk_revealer_new" gtk_revealer_new ::
IO (Ptr Revealer)
revealerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Revealer
revealerNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Revealer
revealerNew = IO Revealer -> m Revealer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Revealer -> m Revealer) -> IO Revealer -> m Revealer
forall a b. (a -> b) -> a -> b
$ do
Ptr Revealer
result <- IO (Ptr Revealer)
gtk_revealer_new
Text -> Ptr Revealer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"revealerNew" Ptr Revealer
result
Revealer
result' <- ((ManagedPtr Revealer -> Revealer) -> Ptr Revealer -> IO Revealer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Revealer -> Revealer
Revealer) Ptr Revealer
result
Revealer -> IO Revealer
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Revealer
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_revealer_get_child" gtk_revealer_get_child ::
Ptr Revealer ->
IO (Ptr Gtk.Widget.Widget)
revealerGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> m (Maybe Gtk.Widget.Widget)
revealerGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> m (Maybe Widget)
revealerGetChild a
revealer = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
Ptr Widget
result <- Ptr Revealer -> IO (Ptr Widget)
gtk_revealer_get_child Ptr Revealer
revealer'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
revealer
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data RevealerGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerGetChildMethodInfo a signature where
overloadedMethod = revealerGetChild
instance O.OverloadedMethodInfo RevealerGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerGetChild"
})
#endif
foreign import ccall "gtk_revealer_get_child_revealed" gtk_revealer_get_child_revealed ::
Ptr Revealer ->
IO CInt
revealerGetChildRevealed ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> m Bool
revealerGetChildRevealed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> m Bool
revealerGetChildRevealed a
revealer = 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 Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
CInt
result <- Ptr Revealer -> IO CInt
gtk_revealer_get_child_revealed Ptr Revealer
revealer'
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
revealer
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RevealerGetChildRevealedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerGetChildRevealedMethodInfo a signature where
overloadedMethod = revealerGetChildRevealed
instance O.OverloadedMethodInfo RevealerGetChildRevealedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerGetChildRevealed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerGetChildRevealed"
})
#endif
foreign import ccall "gtk_revealer_get_reveal_child" gtk_revealer_get_reveal_child ::
Ptr Revealer ->
IO CInt
revealerGetRevealChild ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> m Bool
revealerGetRevealChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> m Bool
revealerGetRevealChild a
revealer = 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 Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
CInt
result <- Ptr Revealer -> IO CInt
gtk_revealer_get_reveal_child Ptr Revealer
revealer'
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
revealer
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RevealerGetRevealChildMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerGetRevealChildMethodInfo a signature where
overloadedMethod = revealerGetRevealChild
instance O.OverloadedMethodInfo RevealerGetRevealChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerGetRevealChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerGetRevealChild"
})
#endif
foreign import ccall "gtk_revealer_get_transition_duration" gtk_revealer_get_transition_duration ::
Ptr Revealer ->
IO Word32
revealerGetTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> m Word32
revealerGetTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> m Word32
revealerGetTransitionDuration a
revealer = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
Word32
result <- Ptr Revealer -> IO Word32
gtk_revealer_get_transition_duration Ptr Revealer
revealer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
revealer
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data RevealerGetTransitionDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerGetTransitionDurationMethodInfo a signature where
overloadedMethod = revealerGetTransitionDuration
instance O.OverloadedMethodInfo RevealerGetTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerGetTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerGetTransitionDuration"
})
#endif
foreign import ccall "gtk_revealer_get_transition_type" gtk_revealer_get_transition_type ::
Ptr Revealer ->
IO CUInt
revealerGetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> m Gtk.Enums.RevealerTransitionType
revealerGetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> m RevealerTransitionType
revealerGetTransitionType a
revealer = IO RevealerTransitionType -> m RevealerTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RevealerTransitionType -> m RevealerTransitionType)
-> IO RevealerTransitionType -> m RevealerTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
CUInt
result <- Ptr Revealer -> IO CUInt
gtk_revealer_get_transition_type Ptr Revealer
revealer'
let result' :: RevealerTransitionType
result' = (Int -> RevealerTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> RevealerTransitionType)
-> (CUInt -> Int) -> CUInt -> RevealerTransitionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
revealer
RevealerTransitionType -> IO RevealerTransitionType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RevealerTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data RevealerGetTransitionTypeMethodInfo
instance (signature ~ (m Gtk.Enums.RevealerTransitionType), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerGetTransitionTypeMethodInfo a signature where
overloadedMethod = revealerGetTransitionType
instance O.OverloadedMethodInfo RevealerGetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerGetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerGetTransitionType"
})
#endif
foreign import ccall "gtk_revealer_set_child" gtk_revealer_set_child ::
Ptr Revealer ->
Ptr Gtk.Widget.Widget ->
IO ()
revealerSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
revealerSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsRevealer a, IsWidget b) =>
a -> Maybe b -> m ()
revealerSetChild a
revealer Maybe b
child = 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 Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr Revealer -> Ptr Widget -> IO ()
gtk_revealer_set_child Ptr Revealer
revealer' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
revealer
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RevealerSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsRevealer a, Gtk.Widget.IsWidget b) => O.OverloadedMethod RevealerSetChildMethodInfo a signature where
overloadedMethod = revealerSetChild
instance O.OverloadedMethodInfo RevealerSetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerSetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerSetChild"
})
#endif
foreign import ccall "gtk_revealer_set_reveal_child" gtk_revealer_set_reveal_child ::
Ptr Revealer ->
CInt ->
IO ()
revealerSetRevealChild ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> Bool
-> m ()
revealerSetRevealChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> Bool -> m ()
revealerSetRevealChild a
revealer Bool
revealChild = 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 Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
let revealChild' :: CInt
revealChild' = (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
revealChild
Ptr Revealer -> CInt -> IO ()
gtk_revealer_set_reveal_child Ptr Revealer
revealer' CInt
revealChild'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
revealer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RevealerSetRevealChildMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerSetRevealChildMethodInfo a signature where
overloadedMethod = revealerSetRevealChild
instance O.OverloadedMethodInfo RevealerSetRevealChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerSetRevealChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerSetRevealChild"
})
#endif
foreign import ccall "gtk_revealer_set_transition_duration" gtk_revealer_set_transition_duration ::
Ptr Revealer ->
Word32 ->
IO ()
revealerSetTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> Word32
-> m ()
revealerSetTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> Word32 -> m ()
revealerSetTransitionDuration a
revealer Word32
duration = 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 Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
Ptr Revealer -> Word32 -> IO ()
gtk_revealer_set_transition_duration Ptr Revealer
revealer' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
revealer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RevealerSetTransitionDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerSetTransitionDurationMethodInfo a signature where
overloadedMethod = revealerSetTransitionDuration
instance O.OverloadedMethodInfo RevealerSetTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerSetTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerSetTransitionDuration"
})
#endif
foreign import ccall "gtk_revealer_set_transition_type" gtk_revealer_set_transition_type ::
Ptr Revealer ->
CUInt ->
IO ()
revealerSetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsRevealer a) =>
a
-> Gtk.Enums.RevealerTransitionType
-> m ()
revealerSetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevealer a) =>
a -> RevealerTransitionType -> m ()
revealerSetTransitionType a
revealer RevealerTransitionType
transition = 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 Revealer
revealer' <- a -> IO (Ptr Revealer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
revealer
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (RevealerTransitionType -> Int)
-> RevealerTransitionType
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. RevealerTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) RevealerTransitionType
transition
Ptr Revealer -> CUInt -> IO ()
gtk_revealer_set_transition_type Ptr Revealer
revealer' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
revealer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RevealerSetTransitionTypeMethodInfo
instance (signature ~ (Gtk.Enums.RevealerTransitionType -> m ()), MonadIO m, IsRevealer a) => O.OverloadedMethod RevealerSetTransitionTypeMethodInfo a signature where
overloadedMethod = revealerSetTransitionType
instance O.OverloadedMethodInfo RevealerSetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Revealer.revealerSetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Revealer.html#v:revealerSetTransitionType"
})
#endif