module Graphics.UI.Gtk.SourceView.SourceView (
SourceView,
SourceViewClass,
SourceSmartHomeEndType(..),
SourceDrawSpacesFlags(..),
SourceViewGutterPosition (..),
castToSourceView,
sourceViewNew,
sourceViewNewWithBuffer,
sourceViewSetAutoIndent,
sourceViewGetAutoIndent,
sourceViewSetIndentOnTab,
sourceViewGetIndentOnTab,
sourceViewSetIndentWidth,
sourceViewGetIndentWidth,
sourceViewSetInsertSpacesInsteadOfTabs,
sourceViewGetInsertSpacesInsteadOfTabs,
sourceViewSetSmartHomeEnd,
sourceViewGetSmartHomeEnd,
sourceViewSetMarkCategoryPriority,
sourceViewGetMarkCategoryPriority,
sourceViewSetMarkCategoryIconFromPixbuf,
sourceViewSetMarkCategoryIconFromStock,
sourceViewSetMarkCategoryIconFromIconName,
sourceViewSetMarkCategoryBackground,
sourceViewGetMarkCategoryBackground,
sourceViewSetHighlightCurrentLine,
sourceViewGetHighlightCurrentLine,
sourceViewSetShowLineMarks,
sourceViewGetShowLineMarks,
sourceViewSetShowLineNumbers,
sourceViewGetShowLineNumbers,
sourceViewSetShowRightMargin,
sourceViewGetShowRightMargin,
sourceViewSetRightMarginPosition,
sourceViewGetRightMarginPosition,
sourceViewSetTabWidth,
sourceViewGetTabWidth,
sourceViewSetDrawSpaces,
sourceViewGetDrawSpaces,
sourceViewGetGutter,
sourceViewAutoIndent,
sourceViewCompletion,
sourceViewDrawSpaces,
sourceViewHighlightCurrentLine,
sourceViewIndentOnTab,
sourceViewIndentWidth,
sourceViewInsertSpacesInsteadOfTabs,
sourceViewRightMarginPosition,
sourceViewShowLineNumbers,
sourceViewShowRightMargin,
sourceViewSmartHomeEnd,
sourceViewTabWidth,
sourceViewUndo,
sourceViewRedo,
sourceViewMoveLines,
sourceViewShowCompletion,
sourceViewLineMarkActivated,
sourceViewSetMarkCategoryPixbuf,
sourceViewGetMarkCategoryPixbuf,
) where
import Control.Monad (liftM)
import Control.Monad.Reader ( runReaderT )
import Data.Maybe (fromMaybe)
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Abstract.Widget (Color)
import Graphics.UI.Gtk.Gdk.EventM (EventM, EAny)
import Graphics.UI.Gtk.Multiline.TextView (TextWindowType (..))
import Graphics.UI.Gtk.SourceView.Enums
import Graphics.UI.GtkInternals ( TextIter, mkTextIterCopy )
import System.Glib.Attributes
import System.Glib.FFI
import Graphics.UI.Gtk.SourceView.Signals
import Graphics.UI.Gtk.SourceView.Types
import System.Glib.Properties
sourceViewNew :: IO SourceView
sourceViewNew = makeNewObject mkSourceView $ liftM castPtr
gtk_source_view_new
sourceViewNewWithBuffer :: SourceBuffer -> IO SourceView
sourceViewNewWithBuffer sb = makeNewObject mkSourceView $ liftM castPtr $
(\(SourceBuffer arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_new_with_buffer argPtr1) sb
sourceViewSetAutoIndent :: SourceViewClass sv => sv
-> Bool
-> IO ()
sourceViewSetAutoIndent sv enable =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_auto_indent argPtr1 arg2) (toSourceView sv) (fromBool enable)
sourceViewGetAutoIndent :: SourceViewClass sv => sv
-> IO Bool
sourceViewGetAutoIndent sv = liftM toBool $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_auto_indent argPtr1) (toSourceView sv)
sourceViewSetIndentOnTab :: SourceViewClass sv => sv
-> Bool
-> IO ()
sourceViewSetIndentOnTab sv enable =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_indent_on_tab argPtr1 arg2) (toSourceView sv) (fromBool enable)
sourceViewGetIndentOnTab :: SourceViewClass sv => sv
-> IO Bool
sourceViewGetIndentOnTab sv = liftM toBool $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_indent_on_tab argPtr1) (toSourceView sv)
sourceViewSetIndentWidth :: SourceViewClass sv => sv
-> Int
-> IO ()
sourceViewSetIndentWidth sv width =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_indent_width argPtr1 arg2) (toSourceView sv) (fromIntegral width)
sourceViewGetIndentWidth :: SourceViewClass sv => sv
-> IO Int
sourceViewGetIndentWidth sv = liftM fromIntegral $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_indent_width argPtr1) (toSourceView sv)
sourceViewSetInsertSpacesInsteadOfTabs :: SourceViewClass sv => sv
-> Bool
-> IO ()
sourceViewSetInsertSpacesInsteadOfTabs sv enable =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_insert_spaces_instead_of_tabs argPtr1 arg2) (toSourceView sv) (fromBool enable)
sourceViewGetInsertSpacesInsteadOfTabs :: SourceViewClass sv => sv
-> IO Bool
sourceViewGetInsertSpacesInsteadOfTabs sv = liftM toBool $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_insert_spaces_instead_of_tabs argPtr1) (toSourceView sv)
sourceViewSetSmartHomeEnd :: SourceViewClass sv => sv
-> SourceSmartHomeEndType
-> IO ()
sourceViewSetSmartHomeEnd sv newVal =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_smart_home_end argPtr1 arg2) (toSourceView sv) (fromIntegral $ fromEnum newVal)
sourceViewGetSmartHomeEnd :: SourceViewClass sv => sv
-> IO SourceSmartHomeEndType
sourceViewGetSmartHomeEnd sv = liftM (toEnum . fromIntegral) $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_smart_home_end argPtr1) (toSourceView sv)
sourceViewSetHighlightCurrentLine :: SourceViewClass sv => sv
-> Bool
-> IO ()
sourceViewSetHighlightCurrentLine sv newVal =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_highlight_current_line argPtr1 arg2) (toSourceView sv) (fromBool newVal)
sourceViewGetHighlightCurrentLine :: SourceViewClass sv => sv
-> IO Bool
sourceViewGetHighlightCurrentLine sv = liftM toBool $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_highlight_current_line argPtr1) (toSourceView sv)
sourceViewSetShowLineMarks :: SourceViewClass sv => sv
-> Bool
-> IO ()
sourceViewSetShowLineMarks sv newVal =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_show_line_marks argPtr1 arg2) (toSourceView sv) (fromBool newVal)
sourceViewGetShowLineMarks :: SourceViewClass sv => sv
-> IO Bool
sourceViewGetShowLineMarks sv = liftM toBool $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_show_line_marks argPtr1) (toSourceView sv)
sourceViewSetShowLineNumbers :: SourceViewClass sv => sv
-> Bool
-> IO ()
sourceViewSetShowLineNumbers sv newVal =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_show_line_numbers argPtr1 arg2) (toSourceView sv) (fromBool newVal)
sourceViewGetShowLineNumbers :: SourceViewClass sv => sv
-> IO Bool
sourceViewGetShowLineNumbers sv = liftM toBool $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_show_line_numbers argPtr1) (toSourceView sv)
sourceViewSetShowRightMargin :: SourceViewClass sv => sv
-> Bool
-> IO ()
sourceViewSetShowRightMargin sv newVal =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_show_right_margin argPtr1 arg2) (toSourceView sv) (fromBool newVal)
sourceViewGetShowRightMargin :: SourceViewClass sv => sv
-> IO Bool
sourceViewGetShowRightMargin sv = liftM toBool $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_show_right_margin argPtr1) (toSourceView sv)
sourceViewSetRightMarginPosition :: SourceViewClass sv => sv
-> Word
-> IO ()
sourceViewSetRightMarginPosition sv margin =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_right_margin_position argPtr1 arg2) (toSourceView sv) (fromIntegral margin)
sourceViewGetRightMarginPosition :: SourceViewClass sv => sv
-> IO Int
sourceViewGetRightMarginPosition sv = liftM fromIntegral $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_right_margin_position argPtr1) (toSourceView sv)
sourceViewSetTabWidth :: SourceViewClass sv => sv
-> Int
-> IO ()
sourceViewSetTabWidth sv width =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_tab_width argPtr1 arg2) (toSourceView sv) (fromIntegral width)
sourceViewGetTabWidth :: SourceViewClass sv => sv
-> IO Int
sourceViewGetTabWidth sv = liftM fromIntegral $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_tab_width argPtr1) (toSourceView sv)
sourceViewSetDrawSpaces :: SourceViewClass sv => sv
-> SourceDrawSpacesFlags
-> IO ()
sourceViewSetDrawSpaces view flags =
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_draw_spaces argPtr1 arg2)
(toSourceView view)
(fromIntegral $ fromEnum flags)
sourceViewGetDrawSpaces :: SourceViewClass sv => sv
-> IO SourceDrawSpacesFlags
sourceViewGetDrawSpaces view =
liftM (toEnum . fromIntegral) $
(\(SourceView arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_draw_spaces argPtr1)
(toSourceView view)
sourceViewGetGutter :: SourceViewClass sv => sv
-> TextWindowType
-> IO SourceGutter
sourceViewGetGutter sv windowType =
makeNewGObject mkSourceGutter $
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_gutter argPtr1 arg2)
(toSourceView sv)
(fromIntegral $ fromEnum windowType)
sourceViewSetMarkCategoryPriority :: SourceViewClass sv => sv
-> String
-> Int
-> IO ()
sourceViewSetMarkCategoryPriority sv markerType priority = withCString markerType $ \strPtr ->
(\(SourceView arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_mark_category_priority argPtr1 arg2 arg3) (toSourceView sv) strPtr (fromIntegral priority)
sourceViewGetMarkCategoryPriority :: SourceViewClass sv => sv
-> String
-> IO Int
sourceViewGetMarkCategoryPriority sv markerType = withCString markerType $ \strPtr ->
liftM fromIntegral $
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_mark_category_priority argPtr1 arg2) (toSourceView sv) strPtr
sourceViewSetMarkCategoryIconFromPixbuf :: SourceViewClass sv => sv
-> String
-> Maybe Pixbuf
-> IO ()
sourceViewSetMarkCategoryIconFromPixbuf sv category pixbuf =
withCString category $ \categoryPtr ->
(\(SourceView arg1) arg2 (Pixbuf arg3) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg3 $ \argPtr3 ->gtk_source_view_set_mark_category_icon_from_pixbuf argPtr1 arg2 argPtr3)
(toSourceView sv)
categoryPtr
(fromMaybe (Pixbuf nullForeignPtr) pixbuf)
sourceViewSetMarkCategoryIconFromStock :: SourceViewClass sv => sv
-> String
-> Maybe String
-> IO ()
sourceViewSetMarkCategoryIconFromStock sv category stockId =
withCString category $ \categoryPtr ->
maybeWith withCString stockId $ \stockIdPtr ->
(\(SourceView arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_mark_category_icon_from_stock argPtr1 arg2 arg3)
(toSourceView sv)
categoryPtr
stockIdPtr
sourceViewSetMarkCategoryIconFromIconName :: SourceViewClass sv => sv
-> String
-> Maybe String
-> IO ()
sourceViewSetMarkCategoryIconFromIconName sv category name =
withCString category $ \categoryPtr ->
maybeWith withCString name $ \namePtr ->
(\(SourceView arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_mark_category_icon_from_icon_name argPtr1 arg2 arg3)
(toSourceView sv)
categoryPtr
namePtr
sourceViewSetMarkCategoryBackground :: SourceViewClass sv => sv
-> String
-> Maybe Color
-> IO ()
sourceViewSetMarkCategoryBackground sv category color =
let withMB :: Storable a => Maybe a -> (Ptr a -> IO b) -> IO b
withMB Nothing f = f nullPtr
withMB (Just x) f = with x f
in withCString category $ \categoryPtr ->
withMB color $ \colorPtr ->
(\(SourceView arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_set_mark_category_background argPtr1 arg2 arg3)
(toSourceView sv)
categoryPtr
(castPtr colorPtr)
sourceViewGetMarkCategoryBackground :: SourceViewClass sv => sv
-> String
-> Color
-> IO Bool
sourceViewGetMarkCategoryBackground sv category color =
liftM toBool $
withCString category $ \ categoryPtr ->
with color $ \ colorPtr ->
(\(SourceView arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_mark_category_background argPtr1 arg2 arg3)
(toSourceView sv)
categoryPtr
(castPtr colorPtr)
sourceViewAutoIndent :: SourceViewClass sv => Attr sv Bool
sourceViewAutoIndent = newAttrFromBoolProperty "auto-indent"
sourceViewCompletion :: SourceViewClass sv => ReadAttr sv SourceCompletion
sourceViewCompletion = readAttrFromObjectProperty "completion"
gtk_source_completion_get_type
sourceViewDrawSpaces :: SourceViewClass sv => Attr sv SourceDrawSpacesFlags
sourceViewDrawSpaces = newAttrFromEnumProperty "draw-spaces" gtk_source_draw_spaces_flags_get_type
sourceViewHighlightCurrentLine :: SourceViewClass sv => Attr sv Bool
sourceViewHighlightCurrentLine = newAttrFromBoolProperty "highlight-current-line"
sourceViewIndentOnTab :: SourceViewClass sv => Attr sv Bool
sourceViewIndentOnTab = newAttrFromBoolProperty "indent-on-tab"
sourceViewIndentWidth :: SourceViewClass sv => Attr sv Int
sourceViewIndentWidth = newAttrFromIntProperty "indent-width"
sourceViewInsertSpacesInsteadOfTabs :: SourceViewClass sv => Attr sv Bool
sourceViewInsertSpacesInsteadOfTabs = newAttrFromBoolProperty "insert-spaces-instead-of-tabs"
sourceViewRightMarginPosition :: SourceViewClass sv => Attr sv Int
sourceViewRightMarginPosition = newAttrFromUIntProperty "right-margin-position"
sourceViewShowLineNumbers :: SourceViewClass sv => Attr sv Bool
sourceViewShowLineNumbers = newAttrFromBoolProperty "show-line-numbers"
sourceViewShowRightMargin :: SourceViewClass sv => Attr sv Bool
sourceViewShowRightMargin = newAttrFromBoolProperty "show-right-margin"
sourceViewSmartHomeEnd :: SourceViewClass sv => Attr sv SourceSmartHomeEndType
sourceViewSmartHomeEnd = newAttrFromEnumProperty "smart-home-end" gtk_source_smart_home_end_type_get_type
sourceViewTabWidth :: SourceViewClass sv => Attr sv Int
sourceViewTabWidth = newAttrFromUIntProperty "tab-width"
sourceViewUndo :: SourceViewClass sv => Signal sv (IO ())
sourceViewUndo = Signal $ connect_NONE__NONE "undo"
sourceViewRedo :: SourceViewClass sv => Signal sv (IO ())
sourceViewRedo = Signal $ connect_NONE__NONE "redo"
sourceViewMoveLines :: SourceViewClass sv => Signal sv (Bool -> Int -> IO ())
sourceViewMoveLines = Signal $ connect_BOOL_INT__NONE "move-lines"
sourceViewShowCompletion :: SourceViewClass sv => Signal sv (IO ())
sourceViewShowCompletion = Signal $ connect_NONE__NONE "show-completion"
sourceViewLineMarkActivated :: SourceViewClass sv => Signal sv (TextIter -> EventM EAny ())
sourceViewLineMarkActivated =
Signal (\after obj fun ->
connect_PTR_BOXED__NONE "line-mark-activated" mkTextIterCopy after obj
(\eventPtr iter -> runReaderT (fun iter) eventPtr)
)
sourceViewSetMarkCategoryPixbuf :: SourceViewClass sv => sv -> String -> Pixbuf -> IO ()
sourceViewSetMarkCategoryPixbuf sv markerType marker = withCString markerType $ \strPtr ->
(\(SourceView arg1) arg2 (Pixbuf arg3) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg3 $ \argPtr3 ->gtk_source_view_set_mark_category_pixbuf argPtr1 arg2 argPtr3) (toSourceView sv) strPtr marker
sourceViewGetMarkCategoryPixbuf :: SourceViewClass sv => sv -> String -> IO Pixbuf
sourceViewGetMarkCategoryPixbuf sv markerType = withCString markerType $ \strPtr ->
constructNewGObject mkPixbuf $
(\(SourceView arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_view_get_mark_category_pixbuf argPtr1 arg2) (toSourceView sv) strPtr
foreign import ccall unsafe "gtk_source_view_new"
gtk_source_view_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_source_view_new_with_buffer"
gtk_source_view_new_with_buffer :: ((Ptr SourceBuffer) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_source_view_set_auto_indent"
gtk_source_view_set_auto_indent :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_auto_indent"
gtk_source_view_get_auto_indent :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_indent_on_tab"
gtk_source_view_set_indent_on_tab :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_indent_on_tab"
gtk_source_view_get_indent_on_tab :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_indent_width"
gtk_source_view_set_indent_width :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_indent_width"
gtk_source_view_get_indent_width :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_insert_spaces_instead_of_tabs"
gtk_source_view_set_insert_spaces_instead_of_tabs :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_insert_spaces_instead_of_tabs"
gtk_source_view_get_insert_spaces_instead_of_tabs :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_smart_home_end"
gtk_source_view_set_smart_home_end :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_smart_home_end"
gtk_source_view_get_smart_home_end :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_highlight_current_line"
gtk_source_view_set_highlight_current_line :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_highlight_current_line"
gtk_source_view_get_highlight_current_line :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_show_line_marks"
gtk_source_view_set_show_line_marks :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_show_line_marks"
gtk_source_view_get_show_line_marks :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_show_line_numbers"
gtk_source_view_set_show_line_numbers :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_show_line_numbers"
gtk_source_view_get_show_line_numbers :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_show_right_margin"
gtk_source_view_set_show_right_margin :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_source_view_get_show_right_margin"
gtk_source_view_get_show_right_margin :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_set_right_margin_position"
gtk_source_view_set_right_margin_position :: ((Ptr SourceView) -> (CUInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_right_margin_position"
gtk_source_view_get_right_margin_position :: ((Ptr SourceView) -> (IO CUInt))
foreign import ccall safe "gtk_source_view_set_tab_width"
gtk_source_view_set_tab_width :: ((Ptr SourceView) -> (CUInt -> (IO ())))
foreign import ccall unsafe "gtk_source_view_get_tab_width"
gtk_source_view_get_tab_width :: ((Ptr SourceView) -> (IO CUInt))
foreign import ccall safe "gtk_source_view_set_draw_spaces"
gtk_source_view_set_draw_spaces :: ((Ptr SourceView) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_source_view_get_draw_spaces"
gtk_source_view_get_draw_spaces :: ((Ptr SourceView) -> (IO CInt))
foreign import ccall safe "gtk_source_view_get_gutter"
gtk_source_view_get_gutter :: ((Ptr SourceView) -> (CInt -> (IO (Ptr SourceGutter))))
foreign import ccall safe "gtk_source_view_set_mark_category_priority"
gtk_source_view_set_mark_category_priority :: ((Ptr SourceView) -> ((Ptr CChar) -> (CInt -> (IO ()))))
foreign import ccall unsafe "gtk_source_view_get_mark_category_priority"
gtk_source_view_get_mark_category_priority :: ((Ptr SourceView) -> ((Ptr CChar) -> (IO CInt)))
foreign import ccall safe "gtk_source_view_set_mark_category_icon_from_pixbuf"
gtk_source_view_set_mark_category_icon_from_pixbuf :: ((Ptr SourceView) -> ((Ptr CChar) -> ((Ptr Pixbuf) -> (IO ()))))
foreign import ccall safe "gtk_source_view_set_mark_category_icon_from_stock"
gtk_source_view_set_mark_category_icon_from_stock :: ((Ptr SourceView) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
foreign import ccall safe "gtk_source_view_set_mark_category_icon_from_icon_name"
gtk_source_view_set_mark_category_icon_from_icon_name :: ((Ptr SourceView) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
foreign import ccall safe "gtk_source_view_set_mark_category_background"
gtk_source_view_set_mark_category_background :: ((Ptr SourceView) -> ((Ptr CChar) -> ((Ptr ()) -> (IO ()))))
foreign import ccall safe "gtk_source_view_get_mark_category_background"
gtk_source_view_get_mark_category_background :: ((Ptr SourceView) -> ((Ptr CChar) -> ((Ptr ()) -> (IO CInt))))
foreign import ccall unsafe "gtk_source_completion_get_type"
gtk_source_completion_get_type :: CUInt
foreign import ccall safe "gtk_source_draw_spaces_flags_get_type"
gtk_source_draw_spaces_flags_get_type :: CUInt
foreign import ccall safe "gtk_source_smart_home_end_type_get_type"
gtk_source_smart_home_end_type_get_type :: CUInt
foreign import ccall safe "gtk_source_view_set_mark_category_pixbuf"
gtk_source_view_set_mark_category_pixbuf :: ((Ptr SourceView) -> ((Ptr CChar) -> ((Ptr Pixbuf) -> (IO ()))))
foreign import ccall unsafe "gtk_source_view_get_mark_category_pixbuf"
gtk_source_view_get_mark_category_pixbuf :: ((Ptr SourceView) -> ((Ptr CChar) -> (IO (Ptr Pixbuf))))