module Graphics.UI.Gtk.SourceView.SourceCompletionItem (
SourceCompletionItem,
SourceCompletionItemClass,
sourceCompletionItemNew,
sourceCompletionItemNewWithMarkup,
sourceCompletionItemNewFromStock,
sourceCompletionItemIcon,
sourceCompletionItemInfo,
sourceCompletionItemLabel,
sourceCompletionItemMarkup,
sourceCompletionItemText,
) where
import Control.Monad (liftM)
import Data.Maybe (fromMaybe)
import System.Glib.Attributes
import System.Glib.FFI
import System.Glib.GObject (wrapNewGObject)
import System.Glib.Properties
import System.Glib.UTFString
import Graphics.UI.Gtk.SourceView.Signals
import Graphics.UI.Gtk.SourceView.Types
sourceCompletionItemNew :: GlibString string
=> string
-> string
-> Maybe Pixbuf
-> string
-> IO SourceCompletionItem
sourceCompletionItemNew label text icon info =
wrapNewGObject mkSourceCompletionItem $
withUTFString label $ \ labelPtr ->
withUTFString text $ \ textPtr ->
withUTFString info $ \ infoPtr ->
(\arg1 arg2 (Pixbuf arg3) arg4 -> withForeignPtr arg3 $ \argPtr3 ->gtk_source_completion_item_new arg1 arg2 argPtr3 arg4)
labelPtr
textPtr
(fromMaybe (Pixbuf nullForeignPtr) icon)
infoPtr
sourceCompletionItemNewWithMarkup :: GlibString string
=> string
-> string
-> Maybe Pixbuf
-> string
-> IO SourceCompletionItem
sourceCompletionItemNewWithMarkup markup text icon info =
wrapNewGObject mkSourceCompletionItem $
withUTFString markup $ \ markupPtr ->
withUTFString text $ \ textPtr ->
withUTFString info $ \ infoPtr ->
(\arg1 arg2 (Pixbuf arg3) arg4 -> withForeignPtr arg3 $ \argPtr3 ->gtk_source_completion_item_new_with_markup arg1 arg2 argPtr3 arg4)
markupPtr
textPtr
(fromMaybe (Pixbuf nullForeignPtr) icon)
infoPtr
sourceCompletionItemNewFromStock :: GlibString string
=> Maybe string
-> string
-> string
-> string
-> IO SourceCompletionItem
sourceCompletionItemNewFromStock label text stock info =
wrapNewGObject mkSourceCompletionItem $
maybeWith withUTFString label $ \ labelPtr ->
withUTFString text $ \ textPtr ->
withUTFString stock $ \ stockPtr ->
withUTFString info $ \ infoPtr ->
gtk_source_completion_item_new_from_stock
labelPtr
textPtr
stockPtr
infoPtr
sourceCompletionItemIcon :: SourceCompletionItemClass item => Attr item Pixbuf
sourceCompletionItemIcon = newAttrFromObjectProperty "icon"
gdk_pixbuf_get_type
sourceCompletionItemInfo :: (SourceCompletionItemClass item, GlibString string) => Attr item string
sourceCompletionItemInfo = newAttrFromStringProperty "info"
sourceCompletionItemLabel :: (SourceCompletionItemClass item, GlibString string) => Attr item string
sourceCompletionItemLabel = newAttrFromStringProperty "label"
sourceCompletionItemMarkup :: (SourceCompletionItemClass item, GlibString string) => Attr item string
sourceCompletionItemMarkup = newAttrFromStringProperty "markup"
sourceCompletionItemText :: (SourceCompletionItemClass item, GlibString string) => Attr item string
sourceCompletionItemText = newAttrFromStringProperty "text"
foreign import ccall safe "gtk_source_completion_item_new"
gtk_source_completion_item_new :: ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr Pixbuf) -> ((Ptr CChar) -> (IO (Ptr SourceCompletionItem))))))
foreign import ccall safe "gtk_source_completion_item_new_with_markup"
gtk_source_completion_item_new_with_markup :: ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr Pixbuf) -> ((Ptr CChar) -> (IO (Ptr SourceCompletionItem))))))
foreign import ccall safe "gtk_source_completion_item_new_from_stock"
gtk_source_completion_item_new_from_stock :: ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO (Ptr SourceCompletionItem))))))
foreign import ccall unsafe "gdk_pixbuf_get_type"
gdk_pixbuf_get_type :: CULong