{-# LINE 2 "./Graphics/UI/Gtk/ModelView/CellEditable.chs" #-}
module Graphics.UI.Gtk.ModelView.CellEditable (
CellEditable,
CellEditableClass,
castToCellEditable,
toCellEditable,
cellEditableStartEditing,
cellEditableEmitEditingDone,
cellEditableEmitRemoveWidget,
cellEditableEditingCanceled,
cellEditableEditingDone,
cellEditableRemoveWidget,
) where
import Control.Monad.Reader.Class (ask)
import Control.Monad.Trans (liftIO)
import System.Glib.FFI
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Types
{-# LINE 71 "./Graphics/UI/Gtk/ModelView/CellEditable.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 72 "./Graphics/UI/Gtk/ModelView/CellEditable.chs" #-}
import Graphics.UI.Gtk.Gdk.EventM (EventM, EAny)
{-# LINE 75 "./Graphics/UI/Gtk/ModelView/CellEditable.chs" #-}
cellEditableStartEditing :: CellEditableClass self => self -> EventM EAny ()
cellEditableStartEditing self = do
eventPtr <- ask
liftIO $ (\(CellEditable arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_cell_editable_start_editing argPtr1 arg2)
{-# LINE 85 "./Graphics/UI/Gtk/ModelView/CellEditable.chs" #-}
(toCellEditable self)
(castPtr eventPtr)
cellEditableEmitEditingDone :: CellEditableClass self => self -> IO ()
cellEditableEmitEditingDone self =
(\(CellEditable arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_cell_editable_editing_done argPtr1)
{-# LINE 93 "./Graphics/UI/Gtk/ModelView/CellEditable.chs" #-}
(toCellEditable self)
cellEditableEmitRemoveWidget :: CellEditableClass self => self -> IO ()
cellEditableEmitRemoveWidget self =
(\(CellEditable arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_cell_editable_remove_widget argPtr1)
{-# LINE 100 "./Graphics/UI/Gtk/ModelView/CellEditable.chs" #-}
(toCellEditable self)
cellEditableEditingCanceled :: CellEditableClass self => Attr self Bool
cellEditableEditingCanceled =
newAttrFromBoolProperty "editing-canceled"
cellEditableEditingDone :: CellEditableClass self => Signal self (IO ())
cellEditableEditingDone = Signal (connect_NONE__NONE "editing_done")
cellEditableRemoveWidget :: CellEditableClass self => Signal self (IO ())
cellEditableRemoveWidget = Signal (connect_NONE__NONE "remove_widget")
foreign import ccall safe "gtk_cell_editable_start_editing"
gtk_cell_editable_start_editing :: ((Ptr CellEditable) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "gtk_cell_editable_editing_done"
gtk_cell_editable_editing_done :: ((Ptr CellEditable) -> (IO ()))
foreign import ccall safe "gtk_cell_editable_remove_widget"
gtk_cell_editable_remove_widget :: ((Ptr CellEditable) -> (IO ()))