{-# LINE 2 "./Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs" #-}-- -*-haskell-*--- GIMP Toolkit (GTK) SourceStyleScheme---- Author : Peter Gavin-- derived from sourceview bindings by Axel Simon and Duncan Coutts---- Created: 18 December 2008---- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon---- This library is free software; you can redistribute it and/or-- modify it under the terms of the GNU Lesser General Public-- License as published by the Free Software Foundation; either-- version 2.1 of the License, or (at your option) any later version.---- This library is distributed in the hope that it will be useful,-- but WITHOUT ANY WARRANTY; without even the implied warranty of-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU-- Lesser General Public License for more details.---- |-- Maintainer : gtk2hs-users@lists.sourceforge.net-- Stability : provisional-- Portability : portable (depends on GHC)--moduleGraphics.UI.Gtk.SourceView.SourceStyleScheme(SourceStyleScheme,castToSourceStyleScheme,sourceStyleSchemeGetId,sourceStyleSchemeGetName,sourceStyleSchemeGetDescription,sourceStyleSchemeGetAuthors,sourceStyleSchemeGetFilename,sourceStyleSchemeGetStyle,sourceStyleSchemeDescription,sourceStyleSchemeFilename,sourceStyleSchemeId,sourceStyleSchemeName,)whereimportControl.Monad(liftM)importSystem.Glib.FFIimportSystem.Glib.UTFStringimportSystem.Glib.GObject(constructNewGObject)importSystem.Glib.AttributesimportSystem.Glib.Properties{-# LINE 49 "./Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs" #-}importGraphics.UI.Gtk.SourceView.Types{-# LINE 50 "./Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs" #-}importGraphics.UI.Gtk.SourceView.SourceStyleimportGraphics.UI.Gtk.SourceView.SourceStyle.Internal{-# LINE 52 "./Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs" #-}{-# LINE 54 "./Graphics/UI/Gtk/SourceView/SourceStyleScheme.chs" #-}-- methods-- |--sourceStyleSchemeGetId::SourceStyleScheme->IOStringsourceStyleSchemeGetIdss=(\(SourceStyleSchemearg1)->withForeignPtrarg1$\argPtr1->gtk_source_style_scheme_get_idargPtr1)ss>>=peekUTFString-- |--sourceStyleSchemeGetName::SourceStyleScheme->IOStringsourceStyleSchemeGetNamess=(\(SourceStyleSchemearg1)->withForeignPtrarg1$\argPtr1->gtk_source_style_scheme_get_nameargPtr1)ss>>=peekUTFString-- |--sourceStyleSchemeGetDescription::SourceStyleScheme->IOStringsourceStyleSchemeGetDescriptionss=(\(SourceStyleSchemearg1)->withForeignPtrarg1$\argPtr1->gtk_source_style_scheme_get_descriptionargPtr1)ss>>=peekUTFString-- |--sourceStyleSchemeGetAuthors::SourceStyleScheme->IO[String]sourceStyleSchemeGetAuthorsss=(\(SourceStyleSchemearg1)->withForeignPtrarg1$\argPtr1->gtk_source_style_scheme_get_authorsargPtr1)ss>>=peekUTFStringArray0-- |--sourceStyleSchemeGetFilename::SourceStyleScheme->IOStringsourceStyleSchemeGetFilenamess=(\(SourceStyleSchemearg1)->withForeignPtrarg1$\argPtr1->gtk_source_style_scheme_get_filenameargPtr1)ss>>=peekUTFString-- |--sourceStyleSchemeGetStyle::SourceStyleScheme->String->IOSourceStylesourceStyleSchemeGetStylessid=dostyleObj<-makeNewGObjectmkSourceStyleObject$withUTFStringid((\(SourceStyleSchemearg1)arg2->withForeignPtrarg1$\argPtr1->gtk_source_style_scheme_get_styleargPtr1arg2)ss)sourceStyleFromObjectstyleObj-- |--sourceStyleSchemeDescription::ReadAttrSourceStyleSchemeStringsourceStyleSchemeDescription=readAttrFromStringProperty"description"-- |--sourceStyleSchemeFilename::ReadAttrSourceStyleSchemeFilePathsourceStyleSchemeFilename=readAttrFromStringProperty"filename"-- |--sourceStyleSchemeId::ReadAttrSourceStyleSchemeStringsourceStyleSchemeId=readAttrFromStringProperty"id"-- |--sourceStyleSchemeName::ReadAttrSourceStyleSchemeStringsourceStyleSchemeName=readAttrFromStringProperty"name"foreignimportccallsafe"gtk_source_style_scheme_get_id"gtk_source_style_scheme_get_id::((PtrSourceStyleScheme)->(IO(PtrCChar)))foreignimportccallsafe"gtk_source_style_scheme_get_name"gtk_source_style_scheme_get_name::((PtrSourceStyleScheme)->(IO(PtrCChar)))foreignimportccallsafe"gtk_source_style_scheme_get_description"gtk_source_style_scheme_get_description::((PtrSourceStyleScheme)->(IO(PtrCChar)))foreignimportccallsafe"gtk_source_style_scheme_get_authors"gtk_source_style_scheme_get_authors::((PtrSourceStyleScheme)->(IO(Ptr(PtrCChar))))foreignimportccallsafe"gtk_source_style_scheme_get_filename"gtk_source_style_scheme_get_filename::((PtrSourceStyleScheme)->(IO(PtrCChar)))foreignimportccallsafe"gtk_source_style_scheme_get_style"gtk_source_style_scheme_get_style::((PtrSourceStyleScheme)->((PtrCChar)->(IO(PtrSourceStyleObject))))