{-# LINE 2 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
module Graphics.UI.Gtk.Misc.Adjustment (
Adjustment,
AdjustmentClass,
castToAdjustment, gTypeAdjustment,
toAdjustment,
adjustmentNew,
adjustmentSetLower,
adjustmentGetLower,
adjustmentSetPageIncrement,
adjustmentGetPageIncrement,
adjustmentSetPageSize,
adjustmentGetPageSize,
adjustmentSetStepIncrement,
adjustmentGetStepIncrement,
adjustmentSetUpper,
adjustmentGetUpper,
adjustmentSetValue,
adjustmentGetValue,
adjustmentClampPage,
adjustmentAdjChanged,
adjustmentValueChanged,
adjustmentValue,
adjustmentLower,
adjustmentUpper,
adjustmentStepIncrement,
adjustmentPageIncrement,
adjustmentPageSize,
onAdjChanged,
afterAdjChanged,
onValueChanged,
afterValueChanged,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 103 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 104 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
{-# LINE 106 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
adjustmentNew ::
Double
-> Double
-> Double
-> Double
-> Double
-> Double
-> IO Adjustment
adjustmentNew value lower upper stepIncrement pageIncrement pageSize =
makeNewObject mkAdjustment $ liftM castPtr $
gtk_adjustment_new
{-# LINE 130 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
(realToFrac value)
(realToFrac lower)
(realToFrac upper)
(realToFrac stepIncrement)
(realToFrac pageIncrement)
(realToFrac pageSize)
adjustmentSetLower :: Adjustment -> Double -> IO ()
adjustmentSetLower = objectSetPropertyDouble "lower"
adjustmentGetLower :: Adjustment -> IO Double
adjustmentGetLower = objectGetPropertyDouble "lower"
adjustmentSetPageIncrement :: Adjustment -> Double -> IO ()
adjustmentSetPageIncrement = objectSetPropertyDouble "page-increment"
adjustmentGetPageIncrement :: Adjustment -> IO Double
adjustmentGetPageIncrement = objectGetPropertyDouble "page-increment"
adjustmentSetPageSize :: Adjustment -> Double -> IO ()
adjustmentSetPageSize = objectSetPropertyDouble "page_size"
adjustmentGetPageSize :: Adjustment -> IO Double
adjustmentGetPageSize = objectGetPropertyDouble "page_size"
adjustmentSetStepIncrement :: Adjustment -> Double -> IO ()
adjustmentSetStepIncrement = objectSetPropertyDouble "step-increment"
adjustmentGetStepIncrement :: Adjustment -> IO Double
adjustmentGetStepIncrement = objectGetPropertyDouble "step-increment"
adjustmentSetUpper :: Adjustment -> Double -> IO ()
adjustmentSetUpper = objectSetPropertyDouble "upper"
adjustmentGetUpper :: Adjustment -> IO Double
adjustmentGetUpper = objectGetPropertyDouble "upper"
adjustmentSetValue :: Adjustment -> Double -> IO ()
adjustmentSetValue self value =
(\(Adjustment arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_adjustment_set_value argPtr1 arg2)
{-# LINE 190 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
self
(realToFrac value)
adjustmentGetValue :: Adjustment -> IO Double
adjustmentGetValue self =
liftM realToFrac $
(\(Adjustment arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_adjustment_get_value argPtr1)
{-# LINE 199 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
self
adjustmentClampPage :: Adjustment
-> Double
-> Double
-> IO ()
adjustmentClampPage self lower upper =
(\(Adjustment arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_adjustment_clamp_page argPtr1 arg2 arg3)
{-# LINE 213 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
self
(realToFrac lower)
(realToFrac upper)
adjustmentAdjChanged :: Adjustment -> IO ()
adjustmentAdjChanged = (\(Adjustment arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_adjustment_changed argPtr1)
{-# LINE 221 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
adjustmentValueChanged :: Adjustment -> IO ()
adjustmentValueChanged = (\(Adjustment arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_adjustment_value_changed argPtr1)
{-# LINE 229 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
adjustmentValue :: Attr Adjustment Double
adjustmentValue = newAttr
adjustmentGetValue
adjustmentSetValue
adjustmentLower :: Attr Adjustment Double
adjustmentLower = newAttrFromDoubleProperty "lower"
adjustmentUpper :: Attr Adjustment Double
adjustmentUpper = newAttrFromDoubleProperty "upper"
adjustmentStepIncrement :: Attr Adjustment Double
adjustmentStepIncrement = newAttrFromDoubleProperty "step-increment"
adjustmentPageIncrement :: Attr Adjustment Double
adjustmentPageIncrement = newAttrFromDoubleProperty "page-increment"
adjustmentPageSize :: Attr Adjustment Double
adjustmentPageSize = newAttrFromDoubleProperty "page-size"
onAdjChanged, afterAdjChanged :: Adjustment
-> IO ()
-> IO (ConnectId Adjustment)
onAdjChanged = connect_NONE__NONE "changed" False
afterAdjChanged = connect_NONE__NONE "changed" True
onValueChanged, afterValueChanged :: Adjustment
-> IO ()
-> IO (ConnectId Adjustment)
onValueChanged = connect_NONE__NONE "value-changed" False
afterValueChanged = connect_NONE__NONE "value-changed" True
foreign import ccall unsafe "gtk_adjustment_new"
gtk_adjustment_new :: (CDouble -> (CDouble -> (CDouble -> (CDouble -> (CDouble -> (CDouble -> (IO (Ptr Object))))))))
foreign import ccall safe "gtk_adjustment_set_value"
gtk_adjustment_set_value :: ((Ptr Adjustment) -> (CDouble -> (IO ())))
foreign import ccall safe "gtk_adjustment_get_value"
gtk_adjustment_get_value :: ((Ptr Adjustment) -> (IO CDouble))
foreign import ccall safe "gtk_adjustment_clamp_page"
gtk_adjustment_clamp_page :: ((Ptr Adjustment) -> (CDouble -> (CDouble -> (IO ()))))
foreign import ccall safe "gtk_adjustment_changed"
gtk_adjustment_changed :: ((Ptr Adjustment) -> (IO ()))
foreign import ccall safe "gtk_adjustment_value_changed"
gtk_adjustment_value_changed :: ((Ptr Adjustment) -> (IO ()))