{- | 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.SpinButton ( -- * Exported types SpinButton(..) , SpinButtonK , toSpinButton , noSpinButton , -- * Methods -- ** spinButtonConfigure spinButtonConfigure , -- ** spinButtonGetAdjustment spinButtonGetAdjustment , -- ** spinButtonGetDigits spinButtonGetDigits , -- ** spinButtonGetIncrements spinButtonGetIncrements , -- ** spinButtonGetNumeric spinButtonGetNumeric , -- ** spinButtonGetRange spinButtonGetRange , -- ** spinButtonGetSnapToTicks spinButtonGetSnapToTicks , -- ** spinButtonGetUpdatePolicy spinButtonGetUpdatePolicy , -- ** spinButtonGetValue spinButtonGetValue , -- ** spinButtonGetValueAsInt spinButtonGetValueAsInt , -- ** spinButtonGetWrap spinButtonGetWrap , -- ** spinButtonNew spinButtonNew , -- ** spinButtonNewWithRange spinButtonNewWithRange , -- ** spinButtonSetAdjustment spinButtonSetAdjustment , -- ** spinButtonSetDigits spinButtonSetDigits , -- ** spinButtonSetIncrements spinButtonSetIncrements , -- ** spinButtonSetNumeric spinButtonSetNumeric , -- ** spinButtonSetRange spinButtonSetRange , -- ** spinButtonSetSnapToTicks spinButtonSetSnapToTicks , -- ** spinButtonSetUpdatePolicy spinButtonSetUpdatePolicy , -- ** spinButtonSetValue spinButtonSetValue , -- ** spinButtonSetWrap spinButtonSetWrap , -- ** spinButtonSpin spinButtonSpin , -- ** spinButtonUpdate spinButtonUpdate , -- * Properties -- ** Adjustment SpinButtonAdjustmentPropertyInfo , constructSpinButtonAdjustment , getSpinButtonAdjustment , setSpinButtonAdjustment , -- ** ClimbRate SpinButtonClimbRatePropertyInfo , constructSpinButtonClimbRate , getSpinButtonClimbRate , setSpinButtonClimbRate , -- ** Digits SpinButtonDigitsPropertyInfo , constructSpinButtonDigits , getSpinButtonDigits , setSpinButtonDigits , -- ** Numeric SpinButtonNumericPropertyInfo , constructSpinButtonNumeric , getSpinButtonNumeric , setSpinButtonNumeric , -- ** SnapToTicks SpinButtonSnapToTicksPropertyInfo , constructSpinButtonSnapToTicks , getSpinButtonSnapToTicks , setSpinButtonSnapToTicks , -- ** UpdatePolicy SpinButtonUpdatePolicyPropertyInfo , constructSpinButtonUpdatePolicy , getSpinButtonUpdatePolicy , setSpinButtonUpdatePolicy , -- ** Value SpinButtonValuePropertyInfo , constructSpinButtonValue , getSpinButtonValue , setSpinButtonValue , -- ** Wrap SpinButtonWrapPropertyInfo , constructSpinButtonWrap , getSpinButtonWrap , setSpinButtonWrap , -- * Signals -- ** ChangeValue SpinButtonChangeValueCallback , SpinButtonChangeValueCallbackC , SpinButtonChangeValueSignalInfo , afterSpinButtonChangeValue , mkSpinButtonChangeValueCallback , noSpinButtonChangeValueCallback , onSpinButtonChangeValue , spinButtonChangeValueCallbackWrapper , spinButtonChangeValueClosure , -- ** Input SpinButtonInputCallback , SpinButtonInputCallbackC , SpinButtonInputSignalInfo , afterSpinButtonInput , mkSpinButtonInputCallback , noSpinButtonInputCallback , onSpinButtonInput , spinButtonInputCallbackWrapper , spinButtonInputClosure , -- ** Output SpinButtonOutputCallback , SpinButtonOutputCallbackC , SpinButtonOutputSignalInfo , afterSpinButtonOutput , mkSpinButtonOutputCallback , noSpinButtonOutputCallback , onSpinButtonOutput , spinButtonOutputCallbackWrapper , spinButtonOutputClosure , -- ** ValueChanged SpinButtonValueChangedCallback , SpinButtonValueChangedCallbackC , SpinButtonValueChangedSignalInfo , afterSpinButtonValueChanged , mkSpinButtonValueChangedCallback , noSpinButtonValueChangedCallback , onSpinButtonValueChanged , spinButtonValueChangedCallbackWrapper , spinButtonValueChangedClosure , -- ** Wrapped 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 -- signal SpinButton::change-value type SpinButtonChangeValueCallback = ScrollType -> IO () noSpinButtonChangeValueCallback :: Maybe SpinButtonChangeValueCallback noSpinButtonChangeValueCallback = Nothing type SpinButtonChangeValueCallbackC = Ptr () -> -- object CUInt -> Ptr () -> -- user_data 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 -- signal SpinButton::input type SpinButtonInputCallback = IO (Int32,Double) noSpinButtonInputCallback :: Maybe SpinButtonInputCallback noSpinButtonInputCallback = Nothing type SpinButtonInputCallbackC = Ptr () -> -- object Ptr CDouble -> Ptr () -> -- user_data 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 -- signal SpinButton::output type SpinButtonOutputCallback = IO Bool noSpinButtonOutputCallback :: Maybe SpinButtonOutputCallback noSpinButtonOutputCallback = Nothing type SpinButtonOutputCallbackC = Ptr () -> -- object Ptr () -> -- user_data 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 -- signal SpinButton::value-changed type SpinButtonValueChangedCallback = IO () noSpinButtonValueChangedCallback :: Maybe SpinButtonValueChangedCallback noSpinButtonValueChangedCallback = Nothing type SpinButtonValueChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data 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 -- signal SpinButton::wrapped type SpinButtonWrappedCallback = IO () noSpinButtonWrappedCallback :: Maybe SpinButtonWrappedCallback noSpinButtonWrappedCallback = Nothing type SpinButtonWrappedCallbackC = Ptr () -> -- object Ptr () -> -- user_data 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 -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "climb-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "digits" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "numeric" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "snap-to-ticks" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "update-policy" -- Type: TInterface "Gtk" "SpinButtonUpdatePolicy" -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] 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 -- VVV Prop "wrap" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] 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, *)]) -- method SpinButton::new -- method type : Constructor -- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SpinButton" -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_new" gtk_spin_button_new :: Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" CDouble -> -- climb_rate : TBasicType TDouble Word32 -> -- digits : TBasicType TUInt32 IO (Ptr SpinButton) spinButtonNew :: (MonadIO m, AdjustmentK a) => Maybe (a) -> -- adjustment Double -> -- climb_rate Word32 -> -- digits 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' -- method SpinButton::new_with_range -- method type : Constructor -- Args : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SpinButton" -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_new_with_range" gtk_spin_button_new_with_range :: CDouble -> -- min : TBasicType TDouble CDouble -> -- max : TBasicType TDouble CDouble -> -- step : TBasicType TDouble IO (Ptr SpinButton) spinButtonNewWithRange :: (MonadIO m) => Double -> -- min Double -> -- max Double -> -- step 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' -- method SpinButton::configure -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_configure" gtk_spin_button_configure :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" CDouble -> -- climb_rate : TBasicType TDouble Word32 -> -- digits : TBasicType TUInt32 IO () spinButtonConfigure :: (MonadIO m, SpinButtonK a, AdjustmentK b) => a -> -- _obj Maybe (b) -> -- adjustment Double -> -- climb_rate Word32 -> -- digits 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 () -- method SpinButton::get_adjustment -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_adjustment" gtk_spin_button_get_adjustment :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO (Ptr Adjustment) spinButtonGetAdjustment :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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' -- method SpinButton::get_digits -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_digits" gtk_spin_button_get_digits :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO Word32 spinButtonGetDigits :: (MonadIO m, SpinButtonK a) => a -> -- _obj m Word32 spinButtonGetDigits _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_digits _obj' touchManagedPtr _obj return result -- method SpinButton::get_increments -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_increments" gtk_spin_button_get_increments :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" Ptr CDouble -> -- step : TBasicType TDouble Ptr CDouble -> -- page : TBasicType TDouble IO () spinButtonGetIncrements :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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'') -- method SpinButton::get_numeric -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_numeric" gtk_spin_button_get_numeric :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO CInt spinButtonGetNumeric :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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' -- method SpinButton::get_range -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_range" gtk_spin_button_get_range :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" Ptr CDouble -> -- min : TBasicType TDouble Ptr CDouble -> -- max : TBasicType TDouble IO () spinButtonGetRange :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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'') -- method SpinButton::get_snap_to_ticks -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_snap_to_ticks" gtk_spin_button_get_snap_to_ticks :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO CInt spinButtonGetSnapToTicks :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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' -- method SpinButton::get_update_policy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SpinButtonUpdatePolicy" -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_update_policy" gtk_spin_button_get_update_policy :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO CUInt spinButtonGetUpdatePolicy :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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' -- method SpinButton::get_value -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_value" gtk_spin_button_get_value :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO CDouble spinButtonGetValue :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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' -- method SpinButton::get_value_as_int -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_value_as_int" gtk_spin_button_get_value_as_int :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO Int32 spinButtonGetValueAsInt :: (MonadIO m, SpinButtonK a) => a -> -- _obj m Int32 spinButtonGetValueAsInt _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_value_as_int _obj' touchManagedPtr _obj return result -- method SpinButton::get_wrap -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_get_wrap" gtk_spin_button_get_wrap :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO CInt spinButtonGetWrap :: (MonadIO m, SpinButtonK a) => a -> -- _obj 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' -- method SpinButton::set_adjustment -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_adjustment" gtk_spin_button_set_adjustment :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" IO () spinButtonSetAdjustment :: (MonadIO m, SpinButtonK a, AdjustmentK b) => a -> -- _obj b -> -- adjustment 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 () -- method SpinButton::set_digits -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_digits" gtk_spin_button_set_digits :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" Word32 -> -- digits : TBasicType TUInt32 IO () spinButtonSetDigits :: (MonadIO m, SpinButtonK a) => a -> -- _obj Word32 -> -- digits m () spinButtonSetDigits _obj digits = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_spin_button_set_digits _obj' digits touchManagedPtr _obj return () -- method SpinButton::set_increments -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_increments" gtk_spin_button_set_increments :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CDouble -> -- step : TBasicType TDouble CDouble -> -- page : TBasicType TDouble IO () spinButtonSetIncrements :: (MonadIO m, SpinButtonK a) => a -> -- _obj Double -> -- step Double -> -- page 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 () -- method SpinButton::set_numeric -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_numeric" gtk_spin_button_set_numeric :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CInt -> -- numeric : TBasicType TBoolean IO () spinButtonSetNumeric :: (MonadIO m, SpinButtonK a) => a -> -- _obj Bool -> -- numeric 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 () -- method SpinButton::set_range -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_range" gtk_spin_button_set_range :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CDouble -> -- min : TBasicType TDouble CDouble -> -- max : TBasicType TDouble IO () spinButtonSetRange :: (MonadIO m, SpinButtonK a) => a -> -- _obj Double -> -- min Double -> -- max 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 () -- method SpinButton::set_snap_to_ticks -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_snap_to_ticks" gtk_spin_button_set_snap_to_ticks :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CInt -> -- snap_to_ticks : TBasicType TBoolean IO () spinButtonSetSnapToTicks :: (MonadIO m, SpinButtonK a) => a -> -- _obj Bool -> -- snap_to_ticks 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 () -- method SpinButton::set_update_policy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_update_policy" gtk_spin_button_set_update_policy :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CUInt -> -- policy : TInterface "Gtk" "SpinButtonUpdatePolicy" IO () spinButtonSetUpdatePolicy :: (MonadIO m, SpinButtonK a) => a -> -- _obj SpinButtonUpdatePolicy -> -- policy 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 () -- method SpinButton::set_value -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_value" gtk_spin_button_set_value :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CDouble -> -- value : TBasicType TDouble IO () spinButtonSetValue :: (MonadIO m, SpinButtonK a) => a -> -- _obj Double -> -- value m () spinButtonSetValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value gtk_spin_button_set_value _obj' value' touchManagedPtr _obj return () -- method SpinButton::set_wrap -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_wrap" gtk_spin_button_set_wrap :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CInt -> -- wrap : TBasicType TBoolean IO () spinButtonSetWrap :: (MonadIO m, SpinButtonK a) => a -> -- _obj Bool -> -- wrap 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 () -- method SpinButton::spin -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_spin" gtk_spin_button_spin :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" CUInt -> -- direction : TInterface "Gtk" "SpinType" CDouble -> -- increment : TBasicType TDouble IO () spinButtonSpin :: (MonadIO m, SpinButtonK a) => a -> -- _obj SpinType -> -- direction Double -> -- increment 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 () -- method SpinButton::update -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_update" gtk_spin_button_update :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" IO () spinButtonUpdate :: (MonadIO m, SpinButtonK a) => a -> -- _obj m () spinButtonUpdate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_spin_button_update _obj' touchManagedPtr _obj return ()