{-# LINE 2 "./Graphics/UI/Gtk/ModelView/CellRendererSpinner.chs" #-}
module Graphics.UI.Gtk.ModelView.CellRendererSpinner (
CellRendererSpinner,
CellRendererSpinnerClass,
castToCellRendererSpinner,
toCellRendererSpinner,
cellRendererSpinnerNew,
cellRendererSpinnerActive,
cellRendererSpinnerPulse,
cellRendererSpinnerSize,
) 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.General.Structs (IconSize(..))
import Graphics.UI.Gtk.Types
{-# LINE 75 "./Graphics/UI/Gtk/ModelView/CellRendererSpinner.chs" #-}
{-# LINE 77 "./Graphics/UI/Gtk/ModelView/CellRendererSpinner.chs" #-}
cellRendererSpinnerNew :: IO CellRendererSpinner
cellRendererSpinnerNew :: IO CellRendererSpinner
cellRendererSpinnerNew =
(ForeignPtr CellRendererSpinner -> CellRendererSpinner,
FinalizerPtr CellRendererSpinner)
-> IO (Ptr CellRendererSpinner) -> IO CellRendererSpinner
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr CellRendererSpinner -> CellRendererSpinner,
FinalizerPtr CellRendererSpinner)
forall {a}.
(ForeignPtr CellRendererSpinner -> CellRendererSpinner,
FinalizerPtr a)
mkCellRendererSpinner (IO (Ptr CellRendererSpinner) -> IO CellRendererSpinner)
-> IO (Ptr CellRendererSpinner) -> IO CellRendererSpinner
forall a b. (a -> b) -> a -> b
$ (Ptr CellRenderer -> Ptr CellRendererSpinner)
-> IO (Ptr CellRenderer) -> IO (Ptr CellRendererSpinner)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Ptr CellRenderer -> Ptr CellRendererSpinner
forall a b. Ptr a -> Ptr b
castPtr (IO (Ptr CellRenderer) -> IO (Ptr CellRendererSpinner))
-> IO (Ptr CellRenderer) -> IO (Ptr CellRendererSpinner)
forall a b. (a -> b) -> a -> b
$
IO (Ptr CellRenderer)
gtk_cell_renderer_spinner_new
{-# LINE 87 "./Graphics/UI/Gtk/ModelView/CellRendererSpinner.chs" #-}
cellRendererSpinnerActive :: CellRendererSpinnerClass self => Attr self Bool
cellRendererSpinnerActive :: forall self. CellRendererSpinnerClass self => Attr self Bool
cellRendererSpinnerActive =
String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"active"
cellRendererSpinnerPulse :: CellRendererSpinnerClass self => Attr self Int
cellRendererSpinnerPulse :: forall self. CellRendererSpinnerClass self => Attr self Int
cellRendererSpinnerPulse =
String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"pulse"
cellRendererSpinnerSize :: CellRendererSpinnerClass self => Attr self IconSize
cellRendererSpinnerSize :: forall self. CellRendererSpinnerClass self => Attr self IconSize
cellRendererSpinnerSize =
String -> GType -> Attr self IconSize
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"size"
GType
gtk_icon_size_get_type
{-# LINE 123 "./Graphics/UI/Gtk/ModelView/CellRendererSpinner.chs" #-}
foreign import ccall safe "gtk_cell_renderer_spinner_new"
gtk_cell_renderer_spinner_new :: (IO (Ptr CellRenderer))
foreign import ccall unsafe "gtk_icon_size_get_type"
gtk_icon_size_get_type :: CUInt