{-# LINE 2 "./Graphics/UI/Gtk/ModelView/CellRendererSpin.chs" #-}
module Graphics.UI.Gtk.ModelView.CellRendererSpin (
CellRendererSpin,
CellRendererSpinClass,
castToCellRendererSpin,
toCellRendererSpin,
cellRendererSpinNew,
cellRendererSpinAdjustment,
cellRendererSpinClimbRate,
cellRendererSpinDigits,
) 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 83 "./Graphics/UI/Gtk/ModelView/CellRendererSpin.chs" #-}
{-# LINE 85 "./Graphics/UI/Gtk/ModelView/CellRendererSpin.chs" #-}
cellRendererSpinNew :: IO CellRendererSpin
cellRendererSpinNew :: IO CellRendererSpin
cellRendererSpinNew =
(ForeignPtr CellRendererSpin -> CellRendererSpin,
FinalizerPtr CellRendererSpin)
-> IO (Ptr CellRendererSpin) -> IO CellRendererSpin
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr CellRendererSpin -> CellRendererSpin,
FinalizerPtr CellRendererSpin)
forall {a}.
(ForeignPtr CellRendererSpin -> CellRendererSpin, FinalizerPtr a)
mkCellRendererSpin (IO (Ptr CellRendererSpin) -> IO CellRendererSpin)
-> IO (Ptr CellRendererSpin) -> IO CellRendererSpin
forall a b. (a -> b) -> a -> b
$ (Ptr CellRenderer -> Ptr CellRendererSpin)
-> IO (Ptr CellRenderer) -> IO (Ptr CellRendererSpin)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Ptr CellRenderer -> Ptr CellRendererSpin
forall a b. Ptr a -> Ptr b
castPtr
IO (Ptr CellRenderer)
gtk_cell_renderer_spin_new
{-# LINE 98 "./Graphics/UI/Gtk/ModelView/CellRendererSpin.chs" #-}
cellRendererSpinAdjustment :: CellRendererSpinClass self => Attr self Adjustment
cellRendererSpinAdjustment :: forall self. CellRendererSpinClass self => Attr self Adjustment
cellRendererSpinAdjustment = String -> GType -> ReadWriteAttr self Adjustment Adjustment
forall gobj gobj' gobj''.
(GObjectClass gobj, GObjectClass gobj', GObjectClass gobj'') =>
String -> GType -> ReadWriteAttr gobj gobj' gobj''
newAttrFromObjectProperty String
"adjustment"
GType
gtk_adjustment_get_type
{-# LINE 109 "./Graphics/UI/Gtk/ModelView/CellRendererSpin.chs" #-}
cellRendererSpinClimbRate :: CellRendererSpinClass self => Attr self Double
cellRendererSpinClimbRate :: forall self. CellRendererSpinClass self => Attr self Double
cellRendererSpinClimbRate = String -> Attr self Double
forall gobj. GObjectClass gobj => String -> Attr gobj Double
newAttrFromDoubleProperty String
"climb-rate"
cellRendererSpinDigits :: CellRendererSpinClass self => Attr self Int
cellRendererSpinDigits :: forall self. CellRendererSpinClass self => Attr self Int
cellRendererSpinDigits = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromUIntProperty String
"digits"
foreign import ccall safe "gtk_cell_renderer_spin_new"
gtk_cell_renderer_spin_new :: (IO (Ptr CellRenderer))
foreign import ccall unsafe "gtk_adjustment_get_type"
gtk_adjustment_get_type :: CUInt