{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.Squeezer
(
Squeezer(..) ,
IsSqueezer ,
toSqueezer ,
#if defined(ENABLE_OVERLOADING)
ResolveSqueezerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerAddMethodInfo ,
#endif
squeezerAdd ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetAllowNoneMethodInfo ,
#endif
squeezerGetAllowNone ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetHomogeneousMethodInfo ,
#endif
squeezerGetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetInterpolateSizeMethodInfo ,
#endif
squeezerGetInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetPageMethodInfo ,
#endif
squeezerGetPage ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetPagesMethodInfo ,
#endif
squeezerGetPages ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetSwitchThresholdPolicyMethodInfo,
#endif
squeezerGetSwitchThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetTransitionDurationMethodInfo ,
#endif
squeezerGetTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetTransitionRunningMethodInfo ,
#endif
squeezerGetTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetTransitionTypeMethodInfo ,
#endif
squeezerGetTransitionType ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetVisibleChildMethodInfo ,
#endif
squeezerGetVisibleChild ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetXalignMethodInfo ,
#endif
squeezerGetXalign ,
#if defined(ENABLE_OVERLOADING)
SqueezerGetYalignMethodInfo ,
#endif
squeezerGetYalign ,
squeezerNew ,
#if defined(ENABLE_OVERLOADING)
SqueezerRemoveMethodInfo ,
#endif
squeezerRemove ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetAllowNoneMethodInfo ,
#endif
squeezerSetAllowNone ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetHomogeneousMethodInfo ,
#endif
squeezerSetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetInterpolateSizeMethodInfo ,
#endif
squeezerSetInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetSwitchThresholdPolicyMethodInfo,
#endif
squeezerSetSwitchThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetTransitionDurationMethodInfo ,
#endif
squeezerSetTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetTransitionTypeMethodInfo ,
#endif
squeezerSetTransitionType ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetXalignMethodInfo ,
#endif
squeezerSetXalign ,
#if defined(ENABLE_OVERLOADING)
SqueezerSetYalignMethodInfo ,
#endif
squeezerSetYalign ,
#if defined(ENABLE_OVERLOADING)
SqueezerAllowNonePropertyInfo ,
#endif
constructSqueezerAllowNone ,
getSqueezerAllowNone ,
setSqueezerAllowNone ,
#if defined(ENABLE_OVERLOADING)
squeezerAllowNone ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerHomogeneousPropertyInfo ,
#endif
constructSqueezerHomogeneous ,
getSqueezerHomogeneous ,
setSqueezerHomogeneous ,
#if defined(ENABLE_OVERLOADING)
squeezerHomogeneous ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerInterpolateSizePropertyInfo ,
#endif
constructSqueezerInterpolateSize ,
getSqueezerInterpolateSize ,
setSqueezerInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
squeezerInterpolateSize ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerPagesPropertyInfo ,
#endif
getSqueezerPages ,
#if defined(ENABLE_OVERLOADING)
squeezerPages ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerSwitchThresholdPolicyPropertyInfo,
#endif
constructSqueezerSwitchThresholdPolicy ,
getSqueezerSwitchThresholdPolicy ,
setSqueezerSwitchThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
squeezerSwitchThresholdPolicy ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerTransitionDurationPropertyInfo ,
#endif
constructSqueezerTransitionDuration ,
getSqueezerTransitionDuration ,
setSqueezerTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
squeezerTransitionDuration ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerTransitionRunningPropertyInfo ,
#endif
getSqueezerTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
squeezerTransitionRunning ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerTransitionTypePropertyInfo ,
#endif
constructSqueezerTransitionType ,
getSqueezerTransitionType ,
setSqueezerTransitionType ,
#if defined(ENABLE_OVERLOADING)
squeezerTransitionType ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerVisibleChildPropertyInfo ,
#endif
getSqueezerVisibleChild ,
#if defined(ENABLE_OVERLOADING)
squeezerVisibleChild ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerXalignPropertyInfo ,
#endif
constructSqueezerXalign ,
getSqueezerXalign ,
setSqueezerXalign ,
#if defined(ENABLE_OVERLOADING)
squeezerXalign ,
#endif
#if defined(ENABLE_OVERLOADING)
SqueezerYalignPropertyInfo ,
#endif
constructSqueezerYalign ,
getSqueezerYalign ,
setSqueezerYalign ,
#if defined(ENABLE_OVERLOADING)
squeezerYalign ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Adw.Enums as Adw.Enums
import {-# SOURCE #-} qualified GI.Adw.Objects.SqueezerPage as Adw.SqueezerPage
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import qualified GI.Gtk.Interfaces.SelectionModel as Gtk.SelectionModel
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Squeezer = Squeezer (SP.ManagedPtr Squeezer)
deriving (Squeezer -> Squeezer -> Bool
(Squeezer -> Squeezer -> Bool)
-> (Squeezer -> Squeezer -> Bool) -> Eq Squeezer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Squeezer -> Squeezer -> Bool
== :: Squeezer -> Squeezer -> Bool
$c/= :: Squeezer -> Squeezer -> Bool
/= :: Squeezer -> Squeezer -> Bool
Eq)
instance SP.ManagedPtrNewtype Squeezer where
toManagedPtr :: Squeezer -> ManagedPtr Squeezer
toManagedPtr (Squeezer ManagedPtr Squeezer
p) = ManagedPtr Squeezer
p
foreign import ccall "adw_squeezer_get_type"
c_adw_squeezer_get_type :: IO B.Types.GType
instance B.Types.TypedObject Squeezer where
glibType :: IO GType
glibType = IO GType
c_adw_squeezer_get_type
instance B.Types.GObject Squeezer
class (SP.GObject o, O.IsDescendantOf Squeezer o) => IsSqueezer o
instance (SP.GObject o, O.IsDescendantOf Squeezer o) => IsSqueezer o
instance O.HasParentTypes Squeezer
type instance O.ParentTypes Squeezer = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toSqueezer :: (MIO.MonadIO m, IsSqueezer o) => o -> m Squeezer
toSqueezer :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> m Squeezer
toSqueezer = IO Squeezer -> m Squeezer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Squeezer -> m Squeezer)
-> (o -> IO Squeezer) -> o -> m Squeezer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Squeezer -> Squeezer) -> o -> IO Squeezer
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Squeezer -> Squeezer
Squeezer
instance B.GValue.IsGValue (Maybe Squeezer) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_squeezer_get_type
gvalueSet_ :: Ptr GValue -> Maybe Squeezer -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Squeezer
P.Nothing = Ptr GValue -> Ptr Squeezer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Squeezer
forall a. Ptr a
FP.nullPtr :: FP.Ptr Squeezer)
gvalueSet_ Ptr GValue
gv (P.Just Squeezer
obj) = Squeezer -> (Ptr Squeezer -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Squeezer
obj (Ptr GValue -> Ptr Squeezer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Squeezer)
gvalueGet_ Ptr GValue
gv = do
Ptr Squeezer
ptr <- Ptr GValue -> IO (Ptr Squeezer)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Squeezer)
if Ptr Squeezer
ptr Ptr Squeezer -> Ptr Squeezer -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Squeezer
forall a. Ptr a
FP.nullPtr
then Squeezer -> Maybe Squeezer
forall a. a -> Maybe a
P.Just (Squeezer -> Maybe Squeezer) -> IO Squeezer -> IO (Maybe Squeezer)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Squeezer -> Squeezer) -> Ptr Squeezer -> IO Squeezer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Squeezer -> Squeezer
Squeezer Ptr Squeezer
ptr
else Maybe Squeezer -> IO (Maybe Squeezer)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Squeezer
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSqueezerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSqueezerMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveSqueezerMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveSqueezerMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveSqueezerMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveSqueezerMethod "add" o = SqueezerAddMethodInfo
ResolveSqueezerMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveSqueezerMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveSqueezerMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveSqueezerMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveSqueezerMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveSqueezerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSqueezerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSqueezerMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveSqueezerMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveSqueezerMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveSqueezerMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveSqueezerMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveSqueezerMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveSqueezerMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveSqueezerMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveSqueezerMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveSqueezerMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveSqueezerMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveSqueezerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSqueezerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSqueezerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSqueezerMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveSqueezerMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveSqueezerMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveSqueezerMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveSqueezerMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveSqueezerMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveSqueezerMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveSqueezerMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveSqueezerMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveSqueezerMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveSqueezerMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveSqueezerMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveSqueezerMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveSqueezerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSqueezerMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveSqueezerMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveSqueezerMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveSqueezerMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveSqueezerMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveSqueezerMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveSqueezerMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveSqueezerMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveSqueezerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSqueezerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSqueezerMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveSqueezerMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveSqueezerMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveSqueezerMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveSqueezerMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveSqueezerMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveSqueezerMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveSqueezerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSqueezerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSqueezerMethod "remove" o = SqueezerRemoveMethodInfo
ResolveSqueezerMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveSqueezerMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveSqueezerMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveSqueezerMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveSqueezerMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveSqueezerMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveSqueezerMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveSqueezerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSqueezerMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveSqueezerMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveSqueezerMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveSqueezerMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveSqueezerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSqueezerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSqueezerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSqueezerMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveSqueezerMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveSqueezerMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveSqueezerMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveSqueezerMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveSqueezerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSqueezerMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveSqueezerMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveSqueezerMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveSqueezerMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveSqueezerMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveSqueezerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSqueezerMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveSqueezerMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveSqueezerMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveSqueezerMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveSqueezerMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveSqueezerMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveSqueezerMethod "getAllowNone" o = SqueezerGetAllowNoneMethodInfo
ResolveSqueezerMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveSqueezerMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveSqueezerMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveSqueezerMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveSqueezerMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveSqueezerMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveSqueezerMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveSqueezerMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveSqueezerMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveSqueezerMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveSqueezerMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveSqueezerMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveSqueezerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSqueezerMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveSqueezerMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveSqueezerMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveSqueezerMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveSqueezerMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveSqueezerMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveSqueezerMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveSqueezerMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveSqueezerMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveSqueezerMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveSqueezerMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveSqueezerMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveSqueezerMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveSqueezerMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveSqueezerMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveSqueezerMethod "getHomogeneous" o = SqueezerGetHomogeneousMethodInfo
ResolveSqueezerMethod "getInterpolateSize" o = SqueezerGetInterpolateSizeMethodInfo
ResolveSqueezerMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveSqueezerMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveSqueezerMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveSqueezerMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveSqueezerMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveSqueezerMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveSqueezerMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveSqueezerMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveSqueezerMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveSqueezerMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveSqueezerMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveSqueezerMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveSqueezerMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveSqueezerMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveSqueezerMethod "getPage" o = SqueezerGetPageMethodInfo
ResolveSqueezerMethod "getPages" o = SqueezerGetPagesMethodInfo
ResolveSqueezerMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveSqueezerMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveSqueezerMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveSqueezerMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveSqueezerMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveSqueezerMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveSqueezerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSqueezerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSqueezerMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveSqueezerMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveSqueezerMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveSqueezerMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveSqueezerMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveSqueezerMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveSqueezerMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveSqueezerMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveSqueezerMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveSqueezerMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveSqueezerMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveSqueezerMethod "getSwitchThresholdPolicy" o = SqueezerGetSwitchThresholdPolicyMethodInfo
ResolveSqueezerMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveSqueezerMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveSqueezerMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveSqueezerMethod "getTransitionDuration" o = SqueezerGetTransitionDurationMethodInfo
ResolveSqueezerMethod "getTransitionRunning" o = SqueezerGetTransitionRunningMethodInfo
ResolveSqueezerMethod "getTransitionType" o = SqueezerGetTransitionTypeMethodInfo
ResolveSqueezerMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveSqueezerMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveSqueezerMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveSqueezerMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveSqueezerMethod "getVisibleChild" o = SqueezerGetVisibleChildMethodInfo
ResolveSqueezerMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveSqueezerMethod "getXalign" o = SqueezerGetXalignMethodInfo
ResolveSqueezerMethod "getYalign" o = SqueezerGetYalignMethodInfo
ResolveSqueezerMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveSqueezerMethod "setAllowNone" o = SqueezerSetAllowNoneMethodInfo
ResolveSqueezerMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveSqueezerMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveSqueezerMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveSqueezerMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveSqueezerMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveSqueezerMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveSqueezerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSqueezerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSqueezerMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveSqueezerMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveSqueezerMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveSqueezerMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveSqueezerMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveSqueezerMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveSqueezerMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveSqueezerMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveSqueezerMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveSqueezerMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveSqueezerMethod "setHomogeneous" o = SqueezerSetHomogeneousMethodInfo
ResolveSqueezerMethod "setInterpolateSize" o = SqueezerSetInterpolateSizeMethodInfo
ResolveSqueezerMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveSqueezerMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveSqueezerMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveSqueezerMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveSqueezerMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveSqueezerMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveSqueezerMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveSqueezerMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveSqueezerMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveSqueezerMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveSqueezerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSqueezerMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveSqueezerMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveSqueezerMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveSqueezerMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveSqueezerMethod "setSwitchThresholdPolicy" o = SqueezerSetSwitchThresholdPolicyMethodInfo
ResolveSqueezerMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveSqueezerMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveSqueezerMethod "setTransitionDuration" o = SqueezerSetTransitionDurationMethodInfo
ResolveSqueezerMethod "setTransitionType" o = SqueezerSetTransitionTypeMethodInfo
ResolveSqueezerMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveSqueezerMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveSqueezerMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveSqueezerMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveSqueezerMethod "setXalign" o = SqueezerSetXalignMethodInfo
ResolveSqueezerMethod "setYalign" o = SqueezerSetYalignMethodInfo
ResolveSqueezerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSqueezerMethod t Squeezer, O.OverloadedMethod info Squeezer p) => OL.IsLabel t (Squeezer -> 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 ~ ResolveSqueezerMethod t Squeezer, O.OverloadedMethod info Squeezer p, R.HasField t Squeezer p) => R.HasField t Squeezer p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSqueezerMethod t Squeezer, O.OverloadedMethodInfo info Squeezer) => OL.IsLabel t (O.MethodProxy info Squeezer) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSqueezerAllowNone :: (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerAllowNone :: forall (m :: * -> *) o. (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerAllowNone o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"allow-none"
setSqueezerAllowNone :: (MonadIO m, IsSqueezer o) => o -> Bool -> m ()
setSqueezerAllowNone :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> Bool -> m ()
setSqueezerAllowNone o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-none" Bool
val
constructSqueezerAllowNone :: (IsSqueezer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSqueezerAllowNone :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSqueezerAllowNone Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-none" Bool
val
#if defined(ENABLE_OVERLOADING)
data SqueezerAllowNonePropertyInfo
instance AttrInfo SqueezerAllowNonePropertyInfo where
type AttrAllowedOps SqueezerAllowNonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerAllowNonePropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerAllowNonePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SqueezerAllowNonePropertyInfo = (~) Bool
type AttrTransferType SqueezerAllowNonePropertyInfo = Bool
type AttrGetType SqueezerAllowNonePropertyInfo = Bool
type AttrLabel SqueezerAllowNonePropertyInfo = "allow-none"
type AttrOrigin SqueezerAllowNonePropertyInfo = Squeezer
attrGet = getSqueezerAllowNone
attrSet = setSqueezerAllowNone
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerAllowNone
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.allowNone"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:allowNone"
})
#endif
getSqueezerHomogeneous :: (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerHomogeneous o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"homogeneous"
setSqueezerHomogeneous :: (MonadIO m, IsSqueezer o) => o -> Bool -> m ()
setSqueezerHomogeneous :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> Bool -> m ()
setSqueezerHomogeneous o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"homogeneous" Bool
val
constructSqueezerHomogeneous :: (IsSqueezer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSqueezerHomogeneous :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSqueezerHomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data SqueezerHomogeneousPropertyInfo
instance AttrInfo SqueezerHomogeneousPropertyInfo where
type AttrAllowedOps SqueezerHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerHomogeneousPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SqueezerHomogeneousPropertyInfo = (~) Bool
type AttrTransferType SqueezerHomogeneousPropertyInfo = Bool
type AttrGetType SqueezerHomogeneousPropertyInfo = Bool
type AttrLabel SqueezerHomogeneousPropertyInfo = "homogeneous"
type AttrOrigin SqueezerHomogeneousPropertyInfo = Squeezer
attrGet = getSqueezerHomogeneous
attrSet = setSqueezerHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerHomogeneous
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.homogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:homogeneous"
})
#endif
getSqueezerInterpolateSize :: (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerInterpolateSize :: forall (m :: * -> *) o. (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerInterpolateSize o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"interpolate-size"
setSqueezerInterpolateSize :: (MonadIO m, IsSqueezer o) => o -> Bool -> m ()
setSqueezerInterpolateSize :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> Bool -> m ()
setSqueezerInterpolateSize o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"interpolate-size" Bool
val
constructSqueezerInterpolateSize :: (IsSqueezer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSqueezerInterpolateSize :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSqueezerInterpolateSize Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"interpolate-size" Bool
val
#if defined(ENABLE_OVERLOADING)
data SqueezerInterpolateSizePropertyInfo
instance AttrInfo SqueezerInterpolateSizePropertyInfo where
type AttrAllowedOps SqueezerInterpolateSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerInterpolateSizePropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerInterpolateSizePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SqueezerInterpolateSizePropertyInfo = (~) Bool
type AttrTransferType SqueezerInterpolateSizePropertyInfo = Bool
type AttrGetType SqueezerInterpolateSizePropertyInfo = Bool
type AttrLabel SqueezerInterpolateSizePropertyInfo = "interpolate-size"
type AttrOrigin SqueezerInterpolateSizePropertyInfo = Squeezer
attrGet = getSqueezerInterpolateSize
attrSet = setSqueezerInterpolateSize
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerInterpolateSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.interpolateSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:interpolateSize"
})
#endif
getSqueezerPages :: (MonadIO m, IsSqueezer o) => o -> m (Maybe Gtk.SelectionModel.SelectionModel)
getSqueezerPages :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> m (Maybe SelectionModel)
getSqueezerPages o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a. IO a -> m a
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 SqueezerPagesPropertyInfo
instance AttrInfo SqueezerPagesPropertyInfo where
type AttrAllowedOps SqueezerPagesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SqueezerPagesPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint SqueezerPagesPropertyInfo = (~) ()
type AttrTransferType SqueezerPagesPropertyInfo = ()
type AttrGetType SqueezerPagesPropertyInfo = (Maybe Gtk.SelectionModel.SelectionModel)
type AttrLabel SqueezerPagesPropertyInfo = "pages"
type AttrOrigin SqueezerPagesPropertyInfo = Squeezer
attrGet = getSqueezerPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.pages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:pages"
})
#endif
getSqueezerSwitchThresholdPolicy :: (MonadIO m, IsSqueezer o) => o -> m Adw.Enums.FoldThresholdPolicy
getSqueezerSwitchThresholdPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> m FoldThresholdPolicy
getSqueezerSwitchThresholdPolicy o
obj = IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FoldThresholdPolicy -> m FoldThresholdPolicy)
-> IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a b. (a -> b) -> a -> b
$ o -> String -> IO FoldThresholdPolicy
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"switch-threshold-policy"
setSqueezerSwitchThresholdPolicy :: (MonadIO m, IsSqueezer o) => o -> Adw.Enums.FoldThresholdPolicy -> m ()
setSqueezerSwitchThresholdPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> FoldThresholdPolicy -> m ()
setSqueezerSwitchThresholdPolicy o
obj FoldThresholdPolicy
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> FoldThresholdPolicy -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"switch-threshold-policy" FoldThresholdPolicy
val
constructSqueezerSwitchThresholdPolicy :: (IsSqueezer o, MIO.MonadIO m) => Adw.Enums.FoldThresholdPolicy -> m (GValueConstruct o)
constructSqueezerSwitchThresholdPolicy :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
FoldThresholdPolicy -> m (GValueConstruct o)
constructSqueezerSwitchThresholdPolicy FoldThresholdPolicy
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> FoldThresholdPolicy -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"switch-threshold-policy" FoldThresholdPolicy
val
#if defined(ENABLE_OVERLOADING)
data SqueezerSwitchThresholdPolicyPropertyInfo
instance AttrInfo SqueezerSwitchThresholdPolicyPropertyInfo where
type AttrAllowedOps SqueezerSwitchThresholdPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerSwitchThresholdPolicyPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerSwitchThresholdPolicyPropertyInfo = (~) Adw.Enums.FoldThresholdPolicy
type AttrTransferTypeConstraint SqueezerSwitchThresholdPolicyPropertyInfo = (~) Adw.Enums.FoldThresholdPolicy
type AttrTransferType SqueezerSwitchThresholdPolicyPropertyInfo = Adw.Enums.FoldThresholdPolicy
type AttrGetType SqueezerSwitchThresholdPolicyPropertyInfo = Adw.Enums.FoldThresholdPolicy
type AttrLabel SqueezerSwitchThresholdPolicyPropertyInfo = "switch-threshold-policy"
type AttrOrigin SqueezerSwitchThresholdPolicyPropertyInfo = Squeezer
attrGet = getSqueezerSwitchThresholdPolicy
attrSet = setSqueezerSwitchThresholdPolicy
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerSwitchThresholdPolicy
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.switchThresholdPolicy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:switchThresholdPolicy"
})
#endif
getSqueezerTransitionDuration :: (MonadIO m, IsSqueezer o) => o -> m Word32
getSqueezerTransitionDuration :: forall (m :: * -> *) o. (MonadIO m, IsSqueezer o) => o -> m Word32
getSqueezerTransitionDuration o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"transition-duration"
setSqueezerTransitionDuration :: (MonadIO m, IsSqueezer o) => o -> Word32 -> m ()
setSqueezerTransitionDuration :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> Word32 -> m ()
setSqueezerTransitionDuration o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"transition-duration" Word32
val
constructSqueezerTransitionDuration :: (IsSqueezer o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSqueezerTransitionDuration :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSqueezerTransitionDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"transition-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data SqueezerTransitionDurationPropertyInfo
instance AttrInfo SqueezerTransitionDurationPropertyInfo where
type AttrAllowedOps SqueezerTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerTransitionDurationPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerTransitionDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SqueezerTransitionDurationPropertyInfo = (~) Word32
type AttrTransferType SqueezerTransitionDurationPropertyInfo = Word32
type AttrGetType SqueezerTransitionDurationPropertyInfo = Word32
type AttrLabel SqueezerTransitionDurationPropertyInfo = "transition-duration"
type AttrOrigin SqueezerTransitionDurationPropertyInfo = Squeezer
attrGet = getSqueezerTransitionDuration
attrSet = setSqueezerTransitionDuration
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerTransitionDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.transitionDuration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:transitionDuration"
})
#endif
getSqueezerTransitionRunning :: (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerTransitionRunning :: forall (m :: * -> *) o. (MonadIO m, IsSqueezer o) => o -> m Bool
getSqueezerTransitionRunning o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"transition-running"
#if defined(ENABLE_OVERLOADING)
data SqueezerTransitionRunningPropertyInfo
instance AttrInfo SqueezerTransitionRunningPropertyInfo where
type AttrAllowedOps SqueezerTransitionRunningPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint SqueezerTransitionRunningPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerTransitionRunningPropertyInfo = (~) ()
type AttrTransferTypeConstraint SqueezerTransitionRunningPropertyInfo = (~) ()
type AttrTransferType SqueezerTransitionRunningPropertyInfo = ()
type AttrGetType SqueezerTransitionRunningPropertyInfo = Bool
type AttrLabel SqueezerTransitionRunningPropertyInfo = "transition-running"
type AttrOrigin SqueezerTransitionRunningPropertyInfo = Squeezer
attrGet = getSqueezerTransitionRunning
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.transitionRunning"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:transitionRunning"
})
#endif
getSqueezerTransitionType :: (MonadIO m, IsSqueezer o) => o -> m Adw.Enums.SqueezerTransitionType
getSqueezerTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> m SqueezerTransitionType
getSqueezerTransitionType o
obj = IO SqueezerTransitionType -> m SqueezerTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SqueezerTransitionType -> m SqueezerTransitionType)
-> IO SqueezerTransitionType -> m SqueezerTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SqueezerTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"transition-type"
setSqueezerTransitionType :: (MonadIO m, IsSqueezer o) => o -> Adw.Enums.SqueezerTransitionType -> m ()
setSqueezerTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> SqueezerTransitionType -> m ()
setSqueezerTransitionType o
obj SqueezerTransitionType
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> SqueezerTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"transition-type" SqueezerTransitionType
val
constructSqueezerTransitionType :: (IsSqueezer o, MIO.MonadIO m) => Adw.Enums.SqueezerTransitionType -> m (GValueConstruct o)
constructSqueezerTransitionType :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
SqueezerTransitionType -> m (GValueConstruct o)
constructSqueezerTransitionType SqueezerTransitionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SqueezerTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"transition-type" SqueezerTransitionType
val
#if defined(ENABLE_OVERLOADING)
data SqueezerTransitionTypePropertyInfo
instance AttrInfo SqueezerTransitionTypePropertyInfo where
type AttrAllowedOps SqueezerTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerTransitionTypePropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerTransitionTypePropertyInfo = (~) Adw.Enums.SqueezerTransitionType
type AttrTransferTypeConstraint SqueezerTransitionTypePropertyInfo = (~) Adw.Enums.SqueezerTransitionType
type AttrTransferType SqueezerTransitionTypePropertyInfo = Adw.Enums.SqueezerTransitionType
type AttrGetType SqueezerTransitionTypePropertyInfo = Adw.Enums.SqueezerTransitionType
type AttrLabel SqueezerTransitionTypePropertyInfo = "transition-type"
type AttrOrigin SqueezerTransitionTypePropertyInfo = Squeezer
attrGet = getSqueezerTransitionType
attrSet = setSqueezerTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerTransitionType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.transitionType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:transitionType"
})
#endif
getSqueezerVisibleChild :: (MonadIO m, IsSqueezer o) => o -> m (Maybe Gtk.Widget.Widget)
getSqueezerVisibleChild :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> m (Maybe Widget)
getSqueezerVisibleChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"visible-child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
#if defined(ENABLE_OVERLOADING)
data SqueezerVisibleChildPropertyInfo
instance AttrInfo SqueezerVisibleChildPropertyInfo where
type AttrAllowedOps SqueezerVisibleChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SqueezerVisibleChildPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerVisibleChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint SqueezerVisibleChildPropertyInfo = (~) ()
type AttrTransferType SqueezerVisibleChildPropertyInfo = ()
type AttrGetType SqueezerVisibleChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel SqueezerVisibleChildPropertyInfo = "visible-child"
type AttrOrigin SqueezerVisibleChildPropertyInfo = Squeezer
attrGet = getSqueezerVisibleChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.visibleChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:visibleChild"
})
#endif
getSqueezerXalign :: (MonadIO m, IsSqueezer o) => o -> m Float
getSqueezerXalign :: forall (m :: * -> *) o. (MonadIO m, IsSqueezer o) => o -> m Float
getSqueezerXalign o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"xalign"
setSqueezerXalign :: (MonadIO m, IsSqueezer o) => o -> Float -> m ()
setSqueezerXalign :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> Float -> m ()
setSqueezerXalign o
obj Float
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj String
"xalign" Float
val
constructSqueezerXalign :: (IsSqueezer o, MIO.MonadIO m) => Float -> m (GValueConstruct o)
constructSqueezerXalign :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
Float -> m (GValueConstruct o)
constructSqueezerXalign Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat String
"xalign" Float
val
#if defined(ENABLE_OVERLOADING)
data SqueezerXalignPropertyInfo
instance AttrInfo SqueezerXalignPropertyInfo where
type AttrAllowedOps SqueezerXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerXalignPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerXalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint SqueezerXalignPropertyInfo = (~) Float
type AttrTransferType SqueezerXalignPropertyInfo = Float
type AttrGetType SqueezerXalignPropertyInfo = Float
type AttrLabel SqueezerXalignPropertyInfo = "xalign"
type AttrOrigin SqueezerXalignPropertyInfo = Squeezer
attrGet = getSqueezerXalign
attrSet = setSqueezerXalign
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerXalign
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.xalign"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:xalign"
})
#endif
getSqueezerYalign :: (MonadIO m, IsSqueezer o) => o -> m Float
getSqueezerYalign :: forall (m :: * -> *) o. (MonadIO m, IsSqueezer o) => o -> m Float
getSqueezerYalign o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"yalign"
setSqueezerYalign :: (MonadIO m, IsSqueezer o) => o -> Float -> m ()
setSqueezerYalign :: forall (m :: * -> *) o.
(MonadIO m, IsSqueezer o) =>
o -> Float -> m ()
setSqueezerYalign o
obj Float
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj String
"yalign" Float
val
constructSqueezerYalign :: (IsSqueezer o, MIO.MonadIO m) => Float -> m (GValueConstruct o)
constructSqueezerYalign :: forall o (m :: * -> *).
(IsSqueezer o, MonadIO m) =>
Float -> m (GValueConstruct o)
constructSqueezerYalign Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat String
"yalign" Float
val
#if defined(ENABLE_OVERLOADING)
data SqueezerYalignPropertyInfo
instance AttrInfo SqueezerYalignPropertyInfo where
type AttrAllowedOps SqueezerYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SqueezerYalignPropertyInfo = IsSqueezer
type AttrSetTypeConstraint SqueezerYalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint SqueezerYalignPropertyInfo = (~) Float
type AttrTransferType SqueezerYalignPropertyInfo = Float
type AttrGetType SqueezerYalignPropertyInfo = Float
type AttrLabel SqueezerYalignPropertyInfo = "yalign"
type AttrOrigin SqueezerYalignPropertyInfo = Squeezer
attrGet = getSqueezerYalign
attrSet = setSqueezerYalign
attrTransfer _ v = do
return v
attrConstruct = constructSqueezerYalign
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.yalign"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#g:attr:yalign"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Squeezer
type instance O.AttributeList Squeezer = SqueezerAttributeList
type SqueezerAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("allowNone", SqueezerAllowNonePropertyInfo), '("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), '("homogeneous", SqueezerHomogeneousPropertyInfo), '("interpolateSize", SqueezerInterpolateSizePropertyInfo), '("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), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("pages", SqueezerPagesPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("switchThresholdPolicy", SqueezerSwitchThresholdPolicyPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transitionDuration", SqueezerTransitionDurationPropertyInfo), '("transitionRunning", SqueezerTransitionRunningPropertyInfo), '("transitionType", SqueezerTransitionTypePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("visibleChild", SqueezerVisibleChildPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("xalign", SqueezerXalignPropertyInfo), '("yalign", SqueezerYalignPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
squeezerAllowNone :: AttrLabelProxy "allowNone"
squeezerAllowNone = AttrLabelProxy
squeezerHomogeneous :: AttrLabelProxy "homogeneous"
squeezerHomogeneous = AttrLabelProxy
squeezerInterpolateSize :: AttrLabelProxy "interpolateSize"
squeezerInterpolateSize = AttrLabelProxy
squeezerPages :: AttrLabelProxy "pages"
squeezerPages = AttrLabelProxy
squeezerSwitchThresholdPolicy :: AttrLabelProxy "switchThresholdPolicy"
squeezerSwitchThresholdPolicy = AttrLabelProxy
squeezerTransitionDuration :: AttrLabelProxy "transitionDuration"
squeezerTransitionDuration = AttrLabelProxy
squeezerTransitionRunning :: AttrLabelProxy "transitionRunning"
squeezerTransitionRunning = AttrLabelProxy
squeezerTransitionType :: AttrLabelProxy "transitionType"
squeezerTransitionType = AttrLabelProxy
squeezerVisibleChild :: AttrLabelProxy "visibleChild"
squeezerVisibleChild = AttrLabelProxy
squeezerXalign :: AttrLabelProxy "xalign"
squeezerXalign = AttrLabelProxy
squeezerYalign :: AttrLabelProxy "yalign"
squeezerYalign = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Squeezer = SqueezerSignalList
type SqueezerSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "adw_squeezer_new" adw_squeezer_new ::
IO (Ptr Squeezer)
squeezerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Squeezer
squeezerNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Squeezer
squeezerNew = IO Squeezer -> m Squeezer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Squeezer -> m Squeezer) -> IO Squeezer -> m Squeezer
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
result <- IO (Ptr Squeezer)
adw_squeezer_new
Text -> Ptr Squeezer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"squeezerNew" Ptr Squeezer
result
Squeezer
result' <- ((ManagedPtr Squeezer -> Squeezer) -> Ptr Squeezer -> IO Squeezer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Squeezer -> Squeezer
Squeezer) Ptr Squeezer
result
Squeezer -> IO Squeezer
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Squeezer
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_squeezer_add" adw_squeezer_add ::
Ptr Squeezer ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.SqueezerPage.SqueezerPage)
squeezerAdd ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.SqueezerPage.SqueezerPage
squeezerAdd :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSqueezer a, IsWidget b) =>
a -> b -> m SqueezerPage
squeezerAdd a
self b
child = IO SqueezerPage -> m SqueezerPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SqueezerPage -> m SqueezerPage)
-> IO SqueezerPage -> m SqueezerPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr SqueezerPage
result <- Ptr Squeezer -> Ptr Widget -> IO (Ptr SqueezerPage)
adw_squeezer_add Ptr Squeezer
self' Ptr Widget
child'
Text -> Ptr SqueezerPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"squeezerAdd" Ptr SqueezerPage
result
SqueezerPage
result' <- ((ManagedPtr SqueezerPage -> SqueezerPage)
-> Ptr SqueezerPage -> IO SqueezerPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SqueezerPage -> SqueezerPage
Adw.SqueezerPage.SqueezerPage) Ptr SqueezerPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
SqueezerPage -> IO SqueezerPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SqueezerPage
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerAddMethodInfo
instance (signature ~ (b -> m Adw.SqueezerPage.SqueezerPage), MonadIO m, IsSqueezer a, Gtk.Widget.IsWidget b) => O.OverloadedMethod SqueezerAddMethodInfo a signature where
overloadedMethod = squeezerAdd
instance O.OverloadedMethodInfo SqueezerAddMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerAdd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerAdd"
})
#endif
foreign import ccall "adw_squeezer_get_allow_none" adw_squeezer_get_allow_none ::
Ptr Squeezer ->
IO CInt
squeezerGetAllowNone ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Bool
squeezerGetAllowNone :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m Bool
squeezerGetAllowNone a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Squeezer -> IO CInt
adw_squeezer_get_allow_none Ptr Squeezer
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetAllowNoneMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetAllowNoneMethodInfo a signature where
overloadedMethod = squeezerGetAllowNone
instance O.OverloadedMethodInfo SqueezerGetAllowNoneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetAllowNone",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetAllowNone"
})
#endif
foreign import ccall "adw_squeezer_get_homogeneous" adw_squeezer_get_homogeneous ::
Ptr Squeezer ->
IO CInt
squeezerGetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Bool
squeezerGetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m Bool
squeezerGetHomogeneous a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Squeezer -> IO CInt
adw_squeezer_get_homogeneous Ptr Squeezer
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetHomogeneousMethodInfo a signature where
overloadedMethod = squeezerGetHomogeneous
instance O.OverloadedMethodInfo SqueezerGetHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetHomogeneous"
})
#endif
foreign import ccall "adw_squeezer_get_interpolate_size" adw_squeezer_get_interpolate_size ::
Ptr Squeezer ->
IO CInt
squeezerGetInterpolateSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Bool
squeezerGetInterpolateSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m Bool
squeezerGetInterpolateSize a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Squeezer -> IO CInt
adw_squeezer_get_interpolate_size Ptr Squeezer
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetInterpolateSizeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetInterpolateSizeMethodInfo a signature where
overloadedMethod = squeezerGetInterpolateSize
instance O.OverloadedMethodInfo SqueezerGetInterpolateSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetInterpolateSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetInterpolateSize"
})
#endif
foreign import ccall "adw_squeezer_get_page" adw_squeezer_get_page ::
Ptr Squeezer ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.SqueezerPage.SqueezerPage)
squeezerGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.SqueezerPage.SqueezerPage
squeezerGetPage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSqueezer a, IsWidget b) =>
a -> b -> m SqueezerPage
squeezerGetPage a
self b
child = IO SqueezerPage -> m SqueezerPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SqueezerPage -> m SqueezerPage)
-> IO SqueezerPage -> m SqueezerPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr SqueezerPage
result <- Ptr Squeezer -> Ptr Widget -> IO (Ptr SqueezerPage)
adw_squeezer_get_page Ptr Squeezer
self' Ptr Widget
child'
Text -> Ptr SqueezerPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"squeezerGetPage" Ptr SqueezerPage
result
SqueezerPage
result' <- ((ManagedPtr SqueezerPage -> SqueezerPage)
-> Ptr SqueezerPage -> IO SqueezerPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SqueezerPage -> SqueezerPage
Adw.SqueezerPage.SqueezerPage) Ptr SqueezerPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
SqueezerPage -> IO SqueezerPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SqueezerPage
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetPageMethodInfo
instance (signature ~ (b -> m Adw.SqueezerPage.SqueezerPage), MonadIO m, IsSqueezer a, Gtk.Widget.IsWidget b) => O.OverloadedMethod SqueezerGetPageMethodInfo a signature where
overloadedMethod = squeezerGetPage
instance O.OverloadedMethodInfo SqueezerGetPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetPage"
})
#endif
foreign import ccall "adw_squeezer_get_pages" adw_squeezer_get_pages ::
Ptr Squeezer ->
IO (Ptr Gtk.SelectionModel.SelectionModel)
squeezerGetPages ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Gtk.SelectionModel.SelectionModel
squeezerGetPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m SelectionModel
squeezerGetPages a
self = IO SelectionModel -> m SelectionModel
forall a. IO a -> m a
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 Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
result <- Ptr Squeezer -> IO (Ptr SelectionModel)
adw_squeezer_get_pages Ptr Squeezer
self'
Text -> Ptr SelectionModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"squeezerGetPages" 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
self
SelectionModel -> IO SelectionModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionModel
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetPagesMethodInfo
instance (signature ~ (m Gtk.SelectionModel.SelectionModel), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetPagesMethodInfo a signature where
overloadedMethod = squeezerGetPages
instance O.OverloadedMethodInfo SqueezerGetPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetPages"
})
#endif
foreign import ccall "adw_squeezer_get_switch_threshold_policy" adw_squeezer_get_switch_threshold_policy ::
Ptr Squeezer ->
IO CUInt
squeezerGetSwitchThresholdPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Adw.Enums.FoldThresholdPolicy
squeezerGetSwitchThresholdPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m FoldThresholdPolicy
squeezerGetSwitchThresholdPolicy a
self = IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FoldThresholdPolicy -> m FoldThresholdPolicy)
-> IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Squeezer -> IO CUInt
adw_squeezer_get_switch_threshold_policy Ptr Squeezer
self'
let result' :: FoldThresholdPolicy
result' = (Int -> FoldThresholdPolicy
forall a. Enum a => Int -> a
toEnum (Int -> FoldThresholdPolicy)
-> (CUInt -> Int) -> CUInt -> FoldThresholdPolicy
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
self
FoldThresholdPolicy -> IO FoldThresholdPolicy
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FoldThresholdPolicy
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetSwitchThresholdPolicyMethodInfo
instance (signature ~ (m Adw.Enums.FoldThresholdPolicy), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetSwitchThresholdPolicyMethodInfo a signature where
overloadedMethod = squeezerGetSwitchThresholdPolicy
instance O.OverloadedMethodInfo SqueezerGetSwitchThresholdPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetSwitchThresholdPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetSwitchThresholdPolicy"
})
#endif
foreign import ccall "adw_squeezer_get_transition_duration" adw_squeezer_get_transition_duration ::
Ptr Squeezer ->
IO Word32
squeezerGetTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Word32
squeezerGetTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m Word32
squeezerGetTransitionDuration a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Squeezer -> IO Word32
adw_squeezer_get_transition_duration Ptr Squeezer
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SqueezerGetTransitionDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetTransitionDurationMethodInfo a signature where
overloadedMethod = squeezerGetTransitionDuration
instance O.OverloadedMethodInfo SqueezerGetTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetTransitionDuration"
})
#endif
foreign import ccall "adw_squeezer_get_transition_running" adw_squeezer_get_transition_running ::
Ptr Squeezer ->
IO CInt
squeezerGetTransitionRunning ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Bool
squeezerGetTransitionRunning :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m Bool
squeezerGetTransitionRunning a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Squeezer -> IO CInt
adw_squeezer_get_transition_running Ptr Squeezer
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetTransitionRunningMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetTransitionRunningMethodInfo a signature where
overloadedMethod = squeezerGetTransitionRunning
instance O.OverloadedMethodInfo SqueezerGetTransitionRunningMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetTransitionRunning",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetTransitionRunning"
})
#endif
foreign import ccall "adw_squeezer_get_transition_type" adw_squeezer_get_transition_type ::
Ptr Squeezer ->
IO CUInt
squeezerGetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Adw.Enums.SqueezerTransitionType
squeezerGetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m SqueezerTransitionType
squeezerGetTransitionType a
self = IO SqueezerTransitionType -> m SqueezerTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SqueezerTransitionType -> m SqueezerTransitionType)
-> IO SqueezerTransitionType -> m SqueezerTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Squeezer -> IO CUInt
adw_squeezer_get_transition_type Ptr Squeezer
self'
let result' :: SqueezerTransitionType
result' = (Int -> SqueezerTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> SqueezerTransitionType)
-> (CUInt -> Int) -> CUInt -> SqueezerTransitionType
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
self
SqueezerTransitionType -> IO SqueezerTransitionType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SqueezerTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetTransitionTypeMethodInfo
instance (signature ~ (m Adw.Enums.SqueezerTransitionType), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetTransitionTypeMethodInfo a signature where
overloadedMethod = squeezerGetTransitionType
instance O.OverloadedMethodInfo SqueezerGetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetTransitionType"
})
#endif
foreign import ccall "adw_squeezer_get_visible_child" adw_squeezer_get_visible_child ::
Ptr Squeezer ->
IO (Ptr Gtk.Widget.Widget)
squeezerGetVisibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m (Maybe Gtk.Widget.Widget)
squeezerGetVisibleChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m (Maybe Widget)
squeezerGetVisibleChild a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Squeezer -> IO (Ptr Widget)
adw_squeezer_get_visible_child Ptr Squeezer
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data SqueezerGetVisibleChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetVisibleChildMethodInfo a signature where
overloadedMethod = squeezerGetVisibleChild
instance O.OverloadedMethodInfo SqueezerGetVisibleChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetVisibleChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetVisibleChild"
})
#endif
foreign import ccall "adw_squeezer_get_xalign" adw_squeezer_get_xalign ::
Ptr Squeezer ->
IO CFloat
squeezerGetXalign ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Float
squeezerGetXalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m Float
squeezerGetXalign a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr Squeezer -> IO CFloat
adw_squeezer_get_xalign Ptr Squeezer
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetXalignMethodInfo
instance (signature ~ (m Float), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetXalignMethodInfo a signature where
overloadedMethod = squeezerGetXalign
instance O.OverloadedMethodInfo SqueezerGetXalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetXalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetXalign"
})
#endif
foreign import ccall "adw_squeezer_get_yalign" adw_squeezer_get_yalign ::
Ptr Squeezer ->
IO CFloat
squeezerGetYalign ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> m Float
squeezerGetYalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> m Float
squeezerGetYalign a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr Squeezer -> IO CFloat
adw_squeezer_get_yalign Ptr Squeezer
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data SqueezerGetYalignMethodInfo
instance (signature ~ (m Float), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerGetYalignMethodInfo a signature where
overloadedMethod = squeezerGetYalign
instance O.OverloadedMethodInfo SqueezerGetYalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerGetYalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerGetYalign"
})
#endif
foreign import ccall "adw_squeezer_remove" adw_squeezer_remove ::
Ptr Squeezer ->
Ptr Gtk.Widget.Widget ->
IO ()
squeezerRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
squeezerRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSqueezer a, IsWidget b) =>
a -> b -> m ()
squeezerRemove a
self b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Squeezer -> Ptr Widget -> IO ()
adw_squeezer_remove Ptr Squeezer
self' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSqueezer a, Gtk.Widget.IsWidget b) => O.OverloadedMethod SqueezerRemoveMethodInfo a signature where
overloadedMethod = squeezerRemove
instance O.OverloadedMethodInfo SqueezerRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerRemove"
})
#endif
foreign import ccall "adw_squeezer_set_allow_none" adw_squeezer_set_allow_none ::
Ptr Squeezer ->
CInt ->
IO ()
squeezerSetAllowNone ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Bool
-> m ()
squeezerSetAllowNone :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> Bool -> m ()
squeezerSetAllowNone a
self Bool
allowNone = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let allowNone' :: CInt
allowNone' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
allowNone
Ptr Squeezer -> CInt -> IO ()
adw_squeezer_set_allow_none Ptr Squeezer
self' CInt
allowNone'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetAllowNoneMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetAllowNoneMethodInfo a signature where
overloadedMethod = squeezerSetAllowNone
instance O.OverloadedMethodInfo SqueezerSetAllowNoneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetAllowNone",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetAllowNone"
})
#endif
foreign import ccall "adw_squeezer_set_homogeneous" adw_squeezer_set_homogeneous ::
Ptr Squeezer ->
CInt ->
IO ()
squeezerSetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Bool
-> m ()
squeezerSetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> Bool -> m ()
squeezerSetHomogeneous a
self Bool
homogeneous = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let homogeneous' :: CInt
homogeneous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
homogeneous
Ptr Squeezer -> CInt -> IO ()
adw_squeezer_set_homogeneous Ptr Squeezer
self' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetHomogeneousMethodInfo a signature where
overloadedMethod = squeezerSetHomogeneous
instance O.OverloadedMethodInfo SqueezerSetHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetHomogeneous"
})
#endif
foreign import ccall "adw_squeezer_set_interpolate_size" adw_squeezer_set_interpolate_size ::
Ptr Squeezer ->
CInt ->
IO ()
squeezerSetInterpolateSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Bool
-> m ()
squeezerSetInterpolateSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> Bool -> m ()
squeezerSetInterpolateSize a
self Bool
interpolateSize = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let interpolateSize' :: CInt
interpolateSize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
interpolateSize
Ptr Squeezer -> CInt -> IO ()
adw_squeezer_set_interpolate_size Ptr Squeezer
self' CInt
interpolateSize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetInterpolateSizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetInterpolateSizeMethodInfo a signature where
overloadedMethod = squeezerSetInterpolateSize
instance O.OverloadedMethodInfo SqueezerSetInterpolateSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetInterpolateSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetInterpolateSize"
})
#endif
foreign import ccall "adw_squeezer_set_switch_threshold_policy" adw_squeezer_set_switch_threshold_policy ::
Ptr Squeezer ->
CUInt ->
IO ()
squeezerSetSwitchThresholdPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Adw.Enums.FoldThresholdPolicy
-> m ()
squeezerSetSwitchThresholdPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> FoldThresholdPolicy -> m ()
squeezerSetSwitchThresholdPolicy a
self FoldThresholdPolicy
policy = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let policy' :: CUInt
policy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (FoldThresholdPolicy -> Int) -> FoldThresholdPolicy -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FoldThresholdPolicy -> Int
forall a. Enum a => a -> Int
fromEnum) FoldThresholdPolicy
policy
Ptr Squeezer -> CUInt -> IO ()
adw_squeezer_set_switch_threshold_policy Ptr Squeezer
self' CUInt
policy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetSwitchThresholdPolicyMethodInfo
instance (signature ~ (Adw.Enums.FoldThresholdPolicy -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetSwitchThresholdPolicyMethodInfo a signature where
overloadedMethod = squeezerSetSwitchThresholdPolicy
instance O.OverloadedMethodInfo SqueezerSetSwitchThresholdPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetSwitchThresholdPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetSwitchThresholdPolicy"
})
#endif
foreign import ccall "adw_squeezer_set_transition_duration" adw_squeezer_set_transition_duration ::
Ptr Squeezer ->
Word32 ->
IO ()
squeezerSetTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Word32
-> m ()
squeezerSetTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> Word32 -> m ()
squeezerSetTransitionDuration a
self Word32
duration = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Squeezer -> Word32 -> IO ()
adw_squeezer_set_transition_duration Ptr Squeezer
self' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetTransitionDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetTransitionDurationMethodInfo a signature where
overloadedMethod = squeezerSetTransitionDuration
instance O.OverloadedMethodInfo SqueezerSetTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetTransitionDuration"
})
#endif
foreign import ccall "adw_squeezer_set_transition_type" adw_squeezer_set_transition_type ::
Ptr Squeezer ->
CUInt ->
IO ()
squeezerSetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Adw.Enums.SqueezerTransitionType
-> m ()
squeezerSetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> SqueezerTransitionType -> m ()
squeezerSetTransitionType a
self SqueezerTransitionType
transition = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SqueezerTransitionType -> Int)
-> SqueezerTransitionType
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SqueezerTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) SqueezerTransitionType
transition
Ptr Squeezer -> CUInt -> IO ()
adw_squeezer_set_transition_type Ptr Squeezer
self' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetTransitionTypeMethodInfo
instance (signature ~ (Adw.Enums.SqueezerTransitionType -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetTransitionTypeMethodInfo a signature where
overloadedMethod = squeezerSetTransitionType
instance O.OverloadedMethodInfo SqueezerSetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetTransitionType"
})
#endif
foreign import ccall "adw_squeezer_set_xalign" adw_squeezer_set_xalign ::
Ptr Squeezer ->
CFloat ->
IO ()
squeezerSetXalign ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Float
-> m ()
squeezerSetXalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> Float -> m ()
squeezerSetXalign a
self Float
xalign = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
Ptr Squeezer -> CFloat -> IO ()
adw_squeezer_set_xalign Ptr Squeezer
self' CFloat
xalign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetXalignMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetXalignMethodInfo a signature where
overloadedMethod = squeezerSetXalign
instance O.OverloadedMethodInfo SqueezerSetXalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetXalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetXalign"
})
#endif
foreign import ccall "adw_squeezer_set_yalign" adw_squeezer_set_yalign ::
Ptr Squeezer ->
CFloat ->
IO ()
squeezerSetYalign ::
(B.CallStack.HasCallStack, MonadIO m, IsSqueezer a) =>
a
-> Float
-> m ()
squeezerSetYalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSqueezer a) =>
a -> Float -> m ()
squeezerSetYalign a
self Float
yalign = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Squeezer
self' <- a -> IO (Ptr Squeezer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let yalign' :: CFloat
yalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
yalign
Ptr Squeezer -> CFloat -> IO ()
adw_squeezer_set_yalign Ptr Squeezer
self' CFloat
yalign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SqueezerSetYalignMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m, IsSqueezer a) => O.OverloadedMethod SqueezerSetYalignMethodInfo a signature where
overloadedMethod = squeezerSetYalign
instance O.OverloadedMethodInfo SqueezerSetYalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Squeezer.squeezerSetYalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Squeezer.html#v:squeezerSetYalign"
})
#endif