module GI.Gtk.Objects.Range
(
Range(..) ,
RangeK ,
toRange ,
noRange ,
rangeGetAdjustment ,
rangeGetFillLevel ,
rangeGetFlippable ,
rangeGetInverted ,
rangeGetLowerStepperSensitivity ,
rangeGetMinSliderSize ,
rangeGetRangeRect ,
rangeGetRestrictToFillLevel ,
rangeGetRoundDigits ,
rangeGetShowFillLevel ,
rangeGetSliderRange ,
rangeGetSliderSizeFixed ,
rangeGetUpperStepperSensitivity ,
rangeGetValue ,
rangeSetAdjustment ,
rangeSetFillLevel ,
rangeSetFlippable ,
rangeSetIncrements ,
rangeSetInverted ,
rangeSetLowerStepperSensitivity ,
rangeSetMinSliderSize ,
rangeSetRange ,
rangeSetRestrictToFillLevel ,
rangeSetRoundDigits ,
rangeSetShowFillLevel ,
rangeSetSliderSizeFixed ,
rangeSetUpperStepperSensitivity ,
rangeSetValue ,
RangeAdjustmentPropertyInfo ,
constructRangeAdjustment ,
getRangeAdjustment ,
setRangeAdjustment ,
RangeFillLevelPropertyInfo ,
constructRangeFillLevel ,
getRangeFillLevel ,
setRangeFillLevel ,
RangeInvertedPropertyInfo ,
constructRangeInverted ,
getRangeInverted ,
setRangeInverted ,
RangeLowerStepperSensitivityPropertyInfo,
constructRangeLowerStepperSensitivity ,
getRangeLowerStepperSensitivity ,
setRangeLowerStepperSensitivity ,
RangeRestrictToFillLevelPropertyInfo ,
constructRangeRestrictToFillLevel ,
getRangeRestrictToFillLevel ,
setRangeRestrictToFillLevel ,
RangeRoundDigitsPropertyInfo ,
constructRangeRoundDigits ,
getRangeRoundDigits ,
setRangeRoundDigits ,
RangeShowFillLevelPropertyInfo ,
constructRangeShowFillLevel ,
getRangeShowFillLevel ,
setRangeShowFillLevel ,
RangeUpperStepperSensitivityPropertyInfo,
constructRangeUpperStepperSensitivity ,
getRangeUpperStepperSensitivity ,
setRangeUpperStepperSensitivity ,
RangeAdjustBoundsCallback ,
RangeAdjustBoundsCallbackC ,
RangeAdjustBoundsSignalInfo ,
afterRangeAdjustBounds ,
mkRangeAdjustBoundsCallback ,
noRangeAdjustBoundsCallback ,
onRangeAdjustBounds ,
rangeAdjustBoundsCallbackWrapper ,
rangeAdjustBoundsClosure ,
RangeChangeValueCallback ,
RangeChangeValueCallbackC ,
RangeChangeValueSignalInfo ,
afterRangeChangeValue ,
mkRangeChangeValueCallback ,
noRangeChangeValueCallback ,
onRangeChangeValue ,
rangeChangeValueCallbackWrapper ,
rangeChangeValueClosure ,
RangeMoveSliderCallback ,
RangeMoveSliderCallbackC ,
RangeMoveSliderSignalInfo ,
afterRangeMoveSlider ,
mkRangeMoveSliderCallback ,
noRangeMoveSliderCallback ,
onRangeMoveSlider ,
rangeMoveSliderCallbackWrapper ,
rangeMoveSliderClosure ,
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 RangeAdjustBoundsCallback =
Double ->
IO ()
noRangeAdjustBoundsCallback :: Maybe RangeAdjustBoundsCallback
noRangeAdjustBoundsCallback = Nothing
type RangeAdjustBoundsCallbackC =
Ptr () ->
CDouble ->
Ptr () ->
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
type RangeChangeValueCallback =
ScrollType ->
Double ->
IO Bool
noRangeChangeValueCallback :: Maybe RangeChangeValueCallback
noRangeChangeValueCallback = Nothing
type RangeChangeValueCallbackC =
Ptr () ->
CUInt ->
CDouble ->
Ptr () ->
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
type RangeMoveSliderCallback =
ScrollType ->
IO ()
noRangeMoveSliderCallback :: Maybe RangeMoveSliderCallback
noRangeMoveSliderCallback = Nothing
type RangeMoveSliderCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
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
type RangeValueChangedCallback =
IO ()
noRangeValueChangedCallback :: Maybe RangeValueChangedCallback
noRangeValueChangedCallback = Nothing
type RangeValueChangedCallbackC =
Ptr () ->
Ptr () ->
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
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 = "Range::adjustment"
attrGet _ = getRangeAdjustment
attrSet _ = setRangeAdjustment
attrConstruct _ = constructRangeAdjustment
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 = "Range::fill-level"
attrGet _ = getRangeFillLevel
attrSet _ = setRangeFillLevel
attrConstruct _ = constructRangeFillLevel
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 = "Range::inverted"
attrGet _ = getRangeInverted
attrSet _ = setRangeInverted
attrConstruct _ = constructRangeInverted
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 = "Range::lower-stepper-sensitivity"
attrGet _ = getRangeLowerStepperSensitivity
attrSet _ = setRangeLowerStepperSensitivity
attrConstruct _ = constructRangeLowerStepperSensitivity
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 = "Range::restrict-to-fill-level"
attrGet _ = getRangeRestrictToFillLevel
attrSet _ = setRangeRestrictToFillLevel
attrConstruct _ = constructRangeRestrictToFillLevel
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 = "Range::round-digits"
attrGet _ = getRangeRoundDigits
attrSet _ = setRangeRoundDigits
attrConstruct _ = constructRangeRoundDigits
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 = "Range::show-fill-level"
attrGet _ = getRangeShowFillLevel
attrSet _ = setRangeShowFillLevel
attrConstruct _ = constructRangeShowFillLevel
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 = "Range::upper-stepper-sensitivity"
attrGet _ = getRangeUpperStepperSensitivity
attrSet _ = setRangeUpperStepperSensitivity
attrConstruct _ = constructRangeUpperStepperSensitivity
type instance AttributeList Range = RangeAttributeList
type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", 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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_range_get_adjustment" gtk_range_get_adjustment ::
Ptr Range ->
IO (Ptr Adjustment)
rangeGetAdjustment ::
(MonadIO m, RangeK a) =>
a ->
m Adjustment
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'
foreign import ccall "gtk_range_get_fill_level" gtk_range_get_fill_level ::
Ptr Range ->
IO CDouble
rangeGetFillLevel ::
(MonadIO m, RangeK a) =>
a ->
m Double
rangeGetFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_fill_level _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_range_get_flippable" gtk_range_get_flippable ::
Ptr Range ->
IO CInt
rangeGetFlippable ::
(MonadIO m, RangeK a) =>
a ->
m Bool
rangeGetFlippable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_flippable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_range_get_inverted" gtk_range_get_inverted ::
Ptr Range ->
IO CInt
rangeGetInverted ::
(MonadIO m, RangeK a) =>
a ->
m Bool
rangeGetInverted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_inverted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_range_get_lower_stepper_sensitivity" gtk_range_get_lower_stepper_sensitivity ::
Ptr Range ->
IO CUInt
rangeGetLowerStepperSensitivity ::
(MonadIO m, RangeK a) =>
a ->
m SensitivityType
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'
foreign import ccall "gtk_range_get_min_slider_size" gtk_range_get_min_slider_size ::
Ptr Range ->
IO Int32
rangeGetMinSliderSize ::
(MonadIO m, RangeK a) =>
a ->
m Int32
rangeGetMinSliderSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_min_slider_size _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_range_get_range_rect" gtk_range_get_range_rect ::
Ptr Range ->
Ptr Gdk.Rectangle ->
IO ()
rangeGetRangeRect ::
(MonadIO m, RangeK a) =>
a ->
m (Gdk.Rectangle)
rangeGetRangeRect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
range_rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_range_get_range_rect _obj' range_rect
range_rect' <- (wrapBoxed Gdk.Rectangle) range_rect
touchManagedPtr _obj
return range_rect'
foreign import ccall "gtk_range_get_restrict_to_fill_level" gtk_range_get_restrict_to_fill_level ::
Ptr Range ->
IO CInt
rangeGetRestrictToFillLevel ::
(MonadIO m, RangeK a) =>
a ->
m Bool
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'
foreign import ccall "gtk_range_get_round_digits" gtk_range_get_round_digits ::
Ptr Range ->
IO Int32
rangeGetRoundDigits ::
(MonadIO m, RangeK a) =>
a ->
m Int32
rangeGetRoundDigits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_round_digits _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_range_get_show_fill_level" gtk_range_get_show_fill_level ::
Ptr Range ->
IO CInt
rangeGetShowFillLevel ::
(MonadIO m, RangeK a) =>
a ->
m Bool
rangeGetShowFillLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_show_fill_level _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_range_get_slider_range" gtk_range_get_slider_range ::
Ptr Range ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
rangeGetSliderRange ::
(MonadIO m, RangeK a) =>
a ->
m (Int32,Int32)
rangeGetSliderRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
slider_start <- allocMem :: IO (Ptr Int32)
slider_end <- allocMem :: IO (Ptr Int32)
gtk_range_get_slider_range _obj' slider_start slider_end
slider_start' <- peek slider_start
slider_end' <- peek slider_end
touchManagedPtr _obj
freeMem slider_start
freeMem slider_end
return (slider_start', slider_end')
foreign import ccall "gtk_range_get_slider_size_fixed" gtk_range_get_slider_size_fixed ::
Ptr Range ->
IO CInt
rangeGetSliderSizeFixed ::
(MonadIO m, RangeK a) =>
a ->
m Bool
rangeGetSliderSizeFixed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_slider_size_fixed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_range_get_upper_stepper_sensitivity" gtk_range_get_upper_stepper_sensitivity ::
Ptr Range ->
IO CUInt
rangeGetUpperStepperSensitivity ::
(MonadIO m, RangeK a) =>
a ->
m SensitivityType
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'
foreign import ccall "gtk_range_get_value" gtk_range_get_value ::
Ptr Range ->
IO CDouble
rangeGetValue ::
(MonadIO m, RangeK a) =>
a ->
m Double
rangeGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_range_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_range_set_adjustment" gtk_range_set_adjustment ::
Ptr Range ->
Ptr Adjustment ->
IO ()
rangeSetAdjustment ::
(MonadIO m, RangeK a, AdjustmentK b) =>
a ->
b ->
m ()
rangeSetAdjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_range_set_adjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
foreign import ccall "gtk_range_set_fill_level" gtk_range_set_fill_level ::
Ptr Range ->
CDouble ->
IO ()
rangeSetFillLevel ::
(MonadIO m, RangeK a) =>
a ->
Double ->
m ()
rangeSetFillLevel _obj fill_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fill_level' = realToFrac fill_level
gtk_range_set_fill_level _obj' fill_level'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_flippable" gtk_range_set_flippable ::
Ptr Range ->
CInt ->
IO ()
rangeSetFlippable ::
(MonadIO m, RangeK a) =>
a ->
Bool ->
m ()
rangeSetFlippable _obj flippable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flippable' = (fromIntegral . fromEnum) flippable
gtk_range_set_flippable _obj' flippable'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_increments" gtk_range_set_increments ::
Ptr Range ->
CDouble ->
CDouble ->
IO ()
rangeSetIncrements ::
(MonadIO m, RangeK a) =>
a ->
Double ->
Double ->
m ()
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 ()
foreign import ccall "gtk_range_set_inverted" gtk_range_set_inverted ::
Ptr Range ->
CInt ->
IO ()
rangeSetInverted ::
(MonadIO m, RangeK a) =>
a ->
Bool ->
m ()
rangeSetInverted _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_range_set_inverted _obj' setting'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_lower_stepper_sensitivity" gtk_range_set_lower_stepper_sensitivity ::
Ptr Range ->
CUInt ->
IO ()
rangeSetLowerStepperSensitivity ::
(MonadIO m, RangeK a) =>
a ->
SensitivityType ->
m ()
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 ()
foreign import ccall "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size ::
Ptr Range ->
Int32 ->
IO ()
rangeSetMinSliderSize ::
(MonadIO m, RangeK a) =>
a ->
Int32 ->
m ()
rangeSetMinSliderSize _obj min_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_range_set_min_slider_size _obj' min_size
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_range" gtk_range_set_range ::
Ptr Range ->
CDouble ->
CDouble ->
IO ()
rangeSetRange ::
(MonadIO m, RangeK a) =>
a ->
Double ->
Double ->
m ()
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 ()
foreign import ccall "gtk_range_set_restrict_to_fill_level" gtk_range_set_restrict_to_fill_level ::
Ptr Range ->
CInt ->
IO ()
rangeSetRestrictToFillLevel ::
(MonadIO m, RangeK a) =>
a ->
Bool ->
m ()
rangeSetRestrictToFillLevel _obj restrict_to_fill_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let restrict_to_fill_level' = (fromIntegral . fromEnum) restrict_to_fill_level
gtk_range_set_restrict_to_fill_level _obj' restrict_to_fill_level'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits ::
Ptr Range ->
Int32 ->
IO ()
rangeSetRoundDigits ::
(MonadIO m, RangeK a) =>
a ->
Int32 ->
m ()
rangeSetRoundDigits _obj round_digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_range_set_round_digits _obj' round_digits
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_show_fill_level" gtk_range_set_show_fill_level ::
Ptr Range ->
CInt ->
IO ()
rangeSetShowFillLevel ::
(MonadIO m, RangeK a) =>
a ->
Bool ->
m ()
rangeSetShowFillLevel _obj show_fill_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_fill_level' = (fromIntegral . fromEnum) show_fill_level
gtk_range_set_show_fill_level _obj' show_fill_level'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_slider_size_fixed" gtk_range_set_slider_size_fixed ::
Ptr Range ->
CInt ->
IO ()
rangeSetSliderSizeFixed ::
(MonadIO m, RangeK a) =>
a ->
Bool ->
m ()
rangeSetSliderSizeFixed _obj size_fixed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let size_fixed' = (fromIntegral . fromEnum) size_fixed
gtk_range_set_slider_size_fixed _obj' size_fixed'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_range_set_upper_stepper_sensitivity" gtk_range_set_upper_stepper_sensitivity ::
Ptr Range ->
CUInt ->
IO ()
rangeSetUpperStepperSensitivity ::
(MonadIO m, RangeK a) =>
a ->
SensitivityType ->
m ()
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 ()
foreign import ccall "gtk_range_set_value" gtk_range_set_value ::
Ptr Range ->
CDouble ->
IO ()
rangeSetValue ::
(MonadIO m, RangeK a) =>
a ->
Double ->
m ()
rangeSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_range_set_value _obj' value'
touchManagedPtr _obj
return ()