#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.Gutter
(
Gutter(..) ,
IsGutter ,
toGutter ,
noGutter ,
#if ENABLE_OVERLOADING
GutterGetPaddingMethodInfo ,
#endif
gutterGetPadding ,
#if ENABLE_OVERLOADING
GutterGetRendererAtPosMethodInfo ,
#endif
gutterGetRendererAtPos ,
#if ENABLE_OVERLOADING
GutterGetViewMethodInfo ,
#endif
gutterGetView ,
#if ENABLE_OVERLOADING
GutterGetWindowMethodInfo ,
#endif
gutterGetWindow ,
#if ENABLE_OVERLOADING
GutterGetWindowTypeMethodInfo ,
#endif
gutterGetWindowType ,
#if ENABLE_OVERLOADING
GutterInsertMethodInfo ,
#endif
gutterInsert ,
#if ENABLE_OVERLOADING
GutterQueueDrawMethodInfo ,
#endif
gutterQueueDraw ,
#if ENABLE_OVERLOADING
GutterRemoveMethodInfo ,
#endif
gutterRemove ,
#if ENABLE_OVERLOADING
GutterReorderMethodInfo ,
#endif
gutterReorder ,
#if ENABLE_OVERLOADING
GutterSetPaddingMethodInfo ,
#endif
gutterSetPadding ,
#if ENABLE_OVERLOADING
GutterViewPropertyInfo ,
#endif
constructGutterView ,
getGutterView ,
#if ENABLE_OVERLOADING
gutterView ,
#endif
#if ENABLE_OVERLOADING
GutterWindowTypePropertyInfo ,
#endif
constructGutterWindowType ,
getGutterWindowType ,
#if ENABLE_OVERLOADING
gutterWindowType ,
#endif
#if ENABLE_OVERLOADING
GutterXpadPropertyInfo ,
#endif
constructGutterXpad ,
getGutterXpad ,
#if ENABLE_OVERLOADING
gutterXpad ,
#endif
setGutterXpad ,
#if ENABLE_OVERLOADING
GutterYpadPropertyInfo ,
#endif
constructGutterYpad ,
getGutterYpad ,
#if ENABLE_OVERLOADING
gutterYpad ,
#endif
setGutterYpad ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Window as Gdk.Window
import qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.GtkSource.Objects.GutterRenderer as GtkSource.GutterRenderer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.View as GtkSource.View
newtype Gutter = Gutter (ManagedPtr Gutter)
foreign import ccall "gtk_source_gutter_get_type"
c_gtk_source_gutter_get_type :: IO GType
instance GObject Gutter where
gobjectType = c_gtk_source_gutter_get_type
class (GObject o, O.IsDescendantOf Gutter o) => IsGutter o
instance (GObject o, O.IsDescendantOf Gutter o) => IsGutter o
instance O.HasParentTypes Gutter
type instance O.ParentTypes Gutter = '[GObject.Object.Object]
toGutter :: (MonadIO m, IsGutter o) => o -> m Gutter
toGutter = liftIO . unsafeCastTo Gutter
noGutter :: Maybe Gutter
noGutter = Nothing
#if ENABLE_OVERLOADING
type family ResolveGutterMethod (t :: Symbol) (o :: *) :: * where
ResolveGutterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGutterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGutterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGutterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGutterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGutterMethod "insert" o = GutterInsertMethodInfo
ResolveGutterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGutterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGutterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGutterMethod "queueDraw" o = GutterQueueDrawMethodInfo
ResolveGutterMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGutterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGutterMethod "remove" o = GutterRemoveMethodInfo
ResolveGutterMethod "reorder" o = GutterReorderMethodInfo
ResolveGutterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGutterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGutterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGutterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGutterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGutterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGutterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGutterMethod "getPadding" o = GutterGetPaddingMethodInfo
ResolveGutterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGutterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGutterMethod "getRendererAtPos" o = GutterGetRendererAtPosMethodInfo
ResolveGutterMethod "getView" o = GutterGetViewMethodInfo
ResolveGutterMethod "getWindow" o = GutterGetWindowMethodInfo
ResolveGutterMethod "getWindowType" o = GutterGetWindowTypeMethodInfo
ResolveGutterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGutterMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGutterMethod "setPadding" o = GutterSetPaddingMethodInfo
ResolveGutterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGutterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGutterMethod t Gutter, O.MethodInfo info Gutter p) => OL.IsLabel t (Gutter -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getGutterView :: (MonadIO m, IsGutter o) => o -> m GtkSource.View.View
getGutterView obj = liftIO $ checkUnexpectedNothing "getGutterView" $ B.Properties.getObjectPropertyObject obj "view" GtkSource.View.View
constructGutterView :: (IsGutter o, GtkSource.View.IsView a) => a -> IO (GValueConstruct o)
constructGutterView val = B.Properties.constructObjectPropertyObject "view" (Just val)
#if ENABLE_OVERLOADING
data GutterViewPropertyInfo
instance AttrInfo GutterViewPropertyInfo where
type AttrAllowedOps GutterViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint GutterViewPropertyInfo = GtkSource.View.IsView
type AttrBaseTypeConstraint GutterViewPropertyInfo = IsGutter
type AttrGetType GutterViewPropertyInfo = GtkSource.View.View
type AttrLabel GutterViewPropertyInfo = "view"
type AttrOrigin GutterViewPropertyInfo = Gutter
attrGet _ = getGutterView
attrSet _ = undefined
attrConstruct _ = constructGutterView
attrClear _ = undefined
#endif
getGutterWindowType :: (MonadIO m, IsGutter o) => o -> m Gtk.Enums.TextWindowType
getGutterWindowType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "window-type"
constructGutterWindowType :: (IsGutter o) => Gtk.Enums.TextWindowType -> IO (GValueConstruct o)
constructGutterWindowType val = B.Properties.constructObjectPropertyEnum "window-type" val
#if ENABLE_OVERLOADING
data GutterWindowTypePropertyInfo
instance AttrInfo GutterWindowTypePropertyInfo where
type AttrAllowedOps GutterWindowTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterWindowTypePropertyInfo = (~) Gtk.Enums.TextWindowType
type AttrBaseTypeConstraint GutterWindowTypePropertyInfo = IsGutter
type AttrGetType GutterWindowTypePropertyInfo = Gtk.Enums.TextWindowType
type AttrLabel GutterWindowTypePropertyInfo = "window-type"
type AttrOrigin GutterWindowTypePropertyInfo = Gutter
attrGet _ = getGutterWindowType
attrSet _ = undefined
attrConstruct _ = constructGutterWindowType
attrClear _ = undefined
#endif
getGutterXpad :: (MonadIO m, IsGutter o) => o -> m Int32
getGutterXpad obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "xpad"
setGutterXpad :: (MonadIO m, IsGutter o) => o -> Int32 -> m ()
setGutterXpad obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "xpad" val
constructGutterXpad :: (IsGutter o) => Int32 -> IO (GValueConstruct o)
constructGutterXpad val = B.Properties.constructObjectPropertyInt32 "xpad" val
#if ENABLE_OVERLOADING
data GutterXpadPropertyInfo
instance AttrInfo GutterXpadPropertyInfo where
type AttrAllowedOps GutterXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterXpadPropertyInfo = (~) Int32
type AttrBaseTypeConstraint GutterXpadPropertyInfo = IsGutter
type AttrGetType GutterXpadPropertyInfo = Int32
type AttrLabel GutterXpadPropertyInfo = "xpad"
type AttrOrigin GutterXpadPropertyInfo = Gutter
attrGet _ = getGutterXpad
attrSet _ = setGutterXpad
attrConstruct _ = constructGutterXpad
attrClear _ = undefined
#endif
getGutterYpad :: (MonadIO m, IsGutter o) => o -> m Int32
getGutterYpad obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "ypad"
setGutterYpad :: (MonadIO m, IsGutter o) => o -> Int32 -> m ()
setGutterYpad obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "ypad" val
constructGutterYpad :: (IsGutter o) => Int32 -> IO (GValueConstruct o)
constructGutterYpad val = B.Properties.constructObjectPropertyInt32 "ypad" val
#if ENABLE_OVERLOADING
data GutterYpadPropertyInfo
instance AttrInfo GutterYpadPropertyInfo where
type AttrAllowedOps GutterYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterYpadPropertyInfo = (~) Int32
type AttrBaseTypeConstraint GutterYpadPropertyInfo = IsGutter
type AttrGetType GutterYpadPropertyInfo = Int32
type AttrLabel GutterYpadPropertyInfo = "ypad"
type AttrOrigin GutterYpadPropertyInfo = Gutter
attrGet _ = getGutterYpad
attrSet _ = setGutterYpad
attrConstruct _ = constructGutterYpad
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList Gutter
type instance O.AttributeList Gutter = GutterAttributeList
type GutterAttributeList = ('[ '("view", GutterViewPropertyInfo), '("windowType", GutterWindowTypePropertyInfo), '("xpad", GutterXpadPropertyInfo), '("ypad", GutterYpadPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
gutterView :: AttrLabelProxy "view"
gutterView = AttrLabelProxy
gutterWindowType :: AttrLabelProxy "windowType"
gutterWindowType = AttrLabelProxy
gutterXpad :: AttrLabelProxy "xpad"
gutterXpad = AttrLabelProxy
gutterYpad :: AttrLabelProxy "ypad"
gutterYpad = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList Gutter = GutterSignalList
type GutterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_gutter_get_padding" gtk_source_gutter_get_padding ::
Ptr Gutter ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED gutterGetPadding ["(Since version 3.12)","Use 'GI.GtkSource.Objects.GutterRenderer.gutterRendererGetPadding' instead."] #-}
gutterGetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> Int32
-> Int32
-> m ()
gutterGetPadding gutter xpad ypad = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
gtk_source_gutter_get_padding gutter' xpad ypad
touchManagedPtr gutter
return ()
#if ENABLE_OVERLOADING
data GutterGetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGutter a) => O.MethodInfo GutterGetPaddingMethodInfo a signature where
overloadedMethod _ = gutterGetPadding
#endif
foreign import ccall "gtk_source_gutter_get_renderer_at_pos" gtk_source_gutter_get_renderer_at_pos ::
Ptr Gutter ->
Int32 ->
Int32 ->
IO (Ptr GtkSource.GutterRenderer.GutterRenderer)
gutterGetRendererAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> Int32
-> Int32
-> m (Maybe GtkSource.GutterRenderer.GutterRenderer)
gutterGetRendererAtPos gutter x y = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
result <- gtk_source_gutter_get_renderer_at_pos gutter' x y
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GtkSource.GutterRenderer.GutterRenderer) result'
return result''
touchManagedPtr gutter
return maybeResult
#if ENABLE_OVERLOADING
data GutterGetRendererAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Maybe GtkSource.GutterRenderer.GutterRenderer)), MonadIO m, IsGutter a) => O.MethodInfo GutterGetRendererAtPosMethodInfo a signature where
overloadedMethod _ = gutterGetRendererAtPos
#endif
foreign import ccall "gtk_source_gutter_get_view" gtk_source_gutter_get_view ::
Ptr Gutter ->
IO (Ptr GtkSource.View.View)
gutterGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m GtkSource.View.View
gutterGetView gutter = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
result <- gtk_source_gutter_get_view gutter'
checkUnexpectedReturnNULL "gutterGetView" result
result' <- (newObject GtkSource.View.View) result
touchManagedPtr gutter
return result'
#if ENABLE_OVERLOADING
data GutterGetViewMethodInfo
instance (signature ~ (m GtkSource.View.View), MonadIO m, IsGutter a) => O.MethodInfo GutterGetViewMethodInfo a signature where
overloadedMethod _ = gutterGetView
#endif
foreign import ccall "gtk_source_gutter_get_window" gtk_source_gutter_get_window ::
Ptr Gutter ->
IO (Ptr Gdk.Window.Window)
{-# DEPRECATED gutterGetWindow ["(Since version 3.12)","Use 'GI.Gtk.Objects.TextView.textViewGetWindow' instead."] #-}
gutterGetWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m Gdk.Window.Window
gutterGetWindow gutter = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
result <- gtk_source_gutter_get_window gutter'
checkUnexpectedReturnNULL "gutterGetWindow" result
result' <- (newObject Gdk.Window.Window) result
touchManagedPtr gutter
return result'
#if ENABLE_OVERLOADING
data GutterGetWindowMethodInfo
instance (signature ~ (m Gdk.Window.Window), MonadIO m, IsGutter a) => O.MethodInfo GutterGetWindowMethodInfo a signature where
overloadedMethod _ = gutterGetWindow
#endif
foreign import ccall "gtk_source_gutter_get_window_type" gtk_source_gutter_get_window_type ::
Ptr Gutter ->
IO CUInt
gutterGetWindowType ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m Gtk.Enums.TextWindowType
gutterGetWindowType gutter = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
result <- gtk_source_gutter_get_window_type gutter'
let result' = (toEnum . fromIntegral) result
touchManagedPtr gutter
return result'
#if ENABLE_OVERLOADING
data GutterGetWindowTypeMethodInfo
instance (signature ~ (m Gtk.Enums.TextWindowType), MonadIO m, IsGutter a) => O.MethodInfo GutterGetWindowTypeMethodInfo a signature where
overloadedMethod _ = gutterGetWindowType
#endif
foreign import ccall "gtk_source_gutter_insert" gtk_source_gutter_insert ::
Ptr Gutter ->
Ptr GtkSource.GutterRenderer.GutterRenderer ->
Int32 ->
IO CInt
gutterInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) =>
a
-> b
-> Int32
-> m Bool
gutterInsert gutter renderer position = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_source_gutter_insert gutter' renderer' position
let result' = (/= 0) result
touchManagedPtr gutter
touchManagedPtr renderer
return result'
#if ENABLE_OVERLOADING
data GutterInsertMethodInfo
instance (signature ~ (b -> Int32 -> m Bool), MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) => O.MethodInfo GutterInsertMethodInfo a signature where
overloadedMethod _ = gutterInsert
#endif
foreign import ccall "gtk_source_gutter_queue_draw" gtk_source_gutter_queue_draw ::
Ptr Gutter ->
IO ()
gutterQueueDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m ()
gutterQueueDraw gutter = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
gtk_source_gutter_queue_draw gutter'
touchManagedPtr gutter
return ()
#if ENABLE_OVERLOADING
data GutterQueueDrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutter a) => O.MethodInfo GutterQueueDrawMethodInfo a signature where
overloadedMethod _ = gutterQueueDraw
#endif
foreign import ccall "gtk_source_gutter_remove" gtk_source_gutter_remove ::
Ptr Gutter ->
Ptr GtkSource.GutterRenderer.GutterRenderer ->
IO ()
gutterRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) =>
a
-> b
-> m ()
gutterRemove gutter renderer = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_source_gutter_remove gutter' renderer'
touchManagedPtr gutter
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) => O.MethodInfo GutterRemoveMethodInfo a signature where
overloadedMethod _ = gutterRemove
#endif
foreign import ccall "gtk_source_gutter_reorder" gtk_source_gutter_reorder ::
Ptr Gutter ->
Ptr GtkSource.GutterRenderer.GutterRenderer ->
Int32 ->
IO ()
gutterReorder ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) =>
a
-> b
-> Int32
-> m ()
gutterReorder gutter renderer position = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_source_gutter_reorder gutter' renderer' position
touchManagedPtr gutter
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterReorderMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) => O.MethodInfo GutterReorderMethodInfo a signature where
overloadedMethod _ = gutterReorder
#endif
foreign import ccall "gtk_source_gutter_set_padding" gtk_source_gutter_set_padding ::
Ptr Gutter ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED gutterSetPadding ["(Since version 3.12)","Use 'GI.GtkSource.Objects.GutterRenderer.gutterRendererSetPadding' instead."] #-}
gutterSetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> Int32
-> Int32
-> m ()
gutterSetPadding gutter xpad ypad = liftIO $ do
gutter' <- unsafeManagedPtrCastPtr gutter
gtk_source_gutter_set_padding gutter' xpad ypad
touchManagedPtr gutter
return ()
#if ENABLE_OVERLOADING
data GutterSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGutter a) => O.MethodInfo GutterSetPaddingMethodInfo a signature where
overloadedMethod _ = gutterSetPadding
#endif