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 (constructNewGObject)
import System.Glib.UTFString
import Graphics.UI.Gtk.SourceView.SourceStyle.Internal
import Graphics.UI.Gtk.SourceView.Types
import System.Glib.Properties
sourceStyleSchemeGetId :: SourceStyleSchemeClass sss => sss
-> IO String
sourceStyleSchemeGetId ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_id argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetName :: SourceStyleSchemeClass sss => sss
-> IO String
sourceStyleSchemeGetName ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_name argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetDescription :: SourceStyleSchemeClass sss => sss
-> IO String
sourceStyleSchemeGetDescription ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_description argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetAuthors :: SourceStyleSchemeClass sss => sss
-> IO [String]
sourceStyleSchemeGetAuthors ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_authors argPtr1) (toSourceStyleScheme ss) >>= peekUTFStringArray0
sourceStyleSchemeGetFilename :: SourceStyleSchemeClass sss => sss
-> IO String
sourceStyleSchemeGetFilename ss =
(\(SourceStyleScheme arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_style_scheme_get_filename argPtr1) (toSourceStyleScheme ss) >>= peekUTFString
sourceStyleSchemeGetStyle :: SourceStyleSchemeClass sss => 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 => ReadAttr sss String
sourceStyleSchemeDescription = readAttrFromStringProperty "description"
sourceStyleSchemeFilename :: SourceStyleSchemeClass sss => ReadAttr sss FilePath
sourceStyleSchemeFilename = readAttrFromStringProperty "filename"
sourceStyleSchemeId :: SourceStyleSchemeClass sss => ReadAttr sss String
sourceStyleSchemeId = readAttrFromStringProperty "id"
sourceStyleSchemeName :: SourceStyleSchemeClass sss => 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))))