{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Stack
(
Stack(..) ,
IsStack ,
toStack ,
#if defined(ENABLE_OVERLOADING)
ResolveStackMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StackAddChildMethodInfo ,
#endif
stackAddChild ,
#if defined(ENABLE_OVERLOADING)
StackAddNamedMethodInfo ,
#endif
stackAddNamed ,
#if defined(ENABLE_OVERLOADING)
StackAddTitledMethodInfo ,
#endif
stackAddTitled ,
#if defined(ENABLE_OVERLOADING)
StackGetChildByNameMethodInfo ,
#endif
stackGetChildByName ,
#if defined(ENABLE_OVERLOADING)
StackGetHhomogeneousMethodInfo ,
#endif
stackGetHhomogeneous ,
#if defined(ENABLE_OVERLOADING)
StackGetInterpolateSizeMethodInfo ,
#endif
stackGetInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
StackGetPageMethodInfo ,
#endif
stackGetPage ,
#if defined(ENABLE_OVERLOADING)
StackGetPagesMethodInfo ,
#endif
stackGetPages ,
#if defined(ENABLE_OVERLOADING)
StackGetTransitionDurationMethodInfo ,
#endif
stackGetTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
StackGetTransitionRunningMethodInfo ,
#endif
stackGetTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
StackGetTransitionTypeMethodInfo ,
#endif
stackGetTransitionType ,
#if defined(ENABLE_OVERLOADING)
StackGetVhomogeneousMethodInfo ,
#endif
stackGetVhomogeneous ,
#if defined(ENABLE_OVERLOADING)
StackGetVisibleChildMethodInfo ,
#endif
stackGetVisibleChild ,
#if defined(ENABLE_OVERLOADING)
StackGetVisibleChildNameMethodInfo ,
#endif
stackGetVisibleChildName ,
stackNew ,
#if defined(ENABLE_OVERLOADING)
StackRemoveMethodInfo ,
#endif
stackRemove ,
#if defined(ENABLE_OVERLOADING)
StackSetHhomogeneousMethodInfo ,
#endif
stackSetHhomogeneous ,
#if defined(ENABLE_OVERLOADING)
StackSetInterpolateSizeMethodInfo ,
#endif
stackSetInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
StackSetTransitionDurationMethodInfo ,
#endif
stackSetTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
StackSetTransitionTypeMethodInfo ,
#endif
stackSetTransitionType ,
#if defined(ENABLE_OVERLOADING)
StackSetVhomogeneousMethodInfo ,
#endif
stackSetVhomogeneous ,
#if defined(ENABLE_OVERLOADING)
StackSetVisibleChildMethodInfo ,
#endif
stackSetVisibleChild ,
#if defined(ENABLE_OVERLOADING)
StackSetVisibleChildFullMethodInfo ,
#endif
stackSetVisibleChildFull ,
#if defined(ENABLE_OVERLOADING)
StackSetVisibleChildNameMethodInfo ,
#endif
stackSetVisibleChildName ,
#if defined(ENABLE_OVERLOADING)
StackHhomogeneousPropertyInfo ,
#endif
constructStackHhomogeneous ,
getStackHhomogeneous ,
setStackHhomogeneous ,
#if defined(ENABLE_OVERLOADING)
stackHhomogeneous ,
#endif
#if defined(ENABLE_OVERLOADING)
StackInterpolateSizePropertyInfo ,
#endif
constructStackInterpolateSize ,
getStackInterpolateSize ,
setStackInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
stackInterpolateSize ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPagesPropertyInfo ,
#endif
getStackPages ,
#if defined(ENABLE_OVERLOADING)
stackPages ,
#endif
#if defined(ENABLE_OVERLOADING)
StackTransitionDurationPropertyInfo ,
#endif
constructStackTransitionDuration ,
getStackTransitionDuration ,
setStackTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
stackTransitionDuration ,
#endif
#if defined(ENABLE_OVERLOADING)
StackTransitionRunningPropertyInfo ,
#endif
getStackTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
stackTransitionRunning ,
#endif
#if defined(ENABLE_OVERLOADING)
StackTransitionTypePropertyInfo ,
#endif
constructStackTransitionType ,
getStackTransitionType ,
setStackTransitionType ,
#if defined(ENABLE_OVERLOADING)
stackTransitionType ,
#endif
#if defined(ENABLE_OVERLOADING)
StackVhomogeneousPropertyInfo ,
#endif
constructStackVhomogeneous ,
getStackVhomogeneous ,
setStackVhomogeneous ,
#if defined(ENABLE_OVERLOADING)
stackVhomogeneous ,
#endif
#if defined(ENABLE_OVERLOADING)
StackVisibleChildPropertyInfo ,
#endif
constructStackVisibleChild ,
getStackVisibleChild ,
setStackVisibleChild ,
#if defined(ENABLE_OVERLOADING)
stackVisibleChild ,
#endif
#if defined(ENABLE_OVERLOADING)
StackVisibleChildNamePropertyInfo ,
#endif
constructStackVisibleChildName ,
getStackVisibleChildName ,
setStackVisibleChildName ,
#if defined(ENABLE_OVERLOADING)
stackVisibleChildName ,
#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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified 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.Interfaces.SelectionModel as Gtk.SelectionModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.StackPage as Gtk.StackPage
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Stack = Stack (SP.ManagedPtr Stack)
deriving (Stack -> Stack -> Bool
(Stack -> Stack -> Bool) -> (Stack -> Stack -> Bool) -> Eq Stack
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Stack -> Stack -> Bool
$c/= :: Stack -> Stack -> Bool
== :: Stack -> Stack -> Bool
$c== :: Stack -> Stack -> Bool
Eq)
instance SP.ManagedPtrNewtype Stack where
toManagedPtr :: Stack -> ManagedPtr Stack
toManagedPtr (Stack ManagedPtr Stack
p) = ManagedPtr Stack
p
foreign import ccall "gtk_stack_get_type"
c_gtk_stack_get_type :: IO B.Types.GType
instance B.Types.TypedObject Stack where
glibType :: IO GType
glibType = IO GType
c_gtk_stack_get_type
instance B.Types.GObject Stack
class (SP.GObject o, O.IsDescendantOf Stack o) => IsStack o
instance (SP.GObject o, O.IsDescendantOf Stack o) => IsStack o
instance O.HasParentTypes Stack
type instance O.ParentTypes Stack = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toStack :: (MIO.MonadIO m, IsStack o) => o -> m Stack
toStack :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> m Stack
toStack = IO Stack -> m Stack
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Stack -> m Stack) -> (o -> IO Stack) -> o -> m Stack
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Stack -> Stack) -> o -> IO Stack
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Stack -> Stack
Stack
instance B.GValue.IsGValue (Maybe Stack) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_stack_get_type
gvalueSet_ :: Ptr GValue -> Maybe Stack -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Stack
P.Nothing = Ptr GValue -> Ptr Stack -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Stack
forall a. Ptr a
FP.nullPtr :: FP.Ptr Stack)
gvalueSet_ Ptr GValue
gv (P.Just Stack
obj) = Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Stack
obj (Ptr GValue -> Ptr Stack -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Stack)
gvalueGet_ Ptr GValue
gv = do
Ptr Stack
ptr <- Ptr GValue -> IO (Ptr Stack)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Stack)
if Ptr Stack
ptr Ptr Stack -> Ptr Stack -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Stack
forall a. Ptr a
FP.nullPtr
then Stack -> Maybe Stack
forall a. a -> Maybe a
P.Just (Stack -> Maybe Stack) -> IO Stack -> IO (Maybe Stack)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Stack -> Stack) -> Ptr Stack -> IO Stack
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Stack -> Stack
Stack Ptr Stack
ptr
else Maybe Stack -> IO (Maybe Stack)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Stack
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStackMethod (t :: Symbol) (o :: *) :: * where
ResolveStackMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveStackMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveStackMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveStackMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveStackMethod "addChild" o = StackAddChildMethodInfo
ResolveStackMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveStackMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveStackMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveStackMethod "addNamed" o = StackAddNamedMethodInfo
ResolveStackMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveStackMethod "addTitled" o = StackAddTitledMethodInfo
ResolveStackMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveStackMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStackMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStackMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveStackMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveStackMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveStackMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveStackMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveStackMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveStackMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveStackMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveStackMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveStackMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveStackMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStackMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStackMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStackMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveStackMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveStackMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveStackMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveStackMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveStackMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveStackMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveStackMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveStackMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveStackMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveStackMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveStackMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveStackMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveStackMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStackMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveStackMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveStackMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveStackMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveStackMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveStackMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveStackMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveStackMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveStackMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStackMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStackMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveStackMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveStackMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveStackMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveStackMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveStackMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveStackMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveStackMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStackMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStackMethod "remove" o = StackRemoveMethodInfo
ResolveStackMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveStackMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveStackMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveStackMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveStackMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveStackMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveStackMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveStackMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStackMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveStackMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveStackMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveStackMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveStackMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStackMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStackMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStackMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveStackMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveStackMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveStackMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveStackMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveStackMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStackMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveStackMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveStackMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveStackMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveStackMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStackMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveStackMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveStackMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveStackMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveStackMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveStackMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveStackMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveStackMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveStackMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveStackMethod "getChildByName" o = StackGetChildByNameMethodInfo
ResolveStackMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveStackMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveStackMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveStackMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveStackMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveStackMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStackMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveStackMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveStackMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveStackMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveStackMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveStackMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveStackMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveStackMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveStackMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveStackMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveStackMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveStackMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveStackMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveStackMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveStackMethod "getHhomogeneous" o = StackGetHhomogeneousMethodInfo
ResolveStackMethod "getInterpolateSize" o = StackGetInterpolateSizeMethodInfo
ResolveStackMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveStackMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveStackMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveStackMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveStackMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveStackMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveStackMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveStackMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveStackMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveStackMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveStackMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveStackMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveStackMethod "getPage" o = StackGetPageMethodInfo
ResolveStackMethod "getPages" o = StackGetPagesMethodInfo
ResolveStackMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveStackMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveStackMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveStackMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveStackMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveStackMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStackMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStackMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveStackMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveStackMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveStackMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveStackMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveStackMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveStackMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveStackMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveStackMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveStackMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveStackMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveStackMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveStackMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveStackMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveStackMethod "getTransitionDuration" o = StackGetTransitionDurationMethodInfo
ResolveStackMethod "getTransitionRunning" o = StackGetTransitionRunningMethodInfo
ResolveStackMethod "getTransitionType" o = StackGetTransitionTypeMethodInfo
ResolveStackMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveStackMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveStackMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveStackMethod "getVhomogeneous" o = StackGetVhomogeneousMethodInfo
ResolveStackMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveStackMethod "getVisibleChild" o = StackGetVisibleChildMethodInfo
ResolveStackMethod "getVisibleChildName" o = StackGetVisibleChildNameMethodInfo
ResolveStackMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveStackMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveStackMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveStackMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveStackMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveStackMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveStackMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveStackMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStackMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStackMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveStackMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveStackMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveStackMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveStackMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveStackMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveStackMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveStackMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveStackMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveStackMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveStackMethod "setHhomogeneous" o = StackSetHhomogeneousMethodInfo
ResolveStackMethod "setInterpolateSize" o = StackSetInterpolateSizeMethodInfo
ResolveStackMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveStackMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveStackMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveStackMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveStackMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveStackMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveStackMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveStackMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveStackMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveStackMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStackMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveStackMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveStackMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveStackMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveStackMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveStackMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveStackMethod "setTransitionDuration" o = StackSetTransitionDurationMethodInfo
ResolveStackMethod "setTransitionType" o = StackSetTransitionTypeMethodInfo
ResolveStackMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveStackMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveStackMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveStackMethod "setVhomogeneous" o = StackSetVhomogeneousMethodInfo
ResolveStackMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveStackMethod "setVisibleChild" o = StackSetVisibleChildMethodInfo
ResolveStackMethod "setVisibleChildFull" o = StackSetVisibleChildFullMethodInfo
ResolveStackMethod "setVisibleChildName" o = StackSetVisibleChildNameMethodInfo
ResolveStackMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStackMethod t Stack, O.OverloadedMethod info Stack p) => OL.IsLabel t (Stack -> 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 ~ ResolveStackMethod t Stack, O.OverloadedMethod info Stack p, R.HasField t Stack p) => R.HasField t Stack p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStackMethod t Stack, O.OverloadedMethodInfo info Stack) => OL.IsLabel t (O.MethodProxy info Stack) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getStackHhomogeneous :: (MonadIO m, IsStack o) => o -> m Bool
getStackHhomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> m Bool
getStackHhomogeneous o
obj = IO Bool -> m Bool
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
"hhomogeneous"
setStackHhomogeneous :: (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackHhomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackHhomogeneous o
obj Bool
val = IO () -> m ()
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
"hhomogeneous" Bool
val
constructStackHhomogeneous :: (IsStack o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStackHhomogeneous :: forall o (m :: * -> *).
(IsStack o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStackHhomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"hhomogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data StackHhomogeneousPropertyInfo
instance AttrInfo StackHhomogeneousPropertyInfo where
type AttrAllowedOps StackHhomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackHhomogeneousPropertyInfo = IsStack
type AttrSetTypeConstraint StackHhomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StackHhomogeneousPropertyInfo = (~) Bool
type AttrTransferType StackHhomogeneousPropertyInfo = Bool
type AttrGetType StackHhomogeneousPropertyInfo = Bool
type AttrLabel StackHhomogeneousPropertyInfo = "hhomogeneous"
type AttrOrigin StackHhomogeneousPropertyInfo = Stack
attrGet = getStackHhomogeneous
attrSet = setStackHhomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructStackHhomogeneous
attrClear = undefined
#endif
getStackInterpolateSize :: (MonadIO m, IsStack o) => o -> m Bool
getStackInterpolateSize :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> m Bool
getStackInterpolateSize o
obj = IO Bool -> m Bool
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
"interpolate-size"
setStackInterpolateSize :: (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackInterpolateSize :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackInterpolateSize o
obj Bool
val = IO () -> m ()
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
"interpolate-size" Bool
val
constructStackInterpolateSize :: (IsStack o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStackInterpolateSize :: forall o (m :: * -> *).
(IsStack o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStackInterpolateSize Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"interpolate-size" Bool
val
#if defined(ENABLE_OVERLOADING)
data StackInterpolateSizePropertyInfo
instance AttrInfo StackInterpolateSizePropertyInfo where
type AttrAllowedOps StackInterpolateSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackInterpolateSizePropertyInfo = IsStack
type AttrSetTypeConstraint StackInterpolateSizePropertyInfo = (~) Bool
type AttrTransferTypeConstraint StackInterpolateSizePropertyInfo = (~) Bool
type AttrTransferType StackInterpolateSizePropertyInfo = Bool
type AttrGetType StackInterpolateSizePropertyInfo = Bool
type AttrLabel StackInterpolateSizePropertyInfo = "interpolate-size"
type AttrOrigin StackInterpolateSizePropertyInfo = Stack
attrGet = getStackInterpolateSize
attrSet = setStackInterpolateSize
attrTransfer _ v = do
return v
attrConstruct = constructStackInterpolateSize
attrClear = undefined
#endif
getStackPages :: (MonadIO m, IsStack o) => o -> m (Maybe Gtk.SelectionModel.SelectionModel)
getStackPages :: forall (m :: * -> *) o.
(MonadIO m, IsStack o) =>
o -> m (Maybe SelectionModel)
getStackPages o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe SelectionModel) -> m (Maybe SelectionModel))
-> IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SelectionModel -> SelectionModel)
-> IO (Maybe SelectionModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"pages" ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel
#if defined(ENABLE_OVERLOADING)
data StackPagesPropertyInfo
instance AttrInfo StackPagesPropertyInfo where
type AttrAllowedOps StackPagesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StackPagesPropertyInfo = IsStack
type AttrSetTypeConstraint StackPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint StackPagesPropertyInfo = (~) ()
type AttrTransferType StackPagesPropertyInfo = ()
type AttrGetType StackPagesPropertyInfo = (Maybe Gtk.SelectionModel.SelectionModel)
type AttrLabel StackPagesPropertyInfo = "pages"
type AttrOrigin StackPagesPropertyInfo = Stack
attrGet = getStackPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getStackTransitionDuration :: (MonadIO m, IsStack o) => o -> m Word32
getStackTransitionDuration :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> m Word32
getStackTransitionDuration o
obj = IO Word32 -> m Word32
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"
setStackTransitionDuration :: (MonadIO m, IsStack o) => o -> Word32 -> m ()
setStackTransitionDuration :: forall (m :: * -> *) o.
(MonadIO m, IsStack o) =>
o -> Word32 -> m ()
setStackTransitionDuration o
obj Word32
val = IO () -> m ()
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
constructStackTransitionDuration :: (IsStack o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructStackTransitionDuration :: forall o (m :: * -> *).
(IsStack o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructStackTransitionDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 StackTransitionDurationPropertyInfo
instance AttrInfo StackTransitionDurationPropertyInfo where
type AttrAllowedOps StackTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackTransitionDurationPropertyInfo = IsStack
type AttrSetTypeConstraint StackTransitionDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint StackTransitionDurationPropertyInfo = (~) Word32
type AttrTransferType StackTransitionDurationPropertyInfo = Word32
type AttrGetType StackTransitionDurationPropertyInfo = Word32
type AttrLabel StackTransitionDurationPropertyInfo = "transition-duration"
type AttrOrigin StackTransitionDurationPropertyInfo = Stack
attrGet = getStackTransitionDuration
attrSet = setStackTransitionDuration
attrTransfer _ v = do
return v
attrConstruct = constructStackTransitionDuration
attrClear = undefined
#endif
getStackTransitionRunning :: (MonadIO m, IsStack o) => o -> m Bool
getStackTransitionRunning :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> m Bool
getStackTransitionRunning o
obj = IO Bool -> m Bool
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
"transition-running"
#if defined(ENABLE_OVERLOADING)
data StackTransitionRunningPropertyInfo
instance AttrInfo StackTransitionRunningPropertyInfo where
type AttrAllowedOps StackTransitionRunningPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint StackTransitionRunningPropertyInfo = IsStack
type AttrSetTypeConstraint StackTransitionRunningPropertyInfo = (~) ()
type AttrTransferTypeConstraint StackTransitionRunningPropertyInfo = (~) ()
type AttrTransferType StackTransitionRunningPropertyInfo = ()
type AttrGetType StackTransitionRunningPropertyInfo = Bool
type AttrLabel StackTransitionRunningPropertyInfo = "transition-running"
type AttrOrigin StackTransitionRunningPropertyInfo = Stack
attrGet = getStackTransitionRunning
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getStackTransitionType :: (MonadIO m, IsStack o) => o -> m Gtk.Enums.StackTransitionType
getStackTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsStack o) =>
o -> m StackTransitionType
getStackTransitionType o
obj = IO StackTransitionType -> m StackTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO StackTransitionType -> m StackTransitionType)
-> IO StackTransitionType -> m StackTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO StackTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"transition-type"
setStackTransitionType :: (MonadIO m, IsStack o) => o -> Gtk.Enums.StackTransitionType -> m ()
setStackTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsStack o) =>
o -> StackTransitionType -> m ()
setStackTransitionType o
obj StackTransitionType
val = IO () -> m ()
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 -> StackTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"transition-type" StackTransitionType
val
constructStackTransitionType :: (IsStack o, MIO.MonadIO m) => Gtk.Enums.StackTransitionType -> m (GValueConstruct o)
constructStackTransitionType :: forall o (m :: * -> *).
(IsStack o, MonadIO m) =>
StackTransitionType -> m (GValueConstruct o)
constructStackTransitionType StackTransitionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> StackTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"transition-type" StackTransitionType
val
#if defined(ENABLE_OVERLOADING)
data StackTransitionTypePropertyInfo
instance AttrInfo StackTransitionTypePropertyInfo where
type AttrAllowedOps StackTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackTransitionTypePropertyInfo = IsStack
type AttrSetTypeConstraint StackTransitionTypePropertyInfo = (~) Gtk.Enums.StackTransitionType
type AttrTransferTypeConstraint StackTransitionTypePropertyInfo = (~) Gtk.Enums.StackTransitionType
type AttrTransferType StackTransitionTypePropertyInfo = Gtk.Enums.StackTransitionType
type AttrGetType StackTransitionTypePropertyInfo = Gtk.Enums.StackTransitionType
type AttrLabel StackTransitionTypePropertyInfo = "transition-type"
type AttrOrigin StackTransitionTypePropertyInfo = Stack
attrGet = getStackTransitionType
attrSet = setStackTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructStackTransitionType
attrClear = undefined
#endif
getStackVhomogeneous :: (MonadIO m, IsStack o) => o -> m Bool
getStackVhomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> m Bool
getStackVhomogeneous o
obj = IO Bool -> m Bool
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
"vhomogeneous"
setStackVhomogeneous :: (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackVhomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackVhomogeneous o
obj Bool
val = IO () -> m ()
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
"vhomogeneous" Bool
val
constructStackVhomogeneous :: (IsStack o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStackVhomogeneous :: forall o (m :: * -> *).
(IsStack o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStackVhomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"vhomogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data StackVhomogeneousPropertyInfo
instance AttrInfo StackVhomogeneousPropertyInfo where
type AttrAllowedOps StackVhomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackVhomogeneousPropertyInfo = IsStack
type AttrSetTypeConstraint StackVhomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StackVhomogeneousPropertyInfo = (~) Bool
type AttrTransferType StackVhomogeneousPropertyInfo = Bool
type AttrGetType StackVhomogeneousPropertyInfo = Bool
type AttrLabel StackVhomogeneousPropertyInfo = "vhomogeneous"
type AttrOrigin StackVhomogeneousPropertyInfo = Stack
attrGet = getStackVhomogeneous
attrSet = setStackVhomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructStackVhomogeneous
attrClear = undefined
#endif
getStackVisibleChild :: (MonadIO m, IsStack o) => o -> m (Maybe Gtk.Widget.Widget)
getStackVisibleChild :: forall (m :: * -> *) o.
(MonadIO m, IsStack o) =>
o -> m (Maybe Widget)
getStackVisibleChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
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
"visible-child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setStackVisibleChild :: (MonadIO m, IsStack o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setStackVisibleChild :: forall (m :: * -> *) o a.
(MonadIO m, IsStack o, IsWidget a) =>
o -> a -> m ()
setStackVisibleChild o
obj a
val = IO () -> m ()
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
"visible-child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructStackVisibleChild :: (IsStack o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructStackVisibleChild :: forall o (m :: * -> *) a.
(IsStack o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructStackVisibleChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"visible-child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data StackVisibleChildPropertyInfo
instance AttrInfo StackVisibleChildPropertyInfo where
type AttrAllowedOps StackVisibleChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackVisibleChildPropertyInfo = IsStack
type AttrSetTypeConstraint StackVisibleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint StackVisibleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType StackVisibleChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType StackVisibleChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel StackVisibleChildPropertyInfo = "visible-child"
type AttrOrigin StackVisibleChildPropertyInfo = Stack
attrGet = getStackVisibleChild
attrSet = setStackVisibleChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructStackVisibleChild
attrClear = undefined
#endif
getStackVisibleChildName :: (MonadIO m, IsStack o) => o -> m (Maybe T.Text)
getStackVisibleChildName :: forall (m :: * -> *) o.
(MonadIO m, IsStack o) =>
o -> m (Maybe Text)
getStackVisibleChildName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"visible-child-name"
setStackVisibleChildName :: (MonadIO m, IsStack o) => o -> T.Text -> m ()
setStackVisibleChildName :: forall (m :: * -> *) o. (MonadIO m, IsStack o) => o -> Text -> m ()
setStackVisibleChildName o
obj Text
val = IO () -> m ()
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStackVisibleChildName :: (IsStack o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStackVisibleChildName :: forall o (m :: * -> *).
(IsStack o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStackVisibleChildName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StackVisibleChildNamePropertyInfo
instance AttrInfo StackVisibleChildNamePropertyInfo where
type AttrAllowedOps StackVisibleChildNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackVisibleChildNamePropertyInfo = IsStack
type AttrSetTypeConstraint StackVisibleChildNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StackVisibleChildNamePropertyInfo = (~) T.Text
type AttrTransferType StackVisibleChildNamePropertyInfo = T.Text
type AttrGetType StackVisibleChildNamePropertyInfo = (Maybe T.Text)
type AttrLabel StackVisibleChildNamePropertyInfo = "visible-child-name"
type AttrOrigin StackVisibleChildNamePropertyInfo = Stack
attrGet = getStackVisibleChildName
attrSet = setStackVisibleChildName
attrTransfer _ v = do
return v
attrConstruct = constructStackVisibleChildName
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Stack
type instance O.AttributeList Stack = StackAttributeList
type StackAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("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), '("hhomogeneous", StackHhomogeneousPropertyInfo), '("interpolateSize", StackInterpolateSizePropertyInfo), '("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), '("pages", StackPagesPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transitionDuration", StackTransitionDurationPropertyInfo), '("transitionRunning", StackTransitionRunningPropertyInfo), '("transitionType", StackTransitionTypePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("vhomogeneous", StackVhomogeneousPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("visibleChild", StackVisibleChildPropertyInfo), '("visibleChildName", StackVisibleChildNamePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
stackHhomogeneous :: AttrLabelProxy "hhomogeneous"
stackHhomogeneous = AttrLabelProxy
stackInterpolateSize :: AttrLabelProxy "interpolateSize"
stackInterpolateSize = AttrLabelProxy
stackPages :: AttrLabelProxy "pages"
stackPages = AttrLabelProxy
stackTransitionDuration :: AttrLabelProxy "transitionDuration"
stackTransitionDuration = AttrLabelProxy
stackTransitionRunning :: AttrLabelProxy "transitionRunning"
stackTransitionRunning = AttrLabelProxy
stackTransitionType :: AttrLabelProxy "transitionType"
stackTransitionType = AttrLabelProxy
stackVhomogeneous :: AttrLabelProxy "vhomogeneous"
stackVhomogeneous = AttrLabelProxy
stackVisibleChild :: AttrLabelProxy "visibleChild"
stackVisibleChild = AttrLabelProxy
stackVisibleChildName :: AttrLabelProxy "visibleChildName"
stackVisibleChildName = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Stack = StackSignalList
type StackSignalList = ('[ '("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, *)])
#endif
foreign import ccall "gtk_stack_new" gtk_stack_new ::
IO (Ptr Stack)
stackNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Stack
stackNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Stack
stackNew = IO Stack -> m Stack
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Stack -> m Stack) -> IO Stack -> m Stack
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
result <- IO (Ptr Stack)
gtk_stack_new
Text -> Ptr Stack -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stackNew" Ptr Stack
result
Stack
result' <- ((ManagedPtr Stack -> Stack) -> Ptr Stack -> IO Stack
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Stack -> Stack
Stack) Ptr Stack
result
Stack -> IO Stack
forall (m :: * -> *) a. Monad m => a -> m a
return Stack
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_stack_add_child" gtk_stack_add_child ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Gtk.StackPage.StackPage)
stackAddChild ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Gtk.StackPage.StackPage
stackAddChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStack a, IsWidget b) =>
a -> b -> m StackPage
stackAddChild a
stack b
child = IO StackPage -> m StackPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StackPage -> m StackPage) -> IO StackPage -> m StackPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr StackPage
result <- Ptr Stack -> Ptr Widget -> IO (Ptr StackPage)
gtk_stack_add_child Ptr Stack
stack' Ptr Widget
child'
Text -> Ptr StackPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stackAddChild" Ptr StackPage
result
StackPage
result' <- ((ManagedPtr StackPage -> StackPage)
-> Ptr StackPage -> IO StackPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr StackPage -> StackPage
Gtk.StackPage.StackPage) Ptr StackPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
StackPage -> IO StackPage
forall (m :: * -> *) a. Monad m => a -> m a
return StackPage
result'
#if defined(ENABLE_OVERLOADING)
data StackAddChildMethodInfo
instance (signature ~ (b -> m Gtk.StackPage.StackPage), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.OverloadedMethod StackAddChildMethodInfo a signature where
overloadedMethod = stackAddChild
instance O.OverloadedMethodInfo StackAddChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackAddChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackAddChild"
}
#endif
foreign import ccall "gtk_stack_add_named" gtk_stack_add_named ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
CString ->
IO (Ptr Gtk.StackPage.StackPage)
stackAddNamed ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Maybe (T.Text)
-> m Gtk.StackPage.StackPage
stackAddNamed :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStack a, IsWidget b) =>
a -> b -> Maybe Text -> m StackPage
stackAddNamed a
stack b
child Maybe Text
name = IO StackPage -> m StackPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StackPage -> m StackPage) -> IO StackPage -> m StackPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr CChar
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jName -> do
Ptr CChar
jName' <- Text -> IO (Ptr CChar)
textToCString Text
jName
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jName'
Ptr StackPage
result <- Ptr Stack -> Ptr Widget -> Ptr CChar -> IO (Ptr StackPage)
gtk_stack_add_named Ptr Stack
stack' Ptr Widget
child' Ptr CChar
maybeName
Text -> Ptr StackPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stackAddNamed" Ptr StackPage
result
StackPage
result' <- ((ManagedPtr StackPage -> StackPage)
-> Ptr StackPage -> IO StackPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr StackPage -> StackPage
Gtk.StackPage.StackPage) Ptr StackPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeName
StackPage -> IO StackPage
forall (m :: * -> *) a. Monad m => a -> m a
return StackPage
result'
#if defined(ENABLE_OVERLOADING)
data StackAddNamedMethodInfo
instance (signature ~ (b -> Maybe (T.Text) -> m Gtk.StackPage.StackPage), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.OverloadedMethod StackAddNamedMethodInfo a signature where
overloadedMethod = stackAddNamed
instance O.OverloadedMethodInfo StackAddNamedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackAddNamed",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackAddNamed"
}
#endif
foreign import ccall "gtk_stack_add_titled" gtk_stack_add_titled ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
CString ->
CString ->
IO (Ptr Gtk.StackPage.StackPage)
stackAddTitled ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Maybe (T.Text)
-> T.Text
-> m Gtk.StackPage.StackPage
stackAddTitled :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStack a, IsWidget b) =>
a -> b -> Maybe Text -> Text -> m StackPage
stackAddTitled a
stack b
child Maybe Text
name Text
title = IO StackPage -> m StackPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StackPage -> m StackPage) -> IO StackPage -> m StackPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr CChar
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jName -> do
Ptr CChar
jName' <- Text -> IO (Ptr CChar)
textToCString Text
jName
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jName'
Ptr CChar
title' <- Text -> IO (Ptr CChar)
textToCString Text
title
Ptr StackPage
result <- Ptr Stack
-> Ptr Widget -> Ptr CChar -> Ptr CChar -> IO (Ptr StackPage)
gtk_stack_add_titled Ptr Stack
stack' Ptr Widget
child' Ptr CChar
maybeName Ptr CChar
title'
Text -> Ptr StackPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stackAddTitled" Ptr StackPage
result
StackPage
result' <- ((ManagedPtr StackPage -> StackPage)
-> Ptr StackPage -> IO StackPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr StackPage -> StackPage
Gtk.StackPage.StackPage) Ptr StackPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeName
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
title'
StackPage -> IO StackPage
forall (m :: * -> *) a. Monad m => a -> m a
return StackPage
result'
#if defined(ENABLE_OVERLOADING)
data StackAddTitledMethodInfo
instance (signature ~ (b -> Maybe (T.Text) -> T.Text -> m Gtk.StackPage.StackPage), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.OverloadedMethod StackAddTitledMethodInfo a signature where
overloadedMethod = stackAddTitled
instance O.OverloadedMethodInfo StackAddTitledMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackAddTitled",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackAddTitled"
}
#endif
foreign import ccall "gtk_stack_get_child_by_name" gtk_stack_get_child_by_name ::
Ptr Stack ->
CString ->
IO (Ptr Gtk.Widget.Widget)
stackGetChildByName ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> T.Text
-> m (Maybe Gtk.Widget.Widget)
stackGetChildByName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> Text -> m (Maybe Widget)
stackGetChildByName a
stack Text
name = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr CChar
name' <- Text -> IO (Ptr CChar)
textToCString Text
name
Ptr Widget
result <- Ptr Stack -> Ptr CChar -> IO (Ptr Widget)
gtk_stack_get_child_by_name Ptr Stack
stack' Ptr CChar
name'
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 (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
name'
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data StackGetChildByNameMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsStack a) => O.OverloadedMethod StackGetChildByNameMethodInfo a signature where
overloadedMethod = stackGetChildByName
instance O.OverloadedMethodInfo StackGetChildByNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetChildByName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetChildByName"
}
#endif
foreign import ccall "gtk_stack_get_hhomogeneous" gtk_stack_get_hhomogeneous ::
Ptr Stack ->
IO CInt
stackGetHhomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Bool
stackGetHhomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m Bool
stackGetHhomogeneous a
stack = IO Bool -> m Bool
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 Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
CInt
result <- Ptr Stack -> IO CInt
gtk_stack_get_hhomogeneous Ptr Stack
stack'
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
stack
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StackGetHhomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStack a) => O.OverloadedMethod StackGetHhomogeneousMethodInfo a signature where
overloadedMethod = stackGetHhomogeneous
instance O.OverloadedMethodInfo StackGetHhomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetHhomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetHhomogeneous"
}
#endif
foreign import ccall "gtk_stack_get_interpolate_size" gtk_stack_get_interpolate_size ::
Ptr Stack ->
IO CInt
stackGetInterpolateSize ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Bool
stackGetInterpolateSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m Bool
stackGetInterpolateSize a
stack = IO Bool -> m Bool
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 Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
CInt
result <- Ptr Stack -> IO CInt
gtk_stack_get_interpolate_size Ptr Stack
stack'
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
stack
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StackGetInterpolateSizeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStack a) => O.OverloadedMethod StackGetInterpolateSizeMethodInfo a signature where
overloadedMethod = stackGetInterpolateSize
instance O.OverloadedMethodInfo StackGetInterpolateSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetInterpolateSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetInterpolateSize"
}
#endif
foreign import ccall "gtk_stack_get_page" gtk_stack_get_page ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Gtk.StackPage.StackPage)
stackGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Gtk.StackPage.StackPage
stackGetPage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStack a, IsWidget b) =>
a -> b -> m StackPage
stackGetPage a
stack b
child = IO StackPage -> m StackPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StackPage -> m StackPage) -> IO StackPage -> m StackPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr StackPage
result <- Ptr Stack -> Ptr Widget -> IO (Ptr StackPage)
gtk_stack_get_page Ptr Stack
stack' Ptr Widget
child'
Text -> Ptr StackPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stackGetPage" Ptr StackPage
result
StackPage
result' <- ((ManagedPtr StackPage -> StackPage)
-> Ptr StackPage -> IO StackPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr StackPage -> StackPage
Gtk.StackPage.StackPage) Ptr StackPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
StackPage -> IO StackPage
forall (m :: * -> *) a. Monad m => a -> m a
return StackPage
result'
#if defined(ENABLE_OVERLOADING)
data StackGetPageMethodInfo
instance (signature ~ (b -> m Gtk.StackPage.StackPage), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.OverloadedMethod StackGetPageMethodInfo a signature where
overloadedMethod = stackGetPage
instance O.OverloadedMethodInfo StackGetPageMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetPage",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetPage"
}
#endif
foreign import ccall "gtk_stack_get_pages" gtk_stack_get_pages ::
Ptr Stack ->
IO (Ptr Gtk.SelectionModel.SelectionModel)
stackGetPages ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Gtk.SelectionModel.SelectionModel
stackGetPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m SelectionModel
stackGetPages a
stack = IO SelectionModel -> m SelectionModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionModel -> m SelectionModel)
-> IO SelectionModel -> m SelectionModel
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr SelectionModel
result <- Ptr Stack -> IO (Ptr SelectionModel)
gtk_stack_get_pages Ptr Stack
stack'
Text -> Ptr SelectionModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stackGetPages" Ptr SelectionModel
result
SelectionModel
result' <- ((ManagedPtr SelectionModel -> SelectionModel)
-> Ptr SelectionModel -> IO SelectionModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel) Ptr SelectionModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
SelectionModel -> IO SelectionModel
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionModel
result'
#if defined(ENABLE_OVERLOADING)
data StackGetPagesMethodInfo
instance (signature ~ (m Gtk.SelectionModel.SelectionModel), MonadIO m, IsStack a) => O.OverloadedMethod StackGetPagesMethodInfo a signature where
overloadedMethod = stackGetPages
instance O.OverloadedMethodInfo StackGetPagesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetPages",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetPages"
}
#endif
foreign import ccall "gtk_stack_get_transition_duration" gtk_stack_get_transition_duration ::
Ptr Stack ->
IO Word32
stackGetTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Word32
stackGetTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m Word32
stackGetTransitionDuration a
stack = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Word32
result <- Ptr Stack -> IO Word32
gtk_stack_get_transition_duration Ptr Stack
stack'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data StackGetTransitionDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsStack a) => O.OverloadedMethod StackGetTransitionDurationMethodInfo a signature where
overloadedMethod = stackGetTransitionDuration
instance O.OverloadedMethodInfo StackGetTransitionDurationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetTransitionDuration",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetTransitionDuration"
}
#endif
foreign import ccall "gtk_stack_get_transition_running" gtk_stack_get_transition_running ::
Ptr Stack ->
IO CInt
stackGetTransitionRunning ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Bool
stackGetTransitionRunning :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m Bool
stackGetTransitionRunning a
stack = IO Bool -> m Bool
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 Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
CInt
result <- Ptr Stack -> IO CInt
gtk_stack_get_transition_running Ptr Stack
stack'
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
stack
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StackGetTransitionRunningMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStack a) => O.OverloadedMethod StackGetTransitionRunningMethodInfo a signature where
overloadedMethod = stackGetTransitionRunning
instance O.OverloadedMethodInfo StackGetTransitionRunningMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetTransitionRunning",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetTransitionRunning"
}
#endif
foreign import ccall "gtk_stack_get_transition_type" gtk_stack_get_transition_type ::
Ptr Stack ->
IO CUInt
stackGetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Gtk.Enums.StackTransitionType
stackGetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m StackTransitionType
stackGetTransitionType a
stack = IO StackTransitionType -> m StackTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StackTransitionType -> m StackTransitionType)
-> IO StackTransitionType -> m StackTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
CUInt
result <- Ptr Stack -> IO CUInt
gtk_stack_get_transition_type Ptr Stack
stack'
let result' :: StackTransitionType
result' = (Int -> StackTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> StackTransitionType)
-> (CUInt -> Int) -> CUInt -> StackTransitionType
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
stack
StackTransitionType -> IO StackTransitionType
forall (m :: * -> *) a. Monad m => a -> m a
return StackTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data StackGetTransitionTypeMethodInfo
instance (signature ~ (m Gtk.Enums.StackTransitionType), MonadIO m, IsStack a) => O.OverloadedMethod StackGetTransitionTypeMethodInfo a signature where
overloadedMethod = stackGetTransitionType
instance O.OverloadedMethodInfo StackGetTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetTransitionType"
}
#endif
foreign import ccall "gtk_stack_get_vhomogeneous" gtk_stack_get_vhomogeneous ::
Ptr Stack ->
IO CInt
stackGetVhomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Bool
stackGetVhomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m Bool
stackGetVhomogeneous a
stack = IO Bool -> m Bool
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 Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
CInt
result <- Ptr Stack -> IO CInt
gtk_stack_get_vhomogeneous Ptr Stack
stack'
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
stack
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StackGetVhomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStack a) => O.OverloadedMethod StackGetVhomogeneousMethodInfo a signature where
overloadedMethod = stackGetVhomogeneous
instance O.OverloadedMethodInfo StackGetVhomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetVhomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetVhomogeneous"
}
#endif
foreign import ccall "gtk_stack_get_visible_child" gtk_stack_get_visible_child ::
Ptr Stack ->
IO (Ptr Gtk.Widget.Widget)
stackGetVisibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m (Maybe Gtk.Widget.Widget)
stackGetVisibleChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m (Maybe Widget)
stackGetVisibleChild a
stack = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Widget
result <- Ptr Stack -> IO (Ptr Widget)
gtk_stack_get_visible_child Ptr Stack
stack'
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 (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data StackGetVisibleChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsStack a) => O.OverloadedMethod StackGetVisibleChildMethodInfo a signature where
overloadedMethod = stackGetVisibleChild
instance O.OverloadedMethodInfo StackGetVisibleChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetVisibleChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetVisibleChild"
}
#endif
foreign import ccall "gtk_stack_get_visible_child_name" gtk_stack_get_visible_child_name ::
Ptr Stack ->
IO CString
stackGetVisibleChildName ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m (Maybe T.Text)
stackGetVisibleChildName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> m (Maybe Text)
stackGetVisibleChildName a
stack = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr CChar
result <- Ptr Stack -> IO (Ptr CChar)
gtk_stack_get_visible_child_name Ptr Stack
stack'
Maybe Text
maybeResult <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
result ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StackGetVisibleChildNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStack a) => O.OverloadedMethod StackGetVisibleChildNameMethodInfo a signature where
overloadedMethod = stackGetVisibleChildName
instance O.OverloadedMethodInfo StackGetVisibleChildNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackGetVisibleChildName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackGetVisibleChildName"
}
#endif
foreign import ccall "gtk_stack_remove" gtk_stack_remove ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
IO ()
stackRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
stackRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStack a, IsWidget b) =>
a -> b -> m ()
stackRemove a
stack b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Stack -> Ptr Widget -> IO ()
gtk_stack_remove Ptr Stack
stack' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.OverloadedMethod StackRemoveMethodInfo a signature where
overloadedMethod = stackRemove
instance O.OverloadedMethodInfo StackRemoveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackRemove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackRemove"
}
#endif
foreign import ccall "gtk_stack_set_hhomogeneous" gtk_stack_set_hhomogeneous ::
Ptr Stack ->
CInt ->
IO ()
stackSetHhomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> Bool
-> m ()
stackSetHhomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> Bool -> m ()
stackSetHhomogeneous a
stack Bool
hhomogeneous = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
let hhomogeneous' :: CInt
hhomogeneous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hhomogeneous
Ptr Stack -> CInt -> IO ()
gtk_stack_set_hhomogeneous Ptr Stack
stack' CInt
hhomogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetHhomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStack a) => O.OverloadedMethod StackSetHhomogeneousMethodInfo a signature where
overloadedMethod = stackSetHhomogeneous
instance O.OverloadedMethodInfo StackSetHhomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetHhomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetHhomogeneous"
}
#endif
foreign import ccall "gtk_stack_set_interpolate_size" gtk_stack_set_interpolate_size ::
Ptr Stack ->
CInt ->
IO ()
stackSetInterpolateSize ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> Bool
-> m ()
stackSetInterpolateSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> Bool -> m ()
stackSetInterpolateSize a
stack Bool
interpolateSize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
let interpolateSize' :: CInt
interpolateSize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
interpolateSize
Ptr Stack -> CInt -> IO ()
gtk_stack_set_interpolate_size Ptr Stack
stack' CInt
interpolateSize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetInterpolateSizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStack a) => O.OverloadedMethod StackSetInterpolateSizeMethodInfo a signature where
overloadedMethod = stackSetInterpolateSize
instance O.OverloadedMethodInfo StackSetInterpolateSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetInterpolateSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetInterpolateSize"
}
#endif
foreign import ccall "gtk_stack_set_transition_duration" gtk_stack_set_transition_duration ::
Ptr Stack ->
Word32 ->
IO ()
stackSetTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> Word32
-> m ()
stackSetTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> Word32 -> m ()
stackSetTransitionDuration a
stack Word32
duration = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Stack -> Word32 -> IO ()
gtk_stack_set_transition_duration Ptr Stack
stack' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetTransitionDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsStack a) => O.OverloadedMethod StackSetTransitionDurationMethodInfo a signature where
overloadedMethod = stackSetTransitionDuration
instance O.OverloadedMethodInfo StackSetTransitionDurationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetTransitionDuration",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetTransitionDuration"
}
#endif
foreign import ccall "gtk_stack_set_transition_type" gtk_stack_set_transition_type ::
Ptr Stack ->
CUInt ->
IO ()
stackSetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> Gtk.Enums.StackTransitionType
-> m ()
stackSetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> StackTransitionType -> m ()
stackSetTransitionType a
stack StackTransitionType
transition = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (StackTransitionType -> Int) -> StackTransitionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StackTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) StackTransitionType
transition
Ptr Stack -> CUInt -> IO ()
gtk_stack_set_transition_type Ptr Stack
stack' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetTransitionTypeMethodInfo
instance (signature ~ (Gtk.Enums.StackTransitionType -> m ()), MonadIO m, IsStack a) => O.OverloadedMethod StackSetTransitionTypeMethodInfo a signature where
overloadedMethod = stackSetTransitionType
instance O.OverloadedMethodInfo StackSetTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetTransitionType"
}
#endif
foreign import ccall "gtk_stack_set_vhomogeneous" gtk_stack_set_vhomogeneous ::
Ptr Stack ->
CInt ->
IO ()
stackSetVhomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> Bool
-> m ()
stackSetVhomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> Bool -> m ()
stackSetVhomogeneous a
stack Bool
vhomogeneous = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
let vhomogeneous' :: CInt
vhomogeneous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
vhomogeneous
Ptr Stack -> CInt -> IO ()
gtk_stack_set_vhomogeneous Ptr Stack
stack' CInt
vhomogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetVhomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStack a) => O.OverloadedMethod StackSetVhomogeneousMethodInfo a signature where
overloadedMethod = stackSetVhomogeneous
instance O.OverloadedMethodInfo StackSetVhomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetVhomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetVhomogeneous"
}
#endif
foreign import ccall "gtk_stack_set_visible_child" gtk_stack_set_visible_child ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
IO ()
stackSetVisibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
stackSetVisibleChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStack a, IsWidget b) =>
a -> b -> m ()
stackSetVisibleChild a
stack b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Stack -> Ptr Widget -> IO ()
gtk_stack_set_visible_child Ptr Stack
stack' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetVisibleChildMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.OverloadedMethod StackSetVisibleChildMethodInfo a signature where
overloadedMethod = stackSetVisibleChild
instance O.OverloadedMethodInfo StackSetVisibleChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetVisibleChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetVisibleChild"
}
#endif
foreign import ccall "gtk_stack_set_visible_child_full" gtk_stack_set_visible_child_full ::
Ptr Stack ->
CString ->
CUInt ->
IO ()
stackSetVisibleChildFull ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> T.Text
-> Gtk.Enums.StackTransitionType
-> m ()
stackSetVisibleChildFull :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> Text -> StackTransitionType -> m ()
stackSetVisibleChildFull a
stack Text
name StackTransitionType
transition = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr CChar
name' <- Text -> IO (Ptr CChar)
textToCString Text
name
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (StackTransitionType -> Int) -> StackTransitionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StackTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) StackTransitionType
transition
Ptr Stack -> Ptr CChar -> CUInt -> IO ()
gtk_stack_set_visible_child_full Ptr Stack
stack' Ptr CChar
name' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetVisibleChildFullMethodInfo
instance (signature ~ (T.Text -> Gtk.Enums.StackTransitionType -> m ()), MonadIO m, IsStack a) => O.OverloadedMethod StackSetVisibleChildFullMethodInfo a signature where
overloadedMethod = stackSetVisibleChildFull
instance O.OverloadedMethodInfo StackSetVisibleChildFullMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetVisibleChildFull",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetVisibleChildFull"
}
#endif
foreign import ccall "gtk_stack_set_visible_child_name" gtk_stack_set_visible_child_name ::
Ptr Stack ->
CString ->
IO ()
stackSetVisibleChildName ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> T.Text
-> m ()
stackSetVisibleChildName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStack a) =>
a -> Text -> m ()
stackSetVisibleChildName a
stack Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Stack
stack' <- a -> IO (Ptr Stack)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stack
Ptr CChar
name' <- Text -> IO (Ptr CChar)
textToCString Text
name
Ptr Stack -> Ptr CChar -> IO ()
gtk_stack_set_visible_child_name Ptr Stack
stack' Ptr CChar
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackSetVisibleChildNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStack a) => O.OverloadedMethod StackSetVisibleChildNameMethodInfo a signature where
overloadedMethod = stackSetVisibleChildName
instance O.OverloadedMethodInfo StackSetVisibleChildNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Stack.stackSetVisibleChildName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Stack.html#v:stackSetVisibleChildName"
}
#endif