{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Range
(
Range(..) ,
IsRange ,
toRange ,
#if defined(ENABLE_OVERLOADING)
ResolveRangeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RangeGetAdjustmentMethodInfo ,
#endif
rangeGetAdjustment ,
#if defined(ENABLE_OVERLOADING)
RangeGetFillLevelMethodInfo ,
#endif
rangeGetFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeGetFlippableMethodInfo ,
#endif
rangeGetFlippable ,
#if defined(ENABLE_OVERLOADING)
RangeGetInvertedMethodInfo ,
#endif
rangeGetInverted ,
#if defined(ENABLE_OVERLOADING)
RangeGetRangeRectMethodInfo ,
#endif
rangeGetRangeRect ,
#if defined(ENABLE_OVERLOADING)
RangeGetRestrictToFillLevelMethodInfo ,
#endif
rangeGetRestrictToFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeGetRoundDigitsMethodInfo ,
#endif
rangeGetRoundDigits ,
#if defined(ENABLE_OVERLOADING)
RangeGetShowFillLevelMethodInfo ,
#endif
rangeGetShowFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeGetSliderRangeMethodInfo ,
#endif
rangeGetSliderRange ,
#if defined(ENABLE_OVERLOADING)
RangeGetSliderSizeFixedMethodInfo ,
#endif
rangeGetSliderSizeFixed ,
#if defined(ENABLE_OVERLOADING)
RangeGetValueMethodInfo ,
#endif
rangeGetValue ,
#if defined(ENABLE_OVERLOADING)
RangeSetAdjustmentMethodInfo ,
#endif
rangeSetAdjustment ,
#if defined(ENABLE_OVERLOADING)
RangeSetFillLevelMethodInfo ,
#endif
rangeSetFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeSetFlippableMethodInfo ,
#endif
rangeSetFlippable ,
#if defined(ENABLE_OVERLOADING)
RangeSetIncrementsMethodInfo ,
#endif
rangeSetIncrements ,
#if defined(ENABLE_OVERLOADING)
RangeSetInvertedMethodInfo ,
#endif
rangeSetInverted ,
#if defined(ENABLE_OVERLOADING)
RangeSetRangeMethodInfo ,
#endif
rangeSetRange ,
#if defined(ENABLE_OVERLOADING)
RangeSetRestrictToFillLevelMethodInfo ,
#endif
rangeSetRestrictToFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeSetRoundDigitsMethodInfo ,
#endif
rangeSetRoundDigits ,
#if defined(ENABLE_OVERLOADING)
RangeSetShowFillLevelMethodInfo ,
#endif
rangeSetShowFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeSetSliderSizeFixedMethodInfo ,
#endif
rangeSetSliderSizeFixed ,
#if defined(ENABLE_OVERLOADING)
RangeSetValueMethodInfo ,
#endif
rangeSetValue ,
#if defined(ENABLE_OVERLOADING)
RangeAdjustmentPropertyInfo ,
#endif
constructRangeAdjustment ,
getRangeAdjustment ,
#if defined(ENABLE_OVERLOADING)
rangeAdjustment ,
#endif
setRangeAdjustment ,
#if defined(ENABLE_OVERLOADING)
RangeFillLevelPropertyInfo ,
#endif
constructRangeFillLevel ,
getRangeFillLevel ,
#if defined(ENABLE_OVERLOADING)
rangeFillLevel ,
#endif
setRangeFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeInvertedPropertyInfo ,
#endif
constructRangeInverted ,
getRangeInverted ,
#if defined(ENABLE_OVERLOADING)
rangeInverted ,
#endif
setRangeInverted ,
#if defined(ENABLE_OVERLOADING)
RangeRestrictToFillLevelPropertyInfo ,
#endif
constructRangeRestrictToFillLevel ,
getRangeRestrictToFillLevel ,
#if defined(ENABLE_OVERLOADING)
rangeRestrictToFillLevel ,
#endif
setRangeRestrictToFillLevel ,
#if defined(ENABLE_OVERLOADING)
RangeRoundDigitsPropertyInfo ,
#endif
constructRangeRoundDigits ,
getRangeRoundDigits ,
#if defined(ENABLE_OVERLOADING)
rangeRoundDigits ,
#endif
setRangeRoundDigits ,
#if defined(ENABLE_OVERLOADING)
RangeShowFillLevelPropertyInfo ,
#endif
constructRangeShowFillLevel ,
getRangeShowFillLevel ,
#if defined(ENABLE_OVERLOADING)
rangeShowFillLevel ,
#endif
setRangeShowFillLevel ,
RangeAdjustBoundsCallback ,
#if defined(ENABLE_OVERLOADING)
RangeAdjustBoundsSignalInfo ,
#endif
afterRangeAdjustBounds ,
onRangeAdjustBounds ,
RangeChangeValueCallback ,
#if defined(ENABLE_OVERLOADING)
RangeChangeValueSignalInfo ,
#endif
afterRangeChangeValue ,
onRangeChangeValue ,
RangeMoveSliderCallback ,
#if defined(ENABLE_OVERLOADING)
RangeMoveSliderSignalInfo ,
#endif
afterRangeMoveSlider ,
onRangeMoveSlider ,
RangeValueChangedCallback ,
#if defined(ENABLE_OVERLOADING)
RangeValueChangedSignalInfo ,
#endif
afterRangeValueChanged ,
onRangeValueChanged ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AccessibleRange as Gtk.AccessibleRange
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Range = Range (SP.ManagedPtr Range)
deriving (Range -> Range -> Bool
(Range -> Range -> Bool) -> (Range -> Range -> Bool) -> Eq Range
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Range -> Range -> Bool
== :: Range -> Range -> Bool
$c/= :: Range -> Range -> Bool
/= :: Range -> Range -> Bool
Eq)
instance SP.ManagedPtrNewtype Range where
toManagedPtr :: Range -> ManagedPtr Range
toManagedPtr (Range ManagedPtr Range
p) = ManagedPtr Range
p
foreign import ccall "gtk_range_get_type"
c_gtk_range_get_type :: IO B.Types.GType
instance B.Types.TypedObject Range where
glibType :: IO GType
glibType = IO GType
c_gtk_range_get_type
instance B.Types.GObject Range
class (SP.GObject o, O.IsDescendantOf Range o) => IsRange o
instance (SP.GObject o, O.IsDescendantOf Range o) => IsRange o
instance O.HasParentTypes Range
type instance O.ParentTypes Range = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.AccessibleRange.AccessibleRange, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toRange :: (MIO.MonadIO m, IsRange o) => o -> m Range
toRange :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Range
toRange = IO Range -> m Range
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Range -> m Range) -> (o -> IO Range) -> o -> m Range
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Range -> Range) -> o -> IO Range
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Range -> Range
Range
instance B.GValue.IsGValue (Maybe Range) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_range_get_type
gvalueSet_ :: Ptr GValue -> Maybe Range -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Range
P.Nothing = Ptr GValue -> Ptr Range -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Range
forall a. Ptr a
FP.nullPtr :: FP.Ptr Range)
gvalueSet_ Ptr GValue
gv (P.Just Range
obj) = Range -> (Ptr Range -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Range
obj (Ptr GValue -> Ptr Range -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Range)
gvalueGet_ Ptr GValue
gv = do
Ptr Range
ptr <- Ptr GValue -> IO (Ptr Range)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Range)
if Ptr Range
ptr Ptr Range -> Ptr Range -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Range
forall a. Ptr a
FP.nullPtr
then Range -> Maybe Range
forall a. a -> Maybe a
P.Just (Range -> Maybe Range) -> IO Range -> IO (Maybe Range)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Range -> Range) -> Ptr Range -> IO Range
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Range -> Range
Range Ptr Range
ptr
else Maybe Range -> IO (Maybe Range)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Range
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRangeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRangeMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveRangeMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveRangeMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveRangeMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveRangeMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveRangeMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveRangeMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveRangeMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveRangeMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveRangeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRangeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRangeMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveRangeMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveRangeMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveRangeMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveRangeMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveRangeMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveRangeMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveRangeMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveRangeMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveRangeMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveRangeMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveRangeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRangeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRangeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRangeMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveRangeMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveRangeMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveRangeMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveRangeMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveRangeMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveRangeMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveRangeMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveRangeMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveRangeMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveRangeMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveRangeMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveRangeMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveRangeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRangeMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveRangeMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveRangeMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveRangeMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveRangeMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveRangeMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveRangeMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveRangeMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveRangeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRangeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRangeMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveRangeMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveRangeMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveRangeMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveRangeMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveRangeMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveRangeMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveRangeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRangeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRangeMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveRangeMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveRangeMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveRangeMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveRangeMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveRangeMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveRangeMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveRangeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRangeMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveRangeMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveRangeMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveRangeMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveRangeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRangeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRangeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRangeMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveRangeMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveRangeMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveRangeMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveRangeMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveRangeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRangeMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveRangeMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveRangeMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveRangeMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveRangeMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveRangeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRangeMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveRangeMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveRangeMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo
ResolveRangeMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveRangeMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveRangeMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveRangeMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveRangeMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveRangeMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveRangeMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveRangeMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveRangeMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveRangeMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveRangeMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveRangeMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveRangeMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveRangeMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveRangeMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveRangeMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveRangeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRangeMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveRangeMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveRangeMethod "getFillLevel" o = RangeGetFillLevelMethodInfo
ResolveRangeMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveRangeMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveRangeMethod "getFlippable" o = RangeGetFlippableMethodInfo
ResolveRangeMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveRangeMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveRangeMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveRangeMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveRangeMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveRangeMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveRangeMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveRangeMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveRangeMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveRangeMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveRangeMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveRangeMethod "getInverted" o = RangeGetInvertedMethodInfo
ResolveRangeMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveRangeMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveRangeMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveRangeMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveRangeMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveRangeMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveRangeMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveRangeMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveRangeMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveRangeMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveRangeMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveRangeMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveRangeMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveRangeMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveRangeMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveRangeMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveRangeMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveRangeMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveRangeMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveRangeMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveRangeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRangeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRangeMethod "getRangeRect" o = RangeGetRangeRectMethodInfo
ResolveRangeMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveRangeMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveRangeMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveRangeMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo
ResolveRangeMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveRangeMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo
ResolveRangeMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveRangeMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveRangeMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveRangeMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo
ResolveRangeMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveRangeMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveRangeMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo
ResolveRangeMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo
ResolveRangeMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveRangeMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveRangeMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveRangeMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveRangeMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveRangeMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveRangeMethod "getValue" o = RangeGetValueMethodInfo
ResolveRangeMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveRangeMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveRangeMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveRangeMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveRangeMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveRangeMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo
ResolveRangeMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveRangeMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveRangeMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveRangeMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveRangeMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveRangeMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveRangeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRangeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRangeMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveRangeMethod "setFillLevel" o = RangeSetFillLevelMethodInfo
ResolveRangeMethod "setFlippable" o = RangeSetFlippableMethodInfo
ResolveRangeMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveRangeMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveRangeMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveRangeMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveRangeMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveRangeMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveRangeMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveRangeMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveRangeMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveRangeMethod "setIncrements" o = RangeSetIncrementsMethodInfo
ResolveRangeMethod "setInverted" o = RangeSetInvertedMethodInfo
ResolveRangeMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveRangeMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveRangeMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveRangeMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveRangeMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveRangeMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveRangeMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveRangeMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveRangeMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveRangeMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveRangeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRangeMethod "setRange" o = RangeSetRangeMethodInfo
ResolveRangeMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveRangeMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo
ResolveRangeMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo
ResolveRangeMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveRangeMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo
ResolveRangeMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveRangeMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo
ResolveRangeMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveRangeMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveRangeMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveRangeMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveRangeMethod "setValue" o = RangeSetValueMethodInfo
ResolveRangeMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveRangeMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveRangeMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveRangeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRangeMethod t Range, O.OverloadedMethod info Range p) => OL.IsLabel t (Range -> 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 ~ ResolveRangeMethod t Range, O.OverloadedMethod info Range p, R.HasField t Range p) => R.HasField t Range p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRangeMethod t Range, O.OverloadedMethodInfo info Range) => OL.IsLabel t (O.MethodProxy info Range) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type RangeAdjustBoundsCallback =
Double
-> IO ()
type C_RangeAdjustBoundsCallback =
Ptr Range ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeAdjustBoundsCallback :: C_RangeAdjustBoundsCallback -> IO (FunPtr C_RangeAdjustBoundsCallback)
wrap_RangeAdjustBoundsCallback ::
GObject a => (a -> RangeAdjustBoundsCallback) ->
C_RangeAdjustBoundsCallback
wrap_RangeAdjustBoundsCallback :: forall a.
GObject a =>
(a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
wrap_RangeAdjustBoundsCallback a -> RangeAdjustBoundsCallback
gi'cb Ptr Range
gi'selfPtr CDouble
value Ptr ()
_ = do
let value' :: Double
value' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
Ptr Range -> (Range -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Range
gi'selfPtr ((Range -> IO ()) -> IO ()) -> (Range -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeAdjustBoundsCallback
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self) Double
value'
onRangeAdjustBounds :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
onRangeAdjustBounds :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
onRangeAdjustBounds a
obj (?self::a) => RangeAdjustBoundsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeAdjustBoundsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeAdjustBoundsCallback
RangeAdjustBoundsCallback
cb
let wrapped' :: C_RangeAdjustBoundsCallback
wrapped' = (a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
forall a.
GObject a =>
(a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
wrap_RangeAdjustBoundsCallback a -> RangeAdjustBoundsCallback
wrapped
FunPtr C_RangeAdjustBoundsCallback
wrapped'' <- C_RangeAdjustBoundsCallback
-> IO (FunPtr C_RangeAdjustBoundsCallback)
mk_RangeAdjustBoundsCallback C_RangeAdjustBoundsCallback
wrapped'
a
-> Text
-> FunPtr C_RangeAdjustBoundsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"adjust-bounds" FunPtr C_RangeAdjustBoundsCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeAdjustBounds :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
afterRangeAdjustBounds :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
afterRangeAdjustBounds a
obj (?self::a) => RangeAdjustBoundsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeAdjustBoundsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeAdjustBoundsCallback
RangeAdjustBoundsCallback
cb
let wrapped' :: C_RangeAdjustBoundsCallback
wrapped' = (a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
forall a.
GObject a =>
(a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
wrap_RangeAdjustBoundsCallback a -> RangeAdjustBoundsCallback
wrapped
FunPtr C_RangeAdjustBoundsCallback
wrapped'' <- C_RangeAdjustBoundsCallback
-> IO (FunPtr C_RangeAdjustBoundsCallback)
mk_RangeAdjustBoundsCallback C_RangeAdjustBoundsCallback
wrapped'
a
-> Text
-> FunPtr C_RangeAdjustBoundsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"adjust-bounds" FunPtr C_RangeAdjustBoundsCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeAdjustBoundsSignalInfo
instance SignalInfo RangeAdjustBoundsSignalInfo where
type HaskellCallbackType RangeAdjustBoundsSignalInfo = RangeAdjustBoundsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeAdjustBoundsCallback cb
cb'' <- mk_RangeAdjustBoundsCallback cb'
connectSignalFunPtr obj "adjust-bounds" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::adjust-bounds"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:signal:adjustBounds"})
#endif
type RangeChangeValueCallback =
Gtk.Enums.ScrollType
-> Double
-> IO Bool
type C_RangeChangeValueCallback =
Ptr Range ->
CUInt ->
CDouble ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_RangeChangeValueCallback :: C_RangeChangeValueCallback -> IO (FunPtr C_RangeChangeValueCallback)
wrap_RangeChangeValueCallback ::
GObject a => (a -> RangeChangeValueCallback) ->
C_RangeChangeValueCallback
wrap_RangeChangeValueCallback :: forall a.
GObject a =>
(a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
wrap_RangeChangeValueCallback a -> RangeChangeValueCallback
gi'cb Ptr Range
gi'selfPtr CUInt
scroll CDouble
value Ptr ()
_ = do
let scroll' :: ScrollType
scroll' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
scroll
let value' :: Double
value' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
Bool
result <- Ptr Range -> (Range -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Range
gi'selfPtr ((Range -> IO Bool) -> IO Bool) -> (Range -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeChangeValueCallback
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self) ScrollType
scroll' Double
value'
let result' :: CInt
result' = (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
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onRangeChangeValue :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeChangeValueCallback) -> m SignalHandlerId
onRangeChangeValue :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeChangeValueCallback) -> m SignalHandlerId
onRangeChangeValue a
obj (?self::a) => RangeChangeValueCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeChangeValueCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeChangeValueCallback
RangeChangeValueCallback
cb
let wrapped' :: C_RangeChangeValueCallback
wrapped' = (a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
forall a.
GObject a =>
(a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
wrap_RangeChangeValueCallback a -> RangeChangeValueCallback
wrapped
FunPtr C_RangeChangeValueCallback
wrapped'' <- C_RangeChangeValueCallback
-> IO (FunPtr C_RangeChangeValueCallback)
mk_RangeChangeValueCallback C_RangeChangeValueCallback
wrapped'
a
-> Text
-> FunPtr C_RangeChangeValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-value" FunPtr C_RangeChangeValueCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeChangeValue :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeChangeValueCallback) -> m SignalHandlerId
afterRangeChangeValue :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeChangeValueCallback) -> m SignalHandlerId
afterRangeChangeValue a
obj (?self::a) => RangeChangeValueCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeChangeValueCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeChangeValueCallback
RangeChangeValueCallback
cb
let wrapped' :: C_RangeChangeValueCallback
wrapped' = (a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
forall a.
GObject a =>
(a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
wrap_RangeChangeValueCallback a -> RangeChangeValueCallback
wrapped
FunPtr C_RangeChangeValueCallback
wrapped'' <- C_RangeChangeValueCallback
-> IO (FunPtr C_RangeChangeValueCallback)
mk_RangeChangeValueCallback C_RangeChangeValueCallback
wrapped'
a
-> Text
-> FunPtr C_RangeChangeValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-value" FunPtr C_RangeChangeValueCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeChangeValueSignalInfo
instance SignalInfo RangeChangeValueSignalInfo where
type HaskellCallbackType RangeChangeValueSignalInfo = RangeChangeValueCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeChangeValueCallback cb
cb'' <- mk_RangeChangeValueCallback cb'
connectSignalFunPtr obj "change-value" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::change-value"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:signal:changeValue"})
#endif
type RangeMoveSliderCallback =
Gtk.Enums.ScrollType
-> IO ()
type C_RangeMoveSliderCallback =
Ptr Range ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeMoveSliderCallback :: C_RangeMoveSliderCallback -> IO (FunPtr C_RangeMoveSliderCallback)
wrap_RangeMoveSliderCallback ::
GObject a => (a -> RangeMoveSliderCallback) ->
C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback :: forall a.
GObject a =>
(a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback a -> RangeMoveSliderCallback
gi'cb Ptr Range
gi'selfPtr CUInt
step Ptr ()
_ = do
let step' :: ScrollType
step' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
Ptr Range -> (Range -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Range
gi'selfPtr ((Range -> IO ()) -> IO ()) -> (Range -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeMoveSliderCallback
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self) ScrollType
step'
onRangeMoveSlider :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeMoveSliderCallback) -> m SignalHandlerId
onRangeMoveSlider :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeMoveSliderCallback) -> m SignalHandlerId
onRangeMoveSlider a
obj (?self::a) => RangeMoveSliderCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeMoveSliderCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeMoveSliderCallback
RangeMoveSliderCallback
cb
let wrapped' :: C_RangeMoveSliderCallback
wrapped' = (a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
forall a.
GObject a =>
(a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback a -> RangeMoveSliderCallback
wrapped
FunPtr C_RangeMoveSliderCallback
wrapped'' <- C_RangeMoveSliderCallback -> IO (FunPtr C_RangeMoveSliderCallback)
mk_RangeMoveSliderCallback C_RangeMoveSliderCallback
wrapped'
a
-> Text
-> FunPtr C_RangeMoveSliderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-slider" FunPtr C_RangeMoveSliderCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeMoveSlider :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeMoveSliderCallback) -> m SignalHandlerId
afterRangeMoveSlider :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeMoveSliderCallback) -> m SignalHandlerId
afterRangeMoveSlider a
obj (?self::a) => RangeMoveSliderCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeMoveSliderCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeMoveSliderCallback
RangeMoveSliderCallback
cb
let wrapped' :: C_RangeMoveSliderCallback
wrapped' = (a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
forall a.
GObject a =>
(a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback a -> RangeMoveSliderCallback
wrapped
FunPtr C_RangeMoveSliderCallback
wrapped'' <- C_RangeMoveSliderCallback -> IO (FunPtr C_RangeMoveSliderCallback)
mk_RangeMoveSliderCallback C_RangeMoveSliderCallback
wrapped'
a
-> Text
-> FunPtr C_RangeMoveSliderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-slider" FunPtr C_RangeMoveSliderCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeMoveSliderSignalInfo
instance SignalInfo RangeMoveSliderSignalInfo where
type HaskellCallbackType RangeMoveSliderSignalInfo = RangeMoveSliderCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeMoveSliderCallback cb
cb'' <- mk_RangeMoveSliderCallback cb'
connectSignalFunPtr obj "move-slider" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::move-slider"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:signal:moveSlider"})
#endif
type RangeValueChangedCallback =
IO ()
type C_RangeValueChangedCallback =
Ptr Range ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeValueChangedCallback :: C_RangeValueChangedCallback -> IO (FunPtr C_RangeValueChangedCallback)
wrap_RangeValueChangedCallback ::
GObject a => (a -> RangeValueChangedCallback) ->
C_RangeValueChangedCallback
wrap_RangeValueChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_RangeValueChangedCallback
wrap_RangeValueChangedCallback a -> IO ()
gi'cb Ptr Range
gi'selfPtr Ptr ()
_ = do
Ptr Range -> (Range -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Range
gi'selfPtr ((Range -> IO ()) -> IO ()) -> (Range -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> IO ()
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self)
onRangeValueChanged :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeValueChangedCallback) -> m SignalHandlerId
onRangeValueChanged :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onRangeValueChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_RangeValueChangedCallback
wrapped' = (a -> IO ()) -> C_RangeValueChangedCallback
forall a. GObject a => (a -> IO ()) -> C_RangeValueChangedCallback
wrap_RangeValueChangedCallback a -> IO ()
wrapped
FunPtr C_RangeValueChangedCallback
wrapped'' <- C_RangeValueChangedCallback
-> IO (FunPtr C_RangeValueChangedCallback)
mk_RangeValueChangedCallback C_RangeValueChangedCallback
wrapped'
a
-> Text
-> FunPtr C_RangeValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"value-changed" FunPtr C_RangeValueChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeValueChanged :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeValueChangedCallback) -> m SignalHandlerId
afterRangeValueChanged :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterRangeValueChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_RangeValueChangedCallback
wrapped' = (a -> IO ()) -> C_RangeValueChangedCallback
forall a. GObject a => (a -> IO ()) -> C_RangeValueChangedCallback
wrap_RangeValueChangedCallback a -> IO ()
wrapped
FunPtr C_RangeValueChangedCallback
wrapped'' <- C_RangeValueChangedCallback
-> IO (FunPtr C_RangeValueChangedCallback)
mk_RangeValueChangedCallback C_RangeValueChangedCallback
wrapped'
a
-> Text
-> FunPtr C_RangeValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"value-changed" FunPtr C_RangeValueChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeValueChangedSignalInfo
instance SignalInfo RangeValueChangedSignalInfo where
type HaskellCallbackType RangeValueChangedSignalInfo = RangeValueChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeValueChangedCallback cb
cb'' <- mk_RangeValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::value-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:signal:valueChanged"})
#endif
getRangeAdjustment :: (MonadIO m, IsRange o) => o -> m Gtk.Adjustment.Adjustment
getRangeAdjustment :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Adjustment
getRangeAdjustment o
obj = IO Adjustment -> m Adjustment
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Adjustment) -> IO Adjustment
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getRangeAdjustment" (IO (Maybe Adjustment) -> IO Adjustment)
-> IO (Maybe Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Adjustment -> Adjustment)
-> IO (Maybe Adjustment)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"adjustment" ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment
setRangeAdjustment :: (MonadIO m, IsRange o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m ()
setRangeAdjustment :: forall (m :: * -> *) o a.
(MonadIO m, IsRange o, IsAdjustment a) =>
o -> a -> m ()
setRangeAdjustment o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"adjustment" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructRangeAdjustment :: (IsRange o, MIO.MonadIO m, Gtk.Adjustment.IsAdjustment a) => a -> m (GValueConstruct o)
constructRangeAdjustment :: forall o (m :: * -> *) a.
(IsRange o, MonadIO m, IsAdjustment a) =>
a -> m (GValueConstruct o)
constructRangeAdjustment a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"adjustment" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data RangeAdjustmentPropertyInfo
instance AttrInfo RangeAdjustmentPropertyInfo where
type AttrAllowedOps RangeAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeAdjustmentPropertyInfo = IsRange
type AttrSetTypeConstraint RangeAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferTypeConstraint RangeAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferType RangeAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrGetType RangeAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrLabel RangeAdjustmentPropertyInfo = "adjustment"
type AttrOrigin RangeAdjustmentPropertyInfo = Range
attrGet = getRangeAdjustment
attrSet = setRangeAdjustment
attrTransfer _ v = do
unsafeCastTo Gtk.Adjustment.Adjustment v
attrConstruct = constructRangeAdjustment
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.adjustment"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:attr:adjustment"
})
#endif
getRangeFillLevel :: (MonadIO m, IsRange o) => o -> m Double
getRangeFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Double
getRangeFillLevel o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"fill-level"
setRangeFillLevel :: (MonadIO m, IsRange o) => o -> Double -> m ()
setRangeFillLevel :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> Double -> m ()
setRangeFillLevel o
obj Double
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 -> RangeAdjustBoundsCallback
forall a. GObject a => a -> String -> RangeAdjustBoundsCallback
B.Properties.setObjectPropertyDouble o
obj String
"fill-level" Double
val
constructRangeFillLevel :: (IsRange o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructRangeFillLevel :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructRangeFillLevel Double
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 -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"fill-level" Double
val
#if defined(ENABLE_OVERLOADING)
data RangeFillLevelPropertyInfo
instance AttrInfo RangeFillLevelPropertyInfo where
type AttrAllowedOps RangeFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeFillLevelPropertyInfo = IsRange
type AttrSetTypeConstraint RangeFillLevelPropertyInfo = (~) Double
type AttrTransferTypeConstraint RangeFillLevelPropertyInfo = (~) Double
type AttrTransferType RangeFillLevelPropertyInfo = Double
type AttrGetType RangeFillLevelPropertyInfo = Double
type AttrLabel RangeFillLevelPropertyInfo = "fill-level"
type AttrOrigin RangeFillLevelPropertyInfo = Range
attrGet = getRangeFillLevel
attrSet = setRangeFillLevel
attrTransfer _ v = do
return v
attrConstruct = constructRangeFillLevel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.fillLevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:attr:fillLevel"
})
#endif
getRangeInverted :: (MonadIO m, IsRange o) => o -> m Bool
getRangeInverted :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Bool
getRangeInverted 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
"inverted"
setRangeInverted :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeInverted :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeInverted 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
"inverted" Bool
val
constructRangeInverted :: (IsRange o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructRangeInverted :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructRangeInverted 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
"inverted" Bool
val
#if defined(ENABLE_OVERLOADING)
data RangeInvertedPropertyInfo
instance AttrInfo RangeInvertedPropertyInfo where
type AttrAllowedOps RangeInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeInvertedPropertyInfo = IsRange
type AttrSetTypeConstraint RangeInvertedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint RangeInvertedPropertyInfo = (~) Bool
type AttrTransferType RangeInvertedPropertyInfo = Bool
type AttrGetType RangeInvertedPropertyInfo = Bool
type AttrLabel RangeInvertedPropertyInfo = "inverted"
type AttrOrigin RangeInvertedPropertyInfo = Range
attrGet = getRangeInverted
attrSet = setRangeInverted
attrTransfer _ v = do
return v
attrConstruct = constructRangeInverted
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.inverted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:attr:inverted"
})
#endif
getRangeRestrictToFillLevel :: (MonadIO m, IsRange o) => o -> m Bool
getRangeRestrictToFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Bool
getRangeRestrictToFillLevel 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
"restrict-to-fill-level"
setRangeRestrictToFillLevel :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeRestrictToFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeRestrictToFillLevel 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
"restrict-to-fill-level" Bool
val
constructRangeRestrictToFillLevel :: (IsRange o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructRangeRestrictToFillLevel :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructRangeRestrictToFillLevel 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
"restrict-to-fill-level" Bool
val
#if defined(ENABLE_OVERLOADING)
data RangeRestrictToFillLevelPropertyInfo
instance AttrInfo RangeRestrictToFillLevelPropertyInfo where
type AttrAllowedOps RangeRestrictToFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeRestrictToFillLevelPropertyInfo = IsRange
type AttrSetTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool
type AttrTransferType RangeRestrictToFillLevelPropertyInfo = Bool
type AttrGetType RangeRestrictToFillLevelPropertyInfo = Bool
type AttrLabel RangeRestrictToFillLevelPropertyInfo = "restrict-to-fill-level"
type AttrOrigin RangeRestrictToFillLevelPropertyInfo = Range
attrGet = getRangeRestrictToFillLevel
attrSet = setRangeRestrictToFillLevel
attrTransfer _ v = do
return v
attrConstruct = constructRangeRestrictToFillLevel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.restrictToFillLevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:attr:restrictToFillLevel"
})
#endif
getRangeRoundDigits :: (MonadIO m, IsRange o) => o -> m Int32
getRangeRoundDigits :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Int32
getRangeRoundDigits o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"round-digits"
setRangeRoundDigits :: (MonadIO m, IsRange o) => o -> Int32 -> m ()
setRangeRoundDigits :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> Int32 -> m ()
setRangeRoundDigits o
obj Int32
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"round-digits" Int32
val
constructRangeRoundDigits :: (IsRange o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructRangeRoundDigits :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructRangeRoundDigits Int32
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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"round-digits" Int32
val
#if defined(ENABLE_OVERLOADING)
data RangeRoundDigitsPropertyInfo
instance AttrInfo RangeRoundDigitsPropertyInfo where
type AttrAllowedOps RangeRoundDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeRoundDigitsPropertyInfo = IsRange
type AttrSetTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32
type AttrTransferType RangeRoundDigitsPropertyInfo = Int32
type AttrGetType RangeRoundDigitsPropertyInfo = Int32
type AttrLabel RangeRoundDigitsPropertyInfo = "round-digits"
type AttrOrigin RangeRoundDigitsPropertyInfo = Range
attrGet = getRangeRoundDigits
attrSet = setRangeRoundDigits
attrTransfer _ v = do
return v
attrConstruct = constructRangeRoundDigits
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.roundDigits"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:attr:roundDigits"
})
#endif
getRangeShowFillLevel :: (MonadIO m, IsRange o) => o -> m Bool
getRangeShowFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Bool
getRangeShowFillLevel 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
"show-fill-level"
setRangeShowFillLevel :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeShowFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeShowFillLevel 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
"show-fill-level" Bool
val
constructRangeShowFillLevel :: (IsRange o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructRangeShowFillLevel :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructRangeShowFillLevel 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
"show-fill-level" Bool
val
#if defined(ENABLE_OVERLOADING)
data RangeShowFillLevelPropertyInfo
instance AttrInfo RangeShowFillLevelPropertyInfo where
type AttrAllowedOps RangeShowFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeShowFillLevelPropertyInfo = IsRange
type AttrSetTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool
type AttrTransferType RangeShowFillLevelPropertyInfo = Bool
type AttrGetType RangeShowFillLevelPropertyInfo = Bool
type AttrLabel RangeShowFillLevelPropertyInfo = "show-fill-level"
type AttrOrigin RangeShowFillLevelPropertyInfo = Range
attrGet = getRangeShowFillLevel
attrSet = setRangeShowFillLevel
attrTransfer _ v = do
return v
attrConstruct = constructRangeShowFillLevel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.showFillLevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#g:attr:showFillLevel"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Range
type instance O.AttributeList Range = RangeAttributeList
type RangeAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("adjustment", RangeAdjustmentPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("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), '("inverted", RangeInvertedPropertyInfo), '("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), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
rangeAdjustment :: AttrLabelProxy "adjustment"
rangeAdjustment = AttrLabelProxy
rangeFillLevel :: AttrLabelProxy "fillLevel"
rangeFillLevel = AttrLabelProxy
rangeInverted :: AttrLabelProxy "inverted"
rangeInverted = AttrLabelProxy
rangeRestrictToFillLevel :: AttrLabelProxy "restrictToFillLevel"
rangeRestrictToFillLevel = AttrLabelProxy
rangeRoundDigits :: AttrLabelProxy "roundDigits"
rangeRoundDigits = AttrLabelProxy
rangeShowFillLevel :: AttrLabelProxy "showFillLevel"
rangeShowFillLevel = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Range = RangeSignalList
type RangeSignalList = ('[ '("adjustBounds", RangeAdjustBoundsSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("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), '("moveSlider", RangeMoveSliderSignalInfo), '("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), '("valueChanged", RangeValueChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_range_get_adjustment" gtk_range_get_adjustment ::
Ptr Range ->
IO (Ptr Gtk.Adjustment.Adjustment)
rangeGetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Gtk.Adjustment.Adjustment
rangeGetAdjustment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Adjustment
rangeGetAdjustment a
range = IO Adjustment -> m Adjustment
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Adjustment
result <- Ptr Range -> IO (Ptr Adjustment)
gtk_range_get_adjustment Ptr Range
range'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"rangeGetAdjustment" Ptr Adjustment
result
Adjustment
result' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Adjustment -> IO Adjustment
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetAdjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetAdjustmentMethodInfo a signature where
overloadedMethod = rangeGetAdjustment
instance O.OverloadedMethodInfo RangeGetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetAdjustment"
})
#endif
foreign import ccall "gtk_range_get_fill_level" gtk_range_get_fill_level ::
Ptr Range ->
IO CDouble
rangeGetFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Double
rangeGetFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Double
rangeGetFillLevel a
range = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CDouble
result <- Ptr Range -> IO CDouble
gtk_range_get_fill_level Ptr Range
range'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetFillLevelMethodInfo
instance (signature ~ (m Double), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetFillLevelMethodInfo a signature where
overloadedMethod = rangeGetFillLevel
instance O.OverloadedMethodInfo RangeGetFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetFillLevel"
})
#endif
foreign import ccall "gtk_range_get_flippable" gtk_range_get_flippable ::
Ptr Range ->
IO CInt
rangeGetFlippable ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetFlippable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetFlippable a
range = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_flippable Ptr Range
range'
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
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetFlippableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetFlippableMethodInfo a signature where
overloadedMethod = rangeGetFlippable
instance O.OverloadedMethodInfo RangeGetFlippableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetFlippable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetFlippable"
})
#endif
foreign import ccall "gtk_range_get_inverted" gtk_range_get_inverted ::
Ptr Range ->
IO CInt
rangeGetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetInverted a
range = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_inverted Ptr Range
range'
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
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetInvertedMethodInfo a signature where
overloadedMethod = rangeGetInverted
instance O.OverloadedMethodInfo RangeGetInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetInverted"
})
#endif
foreign import ccall "gtk_range_get_range_rect" gtk_range_get_range_rect ::
Ptr Range ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
rangeGetRangeRect ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m (Gdk.Rectangle.Rectangle)
rangeGetRangeRect :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Rectangle
rangeGetRangeRect a
range = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Rectangle
rangeRect <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr Range -> Ptr Rectangle -> IO ()
gtk_range_get_range_rect Ptr Range
range' Ptr Rectangle
rangeRect
Rectangle
rangeRect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rangeRect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Rectangle -> IO Rectangle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
rangeRect'
#if defined(ENABLE_OVERLOADING)
data RangeGetRangeRectMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetRangeRectMethodInfo a signature where
overloadedMethod = rangeGetRangeRect
instance O.OverloadedMethodInfo RangeGetRangeRectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetRangeRect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetRangeRect"
})
#endif
foreign import ccall "gtk_range_get_restrict_to_fill_level" gtk_range_get_restrict_to_fill_level ::
Ptr Range ->
IO CInt
rangeGetRestrictToFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetRestrictToFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetRestrictToFillLevel a
range = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_restrict_to_fill_level Ptr Range
range'
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
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetRestrictToFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetRestrictToFillLevelMethodInfo a signature where
overloadedMethod = rangeGetRestrictToFillLevel
instance O.OverloadedMethodInfo RangeGetRestrictToFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetRestrictToFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetRestrictToFillLevel"
})
#endif
foreign import ccall "gtk_range_get_round_digits" gtk_range_get_round_digits ::
Ptr Range ->
IO Int32
rangeGetRoundDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Int32
rangeGetRoundDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Int32
rangeGetRoundDigits a
range = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Int32
result <- Ptr Range -> IO Int32
gtk_range_get_round_digits Ptr Range
range'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data RangeGetRoundDigitsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetRoundDigitsMethodInfo a signature where
overloadedMethod = rangeGetRoundDigits
instance O.OverloadedMethodInfo RangeGetRoundDigitsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetRoundDigits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetRoundDigits"
})
#endif
foreign import ccall "gtk_range_get_show_fill_level" gtk_range_get_show_fill_level ::
Ptr Range ->
IO CInt
rangeGetShowFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetShowFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetShowFillLevel a
range = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_show_fill_level Ptr Range
range'
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
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetShowFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetShowFillLevelMethodInfo a signature where
overloadedMethod = rangeGetShowFillLevel
instance O.OverloadedMethodInfo RangeGetShowFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetShowFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetShowFillLevel"
})
#endif
foreign import ccall "gtk_range_get_slider_range" gtk_range_get_slider_range ::
Ptr Range ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
rangeGetSliderRange ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m ((Int32, Int32))
rangeGetSliderRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m (Int32, Int32)
rangeGetSliderRange a
range = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Int32
sliderStart <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
sliderEnd <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Range -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_range_get_slider_range Ptr Range
range' Ptr Int32
sliderStart Ptr Int32
sliderEnd
Int32
sliderStart' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
sliderStart
Int32
sliderEnd' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
sliderEnd
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
sliderStart
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
sliderEnd
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
sliderStart', Int32
sliderEnd')
#if defined(ENABLE_OVERLOADING)
data RangeGetSliderRangeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetSliderRangeMethodInfo a signature where
overloadedMethod = rangeGetSliderRange
instance O.OverloadedMethodInfo RangeGetSliderRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetSliderRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetSliderRange"
})
#endif
foreign import ccall "gtk_range_get_slider_size_fixed" gtk_range_get_slider_size_fixed ::
Ptr Range ->
IO CInt
rangeGetSliderSizeFixed ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetSliderSizeFixed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetSliderSizeFixed a
range = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_slider_size_fixed Ptr Range
range'
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
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetSliderSizeFixedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetSliderSizeFixedMethodInfo a signature where
overloadedMethod = rangeGetSliderSizeFixed
instance O.OverloadedMethodInfo RangeGetSliderSizeFixedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetSliderSizeFixed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetSliderSizeFixed"
})
#endif
foreign import ccall "gtk_range_get_value" gtk_range_get_value ::
Ptr Range ->
IO CDouble
rangeGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Double
rangeGetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Double
rangeGetValue a
range = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CDouble
result <- Ptr Range -> IO CDouble
gtk_range_get_value Ptr Range
range'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetValueMethodInfo a signature where
overloadedMethod = rangeGetValue
instance O.OverloadedMethodInfo RangeGetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeGetValue"
})
#endif
foreign import ccall "gtk_range_set_adjustment" gtk_range_set_adjustment ::
Ptr Range ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
rangeSetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
rangeSetAdjustment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsRange a, IsAdjustment b) =>
a -> b -> m ()
rangeSetAdjustment a
range b
adjustment = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr Range -> Ptr Adjustment -> IO ()
gtk_range_set_adjustment Ptr Range
range' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
adjustment
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetAdjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsRange a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod RangeSetAdjustmentMethodInfo a signature where
overloadedMethod = rangeSetAdjustment
instance O.OverloadedMethodInfo RangeSetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetAdjustment"
})
#endif
foreign import ccall "gtk_range_set_fill_level" gtk_range_set_fill_level ::
Ptr Range ->
CDouble ->
IO ()
rangeSetFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Double
-> m ()
rangeSetFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Double -> m ()
rangeSetFillLevel a
range Double
fillLevel = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let fillLevel' :: CDouble
fillLevel' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
fillLevel
Ptr Range -> CDouble -> IO ()
gtk_range_set_fill_level Ptr Range
range' CDouble
fillLevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetFillLevelMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetFillLevelMethodInfo a signature where
overloadedMethod = rangeSetFillLevel
instance O.OverloadedMethodInfo RangeSetFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetFillLevel"
})
#endif
foreign import ccall "gtk_range_set_flippable" gtk_range_set_flippable ::
Ptr Range ->
CInt ->
IO ()
rangeSetFlippable ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetFlippable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetFlippable a
range Bool
flippable = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let flippable' :: CInt
flippable' = (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
flippable
Ptr Range -> CInt -> IO ()
gtk_range_set_flippable Ptr Range
range' CInt
flippable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetFlippableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetFlippableMethodInfo a signature where
overloadedMethod = rangeSetFlippable
instance O.OverloadedMethodInfo RangeSetFlippableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetFlippable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetFlippable"
})
#endif
foreign import ccall "gtk_range_set_increments" gtk_range_set_increments ::
Ptr Range ->
CDouble ->
CDouble ->
IO ()
rangeSetIncrements ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Double
-> Double
-> m ()
rangeSetIncrements :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Double -> Double -> m ()
rangeSetIncrements a
range Double
step Double
page = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let step' :: CDouble
step' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
step
let page' :: CDouble
page' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
page
Ptr Range -> CDouble -> CDouble -> IO ()
gtk_range_set_increments Ptr Range
range' CDouble
step' CDouble
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetIncrementsMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetIncrementsMethodInfo a signature where
overloadedMethod = rangeSetIncrements
instance O.OverloadedMethodInfo RangeSetIncrementsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetIncrements",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetIncrements"
})
#endif
foreign import ccall "gtk_range_set_inverted" gtk_range_set_inverted ::
Ptr Range ->
CInt ->
IO ()
rangeSetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetInverted a
range Bool
setting = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let setting' :: CInt
setting' = (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
setting
Ptr Range -> CInt -> IO ()
gtk_range_set_inverted Ptr Range
range' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetInvertedMethodInfo a signature where
overloadedMethod = rangeSetInverted
instance O.OverloadedMethodInfo RangeSetInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetInverted"
})
#endif
foreign import ccall "gtk_range_set_range" gtk_range_set_range ::
Ptr Range ->
CDouble ->
CDouble ->
IO ()
rangeSetRange ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Double
-> Double
-> m ()
rangeSetRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Double -> Double -> m ()
rangeSetRange a
range Double
min Double
max = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let min' :: CDouble
min' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
min
let max' :: CDouble
max' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
max
Ptr Range -> CDouble -> CDouble -> IO ()
gtk_range_set_range Ptr Range
range' CDouble
min' CDouble
max'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetRangeMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetRangeMethodInfo a signature where
overloadedMethod = rangeSetRange
instance O.OverloadedMethodInfo RangeSetRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetRange"
})
#endif
foreign import ccall "gtk_range_set_restrict_to_fill_level" gtk_range_set_restrict_to_fill_level ::
Ptr Range ->
CInt ->
IO ()
rangeSetRestrictToFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetRestrictToFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetRestrictToFillLevel a
range Bool
restrictToFillLevel = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let restrictToFillLevel' :: CInt
restrictToFillLevel' = (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
restrictToFillLevel
Ptr Range -> CInt -> IO ()
gtk_range_set_restrict_to_fill_level Ptr Range
range' CInt
restrictToFillLevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetRestrictToFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetRestrictToFillLevelMethodInfo a signature where
overloadedMethod = rangeSetRestrictToFillLevel
instance O.OverloadedMethodInfo RangeSetRestrictToFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetRestrictToFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetRestrictToFillLevel"
})
#endif
foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits ::
Ptr Range ->
Int32 ->
IO ()
rangeSetRoundDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Int32
-> m ()
rangeSetRoundDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Int32 -> m ()
rangeSetRoundDigits a
range Int32
roundDigits = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Range -> Int32 -> IO ()
gtk_range_set_round_digits Ptr Range
range' Int32
roundDigits
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetRoundDigitsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetRoundDigitsMethodInfo a signature where
overloadedMethod = rangeSetRoundDigits
instance O.OverloadedMethodInfo RangeSetRoundDigitsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetRoundDigits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetRoundDigits"
})
#endif
foreign import ccall "gtk_range_set_show_fill_level" gtk_range_set_show_fill_level ::
Ptr Range ->
CInt ->
IO ()
rangeSetShowFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetShowFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetShowFillLevel a
range Bool
showFillLevel = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let showFillLevel' :: CInt
showFillLevel' = (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
showFillLevel
Ptr Range -> CInt -> IO ()
gtk_range_set_show_fill_level Ptr Range
range' CInt
showFillLevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetShowFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetShowFillLevelMethodInfo a signature where
overloadedMethod = rangeSetShowFillLevel
instance O.OverloadedMethodInfo RangeSetShowFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetShowFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetShowFillLevel"
})
#endif
foreign import ccall "gtk_range_set_slider_size_fixed" gtk_range_set_slider_size_fixed ::
Ptr Range ->
CInt ->
IO ()
rangeSetSliderSizeFixed ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetSliderSizeFixed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetSliderSizeFixed a
range Bool
sizeFixed = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let sizeFixed' :: CInt
sizeFixed' = (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
sizeFixed
Ptr Range -> CInt -> IO ()
gtk_range_set_slider_size_fixed Ptr Range
range' CInt
sizeFixed'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetSliderSizeFixedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetSliderSizeFixedMethodInfo a signature where
overloadedMethod = rangeSetSliderSizeFixed
instance O.OverloadedMethodInfo RangeSetSliderSizeFixedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetSliderSizeFixed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetSliderSizeFixed"
})
#endif
foreign import ccall "gtk_range_set_value" gtk_range_set_value ::
Ptr Range ->
CDouble ->
IO ()
rangeSetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Double
-> m ()
rangeSetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Double -> m ()
rangeSetValue a
range Double
value = 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 Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr Range -> CDouble -> IO ()
gtk_range_set_value Ptr Range
range' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetValueMethodInfo a signature where
overloadedMethod = rangeSetValue
instance O.OverloadedMethodInfo RangeSetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Range.html#v:rangeSetValue"
})
#endif