module GI.Gtk.Objects.Adjustment
(
Adjustment(..) ,
IsAdjustment ,
toAdjustment ,
noAdjustment ,
AdjustmentChangedMethodInfo ,
adjustmentChanged ,
AdjustmentClampPageMethodInfo ,
adjustmentClampPage ,
AdjustmentConfigureMethodInfo ,
adjustmentConfigure ,
AdjustmentGetLowerMethodInfo ,
adjustmentGetLower ,
AdjustmentGetMinimumIncrementMethodInfo ,
adjustmentGetMinimumIncrement ,
AdjustmentGetPageIncrementMethodInfo ,
adjustmentGetPageIncrement ,
AdjustmentGetPageSizeMethodInfo ,
adjustmentGetPageSize ,
AdjustmentGetStepIncrementMethodInfo ,
adjustmentGetStepIncrement ,
AdjustmentGetUpperMethodInfo ,
adjustmentGetUpper ,
AdjustmentGetValueMethodInfo ,
adjustmentGetValue ,
adjustmentNew ,
AdjustmentSetLowerMethodInfo ,
adjustmentSetLower ,
AdjustmentSetPageIncrementMethodInfo ,
adjustmentSetPageIncrement ,
AdjustmentSetPageSizeMethodInfo ,
adjustmentSetPageSize ,
AdjustmentSetStepIncrementMethodInfo ,
adjustmentSetStepIncrement ,
AdjustmentSetUpperMethodInfo ,
adjustmentSetUpper ,
AdjustmentSetValueMethodInfo ,
adjustmentSetValue ,
AdjustmentValueChangedMethodInfo ,
adjustmentValueChanged ,
AdjustmentLowerPropertyInfo ,
adjustmentLower ,
constructAdjustmentLower ,
getAdjustmentLower ,
setAdjustmentLower ,
AdjustmentPageIncrementPropertyInfo ,
adjustmentPageIncrement ,
constructAdjustmentPageIncrement ,
getAdjustmentPageIncrement ,
setAdjustmentPageIncrement ,
AdjustmentPageSizePropertyInfo ,
adjustmentPageSize ,
constructAdjustmentPageSize ,
getAdjustmentPageSize ,
setAdjustmentPageSize ,
AdjustmentStepIncrementPropertyInfo ,
adjustmentStepIncrement ,
constructAdjustmentStepIncrement ,
getAdjustmentStepIncrement ,
setAdjustmentStepIncrement ,
AdjustmentUpperPropertyInfo ,
adjustmentUpper ,
constructAdjustmentUpper ,
getAdjustmentUpper ,
setAdjustmentUpper ,
AdjustmentValuePropertyInfo ,
adjustmentValue ,
constructAdjustmentValue ,
getAdjustmentValue ,
setAdjustmentValue ,
AdjustmentChangedCallback ,
AdjustmentChangedSignalInfo ,
C_AdjustmentChangedCallback ,
afterAdjustmentChanged ,
genClosure_AdjustmentChanged ,
mk_AdjustmentChangedCallback ,
noAdjustmentChangedCallback ,
onAdjustmentChanged ,
wrap_AdjustmentChangedCallback ,
AdjustmentValueChangedCallback ,
AdjustmentValueChangedSignalInfo ,
C_AdjustmentValueChangedCallback ,
afterAdjustmentValueChanged ,
genClosure_AdjustmentValueChanged ,
mk_AdjustmentValueChangedCallback ,
noAdjustmentValueChangedCallback ,
onAdjustmentValueChanged ,
wrap_AdjustmentValueChangedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Adjustment = Adjustment (ManagedPtr Adjustment)
foreign import ccall "gtk_adjustment_get_type"
c_gtk_adjustment_get_type :: IO GType
instance GObject Adjustment where
gobjectType _ = c_gtk_adjustment_get_type
class GObject o => IsAdjustment o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError Adjustment a) =>
IsAdjustment a
#endif
instance IsAdjustment Adjustment
instance GObject.Object.IsObject Adjustment
toAdjustment :: IsAdjustment o => o -> IO Adjustment
toAdjustment = unsafeCastTo Adjustment
noAdjustment :: Maybe Adjustment
noAdjustment = Nothing
type family ResolveAdjustmentMethod (t :: Symbol) (o :: *) :: * where
ResolveAdjustmentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAdjustmentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAdjustmentMethod "changed" o = AdjustmentChangedMethodInfo
ResolveAdjustmentMethod "clampPage" o = AdjustmentClampPageMethodInfo
ResolveAdjustmentMethod "configure" o = AdjustmentConfigureMethodInfo
ResolveAdjustmentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAdjustmentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAdjustmentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAdjustmentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAdjustmentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAdjustmentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAdjustmentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAdjustmentMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveAdjustmentMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveAdjustmentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAdjustmentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAdjustmentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAdjustmentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAdjustmentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAdjustmentMethod "valueChanged" o = AdjustmentValueChangedMethodInfo
ResolveAdjustmentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAdjustmentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAdjustmentMethod "getLower" o = AdjustmentGetLowerMethodInfo
ResolveAdjustmentMethod "getMinimumIncrement" o = AdjustmentGetMinimumIncrementMethodInfo
ResolveAdjustmentMethod "getPageIncrement" o = AdjustmentGetPageIncrementMethodInfo
ResolveAdjustmentMethod "getPageSize" o = AdjustmentGetPageSizeMethodInfo
ResolveAdjustmentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAdjustmentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAdjustmentMethod "getStepIncrement" o = AdjustmentGetStepIncrementMethodInfo
ResolveAdjustmentMethod "getUpper" o = AdjustmentGetUpperMethodInfo
ResolveAdjustmentMethod "getValue" o = AdjustmentGetValueMethodInfo
ResolveAdjustmentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAdjustmentMethod "setLower" o = AdjustmentSetLowerMethodInfo
ResolveAdjustmentMethod "setPageIncrement" o = AdjustmentSetPageIncrementMethodInfo
ResolveAdjustmentMethod "setPageSize" o = AdjustmentSetPageSizeMethodInfo
ResolveAdjustmentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAdjustmentMethod "setStepIncrement" o = AdjustmentSetStepIncrementMethodInfo
ResolveAdjustmentMethod "setUpper" o = AdjustmentSetUpperMethodInfo
ResolveAdjustmentMethod "setValue" o = AdjustmentSetValueMethodInfo
ResolveAdjustmentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAdjustmentMethod t Adjustment, O.MethodInfo info Adjustment p) => O.IsLabelProxy t (Adjustment -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAdjustmentMethod t Adjustment, O.MethodInfo info Adjustment p) => O.IsLabel t (Adjustment -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type AdjustmentChangedCallback =
IO ()
noAdjustmentChangedCallback :: Maybe AdjustmentChangedCallback
noAdjustmentChangedCallback = Nothing
type C_AdjustmentChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AdjustmentChangedCallback :: C_AdjustmentChangedCallback -> IO (FunPtr C_AdjustmentChangedCallback)
genClosure_AdjustmentChanged :: AdjustmentChangedCallback -> IO Closure
genClosure_AdjustmentChanged cb = do
let cb' = wrap_AdjustmentChangedCallback cb
mk_AdjustmentChangedCallback cb' >>= newCClosure
wrap_AdjustmentChangedCallback ::
AdjustmentChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_AdjustmentChangedCallback _cb _ _ = do
_cb
onAdjustmentChanged :: (GObject a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId
onAdjustmentChanged obj cb = liftIO $ connectAdjustmentChanged obj cb SignalConnectBefore
afterAdjustmentChanged :: (GObject a, MonadIO m) => a -> AdjustmentChangedCallback -> m SignalHandlerId
afterAdjustmentChanged obj cb = connectAdjustmentChanged obj cb SignalConnectAfter
connectAdjustmentChanged :: (GObject a, MonadIO m) =>
a -> AdjustmentChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectAdjustmentChanged obj cb after = liftIO $ do
let cb' = wrap_AdjustmentChangedCallback cb
cb'' <- mk_AdjustmentChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' after
type AdjustmentValueChangedCallback =
IO ()
noAdjustmentValueChangedCallback :: Maybe AdjustmentValueChangedCallback
noAdjustmentValueChangedCallback = Nothing
type C_AdjustmentValueChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AdjustmentValueChangedCallback :: C_AdjustmentValueChangedCallback -> IO (FunPtr C_AdjustmentValueChangedCallback)
genClosure_AdjustmentValueChanged :: AdjustmentValueChangedCallback -> IO Closure
genClosure_AdjustmentValueChanged cb = do
let cb' = wrap_AdjustmentValueChangedCallback cb
mk_AdjustmentValueChangedCallback cb' >>= newCClosure
wrap_AdjustmentValueChangedCallback ::
AdjustmentValueChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_AdjustmentValueChangedCallback _cb _ _ = do
_cb
onAdjustmentValueChanged :: (GObject a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId
onAdjustmentValueChanged obj cb = liftIO $ connectAdjustmentValueChanged obj cb SignalConnectBefore
afterAdjustmentValueChanged :: (GObject a, MonadIO m) => a -> AdjustmentValueChangedCallback -> m SignalHandlerId
afterAdjustmentValueChanged obj cb = connectAdjustmentValueChanged obj cb SignalConnectAfter
connectAdjustmentValueChanged :: (GObject a, MonadIO m) =>
a -> AdjustmentValueChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectAdjustmentValueChanged obj cb after = liftIO $ do
let cb' = wrap_AdjustmentValueChangedCallback cb
cb'' <- mk_AdjustmentValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' after
getAdjustmentLower :: (MonadIO m, IsAdjustment o) => o -> m Double
getAdjustmentLower obj = liftIO $ getObjectPropertyDouble obj "lower"
setAdjustmentLower :: (MonadIO m, IsAdjustment o) => o -> Double -> m ()
setAdjustmentLower obj val = liftIO $ setObjectPropertyDouble obj "lower" val
constructAdjustmentLower :: (IsAdjustment o) => Double -> IO (GValueConstruct o)
constructAdjustmentLower val = constructObjectPropertyDouble "lower" val
data AdjustmentLowerPropertyInfo
instance AttrInfo AdjustmentLowerPropertyInfo where
type AttrAllowedOps AdjustmentLowerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AdjustmentLowerPropertyInfo = (~) Double
type AttrBaseTypeConstraint AdjustmentLowerPropertyInfo = IsAdjustment
type AttrGetType AdjustmentLowerPropertyInfo = Double
type AttrLabel AdjustmentLowerPropertyInfo = "lower"
type AttrOrigin AdjustmentLowerPropertyInfo = Adjustment
attrGet _ = getAdjustmentLower
attrSet _ = setAdjustmentLower
attrConstruct _ = constructAdjustmentLower
attrClear _ = undefined
getAdjustmentPageIncrement :: (MonadIO m, IsAdjustment o) => o -> m Double
getAdjustmentPageIncrement obj = liftIO $ getObjectPropertyDouble obj "page-increment"
setAdjustmentPageIncrement :: (MonadIO m, IsAdjustment o) => o -> Double -> m ()
setAdjustmentPageIncrement obj val = liftIO $ setObjectPropertyDouble obj "page-increment" val
constructAdjustmentPageIncrement :: (IsAdjustment o) => Double -> IO (GValueConstruct o)
constructAdjustmentPageIncrement val = constructObjectPropertyDouble "page-increment" val
data AdjustmentPageIncrementPropertyInfo
instance AttrInfo AdjustmentPageIncrementPropertyInfo where
type AttrAllowedOps AdjustmentPageIncrementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AdjustmentPageIncrementPropertyInfo = (~) Double
type AttrBaseTypeConstraint AdjustmentPageIncrementPropertyInfo = IsAdjustment
type AttrGetType AdjustmentPageIncrementPropertyInfo = Double
type AttrLabel AdjustmentPageIncrementPropertyInfo = "page-increment"
type AttrOrigin AdjustmentPageIncrementPropertyInfo = Adjustment
attrGet _ = getAdjustmentPageIncrement
attrSet _ = setAdjustmentPageIncrement
attrConstruct _ = constructAdjustmentPageIncrement
attrClear _ = undefined
getAdjustmentPageSize :: (MonadIO m, IsAdjustment o) => o -> m Double
getAdjustmentPageSize obj = liftIO $ getObjectPropertyDouble obj "page-size"
setAdjustmentPageSize :: (MonadIO m, IsAdjustment o) => o -> Double -> m ()
setAdjustmentPageSize obj val = liftIO $ setObjectPropertyDouble obj "page-size" val
constructAdjustmentPageSize :: (IsAdjustment o) => Double -> IO (GValueConstruct o)
constructAdjustmentPageSize val = constructObjectPropertyDouble "page-size" val
data AdjustmentPageSizePropertyInfo
instance AttrInfo AdjustmentPageSizePropertyInfo where
type AttrAllowedOps AdjustmentPageSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AdjustmentPageSizePropertyInfo = (~) Double
type AttrBaseTypeConstraint AdjustmentPageSizePropertyInfo = IsAdjustment
type AttrGetType AdjustmentPageSizePropertyInfo = Double
type AttrLabel AdjustmentPageSizePropertyInfo = "page-size"
type AttrOrigin AdjustmentPageSizePropertyInfo = Adjustment
attrGet _ = getAdjustmentPageSize
attrSet _ = setAdjustmentPageSize
attrConstruct _ = constructAdjustmentPageSize
attrClear _ = undefined
getAdjustmentStepIncrement :: (MonadIO m, IsAdjustment o) => o -> m Double
getAdjustmentStepIncrement obj = liftIO $ getObjectPropertyDouble obj "step-increment"
setAdjustmentStepIncrement :: (MonadIO m, IsAdjustment o) => o -> Double -> m ()
setAdjustmentStepIncrement obj val = liftIO $ setObjectPropertyDouble obj "step-increment" val
constructAdjustmentStepIncrement :: (IsAdjustment o) => Double -> IO (GValueConstruct o)
constructAdjustmentStepIncrement val = constructObjectPropertyDouble "step-increment" val
data AdjustmentStepIncrementPropertyInfo
instance AttrInfo AdjustmentStepIncrementPropertyInfo where
type AttrAllowedOps AdjustmentStepIncrementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AdjustmentStepIncrementPropertyInfo = (~) Double
type AttrBaseTypeConstraint AdjustmentStepIncrementPropertyInfo = IsAdjustment
type AttrGetType AdjustmentStepIncrementPropertyInfo = Double
type AttrLabel AdjustmentStepIncrementPropertyInfo = "step-increment"
type AttrOrigin AdjustmentStepIncrementPropertyInfo = Adjustment
attrGet _ = getAdjustmentStepIncrement
attrSet _ = setAdjustmentStepIncrement
attrConstruct _ = constructAdjustmentStepIncrement
attrClear _ = undefined
getAdjustmentUpper :: (MonadIO m, IsAdjustment o) => o -> m Double
getAdjustmentUpper obj = liftIO $ getObjectPropertyDouble obj "upper"
setAdjustmentUpper :: (MonadIO m, IsAdjustment o) => o -> Double -> m ()
setAdjustmentUpper obj val = liftIO $ setObjectPropertyDouble obj "upper" val
constructAdjustmentUpper :: (IsAdjustment o) => Double -> IO (GValueConstruct o)
constructAdjustmentUpper val = constructObjectPropertyDouble "upper" val
data AdjustmentUpperPropertyInfo
instance AttrInfo AdjustmentUpperPropertyInfo where
type AttrAllowedOps AdjustmentUpperPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AdjustmentUpperPropertyInfo = (~) Double
type AttrBaseTypeConstraint AdjustmentUpperPropertyInfo = IsAdjustment
type AttrGetType AdjustmentUpperPropertyInfo = Double
type AttrLabel AdjustmentUpperPropertyInfo = "upper"
type AttrOrigin AdjustmentUpperPropertyInfo = Adjustment
attrGet _ = getAdjustmentUpper
attrSet _ = setAdjustmentUpper
attrConstruct _ = constructAdjustmentUpper
attrClear _ = undefined
getAdjustmentValue :: (MonadIO m, IsAdjustment o) => o -> m Double
getAdjustmentValue obj = liftIO $ getObjectPropertyDouble obj "value"
setAdjustmentValue :: (MonadIO m, IsAdjustment o) => o -> Double -> m ()
setAdjustmentValue obj val = liftIO $ setObjectPropertyDouble obj "value" val
constructAdjustmentValue :: (IsAdjustment o) => Double -> IO (GValueConstruct o)
constructAdjustmentValue val = constructObjectPropertyDouble "value" val
data AdjustmentValuePropertyInfo
instance AttrInfo AdjustmentValuePropertyInfo where
type AttrAllowedOps AdjustmentValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AdjustmentValuePropertyInfo = (~) Double
type AttrBaseTypeConstraint AdjustmentValuePropertyInfo = IsAdjustment
type AttrGetType AdjustmentValuePropertyInfo = Double
type AttrLabel AdjustmentValuePropertyInfo = "value"
type AttrOrigin AdjustmentValuePropertyInfo = Adjustment
attrGet _ = getAdjustmentValue
attrSet _ = setAdjustmentValue
attrConstruct _ = constructAdjustmentValue
attrClear _ = undefined
instance O.HasAttributeList Adjustment
type instance O.AttributeList Adjustment = AdjustmentAttributeList
type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("pageIncrement", AdjustmentPageIncrementPropertyInfo), '("pageSize", AdjustmentPageSizePropertyInfo), '("stepIncrement", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)])
adjustmentLower :: AttrLabelProxy "lower"
adjustmentLower = AttrLabelProxy
adjustmentPageIncrement :: AttrLabelProxy "pageIncrement"
adjustmentPageIncrement = AttrLabelProxy
adjustmentPageSize :: AttrLabelProxy "pageSize"
adjustmentPageSize = AttrLabelProxy
adjustmentStepIncrement :: AttrLabelProxy "stepIncrement"
adjustmentStepIncrement = AttrLabelProxy
adjustmentUpper :: AttrLabelProxy "upper"
adjustmentUpper = AttrLabelProxy
adjustmentValue :: AttrLabelProxy "value"
adjustmentValue = AttrLabelProxy
data AdjustmentChangedSignalInfo
instance SignalInfo AdjustmentChangedSignalInfo where
type HaskellCallbackType AdjustmentChangedSignalInfo = AdjustmentChangedCallback
connectSignal _ = connectAdjustmentChanged
data AdjustmentValueChangedSignalInfo
instance SignalInfo AdjustmentValueChangedSignalInfo where
type HaskellCallbackType AdjustmentValueChangedSignalInfo = AdjustmentValueChangedCallback
connectSignal _ = connectAdjustmentValueChanged
type instance O.SignalList Adjustment = AdjustmentSignalList
type AdjustmentSignalList = ('[ '("changed", AdjustmentChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("valueChanged", AdjustmentValueChangedSignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_adjustment_new" gtk_adjustment_new ::
CDouble ->
CDouble ->
CDouble ->
CDouble ->
CDouble ->
CDouble ->
IO (Ptr Adjustment)
adjustmentNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Double
-> Double
-> Double
-> Double
-> Double
-> Double
-> m Adjustment
adjustmentNew value lower upper stepIncrement pageIncrement pageSize = liftIO $ do
let value' = realToFrac value
let lower' = realToFrac lower
let upper' = realToFrac upper
let stepIncrement' = realToFrac stepIncrement
let pageIncrement' = realToFrac pageIncrement
let pageSize' = realToFrac pageSize
result <- gtk_adjustment_new value' lower' upper' stepIncrement' pageIncrement' pageSize'
checkUnexpectedReturnNULL "adjustmentNew" result
result' <- (newObject Adjustment) result
return result'
foreign import ccall "gtk_adjustment_changed" gtk_adjustment_changed ::
Ptr Adjustment ->
IO ()
adjustmentChanged ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m ()
adjustmentChanged adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
gtk_adjustment_changed adjustment'
touchManagedPtr adjustment
return ()
data AdjustmentChangedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentChangedMethodInfo a signature where
overloadedMethod _ = adjustmentChanged
foreign import ccall "gtk_adjustment_clamp_page" gtk_adjustment_clamp_page ::
Ptr Adjustment ->
CDouble ->
CDouble ->
IO ()
adjustmentClampPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> Double
-> m ()
adjustmentClampPage adjustment lower upper = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let lower' = realToFrac lower
let upper' = realToFrac upper
gtk_adjustment_clamp_page adjustment' lower' upper'
touchManagedPtr adjustment
return ()
data AdjustmentClampPageMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentClampPageMethodInfo a signature where
overloadedMethod _ = adjustmentClampPage
foreign import ccall "gtk_adjustment_configure" gtk_adjustment_configure ::
Ptr Adjustment ->
CDouble ->
CDouble ->
CDouble ->
CDouble ->
CDouble ->
CDouble ->
IO ()
adjustmentConfigure ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> Double
-> Double
-> Double
-> Double
-> Double
-> m ()
adjustmentConfigure adjustment value lower upper stepIncrement pageIncrement pageSize = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let value' = realToFrac value
let lower' = realToFrac lower
let upper' = realToFrac upper
let stepIncrement' = realToFrac stepIncrement
let pageIncrement' = realToFrac pageIncrement
let pageSize' = realToFrac pageSize
gtk_adjustment_configure adjustment' value' lower' upper' stepIncrement' pageIncrement' pageSize'
touchManagedPtr adjustment
return ()
data AdjustmentConfigureMethodInfo
instance (signature ~ (Double -> Double -> Double -> Double -> Double -> Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentConfigureMethodInfo a signature where
overloadedMethod _ = adjustmentConfigure
foreign import ccall "gtk_adjustment_get_lower" gtk_adjustment_get_lower ::
Ptr Adjustment ->
IO CDouble
adjustmentGetLower ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m Double
adjustmentGetLower adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
result <- gtk_adjustment_get_lower adjustment'
let result' = realToFrac result
touchManagedPtr adjustment
return result'
data AdjustmentGetLowerMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetLowerMethodInfo a signature where
overloadedMethod _ = adjustmentGetLower
foreign import ccall "gtk_adjustment_get_minimum_increment" gtk_adjustment_get_minimum_increment ::
Ptr Adjustment ->
IO CDouble
adjustmentGetMinimumIncrement ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m Double
adjustmentGetMinimumIncrement adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
result <- gtk_adjustment_get_minimum_increment adjustment'
let result' = realToFrac result
touchManagedPtr adjustment
return result'
data AdjustmentGetMinimumIncrementMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetMinimumIncrementMethodInfo a signature where
overloadedMethod _ = adjustmentGetMinimumIncrement
foreign import ccall "gtk_adjustment_get_page_increment" gtk_adjustment_get_page_increment ::
Ptr Adjustment ->
IO CDouble
adjustmentGetPageIncrement ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m Double
adjustmentGetPageIncrement adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
result <- gtk_adjustment_get_page_increment adjustment'
let result' = realToFrac result
touchManagedPtr adjustment
return result'
data AdjustmentGetPageIncrementMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetPageIncrementMethodInfo a signature where
overloadedMethod _ = adjustmentGetPageIncrement
foreign import ccall "gtk_adjustment_get_page_size" gtk_adjustment_get_page_size ::
Ptr Adjustment ->
IO CDouble
adjustmentGetPageSize ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m Double
adjustmentGetPageSize adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
result <- gtk_adjustment_get_page_size adjustment'
let result' = realToFrac result
touchManagedPtr adjustment
return result'
data AdjustmentGetPageSizeMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetPageSizeMethodInfo a signature where
overloadedMethod _ = adjustmentGetPageSize
foreign import ccall "gtk_adjustment_get_step_increment" gtk_adjustment_get_step_increment ::
Ptr Adjustment ->
IO CDouble
adjustmentGetStepIncrement ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m Double
adjustmentGetStepIncrement adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
result <- gtk_adjustment_get_step_increment adjustment'
let result' = realToFrac result
touchManagedPtr adjustment
return result'
data AdjustmentGetStepIncrementMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetStepIncrementMethodInfo a signature where
overloadedMethod _ = adjustmentGetStepIncrement
foreign import ccall "gtk_adjustment_get_upper" gtk_adjustment_get_upper ::
Ptr Adjustment ->
IO CDouble
adjustmentGetUpper ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m Double
adjustmentGetUpper adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
result <- gtk_adjustment_get_upper adjustment'
let result' = realToFrac result
touchManagedPtr adjustment
return result'
data AdjustmentGetUpperMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetUpperMethodInfo a signature where
overloadedMethod _ = adjustmentGetUpper
foreign import ccall "gtk_adjustment_get_value" gtk_adjustment_get_value ::
Ptr Adjustment ->
IO CDouble
adjustmentGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m Double
adjustmentGetValue adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
result <- gtk_adjustment_get_value adjustment'
let result' = realToFrac result
touchManagedPtr adjustment
return result'
data AdjustmentGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentGetValueMethodInfo a signature where
overloadedMethod _ = adjustmentGetValue
foreign import ccall "gtk_adjustment_set_lower" gtk_adjustment_set_lower ::
Ptr Adjustment ->
CDouble ->
IO ()
adjustmentSetLower ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> m ()
adjustmentSetLower adjustment lower = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let lower' = realToFrac lower
gtk_adjustment_set_lower adjustment' lower'
touchManagedPtr adjustment
return ()
data AdjustmentSetLowerMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetLowerMethodInfo a signature where
overloadedMethod _ = adjustmentSetLower
foreign import ccall "gtk_adjustment_set_page_increment" gtk_adjustment_set_page_increment ::
Ptr Adjustment ->
CDouble ->
IO ()
adjustmentSetPageIncrement ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> m ()
adjustmentSetPageIncrement adjustment pageIncrement = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let pageIncrement' = realToFrac pageIncrement
gtk_adjustment_set_page_increment adjustment' pageIncrement'
touchManagedPtr adjustment
return ()
data AdjustmentSetPageIncrementMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetPageIncrementMethodInfo a signature where
overloadedMethod _ = adjustmentSetPageIncrement
foreign import ccall "gtk_adjustment_set_page_size" gtk_adjustment_set_page_size ::
Ptr Adjustment ->
CDouble ->
IO ()
adjustmentSetPageSize ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> m ()
adjustmentSetPageSize adjustment pageSize = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let pageSize' = realToFrac pageSize
gtk_adjustment_set_page_size adjustment' pageSize'
touchManagedPtr adjustment
return ()
data AdjustmentSetPageSizeMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetPageSizeMethodInfo a signature where
overloadedMethod _ = adjustmentSetPageSize
foreign import ccall "gtk_adjustment_set_step_increment" gtk_adjustment_set_step_increment ::
Ptr Adjustment ->
CDouble ->
IO ()
adjustmentSetStepIncrement ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> m ()
adjustmentSetStepIncrement adjustment stepIncrement = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let stepIncrement' = realToFrac stepIncrement
gtk_adjustment_set_step_increment adjustment' stepIncrement'
touchManagedPtr adjustment
return ()
data AdjustmentSetStepIncrementMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetStepIncrementMethodInfo a signature where
overloadedMethod _ = adjustmentSetStepIncrement
foreign import ccall "gtk_adjustment_set_upper" gtk_adjustment_set_upper ::
Ptr Adjustment ->
CDouble ->
IO ()
adjustmentSetUpper ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> m ()
adjustmentSetUpper adjustment upper = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let upper' = realToFrac upper
gtk_adjustment_set_upper adjustment' upper'
touchManagedPtr adjustment
return ()
data AdjustmentSetUpperMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetUpperMethodInfo a signature where
overloadedMethod _ = adjustmentSetUpper
foreign import ccall "gtk_adjustment_set_value" gtk_adjustment_set_value ::
Ptr Adjustment ->
CDouble ->
IO ()
adjustmentSetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> Double
-> m ()
adjustmentSetValue adjustment value = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
let value' = realToFrac value
gtk_adjustment_set_value adjustment' value'
touchManagedPtr adjustment
return ()
data AdjustmentSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentSetValueMethodInfo a signature where
overloadedMethod _ = adjustmentSetValue
foreign import ccall "gtk_adjustment_value_changed" gtk_adjustment_value_changed ::
Ptr Adjustment ->
IO ()
adjustmentValueChanged ::
(B.CallStack.HasCallStack, MonadIO m, IsAdjustment a) =>
a
-> m ()
adjustmentValueChanged adjustment = liftIO $ do
adjustment' <- unsafeManagedPtrCastPtr adjustment
gtk_adjustment_value_changed adjustment'
touchManagedPtr adjustment
return ()
data AdjustmentValueChangedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAdjustment a) => O.MethodInfo AdjustmentValueChangedMethodInfo a signature where
overloadedMethod _ = adjustmentValueChanged