gi-gtksource-0.3.18.14: GI/GtkSource/Objects/GutterRendererText.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.GtkSource.Objects.GutterRendererText
(
-- * Exported types
GutterRendererText(..) ,
GutterRendererTextK ,
toGutterRendererText ,
noGutterRendererText ,
-- * Methods
-- ** gutterRendererTextMeasure
GutterRendererTextMeasureMethodInfo ,
gutterRendererTextMeasure ,
-- ** gutterRendererTextMeasureMarkup
GutterRendererTextMeasureMarkupMethodInfo,
gutterRendererTextMeasureMarkup ,
-- ** gutterRendererTextNew
gutterRendererTextNew ,
-- ** gutterRendererTextSetMarkup
GutterRendererTextSetMarkupMethodInfo ,
gutterRendererTextSetMarkup ,
-- ** gutterRendererTextSetText
GutterRendererTextSetTextMethodInfo ,
gutterRendererTextSetText ,
-- * Properties
-- ** Markup
GutterRendererTextMarkupPropertyInfo ,
clearGutterRendererTextMarkup ,
constructGutterRendererTextMarkup ,
getGutterRendererTextMarkup ,
gutterRendererTextMarkup ,
setGutterRendererTextMarkup ,
-- ** Text
GutterRendererTextTextPropertyInfo ,
clearGutterRendererTextText ,
constructGutterRendererTextText ,
getGutterRendererTextText ,
gutterRendererTextText ,
setGutterRendererTextText ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.GtkSource.Types
import GI.GtkSource.Callbacks
import qualified GI.GObject as GObject
newtype GutterRendererText = GutterRendererText (ForeignPtr GutterRendererText)
foreign import ccall "gtk_source_gutter_renderer_text_get_type"
c_gtk_source_gutter_renderer_text_get_type :: IO GType
type instance ParentTypes GutterRendererText = GutterRendererTextParentTypes
type GutterRendererTextParentTypes = '[GutterRenderer, GObject.Object]
instance GObject GutterRendererText where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_source_gutter_renderer_text_get_type
class GObject o => GutterRendererTextK o
instance (GObject o, IsDescendantOf GutterRendererText o) => GutterRendererTextK o
toGutterRendererText :: GutterRendererTextK o => o -> IO GutterRendererText
toGutterRendererText = unsafeCastTo GutterRendererText
noGutterRendererText :: Maybe GutterRendererText
noGutterRendererText = Nothing
type family ResolveGutterRendererTextMethod (t :: Symbol) (o :: *) :: * where
ResolveGutterRendererTextMethod "activate" o = GutterRendererActivateMethodInfo
ResolveGutterRendererTextMethod "begin" o = GutterRendererBeginMethodInfo
ResolveGutterRendererTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveGutterRendererTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveGutterRendererTextMethod "draw" o = GutterRendererDrawMethodInfo
ResolveGutterRendererTextMethod "end" o = GutterRendererEndMethodInfo
ResolveGutterRendererTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveGutterRendererTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveGutterRendererTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveGutterRendererTextMethod "measure" o = GutterRendererTextMeasureMethodInfo
ResolveGutterRendererTextMethod "measureMarkup" o = GutterRendererTextMeasureMarkupMethodInfo
ResolveGutterRendererTextMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveGutterRendererTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveGutterRendererTextMethod "queryActivatable" o = GutterRendererQueryActivatableMethodInfo
ResolveGutterRendererTextMethod "queryData" o = GutterRendererQueryDataMethodInfo
ResolveGutterRendererTextMethod "queryTooltip" o = GutterRendererQueryTooltipMethodInfo
ResolveGutterRendererTextMethod "queueDraw" o = GutterRendererQueueDrawMethodInfo
ResolveGutterRendererTextMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveGutterRendererTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveGutterRendererTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveGutterRendererTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveGutterRendererTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveGutterRendererTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveGutterRendererTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveGutterRendererTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveGutterRendererTextMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveGutterRendererTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveGutterRendererTextMethod "getAlignment" o = GutterRendererGetAlignmentMethodInfo
ResolveGutterRendererTextMethod "getAlignmentMode" o = GutterRendererGetAlignmentModeMethodInfo
ResolveGutterRendererTextMethod "getBackground" o = GutterRendererGetBackgroundMethodInfo
ResolveGutterRendererTextMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveGutterRendererTextMethod "getPadding" o = GutterRendererGetPaddingMethodInfo
ResolveGutterRendererTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveGutterRendererTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveGutterRendererTextMethod "getSize" o = GutterRendererGetSizeMethodInfo
ResolveGutterRendererTextMethod "getView" o = GutterRendererGetViewMethodInfo
ResolveGutterRendererTextMethod "getVisible" o = GutterRendererGetVisibleMethodInfo
ResolveGutterRendererTextMethod "getWindowType" o = GutterRendererGetWindowTypeMethodInfo
ResolveGutterRendererTextMethod "setAlignment" o = GutterRendererSetAlignmentMethodInfo
ResolveGutterRendererTextMethod "setAlignmentMode" o = GutterRendererSetAlignmentModeMethodInfo
ResolveGutterRendererTextMethod "setBackground" o = GutterRendererSetBackgroundMethodInfo
ResolveGutterRendererTextMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveGutterRendererTextMethod "setMarkup" o = GutterRendererTextSetMarkupMethodInfo
ResolveGutterRendererTextMethod "setPadding" o = GutterRendererSetPaddingMethodInfo
ResolveGutterRendererTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveGutterRendererTextMethod "setSize" o = GutterRendererSetSizeMethodInfo
ResolveGutterRendererTextMethod "setText" o = GutterRendererTextSetTextMethodInfo
ResolveGutterRendererTextMethod "setVisible" o = GutterRendererSetVisibleMethodInfo
ResolveGutterRendererTextMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveGutterRendererTextMethod t GutterRendererText, MethodInfo info GutterRendererText p) => IsLabelProxy t (GutterRendererText -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveGutterRendererTextMethod t GutterRendererText, MethodInfo info GutterRendererText p) => IsLabel t (GutterRendererText -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "markup"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Nothing,Nothing)
getGutterRendererTextMarkup :: (MonadIO m, GutterRendererTextK o) => o -> m (Maybe T.Text)
getGutterRendererTextMarkup obj = liftIO $ getObjectPropertyString obj "markup"
setGutterRendererTextMarkup :: (MonadIO m, GutterRendererTextK o) => o -> T.Text -> m ()
setGutterRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" (Just val)
constructGutterRendererTextMarkup :: T.Text -> IO ([Char], GValue)
constructGutterRendererTextMarkup val = constructObjectPropertyString "markup" (Just val)
clearGutterRendererTextMarkup :: (MonadIO m, GutterRendererTextK o) => o -> m ()
clearGutterRendererTextMarkup obj = liftIO $ setObjectPropertyString obj "markup" (Nothing :: Maybe T.Text)
data GutterRendererTextMarkupPropertyInfo
instance AttrInfo GutterRendererTextMarkupPropertyInfo where
type AttrAllowedOps GutterRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint GutterRendererTextMarkupPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint GutterRendererTextMarkupPropertyInfo = GutterRendererTextK
type AttrGetType GutterRendererTextMarkupPropertyInfo = (Maybe T.Text)
type AttrLabel GutterRendererTextMarkupPropertyInfo = "markup"
attrGet _ = getGutterRendererTextMarkup
attrSet _ = setGutterRendererTextMarkup
attrConstruct _ = constructGutterRendererTextMarkup
attrClear _ = clearGutterRendererTextMarkup
-- VVV Prop "text"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Nothing,Nothing)
getGutterRendererTextText :: (MonadIO m, GutterRendererTextK o) => o -> m (Maybe T.Text)
getGutterRendererTextText obj = liftIO $ getObjectPropertyString obj "text"
setGutterRendererTextText :: (MonadIO m, GutterRendererTextK o) => o -> T.Text -> m ()
setGutterRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" (Just val)
constructGutterRendererTextText :: T.Text -> IO ([Char], GValue)
constructGutterRendererTextText val = constructObjectPropertyString "text" (Just val)
clearGutterRendererTextText :: (MonadIO m, GutterRendererTextK o) => o -> m ()
clearGutterRendererTextText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text)
data GutterRendererTextTextPropertyInfo
instance AttrInfo GutterRendererTextTextPropertyInfo where
type AttrAllowedOps GutterRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint GutterRendererTextTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint GutterRendererTextTextPropertyInfo = GutterRendererTextK
type AttrGetType GutterRendererTextTextPropertyInfo = (Maybe T.Text)
type AttrLabel GutterRendererTextTextPropertyInfo = "text"
attrGet _ = getGutterRendererTextText
attrSet _ = setGutterRendererTextText
attrConstruct _ = constructGutterRendererTextText
attrClear _ = clearGutterRendererTextText
type instance AttributeList GutterRendererText = GutterRendererTextAttributeList
type GutterRendererTextAttributeList = ('[ '("alignmentMode", GutterRendererAlignmentModePropertyInfo), '("backgroundRgba", GutterRendererBackgroundRgbaPropertyInfo), '("backgroundSet", GutterRendererBackgroundSetPropertyInfo), '("markup", GutterRendererTextMarkupPropertyInfo), '("size", GutterRendererSizePropertyInfo), '("text", GutterRendererTextTextPropertyInfo), '("view", GutterRendererViewPropertyInfo), '("visible", GutterRendererVisiblePropertyInfo), '("windowType", GutterRendererWindowTypePropertyInfo), '("xalign", GutterRendererXalignPropertyInfo), '("xpad", GutterRendererXpadPropertyInfo), '("yalign", GutterRendererYalignPropertyInfo), '("ypad", GutterRendererYpadPropertyInfo)] :: [(Symbol, *)])
gutterRendererTextMarkup :: AttrLabelProxy "markup"
gutterRendererTextMarkup = AttrLabelProxy
gutterRendererTextText :: AttrLabelProxy "text"
gutterRendererTextText = AttrLabelProxy
type instance SignalList GutterRendererText = GutterRendererTextSignalList
type GutterRendererTextSignalList = ('[ '("activate", GutterRendererActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("queryActivatable", GutterRendererQueryActivatableSignalInfo), '("queryData", GutterRendererQueryDataSignalInfo), '("queryTooltip", GutterRendererQueryTooltipSignalInfo), '("queueDraw", GutterRendererQueueDrawSignalInfo)] :: [(Symbol, *)])
-- method GutterRendererText::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : Just (TInterface "GtkSource" "GutterRendererText")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_gutter_renderer_text_new" gtk_source_gutter_renderer_text_new ::
IO (Ptr GutterRendererText)
gutterRendererTextNew ::
(MonadIO m) =>
m GutterRendererText -- result
gutterRendererTextNew = liftIO $ do
result <- gtk_source_gutter_renderer_text_new
checkUnexpectedReturnNULL "gtk_source_gutter_renderer_text_new" result
result' <- (wrapObject GutterRendererText) result
return result'
-- method GutterRendererText::measure
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_gutter_renderer_text_measure" gtk_source_gutter_renderer_text_measure ::
Ptr GutterRendererText -> -- _obj : TInterface "GtkSource" "GutterRendererText"
CString -> -- text : TBasicType TUTF8
Ptr Int32 -> -- width : TBasicType TInt
Ptr Int32 -> -- height : TBasicType TInt
IO ()
gutterRendererTextMeasure ::
(MonadIO m, GutterRendererTextK a) =>
a -- _obj
-> T.Text -- text
-> m (Int32,Int32) -- result
gutterRendererTextMeasure _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_source_gutter_renderer_text_measure _obj' text' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem text'
freeMem width
freeMem height
return (width', height')
data GutterRendererTextMeasureMethodInfo
instance (signature ~ (T.Text -> m (Int32,Int32)), MonadIO m, GutterRendererTextK a) => MethodInfo GutterRendererTextMeasureMethodInfo a signature where
overloadedMethod _ = gutterRendererTextMeasure
-- method GutterRendererText::measure_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_gutter_renderer_text_measure_markup" gtk_source_gutter_renderer_text_measure_markup ::
Ptr GutterRendererText -> -- _obj : TInterface "GtkSource" "GutterRendererText"
CString -> -- markup : TBasicType TUTF8
Ptr Int32 -> -- width : TBasicType TInt
Ptr Int32 -> -- height : TBasicType TInt
IO ()
gutterRendererTextMeasureMarkup ::
(MonadIO m, GutterRendererTextK a) =>
a -- _obj
-> T.Text -- markup
-> m (Int32,Int32) -- result
gutterRendererTextMeasureMarkup _obj markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
markup' <- textToCString markup
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_source_gutter_renderer_text_measure_markup _obj' markup' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem markup'
freeMem width
freeMem height
return (width', height')
data GutterRendererTextMeasureMarkupMethodInfo
instance (signature ~ (T.Text -> m (Int32,Int32)), MonadIO m, GutterRendererTextK a) => MethodInfo GutterRendererTextMeasureMarkupMethodInfo a signature where
overloadedMethod _ = gutterRendererTextMeasureMarkup
-- method GutterRendererText::set_markup
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_gutter_renderer_text_set_markup" gtk_source_gutter_renderer_text_set_markup ::
Ptr GutterRendererText -> -- _obj : TInterface "GtkSource" "GutterRendererText"
CString -> -- markup : TBasicType TUTF8
Int32 -> -- length : TBasicType TInt
IO ()
gutterRendererTextSetMarkup ::
(MonadIO m, GutterRendererTextK a) =>
a -- _obj
-> T.Text -- markup
-> Int32 -- length_
-> m () -- result
gutterRendererTextSetMarkup _obj markup length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
markup' <- textToCString markup
gtk_source_gutter_renderer_text_set_markup _obj' markup' length_
touchManagedPtr _obj
freeMem markup'
return ()
data GutterRendererTextSetMarkupMethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, GutterRendererTextK a) => MethodInfo GutterRendererTextSetMarkupMethodInfo a signature where
overloadedMethod _ = gutterRendererTextSetMarkup
-- method GutterRendererText::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_gutter_renderer_text_set_text" gtk_source_gutter_renderer_text_set_text ::
Ptr GutterRendererText -> -- _obj : TInterface "GtkSource" "GutterRendererText"
CString -> -- text : TBasicType TUTF8
Int32 -> -- length : TBasicType TInt
IO ()
gutterRendererTextSetText ::
(MonadIO m, GutterRendererTextK a) =>
a -- _obj
-> T.Text -- text
-> Int32 -- length_
-> m () -- result
gutterRendererTextSetText _obj text length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_source_gutter_renderer_text_set_text _obj' text' length_
touchManagedPtr _obj
freeMem text'
return ()
data GutterRendererTextSetTextMethodInfo
instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, GutterRendererTextK a) => MethodInfo GutterRendererTextSetTextMethodInfo a signature where
overloadedMethod _ = gutterRendererTextSetText