module GI.Gtk.Objects.SpinButton
(
SpinButton(..) ,
SpinButtonK ,
toSpinButton ,
noSpinButton ,
spinButtonConfigure ,
spinButtonGetAdjustment ,
spinButtonGetDigits ,
spinButtonGetIncrements ,
spinButtonGetNumeric ,
spinButtonGetRange ,
spinButtonGetSnapToTicks ,
spinButtonGetUpdatePolicy ,
spinButtonGetValue ,
spinButtonGetValueAsInt ,
spinButtonGetWrap ,
spinButtonNew ,
spinButtonNewWithRange ,
spinButtonSetAdjustment ,
spinButtonSetDigits ,
spinButtonSetIncrements ,
spinButtonSetNumeric ,
spinButtonSetRange ,
spinButtonSetSnapToTicks ,
spinButtonSetUpdatePolicy ,
spinButtonSetValue ,
spinButtonSetWrap ,
spinButtonSpin ,
spinButtonUpdate ,
SpinButtonAdjustmentPropertyInfo ,
constructSpinButtonAdjustment ,
getSpinButtonAdjustment ,
setSpinButtonAdjustment ,
SpinButtonClimbRatePropertyInfo ,
constructSpinButtonClimbRate ,
getSpinButtonClimbRate ,
setSpinButtonClimbRate ,
SpinButtonDigitsPropertyInfo ,
constructSpinButtonDigits ,
getSpinButtonDigits ,
setSpinButtonDigits ,
SpinButtonNumericPropertyInfo ,
constructSpinButtonNumeric ,
getSpinButtonNumeric ,
setSpinButtonNumeric ,
SpinButtonSnapToTicksPropertyInfo ,
constructSpinButtonSnapToTicks ,
getSpinButtonSnapToTicks ,
setSpinButtonSnapToTicks ,
SpinButtonUpdatePolicyPropertyInfo ,
constructSpinButtonUpdatePolicy ,
getSpinButtonUpdatePolicy ,
setSpinButtonUpdatePolicy ,
SpinButtonValuePropertyInfo ,
constructSpinButtonValue ,
getSpinButtonValue ,
setSpinButtonValue ,
SpinButtonWrapPropertyInfo ,
constructSpinButtonWrap ,
getSpinButtonWrap ,
setSpinButtonWrap ,
SpinButtonChangeValueCallback ,
SpinButtonChangeValueCallbackC ,
SpinButtonChangeValueSignalInfo ,
afterSpinButtonChangeValue ,
mkSpinButtonChangeValueCallback ,
noSpinButtonChangeValueCallback ,
onSpinButtonChangeValue ,
spinButtonChangeValueCallbackWrapper ,
spinButtonChangeValueClosure ,
SpinButtonInputCallback ,
SpinButtonInputCallbackC ,
SpinButtonInputSignalInfo ,
afterSpinButtonInput ,
mkSpinButtonInputCallback ,
noSpinButtonInputCallback ,
onSpinButtonInput ,
spinButtonInputCallbackWrapper ,
spinButtonInputClosure ,
SpinButtonOutputCallback ,
SpinButtonOutputCallbackC ,
SpinButtonOutputSignalInfo ,
afterSpinButtonOutput ,
mkSpinButtonOutputCallback ,
noSpinButtonOutputCallback ,
onSpinButtonOutput ,
spinButtonOutputCallbackWrapper ,
spinButtonOutputClosure ,
SpinButtonValueChangedCallback ,
SpinButtonValueChangedCallbackC ,
SpinButtonValueChangedSignalInfo ,
afterSpinButtonValueChanged ,
mkSpinButtonValueChangedCallback ,
noSpinButtonValueChangedCallback ,
onSpinButtonValueChanged ,
spinButtonValueChangedCallbackWrapper ,
spinButtonValueChangedClosure ,
SpinButtonWrappedCallback ,
SpinButtonWrappedCallbackC ,
SpinButtonWrappedSignalInfo ,
afterSpinButtonWrapped ,
mkSpinButtonWrappedCallback ,
noSpinButtonWrappedCallback ,
onSpinButtonWrapped ,
spinButtonWrappedCallbackWrapper ,
spinButtonWrappedClosure ,
) 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
newtype SpinButton = SpinButton (ForeignPtr SpinButton)
foreign import ccall "gtk_spin_button_get_type"
c_gtk_spin_button_get_type :: IO GType
type instance ParentTypes SpinButton = SpinButtonParentTypes
type SpinButtonParentTypes = '[Entry, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable, Orientable]
instance GObject SpinButton where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_spin_button_get_type
class GObject o => SpinButtonK o
instance (GObject o, IsDescendantOf SpinButton o) => SpinButtonK o
toSpinButton :: SpinButtonK o => o -> IO SpinButton
toSpinButton = unsafeCastTo SpinButton
noSpinButton :: Maybe SpinButton
noSpinButton = Nothing
type SpinButtonChangeValueCallback =
ScrollType ->
IO ()
noSpinButtonChangeValueCallback :: Maybe SpinButtonChangeValueCallback
noSpinButtonChangeValueCallback = Nothing
type SpinButtonChangeValueCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkSpinButtonChangeValueCallback :: SpinButtonChangeValueCallbackC -> IO (FunPtr SpinButtonChangeValueCallbackC)
spinButtonChangeValueClosure :: SpinButtonChangeValueCallback -> IO Closure
spinButtonChangeValueClosure cb = newCClosure =<< mkSpinButtonChangeValueCallback wrapped
where wrapped = spinButtonChangeValueCallbackWrapper cb
spinButtonChangeValueCallbackWrapper ::
SpinButtonChangeValueCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
spinButtonChangeValueCallbackWrapper _cb _ scroll _ = do
let scroll' = (toEnum . fromIntegral) scroll
_cb scroll'
onSpinButtonChangeValue :: (GObject a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId
onSpinButtonChangeValue obj cb = liftIO $ connectSpinButtonChangeValue obj cb SignalConnectBefore
afterSpinButtonChangeValue :: (GObject a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId
afterSpinButtonChangeValue obj cb = connectSpinButtonChangeValue obj cb SignalConnectAfter
connectSpinButtonChangeValue :: (GObject a, MonadIO m) =>
a -> SpinButtonChangeValueCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonChangeValue obj cb after = liftIO $ do
cb' <- mkSpinButtonChangeValueCallback (spinButtonChangeValueCallbackWrapper cb)
connectSignalFunPtr obj "change-value" cb' after
type SpinButtonInputCallback =
IO (Int32,Double)
noSpinButtonInputCallback :: Maybe SpinButtonInputCallback
noSpinButtonInputCallback = Nothing
type SpinButtonInputCallbackC =
Ptr () ->
Ptr CDouble ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkSpinButtonInputCallback :: SpinButtonInputCallbackC -> IO (FunPtr SpinButtonInputCallbackC)
spinButtonInputClosure :: SpinButtonInputCallback -> IO Closure
spinButtonInputClosure cb = newCClosure =<< mkSpinButtonInputCallback wrapped
where wrapped = spinButtonInputCallbackWrapper cb
spinButtonInputCallbackWrapper ::
SpinButtonInputCallback ->
Ptr () ->
Ptr CDouble ->
Ptr () ->
IO Int32
spinButtonInputCallbackWrapper _cb _ new_value _ = do
(result, outnew_value) <- _cb
let outnew_value' = realToFrac outnew_value
poke new_value outnew_value'
return result
onSpinButtonInput :: (GObject a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId
onSpinButtonInput obj cb = liftIO $ connectSpinButtonInput obj cb SignalConnectBefore
afterSpinButtonInput :: (GObject a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId
afterSpinButtonInput obj cb = connectSpinButtonInput obj cb SignalConnectAfter
connectSpinButtonInput :: (GObject a, MonadIO m) =>
a -> SpinButtonInputCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonInput obj cb after = liftIO $ do
cb' <- mkSpinButtonInputCallback (spinButtonInputCallbackWrapper cb)
connectSignalFunPtr obj "input" cb' after
type SpinButtonOutputCallback =
IO Bool
noSpinButtonOutputCallback :: Maybe SpinButtonOutputCallback
noSpinButtonOutputCallback = Nothing
type SpinButtonOutputCallbackC =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkSpinButtonOutputCallback :: SpinButtonOutputCallbackC -> IO (FunPtr SpinButtonOutputCallbackC)
spinButtonOutputClosure :: SpinButtonOutputCallback -> IO Closure
spinButtonOutputClosure cb = newCClosure =<< mkSpinButtonOutputCallback wrapped
where wrapped = spinButtonOutputCallbackWrapper cb
spinButtonOutputCallbackWrapper ::
SpinButtonOutputCallback ->
Ptr () ->
Ptr () ->
IO CInt
spinButtonOutputCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onSpinButtonOutput :: (GObject a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId
onSpinButtonOutput obj cb = liftIO $ connectSpinButtonOutput obj cb SignalConnectBefore
afterSpinButtonOutput :: (GObject a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId
afterSpinButtonOutput obj cb = connectSpinButtonOutput obj cb SignalConnectAfter
connectSpinButtonOutput :: (GObject a, MonadIO m) =>
a -> SpinButtonOutputCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonOutput obj cb after = liftIO $ do
cb' <- mkSpinButtonOutputCallback (spinButtonOutputCallbackWrapper cb)
connectSignalFunPtr obj "output" cb' after
type SpinButtonValueChangedCallback =
IO ()
noSpinButtonValueChangedCallback :: Maybe SpinButtonValueChangedCallback
noSpinButtonValueChangedCallback = Nothing
type SpinButtonValueChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkSpinButtonValueChangedCallback :: SpinButtonValueChangedCallbackC -> IO (FunPtr SpinButtonValueChangedCallbackC)
spinButtonValueChangedClosure :: SpinButtonValueChangedCallback -> IO Closure
spinButtonValueChangedClosure cb = newCClosure =<< mkSpinButtonValueChangedCallback wrapped
where wrapped = spinButtonValueChangedCallbackWrapper cb
spinButtonValueChangedCallbackWrapper ::
SpinButtonValueChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
spinButtonValueChangedCallbackWrapper _cb _ _ = do
_cb
onSpinButtonValueChanged :: (GObject a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId
onSpinButtonValueChanged obj cb = liftIO $ connectSpinButtonValueChanged obj cb SignalConnectBefore
afterSpinButtonValueChanged :: (GObject a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId
afterSpinButtonValueChanged obj cb = connectSpinButtonValueChanged obj cb SignalConnectAfter
connectSpinButtonValueChanged :: (GObject a, MonadIO m) =>
a -> SpinButtonValueChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonValueChanged obj cb after = liftIO $ do
cb' <- mkSpinButtonValueChangedCallback (spinButtonValueChangedCallbackWrapper cb)
connectSignalFunPtr obj "value-changed" cb' after
type SpinButtonWrappedCallback =
IO ()
noSpinButtonWrappedCallback :: Maybe SpinButtonWrappedCallback
noSpinButtonWrappedCallback = Nothing
type SpinButtonWrappedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkSpinButtonWrappedCallback :: SpinButtonWrappedCallbackC -> IO (FunPtr SpinButtonWrappedCallbackC)
spinButtonWrappedClosure :: SpinButtonWrappedCallback -> IO Closure
spinButtonWrappedClosure cb = newCClosure =<< mkSpinButtonWrappedCallback wrapped
where wrapped = spinButtonWrappedCallbackWrapper cb
spinButtonWrappedCallbackWrapper ::
SpinButtonWrappedCallback ->
Ptr () ->
Ptr () ->
IO ()
spinButtonWrappedCallbackWrapper _cb _ _ = do
_cb
onSpinButtonWrapped :: (GObject a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId
onSpinButtonWrapped obj cb = liftIO $ connectSpinButtonWrapped obj cb SignalConnectBefore
afterSpinButtonWrapped :: (GObject a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId
afterSpinButtonWrapped obj cb = connectSpinButtonWrapped obj cb SignalConnectAfter
connectSpinButtonWrapped :: (GObject a, MonadIO m) =>
a -> SpinButtonWrappedCallback -> SignalConnectMode -> m SignalHandlerId
connectSpinButtonWrapped obj cb after = liftIO $ do
cb' <- mkSpinButtonWrappedCallback (spinButtonWrappedCallbackWrapper cb)
connectSignalFunPtr obj "wrapped" cb' after
getSpinButtonAdjustment :: (MonadIO m, SpinButtonK o) => o -> m Adjustment
getSpinButtonAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment
setSpinButtonAdjustment :: (MonadIO m, SpinButtonK o, AdjustmentK a) => o -> a -> m ()
setSpinButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val
constructSpinButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)
constructSpinButtonAdjustment val = constructObjectPropertyObject "adjustment" val
data SpinButtonAdjustmentPropertyInfo
instance AttrInfo SpinButtonAdjustmentPropertyInfo where
type AttrAllowedOps SpinButtonAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonAdjustmentPropertyInfo = AdjustmentK
type AttrBaseTypeConstraint SpinButtonAdjustmentPropertyInfo = SpinButtonK
type AttrGetType SpinButtonAdjustmentPropertyInfo = Adjustment
type AttrLabel SpinButtonAdjustmentPropertyInfo = "SpinButton::adjustment"
attrGet _ = getSpinButtonAdjustment
attrSet _ = setSpinButtonAdjustment
attrConstruct _ = constructSpinButtonAdjustment
getSpinButtonClimbRate :: (MonadIO m, SpinButtonK o) => o -> m Double
getSpinButtonClimbRate obj = liftIO $ getObjectPropertyDouble obj "climb-rate"
setSpinButtonClimbRate :: (MonadIO m, SpinButtonK o) => o -> Double -> m ()
setSpinButtonClimbRate obj val = liftIO $ setObjectPropertyDouble obj "climb-rate" val
constructSpinButtonClimbRate :: Double -> IO ([Char], GValue)
constructSpinButtonClimbRate val = constructObjectPropertyDouble "climb-rate" val
data SpinButtonClimbRatePropertyInfo
instance AttrInfo SpinButtonClimbRatePropertyInfo where
type AttrAllowedOps SpinButtonClimbRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonClimbRatePropertyInfo = (~) Double
type AttrBaseTypeConstraint SpinButtonClimbRatePropertyInfo = SpinButtonK
type AttrGetType SpinButtonClimbRatePropertyInfo = Double
type AttrLabel SpinButtonClimbRatePropertyInfo = "SpinButton::climb-rate"
attrGet _ = getSpinButtonClimbRate
attrSet _ = setSpinButtonClimbRate
attrConstruct _ = constructSpinButtonClimbRate
getSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> m Word32
getSpinButtonDigits obj = liftIO $ getObjectPropertyCUInt obj "digits"
setSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> Word32 -> m ()
setSpinButtonDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val
constructSpinButtonDigits :: Word32 -> IO ([Char], GValue)
constructSpinButtonDigits val = constructObjectPropertyCUInt "digits" val
data SpinButtonDigitsPropertyInfo
instance AttrInfo SpinButtonDigitsPropertyInfo where
type AttrAllowedOps SpinButtonDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonDigitsPropertyInfo = (~) Word32
type AttrBaseTypeConstraint SpinButtonDigitsPropertyInfo = SpinButtonK
type AttrGetType SpinButtonDigitsPropertyInfo = Word32
type AttrLabel SpinButtonDigitsPropertyInfo = "SpinButton::digits"
attrGet _ = getSpinButtonDigits
attrSet _ = setSpinButtonDigits
attrConstruct _ = constructSpinButtonDigits
getSpinButtonNumeric :: (MonadIO m, SpinButtonK o) => o -> m Bool
getSpinButtonNumeric obj = liftIO $ getObjectPropertyBool obj "numeric"
setSpinButtonNumeric :: (MonadIO m, SpinButtonK o) => o -> Bool -> m ()
setSpinButtonNumeric obj val = liftIO $ setObjectPropertyBool obj "numeric" val
constructSpinButtonNumeric :: Bool -> IO ([Char], GValue)
constructSpinButtonNumeric val = constructObjectPropertyBool "numeric" val
data SpinButtonNumericPropertyInfo
instance AttrInfo SpinButtonNumericPropertyInfo where
type AttrAllowedOps SpinButtonNumericPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonNumericPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SpinButtonNumericPropertyInfo = SpinButtonK
type AttrGetType SpinButtonNumericPropertyInfo = Bool
type AttrLabel SpinButtonNumericPropertyInfo = "SpinButton::numeric"
attrGet _ = getSpinButtonNumeric
attrSet _ = setSpinButtonNumeric
attrConstruct _ = constructSpinButtonNumeric
getSpinButtonSnapToTicks :: (MonadIO m, SpinButtonK o) => o -> m Bool
getSpinButtonSnapToTicks obj = liftIO $ getObjectPropertyBool obj "snap-to-ticks"
setSpinButtonSnapToTicks :: (MonadIO m, SpinButtonK o) => o -> Bool -> m ()
setSpinButtonSnapToTicks obj val = liftIO $ setObjectPropertyBool obj "snap-to-ticks" val
constructSpinButtonSnapToTicks :: Bool -> IO ([Char], GValue)
constructSpinButtonSnapToTicks val = constructObjectPropertyBool "snap-to-ticks" val
data SpinButtonSnapToTicksPropertyInfo
instance AttrInfo SpinButtonSnapToTicksPropertyInfo where
type AttrAllowedOps SpinButtonSnapToTicksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonSnapToTicksPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SpinButtonSnapToTicksPropertyInfo = SpinButtonK
type AttrGetType SpinButtonSnapToTicksPropertyInfo = Bool
type AttrLabel SpinButtonSnapToTicksPropertyInfo = "SpinButton::snap-to-ticks"
attrGet _ = getSpinButtonSnapToTicks
attrSet _ = setSpinButtonSnapToTicks
attrConstruct _ = constructSpinButtonSnapToTicks
getSpinButtonUpdatePolicy :: (MonadIO m, SpinButtonK o) => o -> m SpinButtonUpdatePolicy
getSpinButtonUpdatePolicy obj = liftIO $ getObjectPropertyEnum obj "update-policy"
setSpinButtonUpdatePolicy :: (MonadIO m, SpinButtonK o) => o -> SpinButtonUpdatePolicy -> m ()
setSpinButtonUpdatePolicy obj val = liftIO $ setObjectPropertyEnum obj "update-policy" val
constructSpinButtonUpdatePolicy :: SpinButtonUpdatePolicy -> IO ([Char], GValue)
constructSpinButtonUpdatePolicy val = constructObjectPropertyEnum "update-policy" val
data SpinButtonUpdatePolicyPropertyInfo
instance AttrInfo SpinButtonUpdatePolicyPropertyInfo where
type AttrAllowedOps SpinButtonUpdatePolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonUpdatePolicyPropertyInfo = (~) SpinButtonUpdatePolicy
type AttrBaseTypeConstraint SpinButtonUpdatePolicyPropertyInfo = SpinButtonK
type AttrGetType SpinButtonUpdatePolicyPropertyInfo = SpinButtonUpdatePolicy
type AttrLabel SpinButtonUpdatePolicyPropertyInfo = "SpinButton::update-policy"
attrGet _ = getSpinButtonUpdatePolicy
attrSet _ = setSpinButtonUpdatePolicy
attrConstruct _ = constructSpinButtonUpdatePolicy
getSpinButtonValue :: (MonadIO m, SpinButtonK o) => o -> m Double
getSpinButtonValue obj = liftIO $ getObjectPropertyDouble obj "value"
setSpinButtonValue :: (MonadIO m, SpinButtonK o) => o -> Double -> m ()
setSpinButtonValue obj val = liftIO $ setObjectPropertyDouble obj "value" val
constructSpinButtonValue :: Double -> IO ([Char], GValue)
constructSpinButtonValue val = constructObjectPropertyDouble "value" val
data SpinButtonValuePropertyInfo
instance AttrInfo SpinButtonValuePropertyInfo where
type AttrAllowedOps SpinButtonValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonValuePropertyInfo = (~) Double
type AttrBaseTypeConstraint SpinButtonValuePropertyInfo = SpinButtonK
type AttrGetType SpinButtonValuePropertyInfo = Double
type AttrLabel SpinButtonValuePropertyInfo = "SpinButton::value"
attrGet _ = getSpinButtonValue
attrSet _ = setSpinButtonValue
attrConstruct _ = constructSpinButtonValue
getSpinButtonWrap :: (MonadIO m, SpinButtonK o) => o -> m Bool
getSpinButtonWrap obj = liftIO $ getObjectPropertyBool obj "wrap"
setSpinButtonWrap :: (MonadIO m, SpinButtonK o) => o -> Bool -> m ()
setSpinButtonWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val
constructSpinButtonWrap :: Bool -> IO ([Char], GValue)
constructSpinButtonWrap val = constructObjectPropertyBool "wrap" val
data SpinButtonWrapPropertyInfo
instance AttrInfo SpinButtonWrapPropertyInfo where
type AttrAllowedOps SpinButtonWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SpinButtonWrapPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SpinButtonWrapPropertyInfo = SpinButtonK
type AttrGetType SpinButtonWrapPropertyInfo = Bool
type AttrLabel SpinButtonWrapPropertyInfo = "SpinButton::wrap"
attrGet _ = getSpinButtonWrap
attrSet _ = setSpinButtonWrap
attrConstruct _ = constructSpinButtonWrap
type instance AttributeList SpinButton = SpinButtonAttributeList
type SpinButtonAttributeList = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("climb-rate", SpinButtonClimbRatePropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("snap-to-ticks", SpinButtonSnapToTicksPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("update-policy", SpinButtonUpdatePolicyPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)])
data SpinButtonChangeValueSignalInfo
instance SignalInfo SpinButtonChangeValueSignalInfo where
type HaskellCallbackType SpinButtonChangeValueSignalInfo = SpinButtonChangeValueCallback
connectSignal _ = connectSpinButtonChangeValue
data SpinButtonInputSignalInfo
instance SignalInfo SpinButtonInputSignalInfo where
type HaskellCallbackType SpinButtonInputSignalInfo = SpinButtonInputCallback
connectSignal _ = connectSpinButtonInput
data SpinButtonOutputSignalInfo
instance SignalInfo SpinButtonOutputSignalInfo where
type HaskellCallbackType SpinButtonOutputSignalInfo = SpinButtonOutputCallback
connectSignal _ = connectSpinButtonOutput
data SpinButtonValueChangedSignalInfo
instance SignalInfo SpinButtonValueChangedSignalInfo where
type HaskellCallbackType SpinButtonValueChangedSignalInfo = SpinButtonValueChangedCallback
connectSignal _ = connectSpinButtonValueChanged
data SpinButtonWrappedSignalInfo
instance SignalInfo SpinButtonWrappedSignalInfo where
type HaskellCallbackType SpinButtonWrappedSignalInfo = SpinButtonWrappedCallback
connectSignal _ = connectSpinButtonWrapped
type instance SignalList SpinButton = SpinButtonSignalList
type SpinButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", SpinButtonChangeValueSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("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), '("editing-done", CellEditableEditingDoneSignalInfo), '("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), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("input", SpinButtonInputSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("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-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("output", SpinButtonOutputSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("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), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", SpinButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("wrapped", SpinButtonWrappedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_spin_button_new" gtk_spin_button_new ::
Ptr Adjustment ->
CDouble ->
Word32 ->
IO (Ptr SpinButton)
spinButtonNew ::
(MonadIO m, AdjustmentK a) =>
Maybe (a) ->
Double ->
Word32 ->
m SpinButton
spinButtonNew adjustment climb_rate digits = liftIO $ do
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
let climb_rate' = realToFrac climb_rate
result <- gtk_spin_button_new maybeAdjustment climb_rate' digits
checkUnexpectedReturnNULL "gtk_spin_button_new" result
result' <- (newObject SpinButton) result
whenJust adjustment touchManagedPtr
return result'
foreign import ccall "gtk_spin_button_new_with_range" gtk_spin_button_new_with_range ::
CDouble ->
CDouble ->
CDouble ->
IO (Ptr SpinButton)
spinButtonNewWithRange ::
(MonadIO m) =>
Double ->
Double ->
Double ->
m SpinButton
spinButtonNewWithRange min max step = liftIO $ do
let min' = realToFrac min
let max' = realToFrac max
let step' = realToFrac step
result <- gtk_spin_button_new_with_range min' max' step'
checkUnexpectedReturnNULL "gtk_spin_button_new_with_range" result
result' <- (newObject SpinButton) result
return result'
foreign import ccall "gtk_spin_button_configure" gtk_spin_button_configure ::
Ptr SpinButton ->
Ptr Adjustment ->
CDouble ->
Word32 ->
IO ()
spinButtonConfigure ::
(MonadIO m, SpinButtonK a, AdjustmentK b) =>
a ->
Maybe (b) ->
Double ->
Word32 ->
m ()
spinButtonConfigure _obj adjustment climb_rate digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAdjustment <- case adjustment of
Nothing -> return nullPtr
Just jAdjustment -> do
let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment
return jAdjustment'
let climb_rate' = realToFrac climb_rate
gtk_spin_button_configure _obj' maybeAdjustment climb_rate' digits
touchManagedPtr _obj
whenJust adjustment touchManagedPtr
return ()
foreign import ccall "gtk_spin_button_get_adjustment" gtk_spin_button_get_adjustment ::
Ptr SpinButton ->
IO (Ptr Adjustment)
spinButtonGetAdjustment ::
(MonadIO m, SpinButtonK a) =>
a ->
m Adjustment
spinButtonGetAdjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_adjustment _obj'
checkUnexpectedReturnNULL "gtk_spin_button_get_adjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_spin_button_get_digits" gtk_spin_button_get_digits ::
Ptr SpinButton ->
IO Word32
spinButtonGetDigits ::
(MonadIO m, SpinButtonK a) =>
a ->
m Word32
spinButtonGetDigits _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_digits _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_spin_button_get_increments" gtk_spin_button_get_increments ::
Ptr SpinButton ->
Ptr CDouble ->
Ptr CDouble ->
IO ()
spinButtonGetIncrements ::
(MonadIO m, SpinButtonK a) =>
a ->
m (Double,Double)
spinButtonGetIncrements _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
step <- allocMem :: IO (Ptr CDouble)
page <- allocMem :: IO (Ptr CDouble)
gtk_spin_button_get_increments _obj' step page
step' <- peek step
let step'' = realToFrac step'
page' <- peek page
let page'' = realToFrac page'
touchManagedPtr _obj
freeMem step
freeMem page
return (step'', page'')
foreign import ccall "gtk_spin_button_get_numeric" gtk_spin_button_get_numeric ::
Ptr SpinButton ->
IO CInt
spinButtonGetNumeric ::
(MonadIO m, SpinButtonK a) =>
a ->
m Bool
spinButtonGetNumeric _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_numeric _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_spin_button_get_range" gtk_spin_button_get_range ::
Ptr SpinButton ->
Ptr CDouble ->
Ptr CDouble ->
IO ()
spinButtonGetRange ::
(MonadIO m, SpinButtonK a) =>
a ->
m (Double,Double)
spinButtonGetRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
min <- allocMem :: IO (Ptr CDouble)
max <- allocMem :: IO (Ptr CDouble)
gtk_spin_button_get_range _obj' min max
min' <- peek min
let min'' = realToFrac min'
max' <- peek max
let max'' = realToFrac max'
touchManagedPtr _obj
freeMem min
freeMem max
return (min'', max'')
foreign import ccall "gtk_spin_button_get_snap_to_ticks" gtk_spin_button_get_snap_to_ticks ::
Ptr SpinButton ->
IO CInt
spinButtonGetSnapToTicks ::
(MonadIO m, SpinButtonK a) =>
a ->
m Bool
spinButtonGetSnapToTicks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_snap_to_ticks _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_spin_button_get_update_policy" gtk_spin_button_get_update_policy ::
Ptr SpinButton ->
IO CUInt
spinButtonGetUpdatePolicy ::
(MonadIO m, SpinButtonK a) =>
a ->
m SpinButtonUpdatePolicy
spinButtonGetUpdatePolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_update_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_spin_button_get_value" gtk_spin_button_get_value ::
Ptr SpinButton ->
IO CDouble
spinButtonGetValue ::
(MonadIO m, SpinButtonK a) =>
a ->
m Double
spinButtonGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_spin_button_get_value_as_int" gtk_spin_button_get_value_as_int ::
Ptr SpinButton ->
IO Int32
spinButtonGetValueAsInt ::
(MonadIO m, SpinButtonK a) =>
a ->
m Int32
spinButtonGetValueAsInt _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_value_as_int _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_spin_button_get_wrap" gtk_spin_button_get_wrap ::
Ptr SpinButton ->
IO CInt
spinButtonGetWrap ::
(MonadIO m, SpinButtonK a) =>
a ->
m Bool
spinButtonGetWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_spin_button_get_wrap _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_spin_button_set_adjustment" gtk_spin_button_set_adjustment ::
Ptr SpinButton ->
Ptr Adjustment ->
IO ()
spinButtonSetAdjustment ::
(MonadIO m, SpinButtonK a, AdjustmentK b) =>
a ->
b ->
m ()
spinButtonSetAdjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_spin_button_set_adjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
foreign import ccall "gtk_spin_button_set_digits" gtk_spin_button_set_digits ::
Ptr SpinButton ->
Word32 ->
IO ()
spinButtonSetDigits ::
(MonadIO m, SpinButtonK a) =>
a ->
Word32 ->
m ()
spinButtonSetDigits _obj digits = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_spin_button_set_digits _obj' digits
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_set_increments" gtk_spin_button_set_increments ::
Ptr SpinButton ->
CDouble ->
CDouble ->
IO ()
spinButtonSetIncrements ::
(MonadIO m, SpinButtonK a) =>
a ->
Double ->
Double ->
m ()
spinButtonSetIncrements _obj step page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let step' = realToFrac step
let page' = realToFrac page
gtk_spin_button_set_increments _obj' step' page'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_set_numeric" gtk_spin_button_set_numeric ::
Ptr SpinButton ->
CInt ->
IO ()
spinButtonSetNumeric ::
(MonadIO m, SpinButtonK a) =>
a ->
Bool ->
m ()
spinButtonSetNumeric _obj numeric = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let numeric' = (fromIntegral . fromEnum) numeric
gtk_spin_button_set_numeric _obj' numeric'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_set_range" gtk_spin_button_set_range ::
Ptr SpinButton ->
CDouble ->
CDouble ->
IO ()
spinButtonSetRange ::
(MonadIO m, SpinButtonK a) =>
a ->
Double ->
Double ->
m ()
spinButtonSetRange _obj min max = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let min' = realToFrac min
let max' = realToFrac max
gtk_spin_button_set_range _obj' min' max'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_set_snap_to_ticks" gtk_spin_button_set_snap_to_ticks ::
Ptr SpinButton ->
CInt ->
IO ()
spinButtonSetSnapToTicks ::
(MonadIO m, SpinButtonK a) =>
a ->
Bool ->
m ()
spinButtonSetSnapToTicks _obj snap_to_ticks = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let snap_to_ticks' = (fromIntegral . fromEnum) snap_to_ticks
gtk_spin_button_set_snap_to_ticks _obj' snap_to_ticks'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_set_update_policy" gtk_spin_button_set_update_policy ::
Ptr SpinButton ->
CUInt ->
IO ()
spinButtonSetUpdatePolicy ::
(MonadIO m, SpinButtonK a) =>
a ->
SpinButtonUpdatePolicy ->
m ()
spinButtonSetUpdatePolicy _obj policy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let policy' = (fromIntegral . fromEnum) policy
gtk_spin_button_set_update_policy _obj' policy'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_set_value" gtk_spin_button_set_value ::
Ptr SpinButton ->
CDouble ->
IO ()
spinButtonSetValue ::
(MonadIO m, SpinButtonK a) =>
a ->
Double ->
m ()
spinButtonSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
gtk_spin_button_set_value _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_set_wrap" gtk_spin_button_set_wrap ::
Ptr SpinButton ->
CInt ->
IO ()
spinButtonSetWrap ::
(MonadIO m, SpinButtonK a) =>
a ->
Bool ->
m ()
spinButtonSetWrap _obj wrap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap' = (fromIntegral . fromEnum) wrap
gtk_spin_button_set_wrap _obj' wrap'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_spin" gtk_spin_button_spin ::
Ptr SpinButton ->
CUInt ->
CDouble ->
IO ()
spinButtonSpin ::
(MonadIO m, SpinButtonK a) =>
a ->
SpinType ->
Double ->
m ()
spinButtonSpin _obj direction increment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let direction' = (fromIntegral . fromEnum) direction
let increment' = realToFrac increment
gtk_spin_button_spin _obj' direction' increment'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_spin_button_update" gtk_spin_button_update ::
Ptr SpinButton ->
IO ()
spinButtonUpdate ::
(MonadIO m, SpinButtonK a) =>
a ->
m ()
spinButtonUpdate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_spin_button_update _obj'
touchManagedPtr _obj
return ()