gi-gtk-0.3.18.13: GI/Gtk/Objects/Range.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.Range
(
-- * Exported types
Range(..) ,
RangeK ,
toRange ,
noRange ,
-- * Methods
-- ** rangeGetAdjustment
RangeGetAdjustmentMethodInfo ,
rangeGetAdjustment ,
-- ** rangeGetFillLevel
RangeGetFillLevelMethodInfo ,
rangeGetFillLevel ,
-- ** rangeGetFlippable
RangeGetFlippableMethodInfo ,
rangeGetFlippable ,
-- ** rangeGetInverted
RangeGetInvertedMethodInfo ,
rangeGetInverted ,
-- ** rangeGetLowerStepperSensitivity
RangeGetLowerStepperSensitivityMethodInfo,
rangeGetLowerStepperSensitivity ,
-- ** rangeGetMinSliderSize
RangeGetMinSliderSizeMethodInfo ,
rangeGetMinSliderSize ,
-- ** rangeGetRangeRect
RangeGetRangeRectMethodInfo ,
rangeGetRangeRect ,
-- ** rangeGetRestrictToFillLevel
RangeGetRestrictToFillLevelMethodInfo ,
rangeGetRestrictToFillLevel ,
-- ** rangeGetRoundDigits
RangeGetRoundDigitsMethodInfo ,
rangeGetRoundDigits ,
-- ** rangeGetShowFillLevel
RangeGetShowFillLevelMethodInfo ,
rangeGetShowFillLevel ,
-- ** rangeGetSliderRange
RangeGetSliderRangeMethodInfo ,
rangeGetSliderRange ,
-- ** rangeGetSliderSizeFixed
RangeGetSliderSizeFixedMethodInfo ,
rangeGetSliderSizeFixed ,
-- ** rangeGetUpperStepperSensitivity
RangeGetUpperStepperSensitivityMethodInfo,
rangeGetUpperStepperSensitivity ,
-- ** rangeGetValue
RangeGetValueMethodInfo ,
rangeGetValue ,
-- ** rangeSetAdjustment
RangeSetAdjustmentMethodInfo ,
rangeSetAdjustment ,
-- ** rangeSetFillLevel
RangeSetFillLevelMethodInfo ,
rangeSetFillLevel ,
-- ** rangeSetFlippable
RangeSetFlippableMethodInfo ,
rangeSetFlippable ,
-- ** rangeSetIncrements
RangeSetIncrementsMethodInfo ,
rangeSetIncrements ,
-- ** rangeSetInverted
RangeSetInvertedMethodInfo ,
rangeSetInverted ,
-- ** rangeSetLowerStepperSensitivity
RangeSetLowerStepperSensitivityMethodInfo,
rangeSetLowerStepperSensitivity ,
-- ** rangeSetMinSliderSize
RangeSetMinSliderSizeMethodInfo ,
rangeSetMinSliderSize ,
-- ** rangeSetRange
RangeSetRangeMethodInfo ,
rangeSetRange ,
-- ** rangeSetRestrictToFillLevel
RangeSetRestrictToFillLevelMethodInfo ,
rangeSetRestrictToFillLevel ,
-- ** rangeSetRoundDigits
RangeSetRoundDigitsMethodInfo ,
rangeSetRoundDigits ,
-- ** rangeSetShowFillLevel
RangeSetShowFillLevelMethodInfo ,
rangeSetShowFillLevel ,
-- ** rangeSetSliderSizeFixed
RangeSetSliderSizeFixedMethodInfo ,
rangeSetSliderSizeFixed ,
-- ** rangeSetUpperStepperSensitivity
RangeSetUpperStepperSensitivityMethodInfo,
rangeSetUpperStepperSensitivity ,
-- ** rangeSetValue
RangeSetValueMethodInfo ,
rangeSetValue ,
-- * Properties
-- ** Adjustment
RangeAdjustmentPropertyInfo ,
constructRangeAdjustment ,
getRangeAdjustment ,
setRangeAdjustment ,
-- ** FillLevel
RangeFillLevelPropertyInfo ,
constructRangeFillLevel ,
getRangeFillLevel ,
setRangeFillLevel ,
-- ** Inverted
RangeInvertedPropertyInfo ,
constructRangeInverted ,
getRangeInverted ,
setRangeInverted ,
-- ** LowerStepperSensitivity
RangeLowerStepperSensitivityPropertyInfo,
constructRangeLowerStepperSensitivity ,
getRangeLowerStepperSensitivity ,
setRangeLowerStepperSensitivity ,
-- ** RestrictToFillLevel
RangeRestrictToFillLevelPropertyInfo ,
constructRangeRestrictToFillLevel ,
getRangeRestrictToFillLevel ,
setRangeRestrictToFillLevel ,
-- ** RoundDigits
RangeRoundDigitsPropertyInfo ,
constructRangeRoundDigits ,
getRangeRoundDigits ,
setRangeRoundDigits ,
-- ** ShowFillLevel
RangeShowFillLevelPropertyInfo ,
constructRangeShowFillLevel ,
getRangeShowFillLevel ,
setRangeShowFillLevel ,
-- ** UpperStepperSensitivity
RangeUpperStepperSensitivityPropertyInfo,
constructRangeUpperStepperSensitivity ,
getRangeUpperStepperSensitivity ,
setRangeUpperStepperSensitivity ,
-- * Signals
-- ** AdjustBounds
RangeAdjustBoundsCallback ,
RangeAdjustBoundsCallbackC ,
RangeAdjustBoundsSignalInfo ,
afterRangeAdjustBounds ,
mkRangeAdjustBoundsCallback ,
noRangeAdjustBoundsCallback ,
onRangeAdjustBounds ,
rangeAdjustBoundsCallbackWrapper ,
rangeAdjustBoundsClosure ,
-- ** ChangeValue
RangeChangeValueCallback ,
RangeChangeValueCallbackC ,
RangeChangeValueSignalInfo ,
afterRangeChangeValue ,
mkRangeChangeValueCallback ,
noRangeChangeValueCallback ,
onRangeChangeValue ,
rangeChangeValueCallbackWrapper ,
rangeChangeValueClosure ,
-- ** MoveSlider
RangeMoveSliderCallback ,
RangeMoveSliderCallbackC ,
RangeMoveSliderSignalInfo ,
afterRangeMoveSlider ,
mkRangeMoveSliderCallback ,
noRangeMoveSliderCallback ,
onRangeMoveSlider ,
rangeMoveSliderCallbackWrapper ,
rangeMoveSliderClosure ,
-- ** ValueChanged
RangeValueChangedCallback ,
RangeValueChangedCallbackC ,
RangeValueChangedSignalInfo ,
afterRangeValueChanged ,
mkRangeValueChangedCallback ,
noRangeValueChangedCallback ,
onRangeValueChanged ,
rangeValueChangedCallbackWrapper ,
rangeValueChangedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
newtype Range = Range (ForeignPtr Range)
foreign import ccall "gtk_range_get_type"
c_gtk_range_get_type :: IO GType
type instance ParentTypes Range = RangeParentTypes
type RangeParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Range where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_range_get_type
class GObject o => RangeK o
instance (GObject o, IsDescendantOf Range o) => RangeK o
toRange :: RangeK o => o -> IO Range
toRange = unsafeCastTo Range
noRange :: Maybe Range
noRange = Nothing
type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * where
ResolveRangeMethod "activate" o = WidgetActivateMethodInfo
ResolveRangeMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo
ResolveRangeMethod "addChild" o = BuildableAddChildMethodInfo
ResolveRangeMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo
ResolveRangeMethod "addEvents" o = WidgetAddEventsMethodInfo
ResolveRangeMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo
ResolveRangeMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo
ResolveRangeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveRangeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveRangeMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo
ResolveRangeMethod "childFocus" o = WidgetChildFocusMethodInfo
ResolveRangeMethod "childNotify" o = WidgetChildNotifyMethodInfo
ResolveRangeMethod "classPath" o = WidgetClassPathMethodInfo
ResolveRangeMethod "computeExpand" o = WidgetComputeExpandMethodInfo
ResolveRangeMethod "constructChild" o = BuildableConstructChildMethodInfo
ResolveRangeMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo
ResolveRangeMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo
ResolveRangeMethod "customFinished" o = BuildableCustomFinishedMethodInfo
ResolveRangeMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
ResolveRangeMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
ResolveRangeMethod "destroy" o = WidgetDestroyMethodInfo
ResolveRangeMethod "destroyed" o = WidgetDestroyedMethodInfo
ResolveRangeMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo
ResolveRangeMethod "dragBegin" o = WidgetDragBeginMethodInfo
ResolveRangeMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo
ResolveRangeMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo
ResolveRangeMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo
ResolveRangeMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo
ResolveRangeMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo
ResolveRangeMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo
ResolveRangeMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo
ResolveRangeMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo
ResolveRangeMethod "dragDestSet" o = WidgetDragDestSetMethodInfo
ResolveRangeMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo
ResolveRangeMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo
ResolveRangeMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo
ResolveRangeMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo
ResolveRangeMethod "dragGetData" o = WidgetDragGetDataMethodInfo
ResolveRangeMethod "dragHighlight" o = WidgetDragHighlightMethodInfo
ResolveRangeMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo
ResolveRangeMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo
ResolveRangeMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo
ResolveRangeMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo
ResolveRangeMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo
ResolveRangeMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo
ResolveRangeMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo
ResolveRangeMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo
ResolveRangeMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo
ResolveRangeMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo
ResolveRangeMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo
ResolveRangeMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo
ResolveRangeMethod "draw" o = WidgetDrawMethodInfo
ResolveRangeMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo
ResolveRangeMethod "errorBell" o = WidgetErrorBellMethodInfo
ResolveRangeMethod "event" o = WidgetEventMethodInfo
ResolveRangeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveRangeMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo
ResolveRangeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveRangeMethod "grabAdd" o = WidgetGrabAddMethodInfo
ResolveRangeMethod "grabDefault" o = WidgetGrabDefaultMethodInfo
ResolveRangeMethod "grabFocus" o = WidgetGrabFocusMethodInfo
ResolveRangeMethod "grabRemove" o = WidgetGrabRemoveMethodInfo
ResolveRangeMethod "hasDefault" o = WidgetHasDefaultMethodInfo
ResolveRangeMethod "hasFocus" o = WidgetHasFocusMethodInfo
ResolveRangeMethod "hasGrab" o = WidgetHasGrabMethodInfo
ResolveRangeMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo
ResolveRangeMethod "hasScreen" o = WidgetHasScreenMethodInfo
ResolveRangeMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo
ResolveRangeMethod "hide" o = WidgetHideMethodInfo
ResolveRangeMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo
ResolveRangeMethod "inDestruction" o = WidgetInDestructionMethodInfo
ResolveRangeMethod "initTemplate" o = WidgetInitTemplateMethodInfo
ResolveRangeMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo
ResolveRangeMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo
ResolveRangeMethod "intersect" o = WidgetIntersectMethodInfo
ResolveRangeMethod "isAncestor" o = WidgetIsAncestorMethodInfo
ResolveRangeMethod "isComposited" o = WidgetIsCompositedMethodInfo
ResolveRangeMethod "isDrawable" o = WidgetIsDrawableMethodInfo
ResolveRangeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveRangeMethod "isFocus" o = WidgetIsFocusMethodInfo
ResolveRangeMethod "isSensitive" o = WidgetIsSensitiveMethodInfo
ResolveRangeMethod "isToplevel" o = WidgetIsToplevelMethodInfo
ResolveRangeMethod "isVisible" o = WidgetIsVisibleMethodInfo
ResolveRangeMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo
ResolveRangeMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo
ResolveRangeMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo
ResolveRangeMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo
ResolveRangeMethod "map" o = WidgetMapMethodInfo
ResolveRangeMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo
ResolveRangeMethod "modifyBase" o = WidgetModifyBaseMethodInfo
ResolveRangeMethod "modifyBg" o = WidgetModifyBgMethodInfo
ResolveRangeMethod "modifyCursor" o = WidgetModifyCursorMethodInfo
ResolveRangeMethod "modifyFg" o = WidgetModifyFgMethodInfo
ResolveRangeMethod "modifyFont" o = WidgetModifyFontMethodInfo
ResolveRangeMethod "modifyStyle" o = WidgetModifyStyleMethodInfo
ResolveRangeMethod "modifyText" o = WidgetModifyTextMethodInfo
ResolveRangeMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveRangeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveRangeMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo
ResolveRangeMethod "overrideColor" o = WidgetOverrideColorMethodInfo
ResolveRangeMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo
ResolveRangeMethod "overrideFont" o = WidgetOverrideFontMethodInfo
ResolveRangeMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo
ResolveRangeMethod "parserFinished" o = BuildableParserFinishedMethodInfo
ResolveRangeMethod "path" o = WidgetPathMethodInfo
ResolveRangeMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo
ResolveRangeMethod "queueDraw" o = WidgetQueueDrawMethodInfo
ResolveRangeMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo
ResolveRangeMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo
ResolveRangeMethod "queueResize" o = WidgetQueueResizeMethodInfo
ResolveRangeMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo
ResolveRangeMethod "realize" o = WidgetRealizeMethodInfo
ResolveRangeMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveRangeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveRangeMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo
ResolveRangeMethod "registerWindow" o = WidgetRegisterWindowMethodInfo
ResolveRangeMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo
ResolveRangeMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo
ResolveRangeMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo
ResolveRangeMethod "renderIcon" o = WidgetRenderIconMethodInfo
ResolveRangeMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo
ResolveRangeMethod "reparent" o = WidgetReparentMethodInfo
ResolveRangeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveRangeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveRangeMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo
ResolveRangeMethod "resetStyle" o = WidgetResetStyleMethodInfo
ResolveRangeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveRangeMethod "sendExpose" o = WidgetSendExposeMethodInfo
ResolveRangeMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo
ResolveRangeMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo
ResolveRangeMethod "show" o = WidgetShowMethodInfo
ResolveRangeMethod "showAll" o = WidgetShowAllMethodInfo
ResolveRangeMethod "showNow" o = WidgetShowNowMethodInfo
ResolveRangeMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo
ResolveRangeMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo
ResolveRangeMethod "sizeRequest" o = WidgetSizeRequestMethodInfo
ResolveRangeMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveRangeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveRangeMethod "styleAttach" o = WidgetStyleAttachMethodInfo
ResolveRangeMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo
ResolveRangeMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo
ResolveRangeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveRangeMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo
ResolveRangeMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo
ResolveRangeMethod "unmap" o = WidgetUnmapMethodInfo
ResolveRangeMethod "unparent" o = WidgetUnparentMethodInfo
ResolveRangeMethod "unrealize" o = WidgetUnrealizeMethodInfo
ResolveRangeMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveRangeMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo
ResolveRangeMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo
ResolveRangeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveRangeMethod "getAccessible" o = WidgetGetAccessibleMethodInfo
ResolveRangeMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo
ResolveRangeMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo
ResolveRangeMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo
ResolveRangeMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo
ResolveRangeMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo
ResolveRangeMethod "getAllocation" o = WidgetGetAllocationMethodInfo
ResolveRangeMethod "getAncestor" o = WidgetGetAncestorMethodInfo
ResolveRangeMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo
ResolveRangeMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo
ResolveRangeMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo
ResolveRangeMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo
ResolveRangeMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo
ResolveRangeMethod "getClip" o = WidgetGetClipMethodInfo
ResolveRangeMethod "getClipboard" o = WidgetGetClipboardMethodInfo
ResolveRangeMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo
ResolveRangeMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveRangeMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo
ResolveRangeMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo
ResolveRangeMethod "getDirection" o = WidgetGetDirectionMethodInfo
ResolveRangeMethod "getDisplay" o = WidgetGetDisplayMethodInfo
ResolveRangeMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo
ResolveRangeMethod "getEvents" o = WidgetGetEventsMethodInfo
ResolveRangeMethod "getFillLevel" o = RangeGetFillLevelMethodInfo
ResolveRangeMethod "getFlippable" o = RangeGetFlippableMethodInfo
ResolveRangeMethod "getFontMap" o = WidgetGetFontMapMethodInfo
ResolveRangeMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo
ResolveRangeMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo
ResolveRangeMethod "getHalign" o = WidgetGetHalignMethodInfo
ResolveRangeMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo
ResolveRangeMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo
ResolveRangeMethod "getHexpand" o = WidgetGetHexpandMethodInfo
ResolveRangeMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo
ResolveRangeMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
ResolveRangeMethod "getInverted" o = RangeGetInvertedMethodInfo
ResolveRangeMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo
ResolveRangeMethod "getMapped" o = WidgetGetMappedMethodInfo
ResolveRangeMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo
ResolveRangeMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo
ResolveRangeMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo
ResolveRangeMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo
ResolveRangeMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo
ResolveRangeMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo
ResolveRangeMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo
ResolveRangeMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo
ResolveRangeMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo
ResolveRangeMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo
ResolveRangeMethod "getOpacity" o = WidgetGetOpacityMethodInfo
ResolveRangeMethod "getOrientation" o = OrientableGetOrientationMethodInfo
ResolveRangeMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo
ResolveRangeMethod "getParent" o = WidgetGetParentMethodInfo
ResolveRangeMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo
ResolveRangeMethod "getPath" o = WidgetGetPathMethodInfo
ResolveRangeMethod "getPointer" o = WidgetGetPointerMethodInfo
ResolveRangeMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo
ResolveRangeMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveRangeMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo
ResolveRangeMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo
ResolveRangeMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo
ResolveRangeMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo
ResolveRangeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveRangeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveRangeMethod "getRangeRect" o = RangeGetRangeRectMethodInfo
ResolveRangeMethod "getRealized" o = WidgetGetRealizedMethodInfo
ResolveRangeMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo
ResolveRangeMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo
ResolveRangeMethod "getRequisition" o = WidgetGetRequisitionMethodInfo
ResolveRangeMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo
ResolveRangeMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo
ResolveRangeMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo
ResolveRangeMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo
ResolveRangeMethod "getScreen" o = WidgetGetScreenMethodInfo
ResolveRangeMethod "getSensitive" o = WidgetGetSensitiveMethodInfo
ResolveRangeMethod "getSettings" o = WidgetGetSettingsMethodInfo
ResolveRangeMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo
ResolveRangeMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo
ResolveRangeMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo
ResolveRangeMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo
ResolveRangeMethod "getState" o = WidgetGetStateMethodInfo
ResolveRangeMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo
ResolveRangeMethod "getStyle" o = WidgetGetStyleMethodInfo
ResolveRangeMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo
ResolveRangeMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo
ResolveRangeMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo
ResolveRangeMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo
ResolveRangeMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo
ResolveRangeMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo
ResolveRangeMethod "getToplevel" o = WidgetGetToplevelMethodInfo
ResolveRangeMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo
ResolveRangeMethod "getValign" o = WidgetGetValignMethodInfo
ResolveRangeMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo
ResolveRangeMethod "getValue" o = RangeGetValueMethodInfo
ResolveRangeMethod "getVexpand" o = WidgetGetVexpandMethodInfo
ResolveRangeMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo
ResolveRangeMethod "getVisible" o = WidgetGetVisibleMethodInfo
ResolveRangeMethod "getVisual" o = WidgetGetVisualMethodInfo
ResolveRangeMethod "getWindow" o = WidgetGetWindowMethodInfo
ResolveRangeMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo
ResolveRangeMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo
ResolveRangeMethod "setAllocation" o = WidgetSetAllocationMethodInfo
ResolveRangeMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo
ResolveRangeMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
ResolveRangeMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo
ResolveRangeMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo
ResolveRangeMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo
ResolveRangeMethod "setClip" o = WidgetSetClipMethodInfo
ResolveRangeMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo
ResolveRangeMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveRangeMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo
ResolveRangeMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo
ResolveRangeMethod "setDirection" o = WidgetSetDirectionMethodInfo
ResolveRangeMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo
ResolveRangeMethod "setEvents" o = WidgetSetEventsMethodInfo
ResolveRangeMethod "setFillLevel" o = RangeSetFillLevelMethodInfo
ResolveRangeMethod "setFlippable" o = RangeSetFlippableMethodInfo
ResolveRangeMethod "setFontMap" o = WidgetSetFontMapMethodInfo
ResolveRangeMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo
ResolveRangeMethod "setHalign" o = WidgetSetHalignMethodInfo
ResolveRangeMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo
ResolveRangeMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo
ResolveRangeMethod "setHexpand" o = WidgetSetHexpandMethodInfo
ResolveRangeMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo
ResolveRangeMethod "setIncrements" o = RangeSetIncrementsMethodInfo
ResolveRangeMethod "setInverted" o = RangeSetInvertedMethodInfo
ResolveRangeMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo
ResolveRangeMethod "setMapped" o = WidgetSetMappedMethodInfo
ResolveRangeMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo
ResolveRangeMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo
ResolveRangeMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo
ResolveRangeMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo
ResolveRangeMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo
ResolveRangeMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo
ResolveRangeMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo
ResolveRangeMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo
ResolveRangeMethod "setOpacity" o = WidgetSetOpacityMethodInfo
ResolveRangeMethod "setOrientation" o = OrientableSetOrientationMethodInfo
ResolveRangeMethod "setParent" o = WidgetSetParentMethodInfo
ResolveRangeMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo
ResolveRangeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveRangeMethod "setRange" o = RangeSetRangeMethodInfo
ResolveRangeMethod "setRealized" o = WidgetSetRealizedMethodInfo
ResolveRangeMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo
ResolveRangeMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo
ResolveRangeMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo
ResolveRangeMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo
ResolveRangeMethod "setSensitive" o = WidgetSetSensitiveMethodInfo
ResolveRangeMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo
ResolveRangeMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo
ResolveRangeMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo
ResolveRangeMethod "setState" o = WidgetSetStateMethodInfo
ResolveRangeMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo
ResolveRangeMethod "setStyle" o = WidgetSetStyleMethodInfo
ResolveRangeMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo
ResolveRangeMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo
ResolveRangeMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo
ResolveRangeMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo
ResolveRangeMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo
ResolveRangeMethod "setValign" o = WidgetSetValignMethodInfo
ResolveRangeMethod "setValue" o = RangeSetValueMethodInfo
ResolveRangeMethod "setVexpand" o = WidgetSetVexpandMethodInfo
ResolveRangeMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo
ResolveRangeMethod "setVisible" o = WidgetSetVisibleMethodInfo
ResolveRangeMethod "setVisual" o = WidgetSetVisualMethodInfo
ResolveRangeMethod "setWindow" o = WidgetSetWindowMethodInfo
ResolveRangeMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabelProxy t (Range -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabel t (Range -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal Range::adjust-bounds
type RangeAdjustBoundsCallback =
Double ->
IO ()
noRangeAdjustBoundsCallback :: Maybe RangeAdjustBoundsCallback
noRangeAdjustBoundsCallback = Nothing
type RangeAdjustBoundsCallbackC =
Ptr () -> -- object
CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRangeAdjustBoundsCallback :: RangeAdjustBoundsCallbackC -> IO (FunPtr RangeAdjustBoundsCallbackC)
rangeAdjustBoundsClosure :: RangeAdjustBoundsCallback -> IO Closure
rangeAdjustBoundsClosure cb = newCClosure =<< mkRangeAdjustBoundsCallback wrapped
where wrapped = rangeAdjustBoundsCallbackWrapper cb
rangeAdjustBoundsCallbackWrapper ::
RangeAdjustBoundsCallback ->
Ptr () ->
CDouble ->
Ptr () ->
IO ()
rangeAdjustBoundsCallbackWrapper _cb _ value _ = do
let value' = realToFrac value
_cb value'
onRangeAdjustBounds :: (GObject a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId
onRangeAdjustBounds obj cb = liftIO $ connectRangeAdjustBounds obj cb SignalConnectBefore
afterRangeAdjustBounds :: (GObject a, MonadIO m) => a -> RangeAdjustBoundsCallback -> m SignalHandlerId
afterRangeAdjustBounds obj cb = connectRangeAdjustBounds obj cb SignalConnectAfter
connectRangeAdjustBounds :: (GObject a, MonadIO m) =>
a -> RangeAdjustBoundsCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeAdjustBounds obj cb after = liftIO $ do
cb' <- mkRangeAdjustBoundsCallback (rangeAdjustBoundsCallbackWrapper cb)
connectSignalFunPtr obj "adjust-bounds" cb' after
-- signal Range::change-value
type RangeChangeValueCallback =
ScrollType ->
Double ->
IO Bool
noRangeChangeValueCallback :: Maybe RangeChangeValueCallback
noRangeChangeValueCallback = Nothing
type RangeChangeValueCallbackC =
Ptr () -> -- object
CUInt ->
CDouble ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkRangeChangeValueCallback :: RangeChangeValueCallbackC -> IO (FunPtr RangeChangeValueCallbackC)
rangeChangeValueClosure :: RangeChangeValueCallback -> IO Closure
rangeChangeValueClosure cb = newCClosure =<< mkRangeChangeValueCallback wrapped
where wrapped = rangeChangeValueCallbackWrapper cb
rangeChangeValueCallbackWrapper ::
RangeChangeValueCallback ->
Ptr () ->
CUInt ->
CDouble ->
Ptr () ->
IO CInt
rangeChangeValueCallbackWrapper _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 :: (GObject a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId
onRangeChangeValue obj cb = liftIO $ connectRangeChangeValue obj cb SignalConnectBefore
afterRangeChangeValue :: (GObject a, MonadIO m) => a -> RangeChangeValueCallback -> m SignalHandlerId
afterRangeChangeValue obj cb = connectRangeChangeValue obj cb SignalConnectAfter
connectRangeChangeValue :: (GObject a, MonadIO m) =>
a -> RangeChangeValueCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeChangeValue obj cb after = liftIO $ do
cb' <- mkRangeChangeValueCallback (rangeChangeValueCallbackWrapper cb)
connectSignalFunPtr obj "change-value" cb' after
-- signal Range::move-slider
type RangeMoveSliderCallback =
ScrollType ->
IO ()
noRangeMoveSliderCallback :: Maybe RangeMoveSliderCallback
noRangeMoveSliderCallback = Nothing
type RangeMoveSliderCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRangeMoveSliderCallback :: RangeMoveSliderCallbackC -> IO (FunPtr RangeMoveSliderCallbackC)
rangeMoveSliderClosure :: RangeMoveSliderCallback -> IO Closure
rangeMoveSliderClosure cb = newCClosure =<< mkRangeMoveSliderCallback wrapped
where wrapped = rangeMoveSliderCallbackWrapper cb
rangeMoveSliderCallbackWrapper ::
RangeMoveSliderCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
rangeMoveSliderCallbackWrapper _cb _ step _ = do
let step' = (toEnum . fromIntegral) step
_cb step'
onRangeMoveSlider :: (GObject a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId
onRangeMoveSlider obj cb = liftIO $ connectRangeMoveSlider obj cb SignalConnectBefore
afterRangeMoveSlider :: (GObject a, MonadIO m) => a -> RangeMoveSliderCallback -> m SignalHandlerId
afterRangeMoveSlider obj cb = connectRangeMoveSlider obj cb SignalConnectAfter
connectRangeMoveSlider :: (GObject a, MonadIO m) =>
a -> RangeMoveSliderCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeMoveSlider obj cb after = liftIO $ do
cb' <- mkRangeMoveSliderCallback (rangeMoveSliderCallbackWrapper cb)
connectSignalFunPtr obj "move-slider" cb' after
-- signal Range::value-changed
type RangeValueChangedCallback =
IO ()
noRangeValueChangedCallback :: Maybe RangeValueChangedCallback
noRangeValueChangedCallback = Nothing
type RangeValueChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRangeValueChangedCallback :: RangeValueChangedCallbackC -> IO (FunPtr RangeValueChangedCallbackC)
rangeValueChangedClosure :: RangeValueChangedCallback -> IO Closure
rangeValueChangedClosure cb = newCClosure =<< mkRangeValueChangedCallback wrapped
where wrapped = rangeValueChangedCallbackWrapper cb
rangeValueChangedCallbackWrapper ::
RangeValueChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
rangeValueChangedCallbackWrapper _cb _ _ = do
_cb
onRangeValueChanged :: (GObject a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId
onRangeValueChanged obj cb = liftIO $ connectRangeValueChanged obj cb SignalConnectBefore
afterRangeValueChanged :: (GObject a, MonadIO m) => a -> RangeValueChangedCallback -> m SignalHandlerId
afterRangeValueChanged obj cb = connectRangeValueChanged obj cb SignalConnectAfter
connectRangeValueChanged :: (GObject a, MonadIO m) =>
a -> RangeValueChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRangeValueChanged obj cb after = liftIO $ do
cb' <- mkRangeValueChangedCallback (rangeValueChangedCallbackWrapper cb)
connectSignalFunPtr obj "value-changed" cb' after
-- VVV Prop "adjustment"
-- Type: TInterface "Gtk" "Adjustment"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getRangeAdjustment :: (MonadIO m, RangeK o) => o -> m Adjustment
getRangeAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment
setRangeAdjustment :: (MonadIO m, RangeK o, AdjustmentK a) => o -> a -> m ()
setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val
constructRangeAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)
constructRangeAdjustment val = constructObjectPropertyObject "adjustment" val
data RangeAdjustmentPropertyInfo
instance AttrInfo RangeAdjustmentPropertyInfo where
type AttrAllowedOps RangeAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeAdjustmentPropertyInfo = AdjustmentK
type AttrBaseTypeConstraint RangeAdjustmentPropertyInfo = RangeK
type AttrGetType RangeAdjustmentPropertyInfo = Adjustment
type AttrLabel RangeAdjustmentPropertyInfo = "adjustment"
attrGet _ = getRangeAdjustment
attrSet _ = setRangeAdjustment
attrConstruct _ = constructRangeAdjustment
-- VVV Prop "fill-level"
-- Type: TBasicType TDouble
-- Flags: [PropertyReadable,PropertyWritable]
getRangeFillLevel :: (MonadIO m, RangeK o) => o -> m Double
getRangeFillLevel obj = liftIO $ getObjectPropertyDouble obj "fill-level"
setRangeFillLevel :: (MonadIO m, RangeK o) => o -> Double -> m ()
setRangeFillLevel obj val = liftIO $ setObjectPropertyDouble obj "fill-level" val
constructRangeFillLevel :: Double -> IO ([Char], GValue)
constructRangeFillLevel val = constructObjectPropertyDouble "fill-level" val
data RangeFillLevelPropertyInfo
instance AttrInfo RangeFillLevelPropertyInfo where
type AttrAllowedOps RangeFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeFillLevelPropertyInfo = (~) Double
type AttrBaseTypeConstraint RangeFillLevelPropertyInfo = RangeK
type AttrGetType RangeFillLevelPropertyInfo = Double
type AttrLabel RangeFillLevelPropertyInfo = "fill-level"
attrGet _ = getRangeFillLevel
attrSet _ = setRangeFillLevel
attrConstruct _ = constructRangeFillLevel
-- VVV Prop "inverted"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getRangeInverted :: (MonadIO m, RangeK o) => o -> m Bool
getRangeInverted obj = liftIO $ getObjectPropertyBool obj "inverted"
setRangeInverted :: (MonadIO m, RangeK o) => o -> Bool -> m ()
setRangeInverted obj val = liftIO $ setObjectPropertyBool obj "inverted" val
constructRangeInverted :: Bool -> IO ([Char], GValue)
constructRangeInverted val = constructObjectPropertyBool "inverted" val
data RangeInvertedPropertyInfo
instance AttrInfo RangeInvertedPropertyInfo where
type AttrAllowedOps RangeInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeInvertedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint RangeInvertedPropertyInfo = RangeK
type AttrGetType RangeInvertedPropertyInfo = Bool
type AttrLabel RangeInvertedPropertyInfo = "inverted"
attrGet _ = getRangeInverted
attrSet _ = setRangeInverted
attrConstruct _ = constructRangeInverted
-- VVV Prop "lower-stepper-sensitivity"
-- Type: TInterface "Gtk" "SensitivityType"
-- Flags: [PropertyReadable,PropertyWritable]
getRangeLowerStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType
getRangeLowerStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "lower-stepper-sensitivity"
setRangeLowerStepperSensitivity :: (MonadIO m, RangeK o) => o -> SensitivityType -> m ()
setRangeLowerStepperSensitivity obj val = liftIO $ setObjectPropertyEnum obj "lower-stepper-sensitivity" val
constructRangeLowerStepperSensitivity :: SensitivityType -> IO ([Char], GValue)
constructRangeLowerStepperSensitivity val = constructObjectPropertyEnum "lower-stepper-sensitivity" val
data RangeLowerStepperSensitivityPropertyInfo
instance AttrInfo RangeLowerStepperSensitivityPropertyInfo where
type AttrAllowedOps RangeLowerStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeLowerStepperSensitivityPropertyInfo = (~) SensitivityType
type AttrBaseTypeConstraint RangeLowerStepperSensitivityPropertyInfo = RangeK
type AttrGetType RangeLowerStepperSensitivityPropertyInfo = SensitivityType
type AttrLabel RangeLowerStepperSensitivityPropertyInfo = "lower-stepper-sensitivity"
attrGet _ = getRangeLowerStepperSensitivity
attrSet _ = setRangeLowerStepperSensitivity
attrConstruct _ = constructRangeLowerStepperSensitivity
-- VVV Prop "restrict-to-fill-level"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getRangeRestrictToFillLevel :: (MonadIO m, RangeK o) => o -> m Bool
getRangeRestrictToFillLevel obj = liftIO $ getObjectPropertyBool obj "restrict-to-fill-level"
setRangeRestrictToFillLevel :: (MonadIO m, RangeK o) => o -> Bool -> m ()
setRangeRestrictToFillLevel obj val = liftIO $ setObjectPropertyBool obj "restrict-to-fill-level" val
constructRangeRestrictToFillLevel :: Bool -> IO ([Char], GValue)
constructRangeRestrictToFillLevel val = constructObjectPropertyBool "restrict-to-fill-level" val
data RangeRestrictToFillLevelPropertyInfo
instance AttrInfo RangeRestrictToFillLevelPropertyInfo where
type AttrAllowedOps RangeRestrictToFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool
type AttrBaseTypeConstraint RangeRestrictToFillLevelPropertyInfo = RangeK
type AttrGetType RangeRestrictToFillLevelPropertyInfo = Bool
type AttrLabel RangeRestrictToFillLevelPropertyInfo = "restrict-to-fill-level"
attrGet _ = getRangeRestrictToFillLevel
attrSet _ = setRangeRestrictToFillLevel
attrConstruct _ = constructRangeRestrictToFillLevel
-- VVV Prop "round-digits"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getRangeRoundDigits :: (MonadIO m, RangeK o) => o -> m Int32
getRangeRoundDigits obj = liftIO $ getObjectPropertyCInt obj "round-digits"
setRangeRoundDigits :: (MonadIO m, RangeK o) => o -> Int32 -> m ()
setRangeRoundDigits obj val = liftIO $ setObjectPropertyCInt obj "round-digits" val
constructRangeRoundDigits :: Int32 -> IO ([Char], GValue)
constructRangeRoundDigits val = constructObjectPropertyCInt "round-digits" val
data RangeRoundDigitsPropertyInfo
instance AttrInfo RangeRoundDigitsPropertyInfo where
type AttrAllowedOps RangeRoundDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint RangeRoundDigitsPropertyInfo = RangeK
type AttrGetType RangeRoundDigitsPropertyInfo = Int32
type AttrLabel RangeRoundDigitsPropertyInfo = "round-digits"
attrGet _ = getRangeRoundDigits
attrSet _ = setRangeRoundDigits
attrConstruct _ = constructRangeRoundDigits
-- VVV Prop "show-fill-level"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getRangeShowFillLevel :: (MonadIO m, RangeK o) => o -> m Bool
getRangeShowFillLevel obj = liftIO $ getObjectPropertyBool obj "show-fill-level"
setRangeShowFillLevel :: (MonadIO m, RangeK o) => o -> Bool -> m ()
setRangeShowFillLevel obj val = liftIO $ setObjectPropertyBool obj "show-fill-level" val
constructRangeShowFillLevel :: Bool -> IO ([Char], GValue)
constructRangeShowFillLevel val = constructObjectPropertyBool "show-fill-level" val
data RangeShowFillLevelPropertyInfo
instance AttrInfo RangeShowFillLevelPropertyInfo where
type AttrAllowedOps RangeShowFillLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool
type AttrBaseTypeConstraint RangeShowFillLevelPropertyInfo = RangeK
type AttrGetType RangeShowFillLevelPropertyInfo = Bool
type AttrLabel RangeShowFillLevelPropertyInfo = "show-fill-level"
attrGet _ = getRangeShowFillLevel
attrSet _ = setRangeShowFillLevel
attrConstruct _ = constructRangeShowFillLevel
-- VVV Prop "upper-stepper-sensitivity"
-- Type: TInterface "Gtk" "SensitivityType"
-- Flags: [PropertyReadable,PropertyWritable]
getRangeUpperStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType
getRangeUpperStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "upper-stepper-sensitivity"
setRangeUpperStepperSensitivity :: (MonadIO m, RangeK o) => o -> SensitivityType -> m ()
setRangeUpperStepperSensitivity obj val = liftIO $ setObjectPropertyEnum obj "upper-stepper-sensitivity" val
constructRangeUpperStepperSensitivity :: SensitivityType -> IO ([Char], GValue)
constructRangeUpperStepperSensitivity val = constructObjectPropertyEnum "upper-stepper-sensitivity" val
data RangeUpperStepperSensitivityPropertyInfo
instance AttrInfo RangeUpperStepperSensitivityPropertyInfo where
type AttrAllowedOps RangeUpperStepperSensitivityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RangeUpperStepperSensitivityPropertyInfo = (~) SensitivityType
type AttrBaseTypeConstraint RangeUpperStepperSensitivityPropertyInfo = RangeK
type AttrGetType RangeUpperStepperSensitivityPropertyInfo = SensitivityType
type AttrLabel RangeUpperStepperSensitivityPropertyInfo = "upper-stepper-sensitivity"
attrGet _ = getRangeUpperStepperSensitivity
attrSet _ = setRangeUpperStepperSensitivity
attrConstruct _ = constructRangeUpperStepperSensitivity
type instance AttributeList Range = RangeAttributeList
type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data RangeAdjustBoundsSignalInfo
instance SignalInfo RangeAdjustBoundsSignalInfo where
type HaskellCallbackType RangeAdjustBoundsSignalInfo = RangeAdjustBoundsCallback
connectSignal _ = connectRangeAdjustBounds
data RangeChangeValueSignalInfo
instance SignalInfo RangeChangeValueSignalInfo where
type HaskellCallbackType RangeChangeValueSignalInfo = RangeChangeValueCallback
connectSignal _ = connectRangeChangeValue
data RangeMoveSliderSignalInfo
instance SignalInfo RangeMoveSliderSignalInfo where
type HaskellCallbackType RangeMoveSliderSignalInfo = RangeMoveSliderCallback
connectSignal _ = connectRangeMoveSlider
data RangeValueChangedSignalInfo
instance SignalInfo RangeValueChangedSignalInfo where
type HaskellCallbackType RangeValueChangedSignalInfo = RangeValueChangedCallback
connectSignal _ = connectRangeValueChanged
type instance SignalList Range = RangeSignalList
type RangeSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
-- method Range::get_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_adjustment" gtk_range_get_adjustment ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO (Ptr Adjustment)
rangeGetAdjustment ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Adjustment -- result
rangeGetAdjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_adjustment _obj'
checkUnexpectedReturnNULL "gtk_range_get_adjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
data RangeGetAdjustmentMethodInfo
instance (signature ~ (m Adjustment), MonadIO m, RangeK a) => MethodInfo RangeGetAdjustmentMethodInfo a signature where
overloadedMethod _ = rangeGetAdjustment
-- method Range::get_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_fill_level" gtk_range_get_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CDouble
rangeGetFillLevel ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Double -- result
rangeGetFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_fill_level _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data RangeGetFillLevelMethodInfo
instance (signature ~ (m Double), MonadIO m, RangeK a) => MethodInfo RangeGetFillLevelMethodInfo a signature where
overloadedMethod _ = rangeGetFillLevel
-- method Range::get_flippable
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_flippable" gtk_range_get_flippable ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetFlippable ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Bool -- result
rangeGetFlippable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_flippable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data RangeGetFlippableMethodInfo
instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetFlippableMethodInfo a signature where
overloadedMethod _ = rangeGetFlippable
-- method Range::get_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_inverted" gtk_range_get_inverted ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetInverted ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Bool -- result
rangeGetInverted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_inverted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data RangeGetInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetInvertedMethodInfo a signature where
overloadedMethod _ = rangeGetInverted
-- method Range::get_lower_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "SensitivityType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_lower_stepper_sensitivity" gtk_range_get_lower_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CUInt
rangeGetLowerStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m SensitivityType -- result
rangeGetLowerStepperSensitivity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_lower_stepper_sensitivity _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data RangeGetLowerStepperSensitivityMethodInfo
instance (signature ~ (m SensitivityType), MonadIO m, RangeK a) => MethodInfo RangeGetLowerStepperSensitivityMethodInfo a signature where
overloadedMethod _ = rangeGetLowerStepperSensitivity
-- method Range::get_min_slider_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_min_slider_size" gtk_range_get_min_slider_size ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO Int32
rangeGetMinSliderSize ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Int32 -- result
rangeGetMinSliderSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_min_slider_size _obj'
touchManagedPtr _obj
return result
data RangeGetMinSliderSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, RangeK a) => MethodInfo RangeGetMinSliderSizeMethodInfo a signature where
overloadedMethod _ = rangeGetMinSliderSize
-- method Range::get_range_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_range_rect" gtk_range_get_range_rect ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Ptr Gdk.Rectangle -> -- range_rect : TInterface "Gdk" "Rectangle"
IO ()
rangeGetRangeRect ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m (Gdk.Rectangle) -- result
rangeGetRangeRect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rangeRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_range_get_range_rect _obj' rangeRect
rangeRect' <- (wrapBoxed Gdk.Rectangle) rangeRect
touchManagedPtr _obj
return rangeRect'
data RangeGetRangeRectMethodInfo
instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, RangeK a) => MethodInfo RangeGetRangeRectMethodInfo a signature where
overloadedMethod _ = rangeGetRangeRect
-- method Range::get_restrict_to_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_restrict_to_fill_level" gtk_range_get_restrict_to_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetRestrictToFillLevel ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Bool -- result
rangeGetRestrictToFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_restrict_to_fill_level _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data RangeGetRestrictToFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetRestrictToFillLevelMethodInfo a signature where
overloadedMethod _ = rangeGetRestrictToFillLevel
-- method Range::get_round_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_round_digits" gtk_range_get_round_digits ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO Int32
rangeGetRoundDigits ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Int32 -- result
rangeGetRoundDigits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_round_digits _obj'
touchManagedPtr _obj
return result
data RangeGetRoundDigitsMethodInfo
instance (signature ~ (m Int32), MonadIO m, RangeK a) => MethodInfo RangeGetRoundDigitsMethodInfo a signature where
overloadedMethod _ = rangeGetRoundDigits
-- method Range::get_show_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_show_fill_level" gtk_range_get_show_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetShowFillLevel ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Bool -- result
rangeGetShowFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_show_fill_level _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data RangeGetShowFillLevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetShowFillLevelMethodInfo a signature where
overloadedMethod _ = rangeGetShowFillLevel
-- method Range::get_slider_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slider_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "slider_end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_slider_range" gtk_range_get_slider_range ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Ptr Int32 -> -- slider_start : TBasicType TInt32
Ptr Int32 -> -- slider_end : TBasicType TInt32
IO ()
rangeGetSliderRange ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m (Int32,Int32) -- result
rangeGetSliderRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
sliderStart <- allocMem :: IO (Ptr Int32)
sliderEnd <- allocMem :: IO (Ptr Int32)
gtk_range_get_slider_range _obj' sliderStart sliderEnd
sliderStart' <- peek sliderStart
sliderEnd' <- peek sliderEnd
touchManagedPtr _obj
freeMem sliderStart
freeMem sliderEnd
return (sliderStart', sliderEnd')
data RangeGetSliderRangeMethodInfo
instance (signature ~ (m (Int32,Int32)), MonadIO m, RangeK a) => MethodInfo RangeGetSliderRangeMethodInfo a signature where
overloadedMethod _ = rangeGetSliderRange
-- method Range::get_slider_size_fixed
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_slider_size_fixed" gtk_range_get_slider_size_fixed ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CInt
rangeGetSliderSizeFixed ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Bool -- result
rangeGetSliderSizeFixed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_slider_size_fixed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data RangeGetSliderSizeFixedMethodInfo
instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetSliderSizeFixedMethodInfo a signature where
overloadedMethod _ = rangeGetSliderSizeFixed
-- method Range::get_upper_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "SensitivityType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_upper_stepper_sensitivity" gtk_range_get_upper_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CUInt
rangeGetUpperStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m SensitivityType -- result
rangeGetUpperStepperSensitivity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_upper_stepper_sensitivity _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data RangeGetUpperStepperSensitivityMethodInfo
instance (signature ~ (m SensitivityType), MonadIO m, RangeK a) => MethodInfo RangeGetUpperStepperSensitivityMethodInfo a signature where
overloadedMethod _ = rangeGetUpperStepperSensitivity
-- method Range::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_get_value" gtk_range_get_value ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
IO CDouble
rangeGetValue ::
(MonadIO m, RangeK a) =>
a -- _obj
-> m Double -- result
rangeGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data RangeGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, RangeK a) => MethodInfo RangeGetValueMethodInfo a signature where
overloadedMethod _ = rangeGetValue
-- method Range::set_adjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_adjustment" gtk_range_set_adjustment ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment"
IO ()
rangeSetAdjustment ::
(MonadIO m, RangeK a, AdjustmentK b) =>
a -- _obj
-> b -- adjustment
-> m () -- result
rangeSetAdjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_range_set_adjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
data RangeSetAdjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, RangeK a, AdjustmentK b) => MethodInfo RangeSetAdjustmentMethodInfo a signature where
overloadedMethod _ = rangeSetAdjustment
-- method Range::set_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_fill_level" gtk_range_set_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- fill_level : TBasicType TDouble
IO ()
rangeSetFillLevel ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Double -- fillLevel
-> m () -- result
rangeSetFillLevel _obj fillLevel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fillLevel' = realToFrac fillLevel
gtk_range_set_fill_level _obj' fillLevel'
touchManagedPtr _obj
return ()
data RangeSetFillLevelMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetFillLevelMethodInfo a signature where
overloadedMethod _ = rangeSetFillLevel
-- method Range::set_flippable
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_flippable" gtk_range_set_flippable ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- flippable : TBasicType TBoolean
IO ()
rangeSetFlippable ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Bool -- flippable
-> m () -- result
rangeSetFlippable _obj flippable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flippable' = (fromIntegral . fromEnum) flippable
gtk_range_set_flippable _obj' flippable'
touchManagedPtr _obj
return ()
data RangeSetFlippableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetFlippableMethodInfo a signature where
overloadedMethod _ = rangeSetFlippable
-- method Range::set_increments
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_increments" gtk_range_set_increments ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- step : TBasicType TDouble
CDouble -> -- page : TBasicType TDouble
IO ()
rangeSetIncrements ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Double -- step
-> Double -- page
-> m () -- result
rangeSetIncrements _obj step page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let step' = realToFrac step
let page' = realToFrac page
gtk_range_set_increments _obj' step' page'
touchManagedPtr _obj
return ()
data RangeSetIncrementsMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetIncrementsMethodInfo a signature where
overloadedMethod _ = rangeSetIncrements
-- method Range::set_inverted
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_inverted" gtk_range_set_inverted ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- setting : TBasicType TBoolean
IO ()
rangeSetInverted ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Bool -- setting
-> m () -- result
rangeSetInverted _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_range_set_inverted _obj' setting'
touchManagedPtr _obj
return ()
data RangeSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetInvertedMethodInfo a signature where
overloadedMethod _ = rangeSetInverted
-- method Range::set_lower_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_lower_stepper_sensitivity" gtk_range_set_lower_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType"
IO ()
rangeSetLowerStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -- _obj
-> SensitivityType -- sensitivity
-> m () -- result
rangeSetLowerStepperSensitivity _obj sensitivity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitivity' = (fromIntegral . fromEnum) sensitivity
gtk_range_set_lower_stepper_sensitivity _obj' sensitivity'
touchManagedPtr _obj
return ()
data RangeSetLowerStepperSensitivityMethodInfo
instance (signature ~ (SensitivityType -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetLowerStepperSensitivityMethodInfo a signature where
overloadedMethod _ = rangeSetLowerStepperSensitivity
-- method Range::set_min_slider_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Int32 -> -- min_size : TBasicType TInt32
IO ()
rangeSetMinSliderSize ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Int32 -- minSize
-> m () -- result
rangeSetMinSliderSize _obj minSize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_range_set_min_slider_size _obj' minSize
touchManagedPtr _obj
return ()
data RangeSetMinSliderSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetMinSliderSizeMethodInfo a signature where
overloadedMethod _ = rangeSetMinSliderSize
-- method Range::set_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_range" gtk_range_set_range ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- min : TBasicType TDouble
CDouble -> -- max : TBasicType TDouble
IO ()
rangeSetRange ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Double -- min
-> Double -- max
-> m () -- result
rangeSetRange _obj min max = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let min' = realToFrac min
let max' = realToFrac max
gtk_range_set_range _obj' min' max'
touchManagedPtr _obj
return ()
data RangeSetRangeMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRangeMethodInfo a signature where
overloadedMethod _ = rangeSetRange
-- method Range::set_restrict_to_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_restrict_to_fill_level" gtk_range_set_restrict_to_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- restrict_to_fill_level : TBasicType TBoolean
IO ()
rangeSetRestrictToFillLevel ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Bool -- restrictToFillLevel
-> m () -- result
rangeSetRestrictToFillLevel _obj restrictToFillLevel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let restrictToFillLevel' = (fromIntegral . fromEnum) restrictToFillLevel
gtk_range_set_restrict_to_fill_level _obj' restrictToFillLevel'
touchManagedPtr _obj
return ()
data RangeSetRestrictToFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRestrictToFillLevelMethodInfo a signature where
overloadedMethod _ = rangeSetRestrictToFillLevel
-- method Range::set_round_digits
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
Int32 -> -- round_digits : TBasicType TInt32
IO ()
rangeSetRoundDigits ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Int32 -- roundDigits
-> m () -- result
rangeSetRoundDigits _obj roundDigits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_range_set_round_digits _obj' roundDigits
touchManagedPtr _obj
return ()
data RangeSetRoundDigitsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRoundDigitsMethodInfo a signature where
overloadedMethod _ = rangeSetRoundDigits
-- method Range::set_show_fill_level
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_show_fill_level" gtk_range_set_show_fill_level ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- show_fill_level : TBasicType TBoolean
IO ()
rangeSetShowFillLevel ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Bool -- showFillLevel
-> m () -- result
rangeSetShowFillLevel _obj showFillLevel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let showFillLevel' = (fromIntegral . fromEnum) showFillLevel
gtk_range_set_show_fill_level _obj' showFillLevel'
touchManagedPtr _obj
return ()
data RangeSetShowFillLevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetShowFillLevelMethodInfo a signature where
overloadedMethod _ = rangeSetShowFillLevel
-- method Range::set_slider_size_fixed
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_slider_size_fixed" gtk_range_set_slider_size_fixed ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CInt -> -- size_fixed : TBasicType TBoolean
IO ()
rangeSetSliderSizeFixed ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Bool -- sizeFixed
-> m () -- result
rangeSetSliderSizeFixed _obj sizeFixed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sizeFixed' = (fromIntegral . fromEnum) sizeFixed
gtk_range_set_slider_size_fixed _obj' sizeFixed'
touchManagedPtr _obj
return ()
data RangeSetSliderSizeFixedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetSliderSizeFixedMethodInfo a signature where
overloadedMethod _ = rangeSetSliderSizeFixed
-- method Range::set_upper_stepper_sensitivity
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_upper_stepper_sensitivity" gtk_range_set_upper_stepper_sensitivity ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CUInt -> -- sensitivity : TInterface "Gtk" "SensitivityType"
IO ()
rangeSetUpperStepperSensitivity ::
(MonadIO m, RangeK a) =>
a -- _obj
-> SensitivityType -- sensitivity
-> m () -- result
rangeSetUpperStepperSensitivity _obj sensitivity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitivity' = (fromIntegral . fromEnum) sensitivity
gtk_range_set_upper_stepper_sensitivity _obj' sensitivity'
touchManagedPtr _obj
return ()
data RangeSetUpperStepperSensitivityMethodInfo
instance (signature ~ (SensitivityType -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetUpperStepperSensitivityMethodInfo a signature where
overloadedMethod _ = rangeSetUpperStepperSensitivity
-- method Range::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_range_set_value" gtk_range_set_value ::
Ptr Range -> -- _obj : TInterface "Gtk" "Range"
CDouble -> -- value : TBasicType TDouble
IO ()
rangeSetValue ::
(MonadIO m, RangeK a) =>
a -- _obj
-> Double -- value
-> m () -- result
rangeSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_range_set_value _obj' value'
touchManagedPtr _obj
return ()
data RangeSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetValueMethodInfo a signature where
overloadedMethod _ = rangeSetValue