{-# 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)
RangeGetLowerStepperSensitivityMethodInfo,
#endif
rangeGetLowerStepperSensitivity ,
#if defined(ENABLE_OVERLOADING)
RangeGetMinSliderSizeMethodInfo ,
#endif
rangeGetMinSliderSize ,
#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)
RangeGetUpperStepperSensitivityMethodInfo,
#endif
rangeGetUpperStepperSensitivity ,
#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)
RangeSetLowerStepperSensitivityMethodInfo,
#endif
rangeSetLowerStepperSensitivity ,
#if defined(ENABLE_OVERLOADING)
RangeSetMinSliderSizeMethodInfo ,
#endif
rangeSetMinSliderSize ,
#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)
RangeSetUpperStepperSensitivityMethodInfo,
#endif
rangeSetUpperStepperSensitivity ,
#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)
RangeLowerStepperSensitivityPropertyInfo,
#endif
constructRangeLowerStepperSensitivity ,
getRangeLowerStepperSensitivity ,
#if defined(ENABLE_OVERLOADING)
rangeLowerStepperSensitivity ,
#endif
setRangeLowerStepperSensitivity ,
#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 ,
#if defined(ENABLE_OVERLOADING)
RangeUpperStepperSensitivityPropertyInfo,
#endif
constructRangeUpperStepperSensitivity ,
getRangeUpperStepperSensitivity ,
#if defined(ENABLE_OVERLOADING)
rangeUpperStepperSensitivity ,
#endif
setRangeUpperStepperSensitivity ,
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.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
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.Buildable as Gtk.Buildable
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
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Range -> Range -> Bool
$c/= :: Range -> Range -> Bool
== :: Range -> Range -> Bool
$c== :: 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, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable]
toRange :: (MIO.MonadIO m, IsRange o) => o -> m Range
toRange :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Range
toRange = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. 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 = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr Range)
gvalueSet_ Ptr GValue
gv (P.Just Range
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Range
obj (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 <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Range)
if Ptr Range
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> 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 forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRangeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRangeMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveRangeMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveRangeMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveRangeMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveRangeMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveRangeMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveRangeMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveRangeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRangeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRangeMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveRangeMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveRangeMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveRangeMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveRangeMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveRangeMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveRangeMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveRangeMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveRangeMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveRangeMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveRangeMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveRangeMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveRangeMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveRangeMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveRangeMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveRangeMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveRangeMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveRangeMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveRangeMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveRangeMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveRangeMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveRangeMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveRangeMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveRangeMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveRangeMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveRangeMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveRangeMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveRangeMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveRangeMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveRangeMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveRangeMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveRangeMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveRangeMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveRangeMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveRangeMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveRangeMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveRangeMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveRangeMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveRangeMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveRangeMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveRangeMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveRangeMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveRangeMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveRangeMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveRangeMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveRangeMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveRangeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRangeMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveRangeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRangeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRangeMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveRangeMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveRangeMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveRangeMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveRangeMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveRangeMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveRangeMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveRangeMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveRangeMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveRangeMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveRangeMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveRangeMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveRangeMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveRangeMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveRangeMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveRangeMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveRangeMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveRangeMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveRangeMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveRangeMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveRangeMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveRangeMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveRangeMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveRangeMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveRangeMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveRangeMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveRangeMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveRangeMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveRangeMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveRangeMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveRangeMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveRangeMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveRangeMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveRangeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRangeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRangeMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveRangeMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveRangeMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveRangeMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveRangeMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveRangeMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveRangeMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveRangeMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveRangeMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveRangeMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveRangeMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveRangeMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveRangeMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveRangeMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveRangeMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveRangeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRangeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRangeMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveRangeMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveRangeMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveRangeMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveRangeMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveRangeMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveRangeMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveRangeMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveRangeMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveRangeMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveRangeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRangeMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveRangeMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveRangeMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveRangeMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveRangeMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveRangeMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveRangeMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveRangeMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveRangeMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveRangeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRangeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRangeMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveRangeMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveRangeMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
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 "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveRangeMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveRangeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRangeMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveRangeMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveRangeMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo
ResolveRangeMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveRangeMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveRangeMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveRangeMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveRangeMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveRangeMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveRangeMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveRangeMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveRangeMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveRangeMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveRangeMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveRangeMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveRangeMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveRangeMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveRangeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRangeMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveRangeMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveRangeMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveRangeMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveRangeMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveRangeMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveRangeMethod "getFillLevel" o = RangeGetFillLevelMethodInfo
ResolveRangeMethod "getFlippable" o = RangeGetFlippableMethodInfo
ResolveRangeMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
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 "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveRangeMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveRangeMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveRangeMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveRangeMethod "getInverted" o = RangeGetInvertedMethodInfo
ResolveRangeMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo
ResolveRangeMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveRangeMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveRangeMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveRangeMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveRangeMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveRangeMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveRangeMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveRangeMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo
ResolveRangeMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveRangeMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveRangeMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveRangeMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveRangeMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveRangeMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveRangeMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveRangeMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveRangeMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveRangeMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveRangeMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveRangeMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveRangeMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveRangeMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveRangeMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveRangeMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveRangeMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
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 "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveRangeMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo
ResolveRangeMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveRangeMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo
ResolveRangeMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveRangeMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveRangeMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveRangeMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveRangeMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo
ResolveRangeMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveRangeMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo
ResolveRangeMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo
ResolveRangeMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveRangeMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveRangeMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveRangeMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveRangeMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveRangeMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveRangeMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveRangeMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveRangeMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveRangeMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveRangeMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo
ResolveRangeMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveRangeMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveRangeMethod "getValue" o = RangeGetValueMethodInfo
ResolveRangeMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveRangeMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveRangeMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveRangeMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveRangeMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveRangeMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveRangeMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo
ResolveRangeMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveRangeMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveRangeMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveRangeMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveRangeMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveRangeMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveRangeMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveRangeMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveRangeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRangeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRangeMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveRangeMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveRangeMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveRangeMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveRangeMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveRangeMethod "setFillLevel" o = RangeSetFillLevelMethodInfo
ResolveRangeMethod "setFlippable" o = RangeSetFlippableMethodInfo
ResolveRangeMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
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 "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveRangeMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveRangeMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveRangeMethod "setIncrements" o = RangeSetIncrementsMethodInfo
ResolveRangeMethod "setInverted" o = RangeSetInvertedMethodInfo
ResolveRangeMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo
ResolveRangeMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveRangeMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveRangeMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveRangeMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveRangeMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveRangeMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveRangeMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveRangeMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo
ResolveRangeMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveRangeMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveRangeMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveRangeMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveRangeMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveRangeMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveRangeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRangeMethod "setRange" o = RangeSetRangeMethodInfo
ResolveRangeMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveRangeMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveRangeMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
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 "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveRangeMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveRangeMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveRangeMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveRangeMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveRangeMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveRangeMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveRangeMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo
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 "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveRangeMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
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' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeAdjustBoundsCallback
gi'cb (coerce :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeAdjustBoundsCallback
wrapped a
self = let ?self = a
self in (?self::a) => RangeAdjustBoundsCallback
cb
let wrapped' :: C_RangeAdjustBoundsCallback
wrapped' = 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'
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 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeAdjustBoundsCallback
wrapped a
self = let ?self = a
self in (?self::a) => RangeAdjustBoundsCallback
cb
let wrapped' :: C_RangeAdjustBoundsCallback
wrapped' = 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'
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 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-3.0.39/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' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
scroll
let value' :: Double
value' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeChangeValueCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self) ScrollType
scroll' Double
value'
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeChangeValueCallback
wrapped a
self = let ?self = a
self in (?self::a) => RangeChangeValueCallback
cb
let wrapped' :: C_RangeChangeValueCallback
wrapped' = 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'
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 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeChangeValueCallback
wrapped a
self = let ?self = a
self in (?self::a) => RangeChangeValueCallback
cb
let wrapped' :: C_RangeChangeValueCallback
wrapped' = 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'
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 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-3.0.39/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' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeMoveSliderCallback
gi'cb (coerce :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeMoveSliderCallback
wrapped a
self = let ?self = a
self in (?self::a) => RangeMoveSliderCallback
cb
let wrapped' :: C_RangeMoveSliderCallback
wrapped' = 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'
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 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeMoveSliderCallback
wrapped a
self = let ?self = a
self in (?self::a) => RangeMoveSliderCallback
cb
let wrapped' :: C_RangeMoveSliderCallback
wrapped' = 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'
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 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-3.0.39/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
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> IO ()
gi'cb (coerce :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_RangeValueChangedCallback
wrapped' = 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'
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 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_RangeValueChangedCallback
wrapped' = 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'
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 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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getRangeAdjustment" forall a b. (a -> b) -> a -> b
$ 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"adjustment" (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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"adjustment" (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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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-3.0.39/docs/GI-Gtk-Objects-Range.html#g:attr:inverted"
})
#endif
getRangeLowerStepperSensitivity :: (MonadIO m, IsRange o) => o -> m Gtk.Enums.SensitivityType
getRangeLowerStepperSensitivity :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> m SensitivityType
getRangeLowerStepperSensitivity o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"lower-stepper-sensitivity"
setRangeLowerStepperSensitivity :: (MonadIO m, IsRange o) => o -> Gtk.Enums.SensitivityType -> m ()
setRangeLowerStepperSensitivity :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> SensitivityType -> m ()
setRangeLowerStepperSensitivity o
obj SensitivityType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"lower-stepper-sensitivity" SensitivityType
val
constructRangeLowerStepperSensitivity :: (IsRange o, MIO.MonadIO m) => Gtk.Enums.SensitivityType -> m (GValueConstruct o)
constructRangeLowerStepperSensitivity :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
SensitivityType -> m (GValueConstruct o)
constructRangeLowerStepperSensitivity SensitivityType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"lower-stepper-sensitivity" SensitivityType
val
#if defined(ENABLE_OVERLOADING)
data RangeLowerStepperSensitivityPropertyInfo
instance AttrInfo RangeLowerStepperSensitivityPropertyInfo where
type AttrAllowedOps RangeLowerStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeLowerStepperSensitivityPropertyInfo = IsRange
type AttrSetTypeConstraint RangeLowerStepperSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrTransferTypeConstraint RangeLowerStepperSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrTransferType RangeLowerStepperSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrGetType RangeLowerStepperSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrLabel RangeLowerStepperSensitivityPropertyInfo = "lower-stepper-sensitivity"
type AttrOrigin RangeLowerStepperSensitivityPropertyInfo = Range
attrGet = getRangeLowerStepperSensitivity
attrSet = setRangeLowerStepperSensitivity
attrTransfer _ v = do
return v
attrConstruct = constructRangeLowerStepperSensitivity
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.lowerStepperSensitivity"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#g:attr:lowerStepperSensitivity"
})
#endif
getRangeRestrictToFillLevel :: (MonadIO m, IsRange o) => o -> m Bool
getRangeRestrictToFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Bool
getRangeRestrictToFillLevel o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ 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-3.0.39/docs/GI-Gtk-Objects-Range.html#g:attr:showFillLevel"
})
#endif
getRangeUpperStepperSensitivity :: (MonadIO m, IsRange o) => o -> m Gtk.Enums.SensitivityType
getRangeUpperStepperSensitivity :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> m SensitivityType
getRangeUpperStepperSensitivity o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"upper-stepper-sensitivity"
setRangeUpperStepperSensitivity :: (MonadIO m, IsRange o) => o -> Gtk.Enums.SensitivityType -> m ()
setRangeUpperStepperSensitivity :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> SensitivityType -> m ()
setRangeUpperStepperSensitivity o
obj SensitivityType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"upper-stepper-sensitivity" SensitivityType
val
constructRangeUpperStepperSensitivity :: (IsRange o, MIO.MonadIO m) => Gtk.Enums.SensitivityType -> m (GValueConstruct o)
constructRangeUpperStepperSensitivity :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
SensitivityType -> m (GValueConstruct o)
constructRangeUpperStepperSensitivity SensitivityType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"upper-stepper-sensitivity" SensitivityType
val
#if defined(ENABLE_OVERLOADING)
data RangeUpperStepperSensitivityPropertyInfo
instance AttrInfo RangeUpperStepperSensitivityPropertyInfo where
type AttrAllowedOps RangeUpperStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeUpperStepperSensitivityPropertyInfo = IsRange
type AttrSetTypeConstraint RangeUpperStepperSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrTransferTypeConstraint RangeUpperStepperSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrTransferType RangeUpperStepperSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrGetType RangeUpperStepperSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrLabel RangeUpperStepperSensitivityPropertyInfo = "upper-stepper-sensitivity"
type AttrOrigin RangeUpperStepperSensitivityPropertyInfo = Range
attrGet = getRangeUpperStepperSensitivity
attrSet = setRangeUpperStepperSensitivity
attrTransfer _ v = do
return v
attrConstruct = constructRangeUpperStepperSensitivity
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.upperStepperSensitivity"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#g:attr:upperStepperSensitivity"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Range
type instance O.AttributeList Range = RangeAttributeList
type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
rangeAdjustment :: AttrLabelProxy "adjustment"
rangeAdjustment = AttrLabelProxy
rangeFillLevel :: AttrLabelProxy "fillLevel"
rangeFillLevel = AttrLabelProxy
rangeInverted :: AttrLabelProxy "inverted"
rangeInverted = AttrLabelProxy
rangeLowerStepperSensitivity :: AttrLabelProxy "lowerStepperSensitivity"
rangeLowerStepperSensitivity = AttrLabelProxy
rangeRestrictToFillLevel :: AttrLabelProxy "restrictToFillLevel"
rangeRestrictToFillLevel = AttrLabelProxy
rangeRoundDigits :: AttrLabelProxy "roundDigits"
rangeRoundDigits = AttrLabelProxy
rangeShowFillLevel :: AttrLabelProxy "showFillLevel"
rangeShowFillLevel = AttrLabelProxy
rangeUpperStepperSensitivity :: AttrLabelProxy "upperStepperSensitivity"
rangeUpperStepperSensitivity = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Range = RangeSignalList
type RangeSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"rangeGetAdjustment" Ptr Adjustment
result
Adjustment
result' <- (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
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeGetInverted"
})
#endif
foreign import ccall "gtk_range_get_lower_stepper_sensitivity" gtk_range_get_lower_stepper_sensitivity ::
Ptr Range ->
IO CUInt
rangeGetLowerStepperSensitivity ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Gtk.Enums.SensitivityType
rangeGetLowerStepperSensitivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m SensitivityType
rangeGetLowerStepperSensitivity a
range = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CUInt
result <- Ptr Range -> IO CUInt
gtk_range_get_lower_stepper_sensitivity Ptr Range
range'
let result' :: SensitivityType
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall (m :: * -> *) a. Monad m => a -> m a
return SensitivityType
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetLowerStepperSensitivityMethodInfo
instance (signature ~ (m Gtk.Enums.SensitivityType), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetLowerStepperSensitivityMethodInfo a signature where
overloadedMethod = rangeGetLowerStepperSensitivity
instance O.OverloadedMethodInfo RangeGetLowerStepperSensitivityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetLowerStepperSensitivity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeGetLowerStepperSensitivity"
})
#endif
foreign import ccall "gtk_range_get_min_slider_size" gtk_range_get_min_slider_size ::
Ptr Range ->
IO Int32
{-# DEPRECATED rangeGetMinSliderSize ["(Since version 3.20)","Use the min-height\\/min-width CSS properties on the slider"," node."] #-}
rangeGetMinSliderSize ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Int32
rangeGetMinSliderSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Int32
rangeGetMinSliderSize a
range = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Int32
result <- Ptr Range -> IO Int32
gtk_range_get_min_slider_size Ptr Range
range'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data RangeGetMinSliderSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetMinSliderSizeMethodInfo a signature where
overloadedMethod = rangeGetMinSliderSize
instance O.OverloadedMethodInfo RangeGetMinSliderSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetMinSliderSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeGetMinSliderSize"
})
#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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Rectangle
rangeRect <- 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' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rangeRect
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Int32
sliderStart <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
sliderEnd <- 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' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
sliderStart
Int32
sliderEnd' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
sliderEnd
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall a. Ptr a -> IO ()
freeMem Ptr Int32
sliderStart
forall a. Ptr a -> IO ()
freeMem Ptr Int32
sliderEnd
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeGetSliderSizeFixed"
})
#endif
foreign import ccall "gtk_range_get_upper_stepper_sensitivity" gtk_range_get_upper_stepper_sensitivity ::
Ptr Range ->
IO CUInt
rangeGetUpperStepperSensitivity ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Gtk.Enums.SensitivityType
rangeGetUpperStepperSensitivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m SensitivityType
rangeGetUpperStepperSensitivity a
range = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CUInt
result <- Ptr Range -> IO CUInt
gtk_range_get_upper_stepper_sensitivity Ptr Range
range'
let result' :: SensitivityType
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall (m :: * -> *) a. Monad m => a -> m a
return SensitivityType
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetUpperStepperSensitivityMethodInfo
instance (signature ~ (m Gtk.Enums.SensitivityType), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetUpperStepperSensitivityMethodInfo a signature where
overloadedMethod = rangeGetUpperStepperSensitivity
instance O.OverloadedMethodInfo RangeGetUpperStepperSensitivityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetUpperStepperSensitivity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeGetUpperStepperSensitivity"
})
#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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Adjustment
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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
adjustment
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let fillLevel' :: CDouble
fillLevel' = 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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let flippable' :: CInt
flippable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
flippable
Ptr Range -> CInt -> IO ()
gtk_range_set_flippable Ptr Range
range' CInt
flippable'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let step' :: CDouble
step' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
step
let page' :: CDouble
page' = 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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let setting' :: CInt
setting' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
setting
Ptr Range -> CInt -> IO ()
gtk_range_set_inverted Ptr Range
range' CInt
setting'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeSetInverted"
})
#endif
foreign import ccall "gtk_range_set_lower_stepper_sensitivity" gtk_range_set_lower_stepper_sensitivity ::
Ptr Range ->
CUInt ->
IO ()
rangeSetLowerStepperSensitivity ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Gtk.Enums.SensitivityType
-> m ()
rangeSetLowerStepperSensitivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> SensitivityType -> m ()
rangeSetLowerStepperSensitivity a
range SensitivityType
sensitivity = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let sensitivity' :: CUInt
sensitivity' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) SensitivityType
sensitivity
Ptr Range -> CUInt -> IO ()
gtk_range_set_lower_stepper_sensitivity Ptr Range
range' CUInt
sensitivity'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetLowerStepperSensitivityMethodInfo
instance (signature ~ (Gtk.Enums.SensitivityType -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetLowerStepperSensitivityMethodInfo a signature where
overloadedMethod = rangeSetLowerStepperSensitivity
instance O.OverloadedMethodInfo RangeSetLowerStepperSensitivityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetLowerStepperSensitivity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeSetLowerStepperSensitivity"
})
#endif
foreign import ccall "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size ::
Ptr Range ->
Int32 ->
IO ()
{-# DEPRECATED rangeSetMinSliderSize ["(Since version 3.20)","Use the min-height\\/min-width CSS properties on the slider"," node."] #-}
rangeSetMinSliderSize ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Int32
-> m ()
rangeSetMinSliderSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Int32 -> m ()
rangeSetMinSliderSize a
range Int32
minSize = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Range -> Int32 -> IO ()
gtk_range_set_min_slider_size Ptr Range
range' Int32
minSize
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetMinSliderSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetMinSliderSizeMethodInfo a signature where
overloadedMethod = rangeSetMinSliderSize
instance O.OverloadedMethodInfo RangeSetMinSliderSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetMinSliderSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeSetMinSliderSize"
})
#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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let min' :: CDouble
min' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
min
let max' :: CDouble
max' = 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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let restrictToFillLevel' :: CInt
restrictToFillLevel' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. 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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
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
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let showFillLevel' :: CInt
showFillLevel' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. 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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let sizeFixed' :: CInt
sizeFixed' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. 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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeSetSliderSizeFixed"
})
#endif
foreign import ccall "gtk_range_set_upper_stepper_sensitivity" gtk_range_set_upper_stepper_sensitivity ::
Ptr Range ->
CUInt ->
IO ()
rangeSetUpperStepperSensitivity ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Gtk.Enums.SensitivityType
-> m ()
rangeSetUpperStepperSensitivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> SensitivityType -> m ()
rangeSetUpperStepperSensitivity a
range SensitivityType
sensitivity = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let sensitivity' :: CUInt
sensitivity' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) SensitivityType
sensitivity
Ptr Range -> CUInt -> IO ()
gtk_range_set_upper_stepper_sensitivity Ptr Range
range' CUInt
sensitivity'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetUpperStepperSensitivityMethodInfo
instance (signature ~ (Gtk.Enums.SensitivityType -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetUpperStepperSensitivityMethodInfo a signature where
overloadedMethod = rangeSetUpperStepperSensitivity
instance O.OverloadedMethodInfo RangeSetUpperStepperSensitivityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetUpperStepperSensitivity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeSetUpperStepperSensitivity"
})
#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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let value' :: CDouble
value' = 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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
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-3.0.39/docs/GI-Gtk-Objects-Range.html#v:rangeSetValue"
})
#endif