module Graphics.UI.Gtk.SourceView.SourceStyleScheme (
SourceStyleScheme,
SourceStyleSchemeClass,
castToSourceStyleScheme,
sourceStyleSchemeGetId,
sourceStyleSchemeGetName,
sourceStyleSchemeGetDescription,
sourceStyleSchemeGetAuthors,
sourceStyleSchemeGetFilename,
sourceStyleSchemeGetStyle,
sourceStyleSchemeDescription,
sourceStyleSchemeFilename,
sourceStyleSchemeId,
sourceStyleSchemeName,
) where
import Control.Monad (liftM)
import Graphics.UI.Gtk.SourceView.SourceStyle
import System.Glib.Attributes
import System.Glib.FFI
import System.Glib.GObject (makeNewGObject)
import System.Glib.UTFString
import Graphics.UI.Gtk.SourceView.SourceStyle.Internal
import Graphics.UI.Gtk.SourceView.Types
import System.Glib.Properties
sourceStyleSchemeGetId :: (SourceStyleSchemeClass sss, GlibString string) => sss
-> IO string
sourceStyleSchemeGetId ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_id argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetName :: (SourceStyleSchemeClass sss, GlibString string) => sss
-> IO string
sourceStyleSchemeGetName ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_name argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetDescription :: (SourceStyleSchemeClass sss, GlibString string) => sss
-> IO string
sourceStyleSchemeGetDescription ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_description argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetAuthors :: (SourceStyleSchemeClass sss, GlibString string) => sss
-> IO [string]
sourceStyleSchemeGetAuthors ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_authors argPtr1) (toSourceStyleScheme ss) >>= peekUTFStringArray0
sourceStyleSchemeGetFilename :: (SourceStyleSchemeClass sss, GlibString string) => sss
-> IO string
sourceStyleSchemeGetFilename ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_filename argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetStyle :: (SourceStyleSchemeClass sss, GlibString string) => sss
-> string
-> IO SourceStyle
sourceStyleSchemeGetStyle ss id = do
styleObj <- makeNewGObject mkSourceStyleObject $
withUTFString id ((\(SourceStyleScheme arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_style argPtr1 arg2) (toSourceStyleScheme ss))
sourceStyleFromObject styleObj
sourceStyleSchemeDescription :: (SourceStyleSchemeClass sss, GlibString string) => ReadAttr sss string
sourceStyleSchemeDescription = readAttrFromStringProperty "description"
sourceStyleSchemeFilename :: (SourceStyleSchemeClass sss, GlibFilePath fp) => ReadAttr sss fp
sourceStyleSchemeFilename = readAttrFromFilePathProperty "filename"
sourceStyleSchemeId :: (SourceStyleSchemeClass sss, GlibString string) => ReadAttr sss string
sourceStyleSchemeId = readAttrFromStringProperty "id"
sourceStyleSchemeName :: (SourceStyleSchemeClass sss, GlibString string) => ReadAttr sss string
sourceStyleSchemeName = readAttrFromStringProperty "name"
foreign import ccall safe "gtk_source_style_scheme_get_id"
gtk_source_style_scheme_get_id :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_name"
gtk_source_style_scheme_get_name :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_description"
gtk_source_style_scheme_get_description :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_authors"
gtk_source_style_scheme_get_authors :: ((Ptr SourceStyleScheme) -> (IO (Ptr (Ptr CChar))))
foreign import ccall safe "gtk_source_style_scheme_get_filename"
gtk_source_style_scheme_get_filename :: ((Ptr SourceStyleScheme) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_source_style_scheme_get_style"
gtk_source_style_scheme_get_style :: ((Ptr SourceStyleScheme) -> ((Ptr CChar) -> (IO (Ptr SourceStyleObject))))