module Graphics.UI.Gtk.SourceView.SourceUndoManager (
SourceUndoManager,
SourceUndoManagerClass,
sourceUndoManagerCanUndo,
sourceUndoManagerCanRedo,
sourceUndoManagerUndo,
sourceUndoManagerRedo,
sourceUndoManagerBeginNotUndoableAction,
sourceUndoManagerEndNotUndoableAction,
sourceUndoManagerCanRedoChanged,
sourceUndoManagerCanUndoChanged,
) where
import Control.Monad (liftM)
import System.Glib.Attributes
import System.Glib.FFI
import System.Glib.Properties
import System.Glib.UTFString
import Graphics.UI.Gtk.SourceView.Signals
import Graphics.UI.Gtk.SourceView.Types
sourceUndoManagerCanUndo :: SourceUndoManagerClass sum => sum
-> IO Bool
sourceUndoManagerCanUndo sm =
liftM toBool $
(\(SourceUndoManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_undo_manager_can_undo argPtr1) (toSourceUndoManager sm)
sourceUndoManagerCanRedo :: SourceUndoManagerClass sum => sum
-> IO Bool
sourceUndoManagerCanRedo sm =
liftM toBool $
(\(SourceUndoManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_undo_manager_can_redo argPtr1) (toSourceUndoManager sm)
sourceUndoManagerUndo :: SourceUndoManagerClass sum => sum -> IO ()
sourceUndoManagerUndo sm =
(\(SourceUndoManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_undo_manager_undo argPtr1) (toSourceUndoManager sm)
sourceUndoManagerRedo :: SourceUndoManagerClass sum => sum -> IO ()
sourceUndoManagerRedo sm =
(\(SourceUndoManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_undo_manager_redo argPtr1) (toSourceUndoManager sm)
sourceUndoManagerBeginNotUndoableAction :: SourceUndoManagerClass sum => sum -> IO ()
sourceUndoManagerBeginNotUndoableAction sm =
(\(SourceUndoManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_undo_manager_begin_not_undoable_action argPtr1) (toSourceUndoManager sm)
sourceUndoManagerEndNotUndoableAction :: SourceUndoManagerClass sum => sum -> IO ()
sourceUndoManagerEndNotUndoableAction sm =
(\(SourceUndoManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_undo_manager_end_not_undoable_action argPtr1) (toSourceUndoManager sm)
sourceUndoManagerCanRedoChanged :: SourceUndoManagerClass sum => Signal sum (IO ())
sourceUndoManagerCanRedoChanged = Signal $ connect_NONE__NONE "can-redo-changed"
sourceUndoManagerCanUndoChanged :: SourceUndoManagerClass sum => Signal sum (IO ())
sourceUndoManagerCanUndoChanged = Signal $ connect_NONE__NONE "can-undo-changed"
foreign import ccall safe "gtk_source_undo_manager_can_undo"
gtk_source_undo_manager_can_undo :: ((Ptr SourceUndoManager) -> (IO CInt))
foreign import ccall safe "gtk_source_undo_manager_can_redo"
gtk_source_undo_manager_can_redo :: ((Ptr SourceUndoManager) -> (IO CInt))
foreign import ccall safe "gtk_source_undo_manager_undo"
gtk_source_undo_manager_undo :: ((Ptr SourceUndoManager) -> (IO ()))
foreign import ccall safe "gtk_source_undo_manager_redo"
gtk_source_undo_manager_redo :: ((Ptr SourceUndoManager) -> (IO ()))
foreign import ccall safe "gtk_source_undo_manager_begin_not_undoable_action"
gtk_source_undo_manager_begin_not_undoable_action :: ((Ptr SourceUndoManager) -> (IO ()))
foreign import ccall safe "gtk_source_undo_manager_end_not_undoable_action"
gtk_source_undo_manager_end_not_undoable_action :: ((Ptr SourceUndoManager) -> (IO ()))