{-# 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
(Range -> Range -> Bool) -> (Range -> Range -> Bool) -> Eq Range
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Range -> Range -> Bool
== :: Range -> Range -> Bool
$c/= :: Range -> Range -> Bool
/= :: Range -> Range -> Bool
Eq)
instance SP.ManagedPtrNewtype Range where
toManagedPtr :: Range -> ManagedPtr Range
toManagedPtr (Range ManagedPtr Range
p) = ManagedPtr Range
p
foreign import ccall "gtk_range_get_type"
c_gtk_range_get_type :: IO B.Types.GType
instance B.Types.TypedObject Range where
glibType :: IO GType
glibType = IO GType
c_gtk_range_get_type
instance B.Types.GObject Range
class (SP.GObject o, O.IsDescendantOf Range o) => IsRange o
instance (SP.GObject o, O.IsDescendantOf Range o) => IsRange o
instance O.HasParentTypes Range
type instance O.ParentTypes Range = '[Gtk.Widget.Widget, GObject.Object.Object, 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 = IO Range -> m Range
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Range -> m Range) -> (o -> IO Range) -> o -> m Range
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Range -> Range) -> o -> IO Range
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Range -> Range
Range
instance B.GValue.IsGValue (Maybe Range) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_range_get_type
gvalueSet_ :: Ptr GValue -> Maybe Range -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Range
P.Nothing = Ptr GValue -> Ptr Range -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Range
forall a. Ptr a
FP.nullPtr :: FP.Ptr Range)
gvalueSet_ Ptr GValue
gv (P.Just Range
obj) = Range -> (Ptr Range -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Range
obj (Ptr GValue -> Ptr Range -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Range)
gvalueGet_ Ptr GValue
gv = do
Ptr Range
ptr <- Ptr GValue -> IO (Ptr Range)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Range)
if Ptr Range
ptr Ptr Range -> Ptr Range -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Range
forall a. Ptr a
FP.nullPtr
then Range -> Maybe Range
forall a. a -> Maybe a
P.Just (Range -> Maybe Range) -> IO Range -> IO (Maybe Range)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Range -> Range) -> Ptr Range -> IO Range
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Range -> Range
Range Ptr Range
ptr
else Maybe Range -> IO (Maybe Range)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Range
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRangeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRangeMethod "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' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
Ptr Range -> (Range -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr ((Range -> IO ()) -> IO ()) -> (Range -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeAdjustBoundsCallback
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self) Double
value'
onRangeAdjustBounds :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
onRangeAdjustBounds :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
onRangeAdjustBounds a
obj (?self::a) => RangeAdjustBoundsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeAdjustBoundsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeAdjustBoundsCallback
RangeAdjustBoundsCallback
cb
let wrapped' :: C_RangeAdjustBoundsCallback
wrapped' = (a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
forall a.
GObject a =>
(a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
wrap_RangeAdjustBoundsCallback a -> RangeAdjustBoundsCallback
wrapped
FunPtr C_RangeAdjustBoundsCallback
wrapped'' <- C_RangeAdjustBoundsCallback
-> IO (FunPtr C_RangeAdjustBoundsCallback)
mk_RangeAdjustBoundsCallback C_RangeAdjustBoundsCallback
wrapped'
a
-> Text
-> FunPtr C_RangeAdjustBoundsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"adjust-bounds" FunPtr C_RangeAdjustBoundsCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeAdjustBounds :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
afterRangeAdjustBounds :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeAdjustBoundsCallback) -> m SignalHandlerId
afterRangeAdjustBounds a
obj (?self::a) => RangeAdjustBoundsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeAdjustBoundsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeAdjustBoundsCallback
RangeAdjustBoundsCallback
cb
let wrapped' :: C_RangeAdjustBoundsCallback
wrapped' = (a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
forall a.
GObject a =>
(a -> RangeAdjustBoundsCallback) -> C_RangeAdjustBoundsCallback
wrap_RangeAdjustBoundsCallback a -> RangeAdjustBoundsCallback
wrapped
FunPtr C_RangeAdjustBoundsCallback
wrapped'' <- C_RangeAdjustBoundsCallback
-> IO (FunPtr C_RangeAdjustBoundsCallback)
mk_RangeAdjustBoundsCallback C_RangeAdjustBoundsCallback
wrapped'
a
-> Text
-> FunPtr C_RangeAdjustBoundsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"adjust-bounds" FunPtr C_RangeAdjustBoundsCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeAdjustBoundsSignalInfo
instance SignalInfo RangeAdjustBoundsSignalInfo where
type HaskellCallbackType RangeAdjustBoundsSignalInfo = RangeAdjustBoundsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeAdjustBoundsCallback cb
cb'' <- mk_RangeAdjustBoundsCallback cb'
connectSignalFunPtr obj "adjust-bounds" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::adjust-bounds"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:signal:adjustBounds"})
#endif
type RangeChangeValueCallback =
Gtk.Enums.ScrollType
-> Double
-> IO Bool
type C_RangeChangeValueCallback =
Ptr Range ->
CUInt ->
CDouble ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_RangeChangeValueCallback :: C_RangeChangeValueCallback -> IO (FunPtr C_RangeChangeValueCallback)
wrap_RangeChangeValueCallback ::
GObject a => (a -> RangeChangeValueCallback) ->
C_RangeChangeValueCallback
wrap_RangeChangeValueCallback :: forall a.
GObject a =>
(a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
wrap_RangeChangeValueCallback a -> RangeChangeValueCallback
gi'cb Ptr Range
gi'selfPtr CUInt
scroll CDouble
value Ptr ()
_ = do
let scroll' :: ScrollType
scroll' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
scroll
let value' :: Double
value' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
Bool
result <- Ptr Range -> (Range -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr ((Range -> IO Bool) -> IO Bool) -> (Range -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeChangeValueCallback
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self) ScrollType
scroll' Double
value'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onRangeChangeValue :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeChangeValueCallback) -> m SignalHandlerId
onRangeChangeValue :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeChangeValueCallback) -> m SignalHandlerId
onRangeChangeValue a
obj (?self::a) => RangeChangeValueCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeChangeValueCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeChangeValueCallback
RangeChangeValueCallback
cb
let wrapped' :: C_RangeChangeValueCallback
wrapped' = (a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
forall a.
GObject a =>
(a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
wrap_RangeChangeValueCallback a -> RangeChangeValueCallback
wrapped
FunPtr C_RangeChangeValueCallback
wrapped'' <- C_RangeChangeValueCallback
-> IO (FunPtr C_RangeChangeValueCallback)
mk_RangeChangeValueCallback C_RangeChangeValueCallback
wrapped'
a
-> Text
-> FunPtr C_RangeChangeValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-value" FunPtr C_RangeChangeValueCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeChangeValue :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeChangeValueCallback) -> m SignalHandlerId
afterRangeChangeValue :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeChangeValueCallback) -> m SignalHandlerId
afterRangeChangeValue a
obj (?self::a) => RangeChangeValueCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeChangeValueCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeChangeValueCallback
RangeChangeValueCallback
cb
let wrapped' :: C_RangeChangeValueCallback
wrapped' = (a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
forall a.
GObject a =>
(a -> RangeChangeValueCallback) -> C_RangeChangeValueCallback
wrap_RangeChangeValueCallback a -> RangeChangeValueCallback
wrapped
FunPtr C_RangeChangeValueCallback
wrapped'' <- C_RangeChangeValueCallback
-> IO (FunPtr C_RangeChangeValueCallback)
mk_RangeChangeValueCallback C_RangeChangeValueCallback
wrapped'
a
-> Text
-> FunPtr C_RangeChangeValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-value" FunPtr C_RangeChangeValueCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeChangeValueSignalInfo
instance SignalInfo RangeChangeValueSignalInfo where
type HaskellCallbackType RangeChangeValueSignalInfo = RangeChangeValueCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeChangeValueCallback cb
cb'' <- mk_RangeChangeValueCallback cb'
connectSignalFunPtr obj "change-value" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::change-value"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:signal:changeValue"})
#endif
type RangeMoveSliderCallback =
Gtk.Enums.ScrollType
-> IO ()
type C_RangeMoveSliderCallback =
Ptr Range ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeMoveSliderCallback :: C_RangeMoveSliderCallback -> IO (FunPtr C_RangeMoveSliderCallback)
wrap_RangeMoveSliderCallback ::
GObject a => (a -> RangeMoveSliderCallback) ->
C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback :: forall a.
GObject a =>
(a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback a -> RangeMoveSliderCallback
gi'cb Ptr Range
gi'selfPtr CUInt
step Ptr ()
_ = do
let step' :: ScrollType
step' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
Ptr Range -> (Range -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr ((Range -> IO ()) -> IO ()) -> (Range -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> RangeMoveSliderCallback
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self) ScrollType
step'
onRangeMoveSlider :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeMoveSliderCallback) -> m SignalHandlerId
onRangeMoveSlider :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeMoveSliderCallback) -> m SignalHandlerId
onRangeMoveSlider a
obj (?self::a) => RangeMoveSliderCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeMoveSliderCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeMoveSliderCallback
RangeMoveSliderCallback
cb
let wrapped' :: C_RangeMoveSliderCallback
wrapped' = (a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
forall a.
GObject a =>
(a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback a -> RangeMoveSliderCallback
wrapped
FunPtr C_RangeMoveSliderCallback
wrapped'' <- C_RangeMoveSliderCallback -> IO (FunPtr C_RangeMoveSliderCallback)
mk_RangeMoveSliderCallback C_RangeMoveSliderCallback
wrapped'
a
-> Text
-> FunPtr C_RangeMoveSliderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-slider" FunPtr C_RangeMoveSliderCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeMoveSlider :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeMoveSliderCallback) -> m SignalHandlerId
afterRangeMoveSlider :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => RangeMoveSliderCallback) -> m SignalHandlerId
afterRangeMoveSlider a
obj (?self::a) => RangeMoveSliderCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> RangeMoveSliderCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => RangeMoveSliderCallback
RangeMoveSliderCallback
cb
let wrapped' :: C_RangeMoveSliderCallback
wrapped' = (a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
forall a.
GObject a =>
(a -> RangeMoveSliderCallback) -> C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback a -> RangeMoveSliderCallback
wrapped
FunPtr C_RangeMoveSliderCallback
wrapped'' <- C_RangeMoveSliderCallback -> IO (FunPtr C_RangeMoveSliderCallback)
mk_RangeMoveSliderCallback C_RangeMoveSliderCallback
wrapped'
a
-> Text
-> FunPtr C_RangeMoveSliderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-slider" FunPtr C_RangeMoveSliderCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeMoveSliderSignalInfo
instance SignalInfo RangeMoveSliderSignalInfo where
type HaskellCallbackType RangeMoveSliderSignalInfo = RangeMoveSliderCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeMoveSliderCallback cb
cb'' <- mk_RangeMoveSliderCallback cb'
connectSignalFunPtr obj "move-slider" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::move-slider"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:signal:moveSlider"})
#endif
type RangeValueChangedCallback =
IO ()
type C_RangeValueChangedCallback =
Ptr Range ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeValueChangedCallback :: C_RangeValueChangedCallback -> IO (FunPtr C_RangeValueChangedCallback)
wrap_RangeValueChangedCallback ::
GObject a => (a -> RangeValueChangedCallback) ->
C_RangeValueChangedCallback
wrap_RangeValueChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_RangeValueChangedCallback
wrap_RangeValueChangedCallback a -> IO ()
gi'cb Ptr Range
gi'selfPtr Ptr ()
_ = do
Ptr Range -> (Range -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Range
gi'selfPtr ((Range -> IO ()) -> IO ()) -> (Range -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Range
gi'self -> a -> IO ()
gi'cb (Range -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Range
gi'self)
onRangeValueChanged :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeValueChangedCallback) -> m SignalHandlerId
onRangeValueChanged :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onRangeValueChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_RangeValueChangedCallback
wrapped' = (a -> IO ()) -> C_RangeValueChangedCallback
forall a. GObject a => (a -> IO ()) -> C_RangeValueChangedCallback
wrap_RangeValueChangedCallback a -> IO ()
wrapped
FunPtr C_RangeValueChangedCallback
wrapped'' <- C_RangeValueChangedCallback
-> IO (FunPtr C_RangeValueChangedCallback)
mk_RangeValueChangedCallback C_RangeValueChangedCallback
wrapped'
a
-> Text
-> FunPtr C_RangeValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"value-changed" FunPtr C_RangeValueChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRangeValueChanged :: (IsRange a, MonadIO m) => a -> ((?self :: a) => RangeValueChangedCallback) -> m SignalHandlerId
afterRangeValueChanged :: forall a (m :: * -> *).
(IsRange a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterRangeValueChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_RangeValueChangedCallback
wrapped' = (a -> IO ()) -> C_RangeValueChangedCallback
forall a. GObject a => (a -> IO ()) -> C_RangeValueChangedCallback
wrap_RangeValueChangedCallback a -> IO ()
wrapped
FunPtr C_RangeValueChangedCallback
wrapped'' <- C_RangeValueChangedCallback
-> IO (FunPtr C_RangeValueChangedCallback)
mk_RangeValueChangedCallback C_RangeValueChangedCallback
wrapped'
a
-> Text
-> FunPtr C_RangeValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"value-changed" FunPtr C_RangeValueChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RangeValueChangedSignalInfo
instance SignalInfo RangeValueChangedSignalInfo where
type HaskellCallbackType RangeValueChangedSignalInfo = RangeValueChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RangeValueChangedCallback cb
cb'' <- mk_RangeValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range::value-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:signal:valueChanged"})
#endif
getRangeAdjustment :: (MonadIO m, IsRange o) => o -> m Gtk.Adjustment.Adjustment
getRangeAdjustment :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Adjustment
getRangeAdjustment o
obj = IO Adjustment -> m Adjustment
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Adjustment) -> IO Adjustment
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getRangeAdjustment" (IO (Maybe Adjustment) -> IO Adjustment)
-> IO (Maybe Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Adjustment -> Adjustment)
-> IO (Maybe Adjustment)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"adjustment" ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment
setRangeAdjustment :: (MonadIO m, IsRange o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m ()
setRangeAdjustment :: forall (m :: * -> *) o a.
(MonadIO m, IsRange o, IsAdjustment a) =>
o -> a -> m ()
setRangeAdjustment o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"adjustment" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructRangeAdjustment :: (IsRange o, MIO.MonadIO m, Gtk.Adjustment.IsAdjustment a) => a -> m (GValueConstruct o)
constructRangeAdjustment :: forall o (m :: * -> *) a.
(IsRange o, MonadIO m, IsAdjustment a) =>
a -> m (GValueConstruct o)
constructRangeAdjustment a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"adjustment" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data RangeAdjustmentPropertyInfo
instance AttrInfo RangeAdjustmentPropertyInfo where
type AttrAllowedOps RangeAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeAdjustmentPropertyInfo = IsRange
type AttrSetTypeConstraint RangeAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferTypeConstraint RangeAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferType RangeAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrGetType RangeAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrLabel RangeAdjustmentPropertyInfo = "adjustment"
type AttrOrigin RangeAdjustmentPropertyInfo = Range
attrGet = getRangeAdjustment
attrSet = setRangeAdjustment
attrTransfer _ v = do
unsafeCastTo Gtk.Adjustment.Adjustment v
attrConstruct = constructRangeAdjustment
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.adjustment"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:attr:adjustment"
})
#endif
getRangeFillLevel :: (MonadIO m, IsRange o) => o -> m Double
getRangeFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Double
getRangeFillLevel o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"fill-level"
setRangeFillLevel :: (MonadIO m, IsRange o) => o -> Double -> m ()
setRangeFillLevel :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> Double -> m ()
setRangeFillLevel o
obj Double
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> RangeAdjustBoundsCallback
forall a. GObject a => a -> String -> RangeAdjustBoundsCallback
B.Properties.setObjectPropertyDouble o
obj String
"fill-level" Double
val
constructRangeFillLevel :: (IsRange o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructRangeFillLevel :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructRangeFillLevel Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"fill-level" Double
val
#if defined(ENABLE_OVERLOADING)
data RangeFillLevelPropertyInfo
instance AttrInfo RangeFillLevelPropertyInfo where
type AttrAllowedOps RangeFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeFillLevelPropertyInfo = IsRange
type AttrSetTypeConstraint RangeFillLevelPropertyInfo = (~) Double
type AttrTransferTypeConstraint RangeFillLevelPropertyInfo = (~) Double
type AttrTransferType RangeFillLevelPropertyInfo = Double
type AttrGetType RangeFillLevelPropertyInfo = Double
type AttrLabel RangeFillLevelPropertyInfo = "fill-level"
type AttrOrigin RangeFillLevelPropertyInfo = Range
attrGet = getRangeFillLevel
attrSet = setRangeFillLevel
attrTransfer _ v = do
return v
attrConstruct = constructRangeFillLevel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.fillLevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:attr:fillLevel"
})
#endif
getRangeInverted :: (MonadIO m, IsRange o) => o -> m Bool
getRangeInverted :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Bool
getRangeInverted o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"inverted"
setRangeInverted :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeInverted :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeInverted o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"inverted" Bool
val
constructRangeInverted :: (IsRange o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructRangeInverted :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructRangeInverted Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"inverted" Bool
val
#if defined(ENABLE_OVERLOADING)
data RangeInvertedPropertyInfo
instance AttrInfo RangeInvertedPropertyInfo where
type AttrAllowedOps RangeInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeInvertedPropertyInfo = IsRange
type AttrSetTypeConstraint RangeInvertedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint RangeInvertedPropertyInfo = (~) Bool
type AttrTransferType RangeInvertedPropertyInfo = Bool
type AttrGetType RangeInvertedPropertyInfo = Bool
type AttrLabel RangeInvertedPropertyInfo = "inverted"
type AttrOrigin RangeInvertedPropertyInfo = Range
attrGet = getRangeInverted
attrSet = setRangeInverted
attrTransfer _ v = do
return v
attrConstruct = constructRangeInverted
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.inverted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/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 = IO SensitivityType -> m SensitivityType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SensitivityType -> m SensitivityType)
-> IO SensitivityType -> m SensitivityType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SensitivityType
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> SensitivityType -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SensitivityType -> IO (GValueConstruct o)
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.41/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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"restrict-to-fill-level"
setRangeRestrictToFillLevel :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeRestrictToFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeRestrictToFillLevel o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"restrict-to-fill-level" Bool
val
constructRangeRestrictToFillLevel :: (IsRange o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructRangeRestrictToFillLevel :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructRangeRestrictToFillLevel Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"restrict-to-fill-level" Bool
val
#if defined(ENABLE_OVERLOADING)
data RangeRestrictToFillLevelPropertyInfo
instance AttrInfo RangeRestrictToFillLevelPropertyInfo where
type AttrAllowedOps RangeRestrictToFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeRestrictToFillLevelPropertyInfo = IsRange
type AttrSetTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool
type AttrTransferType RangeRestrictToFillLevelPropertyInfo = Bool
type AttrGetType RangeRestrictToFillLevelPropertyInfo = Bool
type AttrLabel RangeRestrictToFillLevelPropertyInfo = "restrict-to-fill-level"
type AttrOrigin RangeRestrictToFillLevelPropertyInfo = Range
attrGet = getRangeRestrictToFillLevel
attrSet = setRangeRestrictToFillLevel
attrTransfer _ v = do
return v
attrConstruct = constructRangeRestrictToFillLevel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.restrictToFillLevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:attr:restrictToFillLevel"
})
#endif
getRangeRoundDigits :: (MonadIO m, IsRange o) => o -> m Int32
getRangeRoundDigits :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Int32
getRangeRoundDigits o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"round-digits"
setRangeRoundDigits :: (MonadIO m, IsRange o) => o -> Int32 -> m ()
setRangeRoundDigits :: forall (m :: * -> *) o.
(MonadIO m, IsRange o) =>
o -> Int32 -> m ()
setRangeRoundDigits o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"round-digits" Int32
val
constructRangeRoundDigits :: (IsRange o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructRangeRoundDigits :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructRangeRoundDigits Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"round-digits" Int32
val
#if defined(ENABLE_OVERLOADING)
data RangeRoundDigitsPropertyInfo
instance AttrInfo RangeRoundDigitsPropertyInfo where
type AttrAllowedOps RangeRoundDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeRoundDigitsPropertyInfo = IsRange
type AttrSetTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32
type AttrTransferType RangeRoundDigitsPropertyInfo = Int32
type AttrGetType RangeRoundDigitsPropertyInfo = Int32
type AttrLabel RangeRoundDigitsPropertyInfo = "round-digits"
type AttrOrigin RangeRoundDigitsPropertyInfo = Range
attrGet = getRangeRoundDigits
attrSet = setRangeRoundDigits
attrTransfer _ v = do
return v
attrConstruct = constructRangeRoundDigits
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.roundDigits"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#g:attr:roundDigits"
})
#endif
getRangeShowFillLevel :: (MonadIO m, IsRange o) => o -> m Bool
getRangeShowFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> m Bool
getRangeShowFillLevel o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-fill-level"
setRangeShowFillLevel :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeShowFillLevel :: forall (m :: * -> *) o. (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeShowFillLevel o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-fill-level" Bool
val
constructRangeShowFillLevel :: (IsRange o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructRangeShowFillLevel :: forall o (m :: * -> *).
(IsRange o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructRangeShowFillLevel Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-fill-level" Bool
val
#if defined(ENABLE_OVERLOADING)
data RangeShowFillLevelPropertyInfo
instance AttrInfo RangeShowFillLevelPropertyInfo where
type AttrAllowedOps RangeShowFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint RangeShowFillLevelPropertyInfo = IsRange
type AttrSetTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool
type AttrTransferType RangeShowFillLevelPropertyInfo = Bool
type AttrGetType RangeShowFillLevelPropertyInfo = Bool
type AttrLabel RangeShowFillLevelPropertyInfo = "show-fill-level"
type AttrOrigin RangeShowFillLevelPropertyInfo = Range
attrGet = getRangeShowFillLevel
attrSet = setRangeShowFillLevel
attrTransfer _ v = do
return v
attrConstruct = constructRangeShowFillLevel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.showFillLevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/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 = IO SensitivityType -> m SensitivityType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SensitivityType -> m SensitivityType)
-> IO SensitivityType -> m SensitivityType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SensitivityType
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> SensitivityType -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SensitivityType -> IO (GValueConstruct o)
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.41/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 = IO Adjustment -> m Adjustment
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Adjustment
result <- Ptr Range -> IO (Ptr Adjustment)
gtk_range_get_adjustment Ptr Range
range'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"rangeGetAdjustment" Ptr Adjustment
result
Adjustment
result' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Adjustment -> IO Adjustment
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetAdjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetAdjustmentMethodInfo a signature where
overloadedMethod = rangeGetAdjustment
instance O.OverloadedMethodInfo RangeGetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetAdjustment"
})
#endif
foreign import ccall "gtk_range_get_fill_level" gtk_range_get_fill_level ::
Ptr Range ->
IO CDouble
rangeGetFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Double
rangeGetFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Double
rangeGetFillLevel a
range = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CDouble
result <- Ptr Range -> IO CDouble
gtk_range_get_fill_level Ptr Range
range'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetFillLevelMethodInfo
instance (signature ~ (m Double), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetFillLevelMethodInfo a signature where
overloadedMethod = rangeGetFillLevel
instance O.OverloadedMethodInfo RangeGetFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetFillLevel"
})
#endif
foreign import ccall "gtk_range_get_flippable" gtk_range_get_flippable ::
Ptr Range ->
IO CInt
rangeGetFlippable ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetFlippable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetFlippable a
range = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_flippable Ptr Range
range'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetFlippableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetFlippableMethodInfo a signature where
overloadedMethod = rangeGetFlippable
instance O.OverloadedMethodInfo RangeGetFlippableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetFlippable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetFlippable"
})
#endif
foreign import ccall "gtk_range_get_inverted" gtk_range_get_inverted ::
Ptr Range ->
IO CInt
rangeGetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetInverted a
range = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_inverted Ptr Range
range'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetInvertedMethodInfo a signature where
overloadedMethod = rangeGetInverted
instance O.OverloadedMethodInfo RangeGetInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/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 = IO SensitivityType -> m SensitivityType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SensitivityType -> m SensitivityType)
-> IO SensitivityType -> m SensitivityType
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CUInt
result <- Ptr Range -> IO CUInt
gtk_range_get_lower_stepper_sensitivity Ptr Range
range'
let result' :: SensitivityType
result' = (Int -> SensitivityType
forall a. Enum a => Int -> a
toEnum (Int -> SensitivityType)
-> (CUInt -> Int) -> CUInt -> SensitivityType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
SensitivityType -> IO SensitivityType
forall a. a -> IO a
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.41/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 = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Int32
result <- Ptr Range -> IO Int32
gtk_range_get_min_slider_size Ptr Range
range'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data 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.41/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 = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Rectangle
rangeRect <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr Range -> Ptr Rectangle -> IO ()
gtk_range_get_range_rect Ptr Range
range' Ptr Rectangle
rangeRect
Rectangle
rangeRect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rangeRect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Rectangle -> IO Rectangle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
rangeRect'
#if defined(ENABLE_OVERLOADING)
data RangeGetRangeRectMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetRangeRectMethodInfo a signature where
overloadedMethod = rangeGetRangeRect
instance O.OverloadedMethodInfo RangeGetRangeRectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetRangeRect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetRangeRect"
})
#endif
foreign import ccall "gtk_range_get_restrict_to_fill_level" gtk_range_get_restrict_to_fill_level ::
Ptr Range ->
IO CInt
rangeGetRestrictToFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetRestrictToFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetRestrictToFillLevel a
range = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_restrict_to_fill_level Ptr Range
range'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetRestrictToFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetRestrictToFillLevelMethodInfo a signature where
overloadedMethod = rangeGetRestrictToFillLevel
instance O.OverloadedMethodInfo RangeGetRestrictToFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetRestrictToFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetRestrictToFillLevel"
})
#endif
foreign import ccall "gtk_range_get_round_digits" gtk_range_get_round_digits ::
Ptr Range ->
IO Int32
rangeGetRoundDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Int32
rangeGetRoundDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Int32
rangeGetRoundDigits a
range = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Int32
result <- Ptr Range -> IO Int32
gtk_range_get_round_digits Ptr Range
range'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data RangeGetRoundDigitsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetRoundDigitsMethodInfo a signature where
overloadedMethod = rangeGetRoundDigits
instance O.OverloadedMethodInfo RangeGetRoundDigitsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetRoundDigits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetRoundDigits"
})
#endif
foreign import ccall "gtk_range_get_show_fill_level" gtk_range_get_show_fill_level ::
Ptr Range ->
IO CInt
rangeGetShowFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetShowFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetShowFillLevel a
range = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_show_fill_level Ptr Range
range'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetShowFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetShowFillLevelMethodInfo a signature where
overloadedMethod = rangeGetShowFillLevel
instance O.OverloadedMethodInfo RangeGetShowFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetShowFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetShowFillLevel"
})
#endif
foreign import ccall "gtk_range_get_slider_range" gtk_range_get_slider_range ::
Ptr Range ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
rangeGetSliderRange ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m ((Int32, Int32))
rangeGetSliderRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m (Int32, Int32)
rangeGetSliderRange a
range = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Int32
sliderStart <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
sliderEnd <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Range -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_range_get_slider_range Ptr Range
range' Ptr Int32
sliderStart Ptr Int32
sliderEnd
Int32
sliderStart' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
sliderStart
Int32
sliderEnd' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
sliderEnd
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
sliderStart
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
sliderEnd
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
sliderStart', Int32
sliderEnd')
#if defined(ENABLE_OVERLOADING)
data RangeGetSliderRangeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetSliderRangeMethodInfo a signature where
overloadedMethod = rangeGetSliderRange
instance O.OverloadedMethodInfo RangeGetSliderRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetSliderRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetSliderRange"
})
#endif
foreign import ccall "gtk_range_get_slider_size_fixed" gtk_range_get_slider_size_fixed ::
Ptr Range ->
IO CInt
rangeGetSliderSizeFixed ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> m Bool
rangeGetSliderSizeFixed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> m Bool
rangeGetSliderSizeFixed a
range = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CInt
result <- Ptr Range -> IO CInt
gtk_range_get_slider_size_fixed Ptr Range
range'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetSliderSizeFixedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetSliderSizeFixedMethodInfo a signature where
overloadedMethod = rangeGetSliderSizeFixed
instance O.OverloadedMethodInfo RangeGetSliderSizeFixedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetSliderSizeFixed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/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 = IO SensitivityType -> m SensitivityType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SensitivityType -> m SensitivityType)
-> IO SensitivityType -> m SensitivityType
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CUInt
result <- Ptr Range -> IO CUInt
gtk_range_get_upper_stepper_sensitivity Ptr Range
range'
let result' :: SensitivityType
result' = (Int -> SensitivityType
forall a. Enum a => Int -> a
toEnum (Int -> SensitivityType)
-> (CUInt -> Int) -> CUInt -> SensitivityType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
SensitivityType -> IO SensitivityType
forall a. a -> IO a
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.41/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 = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
CDouble
result <- Ptr Range -> IO CDouble
gtk_range_get_value Ptr Range
range'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data RangeGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsRange a) => O.OverloadedMethod RangeGetValueMethodInfo a signature where
overloadedMethod = rangeGetValue
instance O.OverloadedMethodInfo RangeGetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeGetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeGetValue"
})
#endif
foreign import ccall "gtk_range_set_adjustment" gtk_range_set_adjustment ::
Ptr Range ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
rangeSetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
rangeSetAdjustment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsRange a, IsAdjustment b) =>
a -> b -> m ()
rangeSetAdjustment a
range b
adjustment = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr Range -> Ptr Adjustment -> IO ()
gtk_range_set_adjustment Ptr Range
range' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
adjustment
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetAdjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsRange a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod RangeSetAdjustmentMethodInfo a signature where
overloadedMethod = rangeSetAdjustment
instance O.OverloadedMethodInfo RangeSetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetAdjustment"
})
#endif
foreign import ccall "gtk_range_set_fill_level" gtk_range_set_fill_level ::
Ptr Range ->
CDouble ->
IO ()
rangeSetFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Double
-> m ()
rangeSetFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Double -> m ()
rangeSetFillLevel a
range Double
fillLevel = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let fillLevel' :: CDouble
fillLevel' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
fillLevel
Ptr Range -> CDouble -> IO ()
gtk_range_set_fill_level Ptr Range
range' CDouble
fillLevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetFillLevelMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetFillLevelMethodInfo a signature where
overloadedMethod = rangeSetFillLevel
instance O.OverloadedMethodInfo RangeSetFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetFillLevel"
})
#endif
foreign import ccall "gtk_range_set_flippable" gtk_range_set_flippable ::
Ptr Range ->
CInt ->
IO ()
rangeSetFlippable ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetFlippable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetFlippable a
range Bool
flippable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let flippable' :: CInt
flippable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
flippable
Ptr Range -> CInt -> IO ()
gtk_range_set_flippable Ptr Range
range' CInt
flippable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetFlippableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetFlippableMethodInfo a signature where
overloadedMethod = rangeSetFlippable
instance O.OverloadedMethodInfo RangeSetFlippableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetFlippable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetFlippable"
})
#endif
foreign import ccall "gtk_range_set_increments" gtk_range_set_increments ::
Ptr Range ->
CDouble ->
CDouble ->
IO ()
rangeSetIncrements ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Double
-> Double
-> m ()
rangeSetIncrements :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Double -> Double -> m ()
rangeSetIncrements a
range Double
step Double
page = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let step' :: CDouble
step' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
step
let page' :: CDouble
page' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
page
Ptr Range -> CDouble -> CDouble -> IO ()
gtk_range_set_increments Ptr Range
range' CDouble
step' CDouble
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetIncrementsMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetIncrementsMethodInfo a signature where
overloadedMethod = rangeSetIncrements
instance O.OverloadedMethodInfo RangeSetIncrementsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetIncrements",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetIncrements"
})
#endif
foreign import ccall "gtk_range_set_inverted" gtk_range_set_inverted ::
Ptr Range ->
CInt ->
IO ()
rangeSetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetInverted a
range Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
setting
Ptr Range -> CInt -> IO ()
gtk_range_set_inverted Ptr Range
range' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetInvertedMethodInfo a signature where
overloadedMethod = rangeSetInverted
instance O.OverloadedMethodInfo RangeSetInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let sensitivity' :: CUInt
sensitivity' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SensitivityType -> Int) -> SensitivityType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SensitivityType -> Int
forall a. Enum a => a -> Int
fromEnum) SensitivityType
sensitivity
Ptr Range -> CUInt -> IO ()
gtk_range_set_lower_stepper_sensitivity Ptr Range
range' CUInt
sensitivity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Range -> Int32 -> IO ()
gtk_range_set_min_slider_size Ptr Range
range' Int32
minSize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let min' :: CDouble
min' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
min
let max' :: CDouble
max' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
max
Ptr Range -> CDouble -> CDouble -> IO ()
gtk_range_set_range Ptr Range
range' CDouble
min' CDouble
max'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetRangeMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetRangeMethodInfo a signature where
overloadedMethod = rangeSetRange
instance O.OverloadedMethodInfo RangeSetRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetRange"
})
#endif
foreign import ccall "gtk_range_set_restrict_to_fill_level" gtk_range_set_restrict_to_fill_level ::
Ptr Range ->
CInt ->
IO ()
rangeSetRestrictToFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetRestrictToFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetRestrictToFillLevel a
range Bool
restrictToFillLevel = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let restrictToFillLevel' :: CInt
restrictToFillLevel' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
restrictToFillLevel
Ptr Range -> CInt -> IO ()
gtk_range_set_restrict_to_fill_level Ptr Range
range' CInt
restrictToFillLevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetRestrictToFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetRestrictToFillLevelMethodInfo a signature where
overloadedMethod = rangeSetRestrictToFillLevel
instance O.OverloadedMethodInfo RangeSetRestrictToFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetRestrictToFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetRestrictToFillLevel"
})
#endif
foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits ::
Ptr Range ->
Int32 ->
IO ()
rangeSetRoundDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Int32
-> m ()
rangeSetRoundDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Int32 -> m ()
rangeSetRoundDigits a
range Int32
roundDigits = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
Ptr Range -> Int32 -> IO ()
gtk_range_set_round_digits Ptr Range
range' Int32
roundDigits
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetRoundDigitsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetRoundDigitsMethodInfo a signature where
overloadedMethod = rangeSetRoundDigits
instance O.OverloadedMethodInfo RangeSetRoundDigitsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetRoundDigits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetRoundDigits"
})
#endif
foreign import ccall "gtk_range_set_show_fill_level" gtk_range_set_show_fill_level ::
Ptr Range ->
CInt ->
IO ()
rangeSetShowFillLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetShowFillLevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetShowFillLevel a
range Bool
showFillLevel = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let showFillLevel' :: CInt
showFillLevel' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
showFillLevel
Ptr Range -> CInt -> IO ()
gtk_range_set_show_fill_level Ptr Range
range' CInt
showFillLevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetShowFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetShowFillLevelMethodInfo a signature where
overloadedMethod = rangeSetShowFillLevel
instance O.OverloadedMethodInfo RangeSetShowFillLevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetShowFillLevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetShowFillLevel"
})
#endif
foreign import ccall "gtk_range_set_slider_size_fixed" gtk_range_set_slider_size_fixed ::
Ptr Range ->
CInt ->
IO ()
rangeSetSliderSizeFixed ::
(B.CallStack.HasCallStack, MonadIO m, IsRange a) =>
a
-> Bool
-> m ()
rangeSetSliderSizeFixed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRange a) =>
a -> Bool -> m ()
rangeSetSliderSizeFixed a
range Bool
sizeFixed = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let sizeFixed' :: CInt
sizeFixed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
sizeFixed
Ptr Range -> CInt -> IO ()
gtk_range_set_slider_size_fixed Ptr Range
range' CInt
sizeFixed'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetSliderSizeFixedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetSliderSizeFixedMethodInfo a signature where
overloadedMethod = rangeSetSliderSizeFixed
instance O.OverloadedMethodInfo RangeSetSliderSizeFixedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetSliderSizeFixed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let sensitivity' :: CUInt
sensitivity' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SensitivityType -> Int) -> SensitivityType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SensitivityType -> Int
forall a. Enum a => a -> Int
fromEnum) SensitivityType
sensitivity
Ptr Range -> CUInt -> IO ()
gtk_range_set_upper_stepper_sensitivity Ptr Range
range' CUInt
sensitivity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Range
range' <- a -> IO (Ptr Range)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
range
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr Range -> CDouble -> IO ()
gtk_range_set_value Ptr Range
range' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
range
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RangeSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsRange a) => O.OverloadedMethod RangeSetValueMethodInfo a signature where
overloadedMethod = rangeSetValue
instance O.OverloadedMethodInfo RangeSetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Range.rangeSetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Range.html#v:rangeSetValue"
})
#endif