{-# 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 :: Double
-> Double -> Double -> Double -> Double -> Double -> IO Adjustment
adjustmentNew Double
value Double
lower Double
upper Double
stepIncrement Double
pageIncrement Double
pageSize =
(ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
forall {a}. (ForeignPtr Adjustment -> Adjustment, FinalizerPtr a)
mkAdjustment (IO (Ptr Adjustment) -> IO Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$ (Ptr Adjustment -> Ptr Adjustment)
-> IO (Ptr Adjustment) -> IO (Ptr Adjustment)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Ptr Adjustment -> Ptr Adjustment
forall a b. Ptr a -> Ptr b
castPtr (IO (Ptr Adjustment) -> IO (Ptr Adjustment))
-> IO (Ptr Adjustment) -> IO (Ptr Adjustment)
forall a b. (a -> b) -> a -> b
$
CDouble
-> CDouble
-> CDouble
-> CDouble
-> CDouble
-> CDouble
-> IO (Ptr Adjustment)
gtk_adjustment_new
{-# LINE 130 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
(realToFrac value)
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
lower)
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
upper)
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
stepIncrement)
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
pageIncrement)
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
pageSize)
adjustmentSetLower :: Adjustment -> Double -> IO ()
adjustmentSetLower :: Adjustment -> Double -> IO ()
adjustmentSetLower = String -> Adjustment -> Double -> IO ()
forall gobj. GObjectClass gobj => String -> gobj -> Double -> IO ()
objectSetPropertyDouble String
"lower"
adjustmentGetLower :: Adjustment -> IO Double
adjustmentGetLower :: Adjustment -> IO Double
adjustmentGetLower = String -> Adjustment -> IO Double
forall gobj. GObjectClass gobj => String -> gobj -> IO Double
objectGetPropertyDouble String
"lower"
adjustmentSetPageIncrement :: Adjustment -> Double -> IO ()
adjustmentSetPageIncrement :: Adjustment -> Double -> IO ()
adjustmentSetPageIncrement = String -> Adjustment -> Double -> IO ()
forall gobj. GObjectClass gobj => String -> gobj -> Double -> IO ()
objectSetPropertyDouble String
"page-increment"
adjustmentGetPageIncrement :: Adjustment -> IO Double
adjustmentGetPageIncrement :: Adjustment -> IO Double
adjustmentGetPageIncrement = String -> Adjustment -> IO Double
forall gobj. GObjectClass gobj => String -> gobj -> IO Double
objectGetPropertyDouble String
"page-increment"
adjustmentSetPageSize :: Adjustment -> Double -> IO ()
adjustmentSetPageSize :: Adjustment -> Double -> IO ()
adjustmentSetPageSize = String -> Adjustment -> Double -> IO ()
forall gobj. GObjectClass gobj => String -> gobj -> Double -> IO ()
objectSetPropertyDouble String
"page_size"
adjustmentGetPageSize :: Adjustment -> IO Double
adjustmentGetPageSize :: Adjustment -> IO Double
adjustmentGetPageSize = String -> Adjustment -> IO Double
forall gobj. GObjectClass gobj => String -> gobj -> IO Double
objectGetPropertyDouble String
"page_size"
adjustmentSetStepIncrement :: Adjustment -> Double -> IO ()
adjustmentSetStepIncrement :: Adjustment -> Double -> IO ()
adjustmentSetStepIncrement = String -> Adjustment -> Double -> IO ()
forall gobj. GObjectClass gobj => String -> gobj -> Double -> IO ()
objectSetPropertyDouble String
"step-increment"
adjustmentGetStepIncrement :: Adjustment -> IO Double
adjustmentGetStepIncrement :: Adjustment -> IO Double
adjustmentGetStepIncrement = String -> Adjustment -> IO Double
forall gobj. GObjectClass gobj => String -> gobj -> IO Double
objectGetPropertyDouble String
"step-increment"
adjustmentSetUpper :: Adjustment -> Double -> IO ()
adjustmentSetUpper :: Adjustment -> Double -> IO ()
adjustmentSetUpper = String -> Adjustment -> Double -> IO ()
forall gobj. GObjectClass gobj => String -> gobj -> Double -> IO ()
objectSetPropertyDouble String
"upper"
adjustmentGetUpper :: Adjustment -> IO Double
adjustmentGetUpper :: Adjustment -> IO Double
adjustmentGetUpper = String -> Adjustment -> IO Double
forall gobj. GObjectClass gobj => String -> gobj -> IO Double
objectGetPropertyDouble String
"upper"
adjustmentSetValue :: Adjustment -> Double -> IO ()
adjustmentSetValue :: Adjustment -> Double -> IO ()
adjustmentSetValue Adjustment
self Double
value =
(\(Adjustment ForeignPtr Adjustment
arg1) CDouble
arg2 -> ForeignPtr Adjustment -> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Adjustment
arg1 ((Ptr Adjustment -> IO ()) -> IO ())
-> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Adjustment
argPtr1 ->Ptr Adjustment -> CDouble -> IO ()
gtk_adjustment_set_value Ptr Adjustment
argPtr1 CDouble
arg2)
{-# LINE 190 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
self
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value)
adjustmentGetValue :: Adjustment -> IO Double
adjustmentGetValue :: Adjustment -> IO Double
adjustmentGetValue Adjustment
self =
(CDouble -> Double) -> IO CDouble -> IO Double
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac (IO CDouble -> IO Double) -> IO CDouble -> IO Double
forall a b. (a -> b) -> a -> b
$
(\(Adjustment ForeignPtr Adjustment
arg1) -> ForeignPtr Adjustment
-> (Ptr Adjustment -> IO CDouble) -> IO CDouble
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Adjustment
arg1 ((Ptr Adjustment -> IO CDouble) -> IO CDouble)
-> (Ptr Adjustment -> IO CDouble) -> IO CDouble
forall a b. (a -> b) -> a -> b
$ \Ptr Adjustment
argPtr1 ->Ptr Adjustment -> IO CDouble
gtk_adjustment_get_value Ptr Adjustment
argPtr1)
{-# LINE 199 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
self
adjustmentClampPage :: Adjustment
-> Double
-> Double
-> IO ()
adjustmentClampPage :: Adjustment -> Double -> Double -> IO ()
adjustmentClampPage Adjustment
self Double
lower Double
upper =
(\(Adjustment ForeignPtr Adjustment
arg1) CDouble
arg2 CDouble
arg3 -> ForeignPtr Adjustment -> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Adjustment
arg1 ((Ptr Adjustment -> IO ()) -> IO ())
-> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Adjustment
argPtr1 ->Ptr Adjustment -> CDouble -> CDouble -> IO ()
gtk_adjustment_clamp_page Ptr Adjustment
argPtr1 CDouble
arg2 CDouble
arg3)
{-# LINE 213 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
self
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
lower)
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
upper)
adjustmentAdjChanged :: Adjustment -> IO ()
adjustmentAdjChanged :: Adjustment -> IO ()
adjustmentAdjChanged = (\(Adjustment ForeignPtr Adjustment
arg1) -> ForeignPtr Adjustment -> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Adjustment
arg1 ((Ptr Adjustment -> IO ()) -> IO ())
-> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Adjustment
argPtr1 ->Ptr Adjustment -> IO ()
gtk_adjustment_changed Ptr Adjustment
argPtr1)
{-# LINE 221 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
adjustmentValueChanged :: Adjustment -> IO ()
adjustmentValueChanged :: Adjustment -> IO ()
adjustmentValueChanged = (\(Adjustment ForeignPtr Adjustment
arg1) -> ForeignPtr Adjustment -> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Adjustment
arg1 ((Ptr Adjustment -> IO ()) -> IO ())
-> (Ptr Adjustment -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Adjustment
argPtr1 ->Ptr Adjustment -> IO ()
gtk_adjustment_value_changed Ptr Adjustment
argPtr1)
{-# LINE 229 "./Graphics/UI/Gtk/Misc/Adjustment.chs" #-}
adjustmentValue :: Attr Adjustment Double
adjustmentValue :: Attr Adjustment Double
adjustmentValue = (Adjustment -> IO Double)
-> (Adjustment -> Double -> IO ()) -> Attr Adjustment Double
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
Adjustment -> IO Double
adjustmentGetValue
Adjustment -> Double -> IO ()
adjustmentSetValue
adjustmentLower :: Attr Adjustment Double
adjustmentLower :: Attr Adjustment Double
adjustmentLower = String -> Attr Adjustment Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"lower"
adjustmentUpper :: Attr Adjustment Double
adjustmentUpper :: Attr Adjustment Double
adjustmentUpper = String -> Attr Adjustment Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"upper"
adjustmentStepIncrement :: Attr Adjustment Double
adjustmentStepIncrement :: Attr Adjustment Double
adjustmentStepIncrement = String -> Attr Adjustment Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"step-increment"
adjustmentPageIncrement :: Attr Adjustment Double
adjustmentPageIncrement :: Attr Adjustment Double
adjustmentPageIncrement = String -> Attr Adjustment Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"page-increment"
adjustmentPageSize :: Attr Adjustment Double
adjustmentPageSize :: Attr Adjustment Double
adjustmentPageSize = String -> Attr Adjustment Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"page-size"
onAdjChanged, afterAdjChanged :: Adjustment
-> IO ()
-> IO (ConnectId Adjustment)
onAdjChanged :: Adjustment -> IO () -> IO (ConnectId Adjustment)
onAdjChanged = String
-> ConnectAfter -> Adjustment -> IO () -> IO (ConnectId Adjustment)
forall obj.
GObjectClass obj =>
String -> ConnectAfter -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"changed" ConnectAfter
False
afterAdjChanged :: Adjustment -> IO () -> IO (ConnectId Adjustment)
afterAdjChanged = String
-> ConnectAfter -> Adjustment -> IO () -> IO (ConnectId Adjustment)
forall obj.
GObjectClass obj =>
String -> ConnectAfter -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"changed" ConnectAfter
True
onValueChanged, afterValueChanged :: Adjustment
-> IO ()
-> IO (ConnectId Adjustment)
onValueChanged :: Adjustment -> IO () -> IO (ConnectId Adjustment)
onValueChanged = String
-> ConnectAfter -> Adjustment -> IO () -> IO (ConnectId Adjustment)
forall obj.
GObjectClass obj =>
String -> ConnectAfter -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"value-changed" ConnectAfter
False
afterValueChanged :: Adjustment -> IO () -> IO (ConnectId Adjustment)
afterValueChanged = String
-> ConnectAfter -> Adjustment -> IO () -> IO (ConnectId Adjustment)
forall obj.
GObjectClass obj =>
String -> ConnectAfter -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"value-changed" ConnectAfter
True
foreign import ccall unsafe "gtk_adjustment_new"
gtk_adjustment_new :: (CDouble -> (CDouble -> (CDouble -> (CDouble -> (CDouble -> (CDouble -> (IO (Ptr Adjustment))))))))
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 ()))