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,
) 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.GObject (wrapNewGObject, makeNewGObject)
import System.Glib.Attributes
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Flags (toFlags, fromFlags)
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 $ fromFlags flags)
sourceViewGetDrawSpaces :: SourceViewClass sv => sv
-> IO [SourceDrawSpacesFlags]
sourceViewGetDrawSpaces view =
liftM (toFlags . 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, GlibString string) => sv
-> string
-> Int
-> IO ()
sourceViewSetMarkCategoryPriority sv markerType priority = withUTFString 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, GlibString string) => sv
-> string
-> IO Int
sourceViewGetMarkCategoryPriority sv markerType = withUTFString 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, GlibString string) => sv
-> string
-> Maybe Pixbuf
-> IO ()
sourceViewSetMarkCategoryIconFromPixbuf sv category pixbuf =
withUTFString 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, GlibString string) => sv
-> string
-> Maybe string
-> IO ()
sourceViewSetMarkCategoryIconFromStock sv category stockId =
withUTFString category $ \categoryPtr ->
maybeWith withUTFString 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, GlibString string) => sv
-> string
-> Maybe string
-> IO ()
sourceViewSetMarkCategoryIconFromIconName sv category name =
withUTFString category $ \categoryPtr ->
maybeWith withUTFString 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, GlibString string) => 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 withUTFString 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, GlibString string) => sv
-> string
-> Color
-> IO Bool
sourceViewGetMarkCategoryBackground sv category color =
liftM toBool $
withUTFString 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 = newAttrFromFlagsProperty "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_BOXED_PTR__NONE "line-mark-activated" mkTextIterCopy after obj
(\iter eventPtr -> runReaderT (fun iter) eventPtr)
)
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 :: CULong
foreign import ccall safe "gtk_source_draw_spaces_flags_get_type"
gtk_source_draw_spaces_flags_get_type :: CULong
foreign import ccall safe "gtk_source_smart_home_end_type_get_type"
gtk_source_smart_home_end_type_get_type :: CULong