{-# 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 ,
noStack ,
#if defined(ENABLE_OVERLOADING)
ResolveStackMethod ,
#endif
#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)
StackGetHomogeneousMethodInfo ,
#endif
stackGetHomogeneous ,
#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)
StackSetHhomogeneousMethodInfo ,
#endif
stackSetHhomogeneous ,
#if defined(ENABLE_OVERLOADING)
StackSetHomogeneousMethodInfo ,
#endif
stackSetHomogeneous ,
#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)
StackHomogeneousPropertyInfo ,
#endif
constructStackHomogeneous ,
getStackHomogeneous ,
setStackHomogeneous ,
#if defined(ENABLE_OVERLOADING)
stackHomogeneous ,
#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.ManagedPtr as B.ManagedPtr
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 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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.SelectionModel as Gtk.SelectionModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.StackPage as Gtk.StackPage
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Stack = Stack (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)
foreign import ccall "gtk_stack_get_type"
c_gtk_stack_get_type :: IO GType
instance GObject Stack where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_stack_get_type
instance B.GValue.IsGValue Stack where
toGValue :: Stack -> IO GValue
toGValue o :: Stack
o = do
GType
gtype <- IO GType
c_gtk_stack_get_type
Stack -> (Ptr Stack -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Stack
o (GType -> (GValue -> Ptr Stack -> IO ()) -> Ptr Stack -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Stack -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Stack
fromGValue gv :: GValue
gv = do
Ptr Stack
ptr <- GValue -> IO (Ptr Stack)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Stack)
(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
class (GObject o, O.IsDescendantOf Stack o) => IsStack o
instance (GObject o, O.IsDescendantOf Stack o) => IsStack o
instance O.HasParentTypes Stack
type instance O.ParentTypes Stack = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toStack :: (MonadIO m, IsStack o) => o -> m Stack
toStack :: o -> m Stack
toStack = IO Stack -> m Stack
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Stack -> Stack
Stack
noStack :: Maybe Stack
noStack :: Maybe Stack
noStack = Maybe Stack
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStackMethod (t :: Symbol) (o :: *) :: * where
ResolveStackMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveStackMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveStackMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveStackMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveStackMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveStackMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveStackMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
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 "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveStackMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveStackMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
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 "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveStackMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveStackMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveStackMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveStackMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveStackMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveStackMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveStackMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveStackMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveStackMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveStackMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveStackMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveStackMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveStackMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveStackMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveStackMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveStackMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveStackMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveStackMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveStackMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveStackMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveStackMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveStackMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveStackMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveStackMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveStackMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveStackMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveStackMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveStackMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveStackMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveStackMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveStackMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveStackMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveStackMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveStackMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveStackMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveStackMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveStackMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveStackMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStackMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveStackMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStackMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStackMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveStackMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveStackMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveStackMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveStackMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveStackMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
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 "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveStackMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveStackMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveStackMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveStackMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
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 "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveStackMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveStackMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveStackMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveStackMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveStackMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveStackMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveStackMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveStackMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStackMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStackMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveStackMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveStackMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveStackMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveStackMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveStackMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveStackMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveStackMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
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 "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveStackMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveStackMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStackMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveStackMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
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 "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveStackMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveStackMethod "getChildByName" o = StackGetChildByNameMethodInfo
ResolveStackMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveStackMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveStackMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
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 "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveStackMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveStackMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
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 "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
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 "getHomogeneous" o = StackGetHomogeneousMethodInfo
ResolveStackMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
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 "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveStackMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
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 "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveStackMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
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 "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveStackMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveStackMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveStackMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveStackMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveStackMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveStackMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveStackMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveStackMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveStackMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
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 "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveStackMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveStackMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveStackMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveStackMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
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 "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveStackMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveStackMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveStackMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveStackMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveStackMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveStackMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveStackMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveStackMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveStackMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveStackMethod "setHhomogeneous" o = StackSetHhomogeneousMethodInfo
ResolveStackMethod "setHomogeneous" o = StackSetHomogeneousMethodInfo
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 "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveStackMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveStackMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveStackMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveStackMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
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.MethodInfo 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
#endif
getStackHhomogeneous :: (MonadIO m, IsStack o) => o -> m Bool
getStackHhomogeneous :: o -> m Bool
getStackHhomogeneous obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "hhomogeneous"
setStackHhomogeneous :: (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackHhomogeneous :: o -> Bool -> m ()
setStackHhomogeneous obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "hhomogeneous" Bool
val
constructStackHhomogeneous :: (IsStack o) => Bool -> IO (GValueConstruct o)
constructStackHhomogeneous :: Bool -> IO (GValueConstruct o)
constructStackHhomogeneous val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
getStackHomogeneous :: (MonadIO m, IsStack o) => o -> m Bool
getStackHomogeneous :: o -> m Bool
getStackHomogeneous obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "homogeneous"
setStackHomogeneous :: (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackHomogeneous :: o -> Bool -> m ()
setStackHomogeneous obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "homogeneous" Bool
val
constructStackHomogeneous :: (IsStack o) => Bool -> IO (GValueConstruct o)
constructStackHomogeneous :: Bool -> IO (GValueConstruct o)
constructStackHomogeneous val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data StackHomogeneousPropertyInfo
instance AttrInfo StackHomogeneousPropertyInfo where
type AttrAllowedOps StackHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackHomogeneousPropertyInfo = IsStack
type AttrSetTypeConstraint StackHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StackHomogeneousPropertyInfo = (~) Bool
type AttrTransferType StackHomogeneousPropertyInfo = Bool
type AttrGetType StackHomogeneousPropertyInfo = Bool
type AttrLabel StackHomogeneousPropertyInfo = "homogeneous"
type AttrOrigin StackHomogeneousPropertyInfo = Stack
attrGet = getStackHomogeneous
attrSet = setStackHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructStackHomogeneous
attrClear = undefined
#endif
getStackInterpolateSize :: (MonadIO m, IsStack o) => o -> m Bool
getStackInterpolateSize :: o -> m Bool
getStackInterpolateSize obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "interpolate-size"
setStackInterpolateSize :: (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackInterpolateSize :: o -> Bool -> m ()
setStackInterpolateSize obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "interpolate-size" Bool
val
constructStackInterpolateSize :: (IsStack o) => Bool -> IO (GValueConstruct o)
constructStackInterpolateSize :: Bool -> IO (GValueConstruct o)
constructStackInterpolateSize val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m (Maybe SelectionModel)
getStackPages obj :: o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "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 :: o -> m Word32
getStackTransitionDuration obj :: o
obj = 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
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "transition-duration"
setStackTransitionDuration :: (MonadIO m, IsStack o) => o -> Word32 -> m ()
setStackTransitionDuration :: o -> Word32 -> m ()
setStackTransitionDuration obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "transition-duration" Word32
val
constructStackTransitionDuration :: (IsStack o) => Word32 -> IO (GValueConstruct o)
constructStackTransitionDuration :: Word32 -> IO (GValueConstruct o)
constructStackTransitionDuration val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "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 :: o -> m Bool
getStackTransitionRunning obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "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 :: o -> m StackTransitionType
getStackTransitionType obj :: o
obj = 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
$ o -> String -> IO StackTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "transition-type"
setStackTransitionType :: (MonadIO m, IsStack o) => o -> Gtk.Enums.StackTransitionType -> m ()
setStackTransitionType :: o -> StackTransitionType -> m ()
setStackTransitionType obj :: o
obj val :: StackTransitionType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> StackTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "transition-type" StackTransitionType
val
constructStackTransitionType :: (IsStack o) => Gtk.Enums.StackTransitionType -> IO (GValueConstruct o)
constructStackTransitionType :: StackTransitionType -> IO (GValueConstruct o)
constructStackTransitionType val :: StackTransitionType
val = String -> StackTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m Bool
getStackVhomogeneous obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "vhomogeneous"
setStackVhomogeneous :: (MonadIO m, IsStack o) => o -> Bool -> m ()
setStackVhomogeneous :: o -> Bool -> m ()
setStackVhomogeneous obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "vhomogeneous" Bool
val
constructStackVhomogeneous :: (IsStack o) => Bool -> IO (GValueConstruct o)
constructStackVhomogeneous :: Bool -> IO (GValueConstruct o)
constructStackVhomogeneous val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m (Maybe Widget)
getStackVisibleChild obj :: o
obj = 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
$ 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 "visible-child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setStackVisibleChild :: (MonadIO m, IsStack o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setStackVisibleChild :: o -> a -> m ()
setStackVisibleChild obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "visible-child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructStackVisibleChild :: (IsStack o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructStackVisibleChild :: a -> IO (GValueConstruct o)
constructStackVisibleChild val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "visible-child" (a -> Maybe a
forall a. a -> Maybe a
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 :: o -> m (Maybe Text)
getStackVisibleChildName obj :: o
obj = 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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "visible-child-name"
setStackVisibleChildName :: (MonadIO m, IsStack o) => o -> T.Text -> m ()
setStackVisibleChildName :: o -> Text -> m ()
setStackVisibleChildName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStackVisibleChildName :: (IsStack o) => T.Text -> IO (GValueConstruct o)
constructStackVisibleChildName :: Text -> IO (GValueConstruct o)
constructStackVisibleChildName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
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 = ('[ '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("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), '("homogeneous", StackHomogeneousPropertyInfo), '("interpolateSize", StackInterpolateSizePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("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), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("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
stackHomogeneous :: AttrLabelProxy "homogeneous"
stackHomogeneous = 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 = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("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 :: 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 "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_named" gtk_stack_add_named ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
CString ->
IO ()
stackAddNamed ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> m ()
stackAddNamed :: a -> b -> Text -> m ()
stackAddNamed stack :: a
stack child :: b
child name :: 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 Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Stack -> Ptr Widget -> CString -> IO ()
gtk_stack_add_named Ptr Stack
stack' Ptr Widget
child' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackAddNamedMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.MethodInfo StackAddNamedMethodInfo a signature where
overloadedMethod = stackAddNamed
#endif
foreign import ccall "gtk_stack_add_titled" gtk_stack_add_titled ::
Ptr Stack ->
Ptr Gtk.Widget.Widget ->
CString ->
CString ->
IO ()
stackAddTitled ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> T.Text
-> m ()
stackAddTitled :: a -> b -> Text -> Text -> m ()
stackAddTitled stack :: a
stack child :: b
child name :: Text
name title :: Text
title = 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
CString
name' <- Text -> IO CString
textToCString Text
name
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Stack -> Ptr Widget -> CString -> CString -> IO ()
gtk_stack_add_titled Ptr Stack
stack' Ptr Widget
child' CString
name' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackAddTitledMethodInfo
instance (signature ~ (b -> T.Text -> T.Text -> m ()), MonadIO m, IsStack a, Gtk.Widget.IsWidget b) => O.MethodInfo StackAddTitledMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m (Maybe Widget)
stackGetChildByName stack :: a
stack name :: 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
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Widget
result <- Ptr Stack -> CString -> IO (Ptr Widget)
gtk_stack_get_child_by_name Ptr Stack
stack' CString
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
$ \result' :: 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
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.MethodInfo StackGetChildByNameMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
stackGetHhomogeneous stack :: 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
/= 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.MethodInfo StackGetHhomogeneousMethodInfo a signature where
overloadedMethod = stackGetHhomogeneous
#endif
foreign import ccall "gtk_stack_get_homogeneous" gtk_stack_get_homogeneous ::
Ptr Stack ->
IO CInt
stackGetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> m Bool
stackGetHomogeneous :: a -> m Bool
stackGetHomogeneous stack :: 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_homogeneous Ptr Stack
stack'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 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 StackGetHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStack a) => O.MethodInfo StackGetHomogeneousMethodInfo a signature where
overloadedMethod = stackGetHomogeneous
#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 :: a -> m Bool
stackGetInterpolateSize stack :: 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
/= 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.MethodInfo StackGetInterpolateSizeMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m StackPage
stackGetPage stack :: a
stack child :: 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 "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.MethodInfo StackGetPageMethodInfo a signature where
overloadedMethod = 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 :: a -> m SelectionModel
stackGetPages stack :: 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 "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.MethodInfo StackGetPagesMethodInfo a signature where
overloadedMethod = 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 :: a -> m Word32
stackGetTransitionDuration stack :: 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.MethodInfo StackGetTransitionDurationMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
stackGetTransitionRunning stack :: 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
/= 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.MethodInfo StackGetTransitionRunningMethodInfo a signature where
overloadedMethod = 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 :: a -> m StackTransitionType
stackGetTransitionType stack :: 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.MethodInfo StackGetTransitionTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
stackGetVhomogeneous stack :: 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
/= 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.MethodInfo StackGetVhomogeneousMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
stackGetVisibleChild stack :: 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
$ \result' :: 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.MethodInfo StackGetVisibleChildMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
stackGetVisibleChildName stack :: 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
CString
result <- Ptr Stack -> IO CString
gtk_stack_get_visible_child_name Ptr Stack
stack'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
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.MethodInfo StackGetVisibleChildNameMethodInfo a signature where
overloadedMethod = stackGetVisibleChildName
#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 :: a -> Bool -> m ()
stackSetHhomogeneous stack :: a
stack hhomogeneous :: 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.MethodInfo StackSetHhomogeneousMethodInfo a signature where
overloadedMethod = stackSetHhomogeneous
#endif
foreign import ccall "gtk_stack_set_homogeneous" gtk_stack_set_homogeneous ::
Ptr Stack ->
CInt ->
IO ()
stackSetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsStack a) =>
a
-> Bool
-> m ()
stackSetHomogeneous :: a -> Bool -> m ()
stackSetHomogeneous stack :: a
stack homogeneous :: Bool
homogeneous = 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 homogeneous' :: CInt
homogeneous' = (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
homogeneous
Ptr Stack -> CInt -> IO ()
gtk_stack_set_homogeneous Ptr Stack
stack' CInt
homogeneous'
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 StackSetHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStack a) => O.MethodInfo StackSetHomogeneousMethodInfo a signature where
overloadedMethod = stackSetHomogeneous
#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 :: a -> Bool -> m ()
stackSetInterpolateSize stack :: a
stack interpolateSize :: 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.MethodInfo StackSetInterpolateSizeMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> m ()
stackSetTransitionDuration stack :: a
stack duration :: 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.MethodInfo StackSetTransitionDurationMethodInfo a signature where
overloadedMethod = 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 :: a -> StackTransitionType -> m ()
stackSetTransitionType stack :: a
stack transition :: 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.MethodInfo StackSetTransitionTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
stackSetVhomogeneous stack :: a
stack vhomogeneous :: 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.MethodInfo StackSetVhomogeneousMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
stackSetVisibleChild stack :: a
stack child :: 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.MethodInfo StackSetVisibleChildMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> StackTransitionType -> m ()
stackSetVisibleChildFull stack :: a
stack name :: Text
name transition :: 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
CString
name' <- Text -> IO CString
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 -> CString -> CUInt -> IO ()
gtk_stack_set_visible_child_full Ptr Stack
stack' CString
name' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
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.MethodInfo StackSetVisibleChildFullMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
stackSetVisibleChildName stack :: a
stack name :: 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
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Stack -> CString -> IO ()
gtk_stack_set_visible_child_name Ptr Stack
stack' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stack
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
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.MethodInfo StackSetVisibleChildNameMethodInfo a signature where
overloadedMethod = stackSetVisibleChildName
#endif