#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Objects.Range
(
Range(..) ,
IsRange ,
toRange ,
noRange ,
#if ENABLE_OVERLOADING
RangeGetAdjustmentMethodInfo ,
#endif
rangeGetAdjustment ,
#if ENABLE_OVERLOADING
RangeGetFillLevelMethodInfo ,
#endif
rangeGetFillLevel ,
#if ENABLE_OVERLOADING
RangeGetFlippableMethodInfo ,
#endif
rangeGetFlippable ,
#if ENABLE_OVERLOADING
RangeGetInvertedMethodInfo ,
#endif
rangeGetInverted ,
#if ENABLE_OVERLOADING
RangeGetLowerStepperSensitivityMethodInfo,
#endif
rangeGetLowerStepperSensitivity ,
#if ENABLE_OVERLOADING
RangeGetMinSliderSizeMethodInfo ,
#endif
rangeGetMinSliderSize ,
#if ENABLE_OVERLOADING
RangeGetRangeRectMethodInfo ,
#endif
rangeGetRangeRect ,
#if ENABLE_OVERLOADING
RangeGetRestrictToFillLevelMethodInfo ,
#endif
rangeGetRestrictToFillLevel ,
#if ENABLE_OVERLOADING
RangeGetRoundDigitsMethodInfo ,
#endif
rangeGetRoundDigits ,
#if ENABLE_OVERLOADING
RangeGetShowFillLevelMethodInfo ,
#endif
rangeGetShowFillLevel ,
#if ENABLE_OVERLOADING
RangeGetSliderRangeMethodInfo ,
#endif
rangeGetSliderRange ,
#if ENABLE_OVERLOADING
RangeGetSliderSizeFixedMethodInfo ,
#endif
rangeGetSliderSizeFixed ,
#if ENABLE_OVERLOADING
RangeGetUpperStepperSensitivityMethodInfo,
#endif
rangeGetUpperStepperSensitivity ,
#if ENABLE_OVERLOADING
RangeGetValueMethodInfo ,
#endif
rangeGetValue ,
#if ENABLE_OVERLOADING
RangeSetAdjustmentMethodInfo ,
#endif
rangeSetAdjustment ,
#if ENABLE_OVERLOADING
RangeSetFillLevelMethodInfo ,
#endif
rangeSetFillLevel ,
#if ENABLE_OVERLOADING
RangeSetFlippableMethodInfo ,
#endif
rangeSetFlippable ,
#if ENABLE_OVERLOADING
RangeSetIncrementsMethodInfo ,
#endif
rangeSetIncrements ,
#if ENABLE_OVERLOADING
RangeSetInvertedMethodInfo ,
#endif
rangeSetInverted ,
#if ENABLE_OVERLOADING
RangeSetLowerStepperSensitivityMethodInfo,
#endif
rangeSetLowerStepperSensitivity ,
#if ENABLE_OVERLOADING
RangeSetMinSliderSizeMethodInfo ,
#endif
rangeSetMinSliderSize ,
#if ENABLE_OVERLOADING
RangeSetRangeMethodInfo ,
#endif
rangeSetRange ,
#if ENABLE_OVERLOADING
RangeSetRestrictToFillLevelMethodInfo ,
#endif
rangeSetRestrictToFillLevel ,
#if ENABLE_OVERLOADING
RangeSetRoundDigitsMethodInfo ,
#endif
rangeSetRoundDigits ,
#if ENABLE_OVERLOADING
RangeSetShowFillLevelMethodInfo ,
#endif
rangeSetShowFillLevel ,
#if ENABLE_OVERLOADING
RangeSetSliderSizeFixedMethodInfo ,
#endif
rangeSetSliderSizeFixed ,
#if ENABLE_OVERLOADING
RangeSetUpperStepperSensitivityMethodInfo,
#endif
rangeSetUpperStepperSensitivity ,
#if ENABLE_OVERLOADING
RangeSetValueMethodInfo ,
#endif
rangeSetValue ,
#if ENABLE_OVERLOADING
RangeAdjustmentPropertyInfo ,
#endif
constructRangeAdjustment ,
getRangeAdjustment ,
#if ENABLE_OVERLOADING
rangeAdjustment ,
#endif
setRangeAdjustment ,
#if ENABLE_OVERLOADING
RangeFillLevelPropertyInfo ,
#endif
constructRangeFillLevel ,
getRangeFillLevel ,
#if ENABLE_OVERLOADING
rangeFillLevel ,
#endif
setRangeFillLevel ,
#if ENABLE_OVERLOADING
RangeInvertedPropertyInfo ,
#endif
constructRangeInverted ,
getRangeInverted ,
#if ENABLE_OVERLOADING
rangeInverted ,
#endif
setRangeInverted ,
#if ENABLE_OVERLOADING
RangeLowerStepperSensitivityPropertyInfo,
#endif
constructRangeLowerStepperSensitivity ,
getRangeLowerStepperSensitivity ,
#if ENABLE_OVERLOADING
rangeLowerStepperSensitivity ,
#endif
setRangeLowerStepperSensitivity ,
#if ENABLE_OVERLOADING
RangeRestrictToFillLevelPropertyInfo ,
#endif
constructRangeRestrictToFillLevel ,
getRangeRestrictToFillLevel ,
#if ENABLE_OVERLOADING
rangeRestrictToFillLevel ,
#endif
setRangeRestrictToFillLevel ,
#if ENABLE_OVERLOADING
RangeRoundDigitsPropertyInfo ,
#endif
constructRangeRoundDigits ,
getRangeRoundDigits ,
#if ENABLE_OVERLOADING
rangeRoundDigits ,
#endif
setRangeRoundDigits ,
#if ENABLE_OVERLOADING
RangeShowFillLevelPropertyInfo ,
#endif
constructRangeShowFillLevel ,
getRangeShowFillLevel ,
#if ENABLE_OVERLOADING
rangeShowFillLevel ,
#endif
setRangeShowFillLevel ,
#if ENABLE_OVERLOADING
RangeUpperStepperSensitivityPropertyInfo,
#endif
constructRangeUpperStepperSensitivity ,
getRangeUpperStepperSensitivity ,
#if ENABLE_OVERLOADING
rangeUpperStepperSensitivity ,
#endif
setRangeUpperStepperSensitivity ,
C_RangeAdjustBoundsCallback ,
RangeAdjustBoundsCallback ,
#if ENABLE_OVERLOADING
RangeAdjustBoundsSignalInfo ,
#endif
afterRangeAdjustBounds ,
genClosure_RangeAdjustBounds ,
mk_RangeAdjustBoundsCallback ,
noRangeAdjustBoundsCallback ,
onRangeAdjustBounds ,
wrap_RangeAdjustBoundsCallback ,
C_RangeChangeValueCallback ,
RangeChangeValueCallback ,
#if ENABLE_OVERLOADING
RangeChangeValueSignalInfo ,
#endif
afterRangeChangeValue ,
genClosure_RangeChangeValue ,
mk_RangeChangeValueCallback ,
noRangeChangeValueCallback ,
onRangeChangeValue ,
wrap_RangeChangeValueCallback ,
C_RangeMoveSliderCallback ,
RangeMoveSliderCallback ,
#if ENABLE_OVERLOADING
RangeMoveSliderSignalInfo ,
#endif
afterRangeMoveSlider ,
genClosure_RangeMoveSlider ,
mk_RangeMoveSliderCallback ,
noRangeMoveSliderCallback ,
onRangeMoveSlider ,
wrap_RangeMoveSliderCallback ,
C_RangeValueChangedCallback ,
RangeValueChangedCallback ,
#if ENABLE_OVERLOADING
RangeValueChangedSignalInfo ,
#endif
afterRangeValueChanged ,
genClosure_RangeValueChanged ,
mk_RangeValueChangedCallback ,
noRangeValueChangedCallback ,
onRangeValueChanged ,
wrap_RangeValueChangedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
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 (ManagedPtr Range)
foreign import ccall "gtk_range_get_type"
c_gtk_range_get_type :: IO GType
instance GObject Range where
gobjectType _ = c_gtk_range_get_type
class GObject o => IsRange o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError Range a) =>
IsRange a
#endif
instance IsRange Range
instance Gtk.Widget.IsWidget Range
instance GObject.Object.IsObject Range
instance Atk.ImplementorIface.IsImplementorIface Range
instance Gtk.Buildable.IsBuildable Range
instance Gtk.Orientable.IsOrientable Range
toRange :: (MonadIO m, IsRange o) => o -> m Range
toRange = liftIO . unsafeCastTo Range
noRange :: Maybe Range
noRange = Nothing
#if ENABLE_OVERLOADING
type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * 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 "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.MethodInfo info Range p) => O.IsLabelProxy t (Range -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveRangeMethod t Range, O.MethodInfo info Range p) => O.IsLabel t (Range -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
type RangeAdjustBoundsCallback =
Double
-> IO ()
noRangeAdjustBoundsCallback :: Maybe RangeAdjustBoundsCallback
noRangeAdjustBoundsCallback = Nothing
type C_RangeAdjustBoundsCallback =
Ptr () ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeAdjustBoundsCallback :: C_RangeAdjustBoundsCallback -> IO (FunPtr C_RangeAdjustBoundsCallback)
genClosure_RangeAdjustBounds :: RangeAdjustBoundsCallback -> IO Closure
genClosure_RangeAdjustBounds cb = do
let cb' = wrap_RangeAdjustBoundsCallback cb
mk_RangeAdjustBoundsCallback cb' >>= newCClosure
wrap_RangeAdjustBoundsCallback ::
RangeAdjustBoundsCallback ->
C_RangeAdjustBoundsCallback
wrap_RangeAdjustBoundsCallback _cb _ value _ = do
let value' = realToFrac value
_cb value'
onRangeAdjustBounds :: (IsRange a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId
onRangeAdjustBounds obj cb = liftIO $ do
let cb' = wrap_RangeAdjustBoundsCallback cb
cb'' <- mk_RangeAdjustBoundsCallback cb'
connectSignalFunPtr obj "adjust-bounds" cb'' SignalConnectBefore
afterRangeAdjustBounds :: (IsRange a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId
afterRangeAdjustBounds obj cb = liftIO $ do
let cb' = wrap_RangeAdjustBoundsCallback cb
cb'' <- mk_RangeAdjustBoundsCallback cb'
connectSignalFunPtr obj "adjust-bounds" cb'' SignalConnectAfter
type RangeChangeValueCallback =
Gtk.Enums.ScrollType
-> Double
-> IO Bool
noRangeChangeValueCallback :: Maybe RangeChangeValueCallback
noRangeChangeValueCallback = Nothing
type C_RangeChangeValueCallback =
Ptr () ->
CUInt ->
CDouble ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_RangeChangeValueCallback :: C_RangeChangeValueCallback -> IO (FunPtr C_RangeChangeValueCallback)
genClosure_RangeChangeValue :: RangeChangeValueCallback -> IO Closure
genClosure_RangeChangeValue cb = do
let cb' = wrap_RangeChangeValueCallback cb
mk_RangeChangeValueCallback cb' >>= newCClosure
wrap_RangeChangeValueCallback ::
RangeChangeValueCallback ->
C_RangeChangeValueCallback
wrap_RangeChangeValueCallback _cb _ scroll value _ = do
let scroll' = (toEnum . fromIntegral) scroll
let value' = realToFrac value
result <- _cb scroll' value'
let result' = (fromIntegral . fromEnum) result
return result'
onRangeChangeValue :: (IsRange a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId
onRangeChangeValue obj cb = liftIO $ do
let cb' = wrap_RangeChangeValueCallback cb
cb'' <- mk_RangeChangeValueCallback cb'
connectSignalFunPtr obj "change-value" cb'' SignalConnectBefore
afterRangeChangeValue :: (IsRange a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId
afterRangeChangeValue obj cb = liftIO $ do
let cb' = wrap_RangeChangeValueCallback cb
cb'' <- mk_RangeChangeValueCallback cb'
connectSignalFunPtr obj "change-value" cb'' SignalConnectAfter
type RangeMoveSliderCallback =
Gtk.Enums.ScrollType
-> IO ()
noRangeMoveSliderCallback :: Maybe RangeMoveSliderCallback
noRangeMoveSliderCallback = Nothing
type C_RangeMoveSliderCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeMoveSliderCallback :: C_RangeMoveSliderCallback -> IO (FunPtr C_RangeMoveSliderCallback)
genClosure_RangeMoveSlider :: RangeMoveSliderCallback -> IO Closure
genClosure_RangeMoveSlider cb = do
let cb' = wrap_RangeMoveSliderCallback cb
mk_RangeMoveSliderCallback cb' >>= newCClosure
wrap_RangeMoveSliderCallback ::
RangeMoveSliderCallback ->
C_RangeMoveSliderCallback
wrap_RangeMoveSliderCallback _cb _ step _ = do
let step' = (toEnum . fromIntegral) step
_cb step'
onRangeMoveSlider :: (IsRange a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId
onRangeMoveSlider obj cb = liftIO $ do
let cb' = wrap_RangeMoveSliderCallback cb
cb'' <- mk_RangeMoveSliderCallback cb'
connectSignalFunPtr obj "move-slider" cb'' SignalConnectBefore
afterRangeMoveSlider :: (IsRange a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId
afterRangeMoveSlider obj cb = liftIO $ do
let cb' = wrap_RangeMoveSliderCallback cb
cb'' <- mk_RangeMoveSliderCallback cb'
connectSignalFunPtr obj "move-slider" cb'' SignalConnectAfter
type RangeValueChangedCallback =
IO ()
noRangeValueChangedCallback :: Maybe RangeValueChangedCallback
noRangeValueChangedCallback = Nothing
type C_RangeValueChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RangeValueChangedCallback :: C_RangeValueChangedCallback -> IO (FunPtr C_RangeValueChangedCallback)
genClosure_RangeValueChanged :: RangeValueChangedCallback -> IO Closure
genClosure_RangeValueChanged cb = do
let cb' = wrap_RangeValueChangedCallback cb
mk_RangeValueChangedCallback cb' >>= newCClosure
wrap_RangeValueChangedCallback ::
RangeValueChangedCallback ->
C_RangeValueChangedCallback
wrap_RangeValueChangedCallback _cb _ _ = do
_cb
onRangeValueChanged :: (IsRange a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId
onRangeValueChanged obj cb = liftIO $ do
let cb' = wrap_RangeValueChangedCallback cb
cb'' <- mk_RangeValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' SignalConnectBefore
afterRangeValueChanged :: (IsRange a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId
afterRangeValueChanged obj cb = liftIO $ do
let cb' = wrap_RangeValueChangedCallback cb
cb'' <- mk_RangeValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' SignalConnectAfter
getRangeAdjustment :: (MonadIO m, IsRange o) => o -> m Gtk.Adjustment.Adjustment
getRangeAdjustment obj = liftIO $ checkUnexpectedNothing "getRangeAdjustment" $ getObjectPropertyObject obj "adjustment" Gtk.Adjustment.Adjustment
setRangeAdjustment :: (MonadIO m, IsRange o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m ()
setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val)
constructRangeAdjustment :: (IsRange o, Gtk.Adjustment.IsAdjustment a) => a -> IO (GValueConstruct o)
constructRangeAdjustment val = constructObjectPropertyObject "adjustment" (Just val)
#if ENABLE_OVERLOADING
data RangeAdjustmentPropertyInfo
instance AttrInfo RangeAdjustmentPropertyInfo where
type AttrAllowedOps RangeAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrBaseTypeConstraint RangeAdjustmentPropertyInfo = IsRange
type AttrGetType RangeAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrLabel RangeAdjustmentPropertyInfo = "adjustment"
type AttrOrigin RangeAdjustmentPropertyInfo = Range
attrGet _ = getRangeAdjustment
attrSet _ = setRangeAdjustment
attrConstruct _ = constructRangeAdjustment
attrClear _ = undefined
#endif
getRangeFillLevel :: (MonadIO m, IsRange o) => o -> m Double
getRangeFillLevel obj = liftIO $ getObjectPropertyDouble obj "fill-level"
setRangeFillLevel :: (MonadIO m, IsRange o) => o -> Double -> m ()
setRangeFillLevel obj val = liftIO $ setObjectPropertyDouble obj "fill-level" val
constructRangeFillLevel :: (IsRange o) => Double -> IO (GValueConstruct o)
constructRangeFillLevel val = constructObjectPropertyDouble "fill-level" val
#if ENABLE_OVERLOADING
data RangeFillLevelPropertyInfo
instance AttrInfo RangeFillLevelPropertyInfo where
type AttrAllowedOps RangeFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeFillLevelPropertyInfo = (~) Double
type AttrBaseTypeConstraint RangeFillLevelPropertyInfo = IsRange
type AttrGetType RangeFillLevelPropertyInfo = Double
type AttrLabel RangeFillLevelPropertyInfo = "fill-level"
type AttrOrigin RangeFillLevelPropertyInfo = Range
attrGet _ = getRangeFillLevel
attrSet _ = setRangeFillLevel
attrConstruct _ = constructRangeFillLevel
attrClear _ = undefined
#endif
getRangeInverted :: (MonadIO m, IsRange o) => o -> m Bool
getRangeInverted obj = liftIO $ getObjectPropertyBool obj "inverted"
setRangeInverted :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeInverted obj val = liftIO $ setObjectPropertyBool obj "inverted" val
constructRangeInverted :: (IsRange o) => Bool -> IO (GValueConstruct o)
constructRangeInverted val = constructObjectPropertyBool "inverted" val
#if ENABLE_OVERLOADING
data RangeInvertedPropertyInfo
instance AttrInfo RangeInvertedPropertyInfo where
type AttrAllowedOps RangeInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeInvertedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint RangeInvertedPropertyInfo = IsRange
type AttrGetType RangeInvertedPropertyInfo = Bool
type AttrLabel RangeInvertedPropertyInfo = "inverted"
type AttrOrigin RangeInvertedPropertyInfo = Range
attrGet _ = getRangeInverted
attrSet _ = setRangeInverted
attrConstruct _ = constructRangeInverted
attrClear _ = undefined
#endif
getRangeLowerStepperSensitivity :: (MonadIO m, IsRange o) => o -> m Gtk.Enums.SensitivityType
getRangeLowerStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "lower-stepper-sensitivity"
setRangeLowerStepperSensitivity :: (MonadIO m, IsRange o) => o -> Gtk.Enums.SensitivityType -> m ()
setRangeLowerStepperSensitivity obj val = liftIO $ setObjectPropertyEnum obj "lower-stepper-sensitivity" val
constructRangeLowerStepperSensitivity :: (IsRange o) => Gtk.Enums.SensitivityType -> IO (GValueConstruct o)
constructRangeLowerStepperSensitivity val = constructObjectPropertyEnum "lower-stepper-sensitivity" val
#if ENABLE_OVERLOADING
data RangeLowerStepperSensitivityPropertyInfo
instance AttrInfo RangeLowerStepperSensitivityPropertyInfo where
type AttrAllowedOps RangeLowerStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeLowerStepperSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrBaseTypeConstraint RangeLowerStepperSensitivityPropertyInfo = IsRange
type AttrGetType RangeLowerStepperSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrLabel RangeLowerStepperSensitivityPropertyInfo = "lower-stepper-sensitivity"
type AttrOrigin RangeLowerStepperSensitivityPropertyInfo = Range
attrGet _ = getRangeLowerStepperSensitivity
attrSet _ = setRangeLowerStepperSensitivity
attrConstruct _ = constructRangeLowerStepperSensitivity
attrClear _ = undefined
#endif
getRangeRestrictToFillLevel :: (MonadIO m, IsRange o) => o -> m Bool
getRangeRestrictToFillLevel obj = liftIO $ getObjectPropertyBool obj "restrict-to-fill-level"
setRangeRestrictToFillLevel :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeRestrictToFillLevel obj val = liftIO $ setObjectPropertyBool obj "restrict-to-fill-level" val
constructRangeRestrictToFillLevel :: (IsRange o) => Bool -> IO (GValueConstruct o)
constructRangeRestrictToFillLevel val = constructObjectPropertyBool "restrict-to-fill-level" val
#if ENABLE_OVERLOADING
data RangeRestrictToFillLevelPropertyInfo
instance AttrInfo RangeRestrictToFillLevelPropertyInfo where
type AttrAllowedOps RangeRestrictToFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool
type AttrBaseTypeConstraint RangeRestrictToFillLevelPropertyInfo = IsRange
type AttrGetType RangeRestrictToFillLevelPropertyInfo = Bool
type AttrLabel RangeRestrictToFillLevelPropertyInfo = "restrict-to-fill-level"
type AttrOrigin RangeRestrictToFillLevelPropertyInfo = Range
attrGet _ = getRangeRestrictToFillLevel
attrSet _ = setRangeRestrictToFillLevel
attrConstruct _ = constructRangeRestrictToFillLevel
attrClear _ = undefined
#endif
getRangeRoundDigits :: (MonadIO m, IsRange o) => o -> m Int32
getRangeRoundDigits obj = liftIO $ getObjectPropertyInt32 obj "round-digits"
setRangeRoundDigits :: (MonadIO m, IsRange o) => o -> Int32 -> m ()
setRangeRoundDigits obj val = liftIO $ setObjectPropertyInt32 obj "round-digits" val
constructRangeRoundDigits :: (IsRange o) => Int32 -> IO (GValueConstruct o)
constructRangeRoundDigits val = constructObjectPropertyInt32 "round-digits" val
#if ENABLE_OVERLOADING
data RangeRoundDigitsPropertyInfo
instance AttrInfo RangeRoundDigitsPropertyInfo where
type AttrAllowedOps RangeRoundDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint RangeRoundDigitsPropertyInfo = IsRange
type AttrGetType RangeRoundDigitsPropertyInfo = Int32
type AttrLabel RangeRoundDigitsPropertyInfo = "round-digits"
type AttrOrigin RangeRoundDigitsPropertyInfo = Range
attrGet _ = getRangeRoundDigits
attrSet _ = setRangeRoundDigits
attrConstruct _ = constructRangeRoundDigits
attrClear _ = undefined
#endif
getRangeShowFillLevel :: (MonadIO m, IsRange o) => o -> m Bool
getRangeShowFillLevel obj = liftIO $ getObjectPropertyBool obj "show-fill-level"
setRangeShowFillLevel :: (MonadIO m, IsRange o) => o -> Bool -> m ()
setRangeShowFillLevel obj val = liftIO $ setObjectPropertyBool obj "show-fill-level" val
constructRangeShowFillLevel :: (IsRange o) => Bool -> IO (GValueConstruct o)
constructRangeShowFillLevel val = constructObjectPropertyBool "show-fill-level" val
#if ENABLE_OVERLOADING
data RangeShowFillLevelPropertyInfo
instance AttrInfo RangeShowFillLevelPropertyInfo where
type AttrAllowedOps RangeShowFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool
type AttrBaseTypeConstraint RangeShowFillLevelPropertyInfo = IsRange
type AttrGetType RangeShowFillLevelPropertyInfo = Bool
type AttrLabel RangeShowFillLevelPropertyInfo = "show-fill-level"
type AttrOrigin RangeShowFillLevelPropertyInfo = Range
attrGet _ = getRangeShowFillLevel
attrSet _ = setRangeShowFillLevel
attrConstruct _ = constructRangeShowFillLevel
attrClear _ = undefined
#endif
getRangeUpperStepperSensitivity :: (MonadIO m, IsRange o) => o -> m Gtk.Enums.SensitivityType
getRangeUpperStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "upper-stepper-sensitivity"
setRangeUpperStepperSensitivity :: (MonadIO m, IsRange o) => o -> Gtk.Enums.SensitivityType -> m ()
setRangeUpperStepperSensitivity obj val = liftIO $ setObjectPropertyEnum obj "upper-stepper-sensitivity" val
constructRangeUpperStepperSensitivity :: (IsRange o) => Gtk.Enums.SensitivityType -> IO (GValueConstruct o)
constructRangeUpperStepperSensitivity val = constructObjectPropertyEnum "upper-stepper-sensitivity" val
#if ENABLE_OVERLOADING
data RangeUpperStepperSensitivityPropertyInfo
instance AttrInfo RangeUpperStepperSensitivityPropertyInfo where
type AttrAllowedOps RangeUpperStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeUpperStepperSensitivityPropertyInfo = (~) Gtk.Enums.SensitivityType
type AttrBaseTypeConstraint RangeUpperStepperSensitivityPropertyInfo = IsRange
type AttrGetType RangeUpperStepperSensitivityPropertyInfo = Gtk.Enums.SensitivityType
type AttrLabel RangeUpperStepperSensitivityPropertyInfo = "upper-stepper-sensitivity"
type AttrOrigin RangeUpperStepperSensitivityPropertyInfo = Range
attrGet _ = getRangeUpperStepperSensitivity
attrSet _ = setRangeUpperStepperSensitivity
attrConstruct _ = constructRangeUpperStepperSensitivity
attrClear _ = undefined
#endif
#if 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, *)])
#endif
#if 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 ENABLE_OVERLOADING
data RangeAdjustBoundsSignalInfo
instance SignalInfo RangeAdjustBoundsSignalInfo where
type HaskellCallbackType RangeAdjustBoundsSignalInfo = RangeAdjustBoundsCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_RangeAdjustBoundsCallback cb
cb'' <- mk_RangeAdjustBoundsCallback cb'
connectSignalFunPtr obj "adjust-bounds" cb'' connectMode
data RangeChangeValueSignalInfo
instance SignalInfo RangeChangeValueSignalInfo where
type HaskellCallbackType RangeChangeValueSignalInfo = RangeChangeValueCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_RangeChangeValueCallback cb
cb'' <- mk_RangeChangeValueCallback cb'
connectSignalFunPtr obj "change-value" cb'' connectMode
data RangeMoveSliderSignalInfo
instance SignalInfo RangeMoveSliderSignalInfo where
type HaskellCallbackType RangeMoveSliderSignalInfo = RangeMoveSliderCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_RangeMoveSliderCallback cb
cb'' <- mk_RangeMoveSliderCallback cb'
connectSignalFunPtr obj "move-slider" cb'' connectMode
data RangeValueChangedSignalInfo
instance SignalInfo RangeValueChangedSignalInfo where
type HaskellCallbackType RangeValueChangedSignalInfo = RangeValueChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_RangeValueChangedCallback cb
cb'' <- mk_RangeValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode
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, *)])
#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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_adjustment range'
checkUnexpectedReturnNULL "rangeGetAdjustment" result
result' <- (newObject Gtk.Adjustment.Adjustment) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetAdjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsRange a) => O.MethodInfo RangeGetAdjustmentMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_fill_level range'
let result' = realToFrac result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetFillLevelMethodInfo
instance (signature ~ (m Double), MonadIO m, IsRange a) => O.MethodInfo RangeGetFillLevelMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_flippable range'
let result' = (/= 0) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetFlippableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.MethodInfo RangeGetFlippableMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_inverted range'
let result' = (/= 0) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.MethodInfo RangeGetInvertedMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_lower_stepper_sensitivity range'
let result' = (toEnum . fromIntegral) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetLowerStepperSensitivityMethodInfo
instance (signature ~ (m Gtk.Enums.SensitivityType), MonadIO m, IsRange a) => O.MethodInfo RangeGetLowerStepperSensitivityMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_min_slider_size range'
touchManagedPtr range
return result
#if ENABLE_OVERLOADING
data RangeGetMinSliderSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsRange a) => O.MethodInfo RangeGetMinSliderSizeMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
rangeRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gtk_range_get_range_rect range' rangeRect
rangeRect' <- (wrapBoxed Gdk.Rectangle.Rectangle) rangeRect
touchManagedPtr range
return rangeRect'
#if ENABLE_OVERLOADING
data RangeGetRangeRectMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsRange a) => O.MethodInfo RangeGetRangeRectMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_restrict_to_fill_level range'
let result' = (/= 0) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetRestrictToFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.MethodInfo RangeGetRestrictToFillLevelMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_round_digits range'
touchManagedPtr range
return result
#if ENABLE_OVERLOADING
data RangeGetRoundDigitsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsRange a) => O.MethodInfo RangeGetRoundDigitsMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_show_fill_level range'
let result' = (/= 0) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetShowFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.MethodInfo RangeGetShowFillLevelMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
sliderStart <- allocMem :: IO (Ptr Int32)
sliderEnd <- allocMem :: IO (Ptr Int32)
gtk_range_get_slider_range range' sliderStart sliderEnd
sliderStart' <- peek sliderStart
sliderEnd' <- peek sliderEnd
touchManagedPtr range
freeMem sliderStart
freeMem sliderEnd
return (sliderStart', sliderEnd')
#if ENABLE_OVERLOADING
data RangeGetSliderRangeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsRange a) => O.MethodInfo RangeGetSliderRangeMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_slider_size_fixed range'
let result' = (/= 0) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetSliderSizeFixedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsRange a) => O.MethodInfo RangeGetSliderSizeFixedMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_upper_stepper_sensitivity range'
let result' = (toEnum . fromIntegral) result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetUpperStepperSensitivityMethodInfo
instance (signature ~ (m Gtk.Enums.SensitivityType), MonadIO m, IsRange a) => O.MethodInfo RangeGetUpperStepperSensitivityMethodInfo a signature where
overloadedMethod _ = 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 range = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
result <- gtk_range_get_value range'
let result' = realToFrac result
touchManagedPtr range
return result'
#if ENABLE_OVERLOADING
data RangeGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsRange a) => O.MethodInfo RangeGetValueMethodInfo a signature where
overloadedMethod _ = 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 range adjustment = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
adjustment' <- unsafeManagedPtrCastPtr adjustment
gtk_range_set_adjustment range' adjustment'
touchManagedPtr range
touchManagedPtr adjustment
return ()
#if ENABLE_OVERLOADING
data RangeSetAdjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsRange a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo RangeSetAdjustmentMethodInfo a signature where
overloadedMethod _ = 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 range fillLevel = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let fillLevel' = realToFrac fillLevel
gtk_range_set_fill_level range' fillLevel'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetFillLevelMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetFillLevelMethodInfo a signature where
overloadedMethod _ = 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 range flippable = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let flippable' = (fromIntegral . fromEnum) flippable
gtk_range_set_flippable range' flippable'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetFlippableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetFlippableMethodInfo a signature where
overloadedMethod _ = 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 range step page = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let step' = realToFrac step
let page' = realToFrac page
gtk_range_set_increments range' step' page'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetIncrementsMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetIncrementsMethodInfo a signature where
overloadedMethod _ = 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 range setting = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let setting' = (fromIntegral . fromEnum) setting
gtk_range_set_inverted range' setting'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetInvertedMethodInfo a signature where
overloadedMethod _ = 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 range sensitivity = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let sensitivity' = (fromIntegral . fromEnum) sensitivity
gtk_range_set_lower_stepper_sensitivity range' sensitivity'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetLowerStepperSensitivityMethodInfo
instance (signature ~ (Gtk.Enums.SensitivityType -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetLowerStepperSensitivityMethodInfo a signature where
overloadedMethod _ = 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 range minSize = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
gtk_range_set_min_slider_size range' minSize
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetMinSliderSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetMinSliderSizeMethodInfo a signature where
overloadedMethod _ = 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 range min max = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let min' = realToFrac min
let max' = realToFrac max
gtk_range_set_range range' min' max'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetRangeMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetRangeMethodInfo a signature where
overloadedMethod _ = 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 range restrictToFillLevel = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let restrictToFillLevel' = (fromIntegral . fromEnum) restrictToFillLevel
gtk_range_set_restrict_to_fill_level range' restrictToFillLevel'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetRestrictToFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetRestrictToFillLevelMethodInfo a signature where
overloadedMethod _ = 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 range roundDigits = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
gtk_range_set_round_digits range' roundDigits
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetRoundDigitsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetRoundDigitsMethodInfo a signature where
overloadedMethod _ = 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 range showFillLevel = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let showFillLevel' = (fromIntegral . fromEnum) showFillLevel
gtk_range_set_show_fill_level range' showFillLevel'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetShowFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetShowFillLevelMethodInfo a signature where
overloadedMethod _ = 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 range sizeFixed = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let sizeFixed' = (fromIntegral . fromEnum) sizeFixed
gtk_range_set_slider_size_fixed range' sizeFixed'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetSliderSizeFixedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetSliderSizeFixedMethodInfo a signature where
overloadedMethod _ = 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 range sensitivity = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let sensitivity' = (fromIntegral . fromEnum) sensitivity
gtk_range_set_upper_stepper_sensitivity range' sensitivity'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetUpperStepperSensitivityMethodInfo
instance (signature ~ (Gtk.Enums.SensitivityType -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetUpperStepperSensitivityMethodInfo a signature where
overloadedMethod _ = 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 range value = liftIO $ do
range' <- unsafeManagedPtrCastPtr range
let value' = realToFrac value
gtk_range_set_value range' value'
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data RangeSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsRange a) => O.MethodInfo RangeSetValueMethodInfo a signature where
overloadedMethod _ = rangeSetValue
#endif