{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.PrintCompositor
(
PrintCompositor(..) ,
IsPrintCompositor ,
toPrintCompositor ,
#if defined(ENABLE_OVERLOADING)
ResolvePrintCompositorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PrintCompositorDrawPageMethodInfo ,
#endif
printCompositorDrawPage ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetBodyFontNameMethodInfo,
#endif
printCompositorGetBodyFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetBottomMarginMethodInfo,
#endif
printCompositorGetBottomMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetBufferMethodInfo ,
#endif
printCompositorGetBuffer ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetFooterFontNameMethodInfo,
#endif
printCompositorGetFooterFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetHeaderFontNameMethodInfo,
#endif
printCompositorGetHeaderFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetHighlightSyntaxMethodInfo,
#endif
printCompositorGetHighlightSyntax ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetLeftMarginMethodInfo ,
#endif
printCompositorGetLeftMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetLineNumbersFontNameMethodInfo,
#endif
printCompositorGetLineNumbersFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetNPagesMethodInfo ,
#endif
printCompositorGetNPages ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetPaginationProgressMethodInfo,
#endif
printCompositorGetPaginationProgress ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetPrintFooterMethodInfo ,
#endif
printCompositorGetPrintFooter ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetPrintHeaderMethodInfo ,
#endif
printCompositorGetPrintHeader ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetPrintLineNumbersMethodInfo,
#endif
printCompositorGetPrintLineNumbers ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetRightMarginMethodInfo ,
#endif
printCompositorGetRightMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetTabWidthMethodInfo ,
#endif
printCompositorGetTabWidth ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetTopMarginMethodInfo ,
#endif
printCompositorGetTopMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorGetWrapModeMethodInfo ,
#endif
printCompositorGetWrapMode ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorIgnoreTagMethodInfo ,
#endif
printCompositorIgnoreTag ,
printCompositorNew ,
printCompositorNewFromView ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorPaginateMethodInfo ,
#endif
printCompositorPaginate ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetBodyFontNameMethodInfo,
#endif
printCompositorSetBodyFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetBottomMarginMethodInfo,
#endif
printCompositorSetBottomMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetFooterFontNameMethodInfo,
#endif
printCompositorSetFooterFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetFooterFormatMethodInfo,
#endif
printCompositorSetFooterFormat ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetHeaderFontNameMethodInfo,
#endif
printCompositorSetHeaderFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetHeaderFormatMethodInfo,
#endif
printCompositorSetHeaderFormat ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetHighlightSyntaxMethodInfo,
#endif
printCompositorSetHighlightSyntax ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetLeftMarginMethodInfo ,
#endif
printCompositorSetLeftMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetLineNumbersFontNameMethodInfo,
#endif
printCompositorSetLineNumbersFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetPrintFooterMethodInfo ,
#endif
printCompositorSetPrintFooter ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetPrintHeaderMethodInfo ,
#endif
printCompositorSetPrintHeader ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetPrintLineNumbersMethodInfo,
#endif
printCompositorSetPrintLineNumbers ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetRightMarginMethodInfo ,
#endif
printCompositorSetRightMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetTabWidthMethodInfo ,
#endif
printCompositorSetTabWidth ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetTopMarginMethodInfo ,
#endif
printCompositorSetTopMargin ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorSetWrapModeMethodInfo ,
#endif
printCompositorSetWrapMode ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorBodyFontNamePropertyInfo ,
#endif
constructPrintCompositorBodyFontName ,
getPrintCompositorBodyFontName ,
#if defined(ENABLE_OVERLOADING)
printCompositorBodyFontName ,
#endif
setPrintCompositorBodyFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorBufferPropertyInfo ,
#endif
constructPrintCompositorBuffer ,
getPrintCompositorBuffer ,
#if defined(ENABLE_OVERLOADING)
printCompositorBuffer ,
#endif
#if defined(ENABLE_OVERLOADING)
PrintCompositorFooterFontNamePropertyInfo,
#endif
clearPrintCompositorFooterFontName ,
constructPrintCompositorFooterFontName ,
getPrintCompositorFooterFontName ,
#if defined(ENABLE_OVERLOADING)
printCompositorFooterFontName ,
#endif
setPrintCompositorFooterFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorHeaderFontNamePropertyInfo,
#endif
clearPrintCompositorHeaderFontName ,
constructPrintCompositorHeaderFontName ,
getPrintCompositorHeaderFontName ,
#if defined(ENABLE_OVERLOADING)
printCompositorHeaderFontName ,
#endif
setPrintCompositorHeaderFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorHighlightSyntaxPropertyInfo,
#endif
constructPrintCompositorHighlightSyntax ,
getPrintCompositorHighlightSyntax ,
#if defined(ENABLE_OVERLOADING)
printCompositorHighlightSyntax ,
#endif
setPrintCompositorHighlightSyntax ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorLineNumbersFontNamePropertyInfo,
#endif
clearPrintCompositorLineNumbersFontName ,
constructPrintCompositorLineNumbersFontName,
getPrintCompositorLineNumbersFontName ,
#if defined(ENABLE_OVERLOADING)
printCompositorLineNumbersFontName ,
#endif
setPrintCompositorLineNumbersFontName ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorNPagesPropertyInfo ,
#endif
getPrintCompositorNPages ,
#if defined(ENABLE_OVERLOADING)
printCompositorNPages ,
#endif
#if defined(ENABLE_OVERLOADING)
PrintCompositorPrintFooterPropertyInfo ,
#endif
constructPrintCompositorPrintFooter ,
getPrintCompositorPrintFooter ,
#if defined(ENABLE_OVERLOADING)
printCompositorPrintFooter ,
#endif
setPrintCompositorPrintFooter ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorPrintHeaderPropertyInfo ,
#endif
constructPrintCompositorPrintHeader ,
getPrintCompositorPrintHeader ,
#if defined(ENABLE_OVERLOADING)
printCompositorPrintHeader ,
#endif
setPrintCompositorPrintHeader ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorPrintLineNumbersPropertyInfo,
#endif
constructPrintCompositorPrintLineNumbers,
getPrintCompositorPrintLineNumbers ,
#if defined(ENABLE_OVERLOADING)
printCompositorPrintLineNumbers ,
#endif
setPrintCompositorPrintLineNumbers ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorTabWidthPropertyInfo ,
#endif
constructPrintCompositorTabWidth ,
getPrintCompositorTabWidth ,
#if defined(ENABLE_OVERLOADING)
printCompositorTabWidth ,
#endif
setPrintCompositorTabWidth ,
#if defined(ENABLE_OVERLOADING)
PrintCompositorWrapModePropertyInfo ,
#endif
constructPrintCompositorWrapMode ,
getPrintCompositorWrapMode ,
#if defined(ENABLE_OVERLOADING)
printCompositorWrapMode ,
#endif
setPrintCompositorWrapMode ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Objects.PrintContext as Gtk.PrintContext
import qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Buffer as GtkSource.Buffer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.View as GtkSource.View
newtype PrintCompositor = PrintCompositor (SP.ManagedPtr PrintCompositor)
deriving (PrintCompositor -> PrintCompositor -> Bool
(PrintCompositor -> PrintCompositor -> Bool)
-> (PrintCompositor -> PrintCompositor -> Bool)
-> Eq PrintCompositor
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PrintCompositor -> PrintCompositor -> Bool
== :: PrintCompositor -> PrintCompositor -> Bool
$c/= :: PrintCompositor -> PrintCompositor -> Bool
/= :: PrintCompositor -> PrintCompositor -> Bool
Eq)
instance SP.ManagedPtrNewtype PrintCompositor where
toManagedPtr :: PrintCompositor -> ManagedPtr PrintCompositor
toManagedPtr (PrintCompositor ManagedPtr PrintCompositor
p) = ManagedPtr PrintCompositor
p
foreign import ccall "gtk_source_print_compositor_get_type"
c_gtk_source_print_compositor_get_type :: IO B.Types.GType
instance B.Types.TypedObject PrintCompositor where
glibType :: IO GType
glibType = IO GType
c_gtk_source_print_compositor_get_type
instance B.Types.GObject PrintCompositor
class (SP.GObject o, O.IsDescendantOf PrintCompositor o) => IsPrintCompositor o
instance (SP.GObject o, O.IsDescendantOf PrintCompositor o) => IsPrintCompositor o
instance O.HasParentTypes PrintCompositor
type instance O.ParentTypes PrintCompositor = '[GObject.Object.Object]
toPrintCompositor :: (MIO.MonadIO m, IsPrintCompositor o) => o -> m PrintCompositor
toPrintCompositor :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m PrintCompositor
toPrintCompositor = IO PrintCompositor -> m PrintCompositor
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PrintCompositor -> m PrintCompositor)
-> (o -> IO PrintCompositor) -> o -> m PrintCompositor
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr PrintCompositor -> PrintCompositor)
-> o -> IO PrintCompositor
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr PrintCompositor -> PrintCompositor
PrintCompositor
instance B.GValue.IsGValue (Maybe PrintCompositor) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_print_compositor_get_type
gvalueSet_ :: Ptr GValue -> Maybe PrintCompositor -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PrintCompositor
P.Nothing = Ptr GValue -> Ptr PrintCompositor -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr PrintCompositor
forall a. Ptr a
FP.nullPtr :: FP.Ptr PrintCompositor)
gvalueSet_ Ptr GValue
gv (P.Just PrintCompositor
obj) = PrintCompositor -> (Ptr PrintCompositor -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PrintCompositor
obj (Ptr GValue -> Ptr PrintCompositor -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PrintCompositor)
gvalueGet_ Ptr GValue
gv = do
Ptr PrintCompositor
ptr <- Ptr GValue -> IO (Ptr PrintCompositor)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr PrintCompositor)
if Ptr PrintCompositor
ptr Ptr PrintCompositor -> Ptr PrintCompositor -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr PrintCompositor
forall a. Ptr a
FP.nullPtr
then PrintCompositor -> Maybe PrintCompositor
forall a. a -> Maybe a
P.Just (PrintCompositor -> Maybe PrintCompositor)
-> IO PrintCompositor -> IO (Maybe PrintCompositor)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr PrintCompositor -> PrintCompositor)
-> Ptr PrintCompositor -> IO PrintCompositor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr PrintCompositor -> PrintCompositor
PrintCompositor Ptr PrintCompositor
ptr
else Maybe PrintCompositor -> IO (Maybe PrintCompositor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PrintCompositor
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePrintCompositorMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePrintCompositorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePrintCompositorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePrintCompositorMethod "drawPage" o = PrintCompositorDrawPageMethodInfo
ResolvePrintCompositorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePrintCompositorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePrintCompositorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePrintCompositorMethod "ignoreTag" o = PrintCompositorIgnoreTagMethodInfo
ResolvePrintCompositorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePrintCompositorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePrintCompositorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePrintCompositorMethod "paginate" o = PrintCompositorPaginateMethodInfo
ResolvePrintCompositorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePrintCompositorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePrintCompositorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePrintCompositorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePrintCompositorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePrintCompositorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePrintCompositorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePrintCompositorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePrintCompositorMethod "getBodyFontName" o = PrintCompositorGetBodyFontNameMethodInfo
ResolvePrintCompositorMethod "getBottomMargin" o = PrintCompositorGetBottomMarginMethodInfo
ResolvePrintCompositorMethod "getBuffer" o = PrintCompositorGetBufferMethodInfo
ResolvePrintCompositorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePrintCompositorMethod "getFooterFontName" o = PrintCompositorGetFooterFontNameMethodInfo
ResolvePrintCompositorMethod "getHeaderFontName" o = PrintCompositorGetHeaderFontNameMethodInfo
ResolvePrintCompositorMethod "getHighlightSyntax" o = PrintCompositorGetHighlightSyntaxMethodInfo
ResolvePrintCompositorMethod "getLeftMargin" o = PrintCompositorGetLeftMarginMethodInfo
ResolvePrintCompositorMethod "getLineNumbersFontName" o = PrintCompositorGetLineNumbersFontNameMethodInfo
ResolvePrintCompositorMethod "getNPages" o = PrintCompositorGetNPagesMethodInfo
ResolvePrintCompositorMethod "getPaginationProgress" o = PrintCompositorGetPaginationProgressMethodInfo
ResolvePrintCompositorMethod "getPrintFooter" o = PrintCompositorGetPrintFooterMethodInfo
ResolvePrintCompositorMethod "getPrintHeader" o = PrintCompositorGetPrintHeaderMethodInfo
ResolvePrintCompositorMethod "getPrintLineNumbers" o = PrintCompositorGetPrintLineNumbersMethodInfo
ResolvePrintCompositorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePrintCompositorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePrintCompositorMethod "getRightMargin" o = PrintCompositorGetRightMarginMethodInfo
ResolvePrintCompositorMethod "getTabWidth" o = PrintCompositorGetTabWidthMethodInfo
ResolvePrintCompositorMethod "getTopMargin" o = PrintCompositorGetTopMarginMethodInfo
ResolvePrintCompositorMethod "getWrapMode" o = PrintCompositorGetWrapModeMethodInfo
ResolvePrintCompositorMethod "setBodyFontName" o = PrintCompositorSetBodyFontNameMethodInfo
ResolvePrintCompositorMethod "setBottomMargin" o = PrintCompositorSetBottomMarginMethodInfo
ResolvePrintCompositorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePrintCompositorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePrintCompositorMethod "setFooterFontName" o = PrintCompositorSetFooterFontNameMethodInfo
ResolvePrintCompositorMethod "setFooterFormat" o = PrintCompositorSetFooterFormatMethodInfo
ResolvePrintCompositorMethod "setHeaderFontName" o = PrintCompositorSetHeaderFontNameMethodInfo
ResolvePrintCompositorMethod "setHeaderFormat" o = PrintCompositorSetHeaderFormatMethodInfo
ResolvePrintCompositorMethod "setHighlightSyntax" o = PrintCompositorSetHighlightSyntaxMethodInfo
ResolvePrintCompositorMethod "setLeftMargin" o = PrintCompositorSetLeftMarginMethodInfo
ResolvePrintCompositorMethod "setLineNumbersFontName" o = PrintCompositorSetLineNumbersFontNameMethodInfo
ResolvePrintCompositorMethod "setPrintFooter" o = PrintCompositorSetPrintFooterMethodInfo
ResolvePrintCompositorMethod "setPrintHeader" o = PrintCompositorSetPrintHeaderMethodInfo
ResolvePrintCompositorMethod "setPrintLineNumbers" o = PrintCompositorSetPrintLineNumbersMethodInfo
ResolvePrintCompositorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePrintCompositorMethod "setRightMargin" o = PrintCompositorSetRightMarginMethodInfo
ResolvePrintCompositorMethod "setTabWidth" o = PrintCompositorSetTabWidthMethodInfo
ResolvePrintCompositorMethod "setTopMargin" o = PrintCompositorSetTopMarginMethodInfo
ResolvePrintCompositorMethod "setWrapMode" o = PrintCompositorSetWrapModeMethodInfo
ResolvePrintCompositorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePrintCompositorMethod t PrintCompositor, O.OverloadedMethod info PrintCompositor p) => OL.IsLabel t (PrintCompositor -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePrintCompositorMethod t PrintCompositor, O.OverloadedMethod info PrintCompositor p, R.HasField t PrintCompositor p) => R.HasField t PrintCompositor p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePrintCompositorMethod t PrintCompositor, O.OverloadedMethodInfo info PrintCompositor) => OL.IsLabel t (O.MethodProxy info PrintCompositor) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getPrintCompositorBodyFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
getPrintCompositorBodyFontName :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m (Maybe Text)
getPrintCompositorBodyFontName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"body-font-name"
setPrintCompositorBodyFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
setPrintCompositorBodyFontName :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> Text -> m ()
setPrintCompositorBodyFontName o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"body-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorBodyFontName :: (IsPrintCompositor o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructPrintCompositorBodyFontName :: forall o (m :: * -> *).
(IsPrintCompositor o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructPrintCompositorBodyFontName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"body-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data PrintCompositorBodyFontNamePropertyInfo
instance AttrInfo PrintCompositorBodyFontNamePropertyInfo where
type AttrAllowedOps PrintCompositorBodyFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorBodyFontNamePropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorBodyFontNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PrintCompositorBodyFontNamePropertyInfo = (~) T.Text
type AttrTransferType PrintCompositorBodyFontNamePropertyInfo = T.Text
type AttrGetType PrintCompositorBodyFontNamePropertyInfo = (Maybe T.Text)
type AttrLabel PrintCompositorBodyFontNamePropertyInfo = "body-font-name"
type AttrOrigin PrintCompositorBodyFontNamePropertyInfo = PrintCompositor
attrGet = getPrintCompositorBodyFontName
attrSet = setPrintCompositorBodyFontName
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorBodyFontName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.bodyFontName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:bodyFontName"
})
#endif
getPrintCompositorBuffer :: (MonadIO m, IsPrintCompositor o) => o -> m GtkSource.Buffer.Buffer
getPrintCompositorBuffer :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m Buffer
getPrintCompositorBuffer o
obj = IO Buffer -> m Buffer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Buffer) -> IO Buffer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getPrintCompositorBuffer" (IO (Maybe Buffer) -> IO Buffer) -> IO (Maybe Buffer) -> IO Buffer
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Buffer -> Buffer) -> IO (Maybe Buffer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"buffer" ManagedPtr Buffer -> Buffer
GtkSource.Buffer.Buffer
constructPrintCompositorBuffer :: (IsPrintCompositor o, MIO.MonadIO m, GtkSource.Buffer.IsBuffer a) => a -> m (GValueConstruct o)
constructPrintCompositorBuffer :: forall o (m :: * -> *) a.
(IsPrintCompositor o, MonadIO m, IsBuffer a) =>
a -> m (GValueConstruct o)
constructPrintCompositorBuffer a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"buffer" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data PrintCompositorBufferPropertyInfo
instance AttrInfo PrintCompositorBufferPropertyInfo where
type AttrAllowedOps PrintCompositorBufferPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintCompositorBufferPropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorBufferPropertyInfo = GtkSource.Buffer.IsBuffer
type AttrTransferTypeConstraint PrintCompositorBufferPropertyInfo = GtkSource.Buffer.IsBuffer
type AttrTransferType PrintCompositorBufferPropertyInfo = GtkSource.Buffer.Buffer
type AttrGetType PrintCompositorBufferPropertyInfo = GtkSource.Buffer.Buffer
type AttrLabel PrintCompositorBufferPropertyInfo = "buffer"
type AttrOrigin PrintCompositorBufferPropertyInfo = PrintCompositor
attrGet = getPrintCompositorBuffer
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo GtkSource.Buffer.Buffer v
attrConstruct = constructPrintCompositorBuffer
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.buffer"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:buffer"
})
#endif
getPrintCompositorFooterFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"footer-font-name"
setPrintCompositorFooterFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"footer-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorFooterFontName :: (IsPrintCompositor o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"footer-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearPrintCompositorFooterFontName :: (MonadIO m, IsPrintCompositor o) => o -> m ()
o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"footer-font-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data PrintCompositorFooterFontNamePropertyInfo
instance AttrInfo PrintCompositorFooterFontNamePropertyInfo where
type AttrAllowedOps PrintCompositorFooterFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintCompositorFooterFontNamePropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorFooterFontNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PrintCompositorFooterFontNamePropertyInfo = (~) T.Text
type AttrTransferType PrintCompositorFooterFontNamePropertyInfo = T.Text
type AttrGetType PrintCompositorFooterFontNamePropertyInfo = (Maybe T.Text)
type AttrLabel PrintCompositorFooterFontNamePropertyInfo = "footer-font-name"
type AttrOrigin PrintCompositorFooterFontNamePropertyInfo = PrintCompositor
attrGet = getPrintCompositorFooterFontName
attrSet = setPrintCompositorFooterFontName
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorFooterFontName
attrClear = clearPrintCompositorFooterFontName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.footerFontName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:footerFontName"
})
#endif
getPrintCompositorHeaderFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"header-font-name"
setPrintCompositorHeaderFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"header-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorHeaderFontName :: (IsPrintCompositor o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"header-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearPrintCompositorHeaderFontName :: (MonadIO m, IsPrintCompositor o) => o -> m ()
o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"header-font-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data PrintCompositorHeaderFontNamePropertyInfo
instance AttrInfo PrintCompositorHeaderFontNamePropertyInfo where
type AttrAllowedOps PrintCompositorHeaderFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintCompositorHeaderFontNamePropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorHeaderFontNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PrintCompositorHeaderFontNamePropertyInfo = (~) T.Text
type AttrTransferType PrintCompositorHeaderFontNamePropertyInfo = T.Text
type AttrGetType PrintCompositorHeaderFontNamePropertyInfo = (Maybe T.Text)
type AttrLabel PrintCompositorHeaderFontNamePropertyInfo = "header-font-name"
type AttrOrigin PrintCompositorHeaderFontNamePropertyInfo = PrintCompositor
attrGet = getPrintCompositorHeaderFontName
attrSet = setPrintCompositorHeaderFontName
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorHeaderFontName
attrClear = clearPrintCompositorHeaderFontName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.headerFontName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:headerFontName"
})
#endif
getPrintCompositorHighlightSyntax :: (MonadIO m, IsPrintCompositor o) => o -> m Bool
getPrintCompositorHighlightSyntax :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m Bool
getPrintCompositorHighlightSyntax o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"highlight-syntax"
setPrintCompositorHighlightSyntax :: (MonadIO m, IsPrintCompositor o) => o -> Bool -> m ()
setPrintCompositorHighlightSyntax :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> Bool -> m ()
setPrintCompositorHighlightSyntax o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"highlight-syntax" Bool
val
constructPrintCompositorHighlightSyntax :: (IsPrintCompositor o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPrintCompositorHighlightSyntax :: forall o (m :: * -> *).
(IsPrintCompositor o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPrintCompositorHighlightSyntax Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"highlight-syntax" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintCompositorHighlightSyntaxPropertyInfo
instance AttrInfo PrintCompositorHighlightSyntaxPropertyInfo where
type AttrAllowedOps PrintCompositorHighlightSyntaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorHighlightSyntaxPropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorHighlightSyntaxPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintCompositorHighlightSyntaxPropertyInfo = (~) Bool
type AttrTransferType PrintCompositorHighlightSyntaxPropertyInfo = Bool
type AttrGetType PrintCompositorHighlightSyntaxPropertyInfo = Bool
type AttrLabel PrintCompositorHighlightSyntaxPropertyInfo = "highlight-syntax"
type AttrOrigin PrintCompositorHighlightSyntaxPropertyInfo = PrintCompositor
attrGet = getPrintCompositorHighlightSyntax
attrSet = setPrintCompositorHighlightSyntax
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorHighlightSyntax
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.highlightSyntax"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:highlightSyntax"
})
#endif
getPrintCompositorLineNumbersFontName :: (MonadIO m, IsPrintCompositor o) => o -> m (Maybe T.Text)
getPrintCompositorLineNumbersFontName :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m (Maybe Text)
getPrintCompositorLineNumbersFontName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"line-numbers-font-name"
setPrintCompositorLineNumbersFontName :: (MonadIO m, IsPrintCompositor o) => o -> T.Text -> m ()
setPrintCompositorLineNumbersFontName :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> Text -> m ()
setPrintCompositorLineNumbersFontName o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"line-numbers-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructPrintCompositorLineNumbersFontName :: (IsPrintCompositor o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructPrintCompositorLineNumbersFontName :: forall o (m :: * -> *).
(IsPrintCompositor o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructPrintCompositorLineNumbersFontName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"line-numbers-font-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearPrintCompositorLineNumbersFontName :: (MonadIO m, IsPrintCompositor o) => o -> m ()
clearPrintCompositorLineNumbersFontName :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m ()
clearPrintCompositorLineNumbersFontName o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"line-numbers-font-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data PrintCompositorLineNumbersFontNamePropertyInfo
instance AttrInfo PrintCompositorLineNumbersFontNamePropertyInfo where
type AttrAllowedOps PrintCompositorLineNumbersFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PrintCompositorLineNumbersFontNamePropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorLineNumbersFontNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint PrintCompositorLineNumbersFontNamePropertyInfo = (~) T.Text
type AttrTransferType PrintCompositorLineNumbersFontNamePropertyInfo = T.Text
type AttrGetType PrintCompositorLineNumbersFontNamePropertyInfo = (Maybe T.Text)
type AttrLabel PrintCompositorLineNumbersFontNamePropertyInfo = "line-numbers-font-name"
type AttrOrigin PrintCompositorLineNumbersFontNamePropertyInfo = PrintCompositor
attrGet = getPrintCompositorLineNumbersFontName
attrSet = setPrintCompositorLineNumbersFontName
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorLineNumbersFontName
attrClear = clearPrintCompositorLineNumbersFontName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.lineNumbersFontName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:lineNumbersFontName"
})
#endif
getPrintCompositorNPages :: (MonadIO m, IsPrintCompositor o) => o -> m Int32
getPrintCompositorNPages :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m Int32
getPrintCompositorNPages o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"n-pages"
#if defined(ENABLE_OVERLOADING)
data PrintCompositorNPagesPropertyInfo
instance AttrInfo PrintCompositorNPagesPropertyInfo where
type AttrAllowedOps PrintCompositorNPagesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorNPagesPropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorNPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint PrintCompositorNPagesPropertyInfo = (~) ()
type AttrTransferType PrintCompositorNPagesPropertyInfo = ()
type AttrGetType PrintCompositorNPagesPropertyInfo = Int32
type AttrLabel PrintCompositorNPagesPropertyInfo = "n-pages"
type AttrOrigin PrintCompositorNPagesPropertyInfo = PrintCompositor
attrGet = getPrintCompositorNPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.nPages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:nPages"
})
#endif
getPrintCompositorPrintFooter :: (MonadIO m, IsPrintCompositor o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"print-footer"
setPrintCompositorPrintFooter :: (MonadIO m, IsPrintCompositor o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"print-footer" Bool
val
constructPrintCompositorPrintFooter :: (IsPrintCompositor o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"print-footer" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintCompositorPrintFooterPropertyInfo
instance AttrInfo PrintCompositorPrintFooterPropertyInfo where
type AttrAllowedOps PrintCompositorPrintFooterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorPrintFooterPropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorPrintFooterPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintCompositorPrintFooterPropertyInfo = (~) Bool
type AttrTransferType PrintCompositorPrintFooterPropertyInfo = Bool
type AttrGetType PrintCompositorPrintFooterPropertyInfo = Bool
type AttrLabel PrintCompositorPrintFooterPropertyInfo = "print-footer"
type AttrOrigin PrintCompositorPrintFooterPropertyInfo = PrintCompositor
attrGet = getPrintCompositorPrintFooter
attrSet = setPrintCompositorPrintFooter
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorPrintFooter
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printFooter"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:printFooter"
})
#endif
getPrintCompositorPrintHeader :: (MonadIO m, IsPrintCompositor o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"print-header"
setPrintCompositorPrintHeader :: (MonadIO m, IsPrintCompositor o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"print-header" Bool
val
constructPrintCompositorPrintHeader :: (IsPrintCompositor o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"print-header" Bool
val
#if defined(ENABLE_OVERLOADING)
data PrintCompositorPrintHeaderPropertyInfo
instance AttrInfo PrintCompositorPrintHeaderPropertyInfo where
type AttrAllowedOps PrintCompositorPrintHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorPrintHeaderPropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorPrintHeaderPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PrintCompositorPrintHeaderPropertyInfo = (~) Bool
type AttrTransferType PrintCompositorPrintHeaderPropertyInfo = Bool
type AttrGetType PrintCompositorPrintHeaderPropertyInfo = Bool
type AttrLabel PrintCompositorPrintHeaderPropertyInfo = "print-header"
type AttrOrigin PrintCompositorPrintHeaderPropertyInfo = PrintCompositor
attrGet = getPrintCompositorPrintHeader
attrSet = setPrintCompositorPrintHeader
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorPrintHeader
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printHeader"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:printHeader"
})
#endif
getPrintCompositorPrintLineNumbers :: (MonadIO m, IsPrintCompositor o) => o -> m Word32
getPrintCompositorPrintLineNumbers :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m Word32
getPrintCompositorPrintLineNumbers o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"print-line-numbers"
setPrintCompositorPrintLineNumbers :: (MonadIO m, IsPrintCompositor o) => o -> Word32 -> m ()
setPrintCompositorPrintLineNumbers :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> Word32 -> m ()
setPrintCompositorPrintLineNumbers o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"print-line-numbers" Word32
val
constructPrintCompositorPrintLineNumbers :: (IsPrintCompositor o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructPrintCompositorPrintLineNumbers :: forall o (m :: * -> *).
(IsPrintCompositor o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructPrintCompositorPrintLineNumbers Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"print-line-numbers" Word32
val
#if defined(ENABLE_OVERLOADING)
data PrintCompositorPrintLineNumbersPropertyInfo
instance AttrInfo PrintCompositorPrintLineNumbersPropertyInfo where
type AttrAllowedOps PrintCompositorPrintLineNumbersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorPrintLineNumbersPropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorPrintLineNumbersPropertyInfo = (~) Word32
type AttrTransferTypeConstraint PrintCompositorPrintLineNumbersPropertyInfo = (~) Word32
type AttrTransferType PrintCompositorPrintLineNumbersPropertyInfo = Word32
type AttrGetType PrintCompositorPrintLineNumbersPropertyInfo = Word32
type AttrLabel PrintCompositorPrintLineNumbersPropertyInfo = "print-line-numbers"
type AttrOrigin PrintCompositorPrintLineNumbersPropertyInfo = PrintCompositor
attrGet = getPrintCompositorPrintLineNumbers
attrSet = setPrintCompositorPrintLineNumbers
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorPrintLineNumbers
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printLineNumbers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:printLineNumbers"
})
#endif
getPrintCompositorTabWidth :: (MonadIO m, IsPrintCompositor o) => o -> m Word32
getPrintCompositorTabWidth :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m Word32
getPrintCompositorTabWidth o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"tab-width"
setPrintCompositorTabWidth :: (MonadIO m, IsPrintCompositor o) => o -> Word32 -> m ()
setPrintCompositorTabWidth :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> Word32 -> m ()
setPrintCompositorTabWidth o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"tab-width" Word32
val
constructPrintCompositorTabWidth :: (IsPrintCompositor o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructPrintCompositorTabWidth :: forall o (m :: * -> *).
(IsPrintCompositor o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructPrintCompositorTabWidth Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"tab-width" Word32
val
#if defined(ENABLE_OVERLOADING)
data PrintCompositorTabWidthPropertyInfo
instance AttrInfo PrintCompositorTabWidthPropertyInfo where
type AttrAllowedOps PrintCompositorTabWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorTabWidthPropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorTabWidthPropertyInfo = (~) Word32
type AttrTransferTypeConstraint PrintCompositorTabWidthPropertyInfo = (~) Word32
type AttrTransferType PrintCompositorTabWidthPropertyInfo = Word32
type AttrGetType PrintCompositorTabWidthPropertyInfo = Word32
type AttrLabel PrintCompositorTabWidthPropertyInfo = "tab-width"
type AttrOrigin PrintCompositorTabWidthPropertyInfo = PrintCompositor
attrGet = getPrintCompositorTabWidth
attrSet = setPrintCompositorTabWidth
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorTabWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.tabWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:tabWidth"
})
#endif
getPrintCompositorWrapMode :: (MonadIO m, IsPrintCompositor o) => o -> m Gtk.Enums.WrapMode
getPrintCompositorWrapMode :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> m WrapMode
getPrintCompositorWrapMode o
obj = IO WrapMode -> m WrapMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WrapMode -> m WrapMode) -> IO WrapMode -> m WrapMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO WrapMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"wrap-mode"
setPrintCompositorWrapMode :: (MonadIO m, IsPrintCompositor o) => o -> Gtk.Enums.WrapMode -> m ()
setPrintCompositorWrapMode :: forall (m :: * -> *) o.
(MonadIO m, IsPrintCompositor o) =>
o -> WrapMode -> m ()
setPrintCompositorWrapMode o
obj WrapMode
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> WrapMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"wrap-mode" WrapMode
val
constructPrintCompositorWrapMode :: (IsPrintCompositor o, MIO.MonadIO m) => Gtk.Enums.WrapMode -> m (GValueConstruct o)
constructPrintCompositorWrapMode :: forall o (m :: * -> *).
(IsPrintCompositor o, MonadIO m) =>
WrapMode -> m (GValueConstruct o)
constructPrintCompositorWrapMode WrapMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> WrapMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"wrap-mode" WrapMode
val
#if defined(ENABLE_OVERLOADING)
data PrintCompositorWrapModePropertyInfo
instance AttrInfo PrintCompositorWrapModePropertyInfo where
type AttrAllowedOps PrintCompositorWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PrintCompositorWrapModePropertyInfo = IsPrintCompositor
type AttrSetTypeConstraint PrintCompositorWrapModePropertyInfo = (~) Gtk.Enums.WrapMode
type AttrTransferTypeConstraint PrintCompositorWrapModePropertyInfo = (~) Gtk.Enums.WrapMode
type AttrTransferType PrintCompositorWrapModePropertyInfo = Gtk.Enums.WrapMode
type AttrGetType PrintCompositorWrapModePropertyInfo = Gtk.Enums.WrapMode
type AttrLabel PrintCompositorWrapModePropertyInfo = "wrap-mode"
type AttrOrigin PrintCompositorWrapModePropertyInfo = PrintCompositor
attrGet = getPrintCompositorWrapMode
attrSet = setPrintCompositorWrapMode
attrTransfer _ v = do
return v
attrConstruct = constructPrintCompositorWrapMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.wrapMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#g:attr:wrapMode"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PrintCompositor
type instance O.AttributeList PrintCompositor = PrintCompositorAttributeList
type PrintCompositorAttributeList = ('[ '("bodyFontName", PrintCompositorBodyFontNamePropertyInfo), '("buffer", PrintCompositorBufferPropertyInfo), '("footerFontName", PrintCompositorFooterFontNamePropertyInfo), '("headerFontName", PrintCompositorHeaderFontNamePropertyInfo), '("highlightSyntax", PrintCompositorHighlightSyntaxPropertyInfo), '("lineNumbersFontName", PrintCompositorLineNumbersFontNamePropertyInfo), '("nPages", PrintCompositorNPagesPropertyInfo), '("printFooter", PrintCompositorPrintFooterPropertyInfo), '("printHeader", PrintCompositorPrintHeaderPropertyInfo), '("printLineNumbers", PrintCompositorPrintLineNumbersPropertyInfo), '("tabWidth", PrintCompositorTabWidthPropertyInfo), '("wrapMode", PrintCompositorWrapModePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
printCompositorBodyFontName :: AttrLabelProxy "bodyFontName"
printCompositorBodyFontName = AttrLabelProxy
printCompositorBuffer :: AttrLabelProxy "buffer"
printCompositorBuffer = AttrLabelProxy
printCompositorFooterFontName :: AttrLabelProxy "footerFontName"
printCompositorFooterFontName = AttrLabelProxy
printCompositorHeaderFontName :: AttrLabelProxy "headerFontName"
printCompositorHeaderFontName = AttrLabelProxy
printCompositorHighlightSyntax :: AttrLabelProxy "highlightSyntax"
printCompositorHighlightSyntax = AttrLabelProxy
printCompositorLineNumbersFontName :: AttrLabelProxy "lineNumbersFontName"
printCompositorLineNumbersFontName = AttrLabelProxy
printCompositorNPages :: AttrLabelProxy "nPages"
printCompositorNPages = AttrLabelProxy
printCompositorPrintFooter :: AttrLabelProxy "printFooter"
printCompositorPrintFooter = AttrLabelProxy
printCompositorPrintHeader :: AttrLabelProxy "printHeader"
printCompositorPrintHeader = AttrLabelProxy
printCompositorPrintLineNumbers :: AttrLabelProxy "printLineNumbers"
printCompositorPrintLineNumbers = AttrLabelProxy
printCompositorTabWidth :: AttrLabelProxy "tabWidth"
printCompositorTabWidth = AttrLabelProxy
printCompositorWrapMode :: AttrLabelProxy "wrapMode"
printCompositorWrapMode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList PrintCompositor = PrintCompositorSignalList
type PrintCompositorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_source_print_compositor_new" gtk_source_print_compositor_new ::
Ptr GtkSource.Buffer.Buffer ->
IO (Ptr PrintCompositor)
printCompositorNew ::
(B.CallStack.HasCallStack, MonadIO m, GtkSource.Buffer.IsBuffer a) =>
a
-> m PrintCompositor
printCompositorNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuffer a) =>
a -> m PrintCompositor
printCompositorNew a
buffer = IO PrintCompositor -> m PrintCompositor
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PrintCompositor -> m PrintCompositor)
-> IO PrintCompositor -> m PrintCompositor
forall a b. (a -> b) -> a -> b
$ do
Ptr Buffer
buffer' <- a -> IO (Ptr Buffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr PrintCompositor
result <- Ptr Buffer -> IO (Ptr PrintCompositor)
gtk_source_print_compositor_new Ptr Buffer
buffer'
Text -> Ptr PrintCompositor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printCompositorNew" Ptr PrintCompositor
result
PrintCompositor
result' <- ((ManagedPtr PrintCompositor -> PrintCompositor)
-> Ptr PrintCompositor -> IO PrintCompositor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PrintCompositor -> PrintCompositor
PrintCompositor) Ptr PrintCompositor
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
PrintCompositor -> IO PrintCompositor
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PrintCompositor
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_print_compositor_new_from_view" gtk_source_print_compositor_new_from_view ::
Ptr GtkSource.View.View ->
IO (Ptr PrintCompositor)
printCompositorNewFromView ::
(B.CallStack.HasCallStack, MonadIO m, GtkSource.View.IsView a) =>
a
-> m PrintCompositor
printCompositorNewFromView :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsView a) =>
a -> m PrintCompositor
printCompositorNewFromView a
view = IO PrintCompositor -> m PrintCompositor
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PrintCompositor -> m PrintCompositor)
-> IO PrintCompositor -> m PrintCompositor
forall a b. (a -> b) -> a -> b
$ do
Ptr View
view' <- a -> IO (Ptr View)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
view
Ptr PrintCompositor
result <- Ptr View -> IO (Ptr PrintCompositor)
gtk_source_print_compositor_new_from_view Ptr View
view'
Text -> Ptr PrintCompositor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printCompositorNewFromView" Ptr PrintCompositor
result
PrintCompositor
result' <- ((ManagedPtr PrintCompositor -> PrintCompositor)
-> Ptr PrintCompositor -> IO PrintCompositor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PrintCompositor -> PrintCompositor
PrintCompositor) Ptr PrintCompositor
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
view
PrintCompositor -> IO PrintCompositor
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PrintCompositor
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_print_compositor_draw_page" gtk_source_print_compositor_draw_page ::
Ptr PrintCompositor ->
Ptr Gtk.PrintContext.PrintContext ->
Int32 ->
IO ()
printCompositorDrawPage ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a, Gtk.PrintContext.IsPrintContext b) =>
a
-> b
-> Int32
-> m ()
printCompositorDrawPage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPrintCompositor a, IsPrintContext b) =>
a -> b -> Int32 -> m ()
printCompositorDrawPage a
compositor b
context Int32
pageNr = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Ptr PrintContext
context' <- b -> IO (Ptr PrintContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr PrintCompositor -> Ptr PrintContext -> Int32 -> IO ()
gtk_source_print_compositor_draw_page Ptr PrintCompositor
compositor' Ptr PrintContext
context' Int32
pageNr
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorDrawPageMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsPrintCompositor a, Gtk.PrintContext.IsPrintContext b) => O.OverloadedMethod PrintCompositorDrawPageMethodInfo a signature where
overloadedMethod = printCompositorDrawPage
instance O.OverloadedMethodInfo PrintCompositorDrawPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorDrawPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorDrawPage"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_body_font_name" gtk_source_print_compositor_get_body_font_name ::
Ptr PrintCompositor ->
IO CString
printCompositorGetBodyFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m T.Text
printCompositorGetBodyFontName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m Text
printCompositorGetBodyFontName a
compositor = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
result <- Ptr PrintCompositor -> IO CString
gtk_source_print_compositor_get_body_font_name Ptr PrintCompositor
compositor'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printCompositorGetBodyFontName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetBodyFontNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetBodyFontNameMethodInfo a signature where
overloadedMethod = printCompositorGetBodyFontName
instance O.OverloadedMethodInfo PrintCompositorGetBodyFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetBodyFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetBodyFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_bottom_margin" gtk_source_print_compositor_get_bottom_margin ::
Ptr PrintCompositor ->
CUInt ->
IO CDouble
printCompositorGetBottomMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Gtk.Enums.Unit
-> m Double
printCompositorGetBottomMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Unit -> m Double
printCompositorGetBottomMargin a
compositor Unit
unit = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PrintCompositor -> CUInt -> IO CDouble
gtk_source_print_compositor_get_bottom_margin Ptr PrintCompositor
compositor' CUInt
unit'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetBottomMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetBottomMarginMethodInfo a signature where
overloadedMethod = printCompositorGetBottomMargin
instance O.OverloadedMethodInfo PrintCompositorGetBottomMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetBottomMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetBottomMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_buffer" gtk_source_print_compositor_get_buffer ::
Ptr PrintCompositor ->
IO (Ptr GtkSource.Buffer.Buffer)
printCompositorGetBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m GtkSource.Buffer.Buffer
printCompositorGetBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m Buffer
printCompositorGetBuffer a
compositor = IO Buffer -> m Buffer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Ptr Buffer
result <- Ptr PrintCompositor -> IO (Ptr Buffer)
gtk_source_print_compositor_get_buffer Ptr PrintCompositor
compositor'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printCompositorGetBuffer" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Buffer -> Buffer
GtkSource.Buffer.Buffer) Ptr Buffer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Buffer -> IO Buffer
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetBufferMethodInfo
instance (signature ~ (m GtkSource.Buffer.Buffer), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetBufferMethodInfo a signature where
overloadedMethod = printCompositorGetBuffer
instance O.OverloadedMethodInfo PrintCompositorGetBufferMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetBuffer"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_footer_font_name" ::
Ptr PrintCompositor ->
IO CString
printCompositorGetFooterFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m T.Text
a
compositor = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
result <- Ptr PrintCompositor -> IO CString
gtk_source_print_compositor_get_footer_font_name Ptr PrintCompositor
compositor'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printCompositorGetFooterFontName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetFooterFontNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetFooterFontNameMethodInfo a signature where
overloadedMethod = printCompositorGetFooterFontName
instance O.OverloadedMethodInfo PrintCompositorGetFooterFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetFooterFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetFooterFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_header_font_name" ::
Ptr PrintCompositor ->
IO CString
printCompositorGetHeaderFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m T.Text
a
compositor = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
result <- Ptr PrintCompositor -> IO CString
gtk_source_print_compositor_get_header_font_name Ptr PrintCompositor
compositor'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printCompositorGetHeaderFontName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetHeaderFontNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetHeaderFontNameMethodInfo a signature where
overloadedMethod = printCompositorGetHeaderFontName
instance O.OverloadedMethodInfo PrintCompositorGetHeaderFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetHeaderFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetHeaderFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_highlight_syntax" gtk_source_print_compositor_get_highlight_syntax ::
Ptr PrintCompositor ->
IO CInt
printCompositorGetHighlightSyntax ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Bool
printCompositorGetHighlightSyntax :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m Bool
printCompositorGetHighlightSyntax a
compositor = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CInt
result <- Ptr PrintCompositor -> IO CInt
gtk_source_print_compositor_get_highlight_syntax Ptr PrintCompositor
compositor'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetHighlightSyntaxMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetHighlightSyntaxMethodInfo a signature where
overloadedMethod = printCompositorGetHighlightSyntax
instance O.OverloadedMethodInfo PrintCompositorGetHighlightSyntaxMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetHighlightSyntax",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetHighlightSyntax"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_left_margin" gtk_source_print_compositor_get_left_margin ::
Ptr PrintCompositor ->
CUInt ->
IO CDouble
printCompositorGetLeftMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Gtk.Enums.Unit
-> m Double
printCompositorGetLeftMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Unit -> m Double
printCompositorGetLeftMargin a
compositor Unit
unit = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PrintCompositor -> CUInt -> IO CDouble
gtk_source_print_compositor_get_left_margin Ptr PrintCompositor
compositor' CUInt
unit'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetLeftMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetLeftMarginMethodInfo a signature where
overloadedMethod = printCompositorGetLeftMargin
instance O.OverloadedMethodInfo PrintCompositorGetLeftMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetLeftMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetLeftMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_line_numbers_font_name" gtk_source_print_compositor_get_line_numbers_font_name ::
Ptr PrintCompositor ->
IO CString
printCompositorGetLineNumbersFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m T.Text
printCompositorGetLineNumbersFontName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m Text
printCompositorGetLineNumbersFontName a
compositor = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
result <- Ptr PrintCompositor -> IO CString
gtk_source_print_compositor_get_line_numbers_font_name Ptr PrintCompositor
compositor'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"printCompositorGetLineNumbersFontName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetLineNumbersFontNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetLineNumbersFontNameMethodInfo a signature where
overloadedMethod = printCompositorGetLineNumbersFontName
instance O.OverloadedMethodInfo PrintCompositorGetLineNumbersFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetLineNumbersFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetLineNumbersFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_n_pages" gtk_source_print_compositor_get_n_pages ::
Ptr PrintCompositor ->
IO Int32
printCompositorGetNPages ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Int32
printCompositorGetNPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m Int32
printCompositorGetNPages a
compositor = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Int32
result <- Ptr PrintCompositor -> IO Int32
gtk_source_print_compositor_get_n_pages Ptr PrintCompositor
compositor'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetNPagesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetNPagesMethodInfo a signature where
overloadedMethod = printCompositorGetNPages
instance O.OverloadedMethodInfo PrintCompositorGetNPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetNPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetNPages"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_pagination_progress" ::
Ptr PrintCompositor ->
IO CDouble
printCompositorGetPaginationProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Double
a
compositor = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CDouble
result <- Ptr PrintCompositor -> IO CDouble
gtk_source_print_compositor_get_pagination_progress Ptr PrintCompositor
compositor'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetPaginationProgressMethodInfo
instance (signature ~ (m Double), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetPaginationProgressMethodInfo a signature where
overloadedMethod = printCompositorGetPaginationProgress
instance O.OverloadedMethodInfo PrintCompositorGetPaginationProgressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetPaginationProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetPaginationProgress"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_print_footer" ::
Ptr PrintCompositor ->
IO CInt
printCompositorGetPrintFooter ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Bool
a
compositor = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CInt
result <- Ptr PrintCompositor -> IO CInt
gtk_source_print_compositor_get_print_footer Ptr PrintCompositor
compositor'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetPrintFooterMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetPrintFooterMethodInfo a signature where
overloadedMethod = printCompositorGetPrintFooter
instance O.OverloadedMethodInfo PrintCompositorGetPrintFooterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetPrintFooter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetPrintFooter"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_print_header" ::
Ptr PrintCompositor ->
IO CInt
printCompositorGetPrintHeader ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Bool
a
compositor = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CInt
result <- Ptr PrintCompositor -> IO CInt
gtk_source_print_compositor_get_print_header Ptr PrintCompositor
compositor'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetPrintHeaderMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetPrintHeaderMethodInfo a signature where
overloadedMethod = printCompositorGetPrintHeader
instance O.OverloadedMethodInfo PrintCompositorGetPrintHeaderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetPrintHeader",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetPrintHeader"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_print_line_numbers" gtk_source_print_compositor_get_print_line_numbers ::
Ptr PrintCompositor ->
IO Word32
printCompositorGetPrintLineNumbers ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Word32
printCompositorGetPrintLineNumbers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m Word32
printCompositorGetPrintLineNumbers a
compositor = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Word32
result <- Ptr PrintCompositor -> IO Word32
gtk_source_print_compositor_get_print_line_numbers Ptr PrintCompositor
compositor'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetPrintLineNumbersMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetPrintLineNumbersMethodInfo a signature where
overloadedMethod = printCompositorGetPrintLineNumbers
instance O.OverloadedMethodInfo PrintCompositorGetPrintLineNumbersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetPrintLineNumbers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetPrintLineNumbers"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_right_margin" gtk_source_print_compositor_get_right_margin ::
Ptr PrintCompositor ->
CUInt ->
IO CDouble
printCompositorGetRightMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Gtk.Enums.Unit
-> m Double
printCompositorGetRightMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Unit -> m Double
printCompositorGetRightMargin a
compositor Unit
unit = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PrintCompositor -> CUInt -> IO CDouble
gtk_source_print_compositor_get_right_margin Ptr PrintCompositor
compositor' CUInt
unit'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetRightMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetRightMarginMethodInfo a signature where
overloadedMethod = printCompositorGetRightMargin
instance O.OverloadedMethodInfo PrintCompositorGetRightMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetRightMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetRightMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_tab_width" gtk_source_print_compositor_get_tab_width ::
Ptr PrintCompositor ->
IO Word32
printCompositorGetTabWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Word32
printCompositorGetTabWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m Word32
printCompositorGetTabWidth a
compositor = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Word32
result <- Ptr PrintCompositor -> IO Word32
gtk_source_print_compositor_get_tab_width Ptr PrintCompositor
compositor'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetTabWidthMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetTabWidthMethodInfo a signature where
overloadedMethod = printCompositorGetTabWidth
instance O.OverloadedMethodInfo PrintCompositorGetTabWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetTabWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetTabWidth"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_top_margin" gtk_source_print_compositor_get_top_margin ::
Ptr PrintCompositor ->
CUInt ->
IO CDouble
printCompositorGetTopMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Gtk.Enums.Unit
-> m Double
printCompositorGetTopMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Unit -> m Double
printCompositorGetTopMargin a
compositor Unit
unit = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
CDouble
result <- Ptr PrintCompositor -> CUInt -> IO CDouble
gtk_source_print_compositor_get_top_margin Ptr PrintCompositor
compositor' CUInt
unit'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetTopMarginMethodInfo
instance (signature ~ (Gtk.Enums.Unit -> m Double), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetTopMarginMethodInfo a signature where
overloadedMethod = printCompositorGetTopMargin
instance O.OverloadedMethodInfo PrintCompositorGetTopMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetTopMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetTopMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_get_wrap_mode" gtk_source_print_compositor_get_wrap_mode ::
Ptr PrintCompositor ->
IO CUInt
printCompositorGetWrapMode ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> m Gtk.Enums.WrapMode
printCompositorGetWrapMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> m WrapMode
printCompositorGetWrapMode a
compositor = IO WrapMode -> m WrapMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WrapMode -> m WrapMode) -> IO WrapMode -> m WrapMode
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CUInt
result <- Ptr PrintCompositor -> IO CUInt
gtk_source_print_compositor_get_wrap_mode Ptr PrintCompositor
compositor'
let result' :: WrapMode
result' = (Int -> WrapMode
forall a. Enum a => Int -> a
toEnum (Int -> WrapMode) -> (CUInt -> Int) -> CUInt -> WrapMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
WrapMode -> IO WrapMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return WrapMode
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorGetWrapModeMethodInfo
instance (signature ~ (m Gtk.Enums.WrapMode), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorGetWrapModeMethodInfo a signature where
overloadedMethod = printCompositorGetWrapMode
instance O.OverloadedMethodInfo PrintCompositorGetWrapModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorGetWrapMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorGetWrapMode"
})
#endif
foreign import ccall "gtk_source_print_compositor_ignore_tag" gtk_source_print_compositor_ignore_tag ::
Ptr PrintCompositor ->
Ptr Gtk.TextTag.TextTag ->
IO ()
printCompositorIgnoreTag ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a, Gtk.TextTag.IsTextTag b) =>
a
-> b
-> m ()
printCompositorIgnoreTag :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPrintCompositor a, IsTextTag b) =>
a -> b -> m ()
printCompositorIgnoreTag a
compositor b
tag = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Ptr TextTag
tag' <- b -> IO (Ptr TextTag)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tag
Ptr PrintCompositor -> Ptr TextTag -> IO ()
gtk_source_print_compositor_ignore_tag Ptr PrintCompositor
compositor' Ptr TextTag
tag'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tag
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorIgnoreTagMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPrintCompositor a, Gtk.TextTag.IsTextTag b) => O.OverloadedMethod PrintCompositorIgnoreTagMethodInfo a signature where
overloadedMethod = printCompositorIgnoreTag
instance O.OverloadedMethodInfo PrintCompositorIgnoreTagMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorIgnoreTag",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorIgnoreTag"
})
#endif
foreign import ccall "gtk_source_print_compositor_paginate" gtk_source_print_compositor_paginate ::
Ptr PrintCompositor ->
Ptr Gtk.PrintContext.PrintContext ->
IO CInt
printCompositorPaginate ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a, Gtk.PrintContext.IsPrintContext b) =>
a
-> b
-> m Bool
printCompositorPaginate :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPrintCompositor a, IsPrintContext b) =>
a -> b -> m Bool
printCompositorPaginate a
compositor b
context = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Ptr PrintContext
context' <- b -> IO (Ptr PrintContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
CInt
result <- Ptr PrintCompositor -> Ptr PrintContext -> IO CInt
gtk_source_print_compositor_paginate Ptr PrintCompositor
compositor' Ptr PrintContext
context'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PrintCompositorPaginateMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsPrintCompositor a, Gtk.PrintContext.IsPrintContext b) => O.OverloadedMethod PrintCompositorPaginateMethodInfo a signature where
overloadedMethod = printCompositorPaginate
instance O.OverloadedMethodInfo PrintCompositorPaginateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorPaginate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorPaginate"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_body_font_name" gtk_source_print_compositor_set_body_font_name ::
Ptr PrintCompositor ->
CString ->
IO ()
printCompositorSetBodyFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> T.Text
-> m ()
printCompositorSetBodyFontName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Text -> m ()
printCompositorSetBodyFontName a
compositor Text
fontName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
fontName' <- Text -> IO CString
textToCString Text
fontName
Ptr PrintCompositor -> CString -> IO ()
gtk_source_print_compositor_set_body_font_name Ptr PrintCompositor
compositor' CString
fontName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
fontName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetBodyFontNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetBodyFontNameMethodInfo a signature where
overloadedMethod = printCompositorSetBodyFontName
instance O.OverloadedMethodInfo PrintCompositorSetBodyFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetBodyFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetBodyFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_bottom_margin" gtk_source_print_compositor_set_bottom_margin ::
Ptr PrintCompositor ->
CDouble ->
CUInt ->
IO ()
printCompositorSetBottomMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
printCompositorSetBottomMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Double -> Unit -> m ()
printCompositorSetBottomMargin a
compositor Double
margin Unit
unit = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let margin' :: CDouble
margin' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PrintCompositor -> CDouble -> CUInt -> IO ()
gtk_source_print_compositor_set_bottom_margin Ptr PrintCompositor
compositor' CDouble
margin' CUInt
unit'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetBottomMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetBottomMarginMethodInfo a signature where
overloadedMethod = printCompositorSetBottomMargin
instance O.OverloadedMethodInfo PrintCompositorSetBottomMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetBottomMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetBottomMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_footer_font_name" ::
Ptr PrintCompositor ->
CString ->
IO ()
printCompositorSetFooterFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Maybe (T.Text)
-> m ()
a
compositor Maybe Text
fontName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
maybeFontName <- case Maybe Text
fontName of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jFontName'
Ptr PrintCompositor -> CString -> IO ()
gtk_source_print_compositor_set_footer_font_name Ptr PrintCompositor
compositor' CString
maybeFontName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeFontName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetFooterFontNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetFooterFontNameMethodInfo a signature where
overloadedMethod = printCompositorSetFooterFontName
instance O.OverloadedMethodInfo PrintCompositorSetFooterFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetFooterFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetFooterFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_footer_format" ::
Ptr PrintCompositor ->
CInt ->
CString ->
CString ->
CString ->
IO ()
printCompositorSetFooterFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Bool
-> Maybe (T.Text)
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m ()
a
compositor Bool
separator Maybe Text
left Maybe Text
center Maybe Text
right = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let separator' :: CInt
separator' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
separator
CString
maybeLeft <- case Maybe Text
left of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLeft -> do
CString
jLeft' <- Text -> IO CString
textToCString Text
jLeft
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLeft'
CString
maybeCenter <- case Maybe Text
center of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jCenter -> do
CString
jCenter' <- Text -> IO CString
textToCString Text
jCenter
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCenter'
CString
maybeRight <- case Maybe Text
right of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jRight -> do
CString
jRight' <- Text -> IO CString
textToCString Text
jRight
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jRight'
Ptr PrintCompositor
-> CInt -> CString -> CString -> CString -> IO ()
gtk_source_print_compositor_set_footer_format Ptr PrintCompositor
compositor' CInt
separator' CString
maybeLeft CString
maybeCenter CString
maybeRight
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLeft
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeCenter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeRight
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetFooterFormatMethodInfo
instance (signature ~ (Bool -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetFooterFormatMethodInfo a signature where
overloadedMethod = printCompositorSetFooterFormat
instance O.OverloadedMethodInfo PrintCompositorSetFooterFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetFooterFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetFooterFormat"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_header_font_name" ::
Ptr PrintCompositor ->
CString ->
IO ()
printCompositorSetHeaderFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Maybe (T.Text)
-> m ()
a
compositor Maybe Text
fontName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
maybeFontName <- case Maybe Text
fontName of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jFontName'
Ptr PrintCompositor -> CString -> IO ()
gtk_source_print_compositor_set_header_font_name Ptr PrintCompositor
compositor' CString
maybeFontName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeFontName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetHeaderFontNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetHeaderFontNameMethodInfo a signature where
overloadedMethod = printCompositorSetHeaderFontName
instance O.OverloadedMethodInfo PrintCompositorSetHeaderFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetHeaderFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetHeaderFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_header_format" ::
Ptr PrintCompositor ->
CInt ->
CString ->
CString ->
CString ->
IO ()
printCompositorSetHeaderFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Bool
-> Maybe (T.Text)
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m ()
a
compositor Bool
separator Maybe Text
left Maybe Text
center Maybe Text
right = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let separator' :: CInt
separator' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
separator
CString
maybeLeft <- case Maybe Text
left of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLeft -> do
CString
jLeft' <- Text -> IO CString
textToCString Text
jLeft
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLeft'
CString
maybeCenter <- case Maybe Text
center of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jCenter -> do
CString
jCenter' <- Text -> IO CString
textToCString Text
jCenter
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCenter'
CString
maybeRight <- case Maybe Text
right of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jRight -> do
CString
jRight' <- Text -> IO CString
textToCString Text
jRight
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jRight'
Ptr PrintCompositor
-> CInt -> CString -> CString -> CString -> IO ()
gtk_source_print_compositor_set_header_format Ptr PrintCompositor
compositor' CInt
separator' CString
maybeLeft CString
maybeCenter CString
maybeRight
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLeft
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeCenter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeRight
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetHeaderFormatMethodInfo
instance (signature ~ (Bool -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetHeaderFormatMethodInfo a signature where
overloadedMethod = printCompositorSetHeaderFormat
instance O.OverloadedMethodInfo PrintCompositorSetHeaderFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetHeaderFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetHeaderFormat"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_highlight_syntax" gtk_source_print_compositor_set_highlight_syntax ::
Ptr PrintCompositor ->
CInt ->
IO ()
printCompositorSetHighlightSyntax ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Bool
-> m ()
printCompositorSetHighlightSyntax :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Bool -> m ()
printCompositorSetHighlightSyntax a
compositor Bool
highlight = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let highlight' :: CInt
highlight' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
highlight
Ptr PrintCompositor -> CInt -> IO ()
gtk_source_print_compositor_set_highlight_syntax Ptr PrintCompositor
compositor' CInt
highlight'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetHighlightSyntaxMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetHighlightSyntaxMethodInfo a signature where
overloadedMethod = printCompositorSetHighlightSyntax
instance O.OverloadedMethodInfo PrintCompositorSetHighlightSyntaxMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetHighlightSyntax",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetHighlightSyntax"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_left_margin" gtk_source_print_compositor_set_left_margin ::
Ptr PrintCompositor ->
CDouble ->
CUInt ->
IO ()
printCompositorSetLeftMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
printCompositorSetLeftMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Double -> Unit -> m ()
printCompositorSetLeftMargin a
compositor Double
margin Unit
unit = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let margin' :: CDouble
margin' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PrintCompositor -> CDouble -> CUInt -> IO ()
gtk_source_print_compositor_set_left_margin Ptr PrintCompositor
compositor' CDouble
margin' CUInt
unit'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetLeftMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetLeftMarginMethodInfo a signature where
overloadedMethod = printCompositorSetLeftMargin
instance O.OverloadedMethodInfo PrintCompositorSetLeftMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetLeftMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetLeftMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_line_numbers_font_name" gtk_source_print_compositor_set_line_numbers_font_name ::
Ptr PrintCompositor ->
CString ->
IO ()
printCompositorSetLineNumbersFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Maybe (T.Text)
-> m ()
printCompositorSetLineNumbersFontName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Maybe Text -> m ()
printCompositorSetLineNumbersFontName a
compositor Maybe Text
fontName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
CString
maybeFontName <- case Maybe Text
fontName of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jFontName'
Ptr PrintCompositor -> CString -> IO ()
gtk_source_print_compositor_set_line_numbers_font_name Ptr PrintCompositor
compositor' CString
maybeFontName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeFontName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetLineNumbersFontNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetLineNumbersFontNameMethodInfo a signature where
overloadedMethod = printCompositorSetLineNumbersFontName
instance O.OverloadedMethodInfo PrintCompositorSetLineNumbersFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetLineNumbersFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetLineNumbersFontName"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_print_footer" ::
Ptr PrintCompositor ->
CInt ->
IO ()
printCompositorSetPrintFooter ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Bool
-> m ()
a
compositor Bool
print = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let print' :: CInt
print' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
print
Ptr PrintCompositor -> CInt -> IO ()
gtk_source_print_compositor_set_print_footer Ptr PrintCompositor
compositor' CInt
print'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetPrintFooterMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetPrintFooterMethodInfo a signature where
overloadedMethod = printCompositorSetPrintFooter
instance O.OverloadedMethodInfo PrintCompositorSetPrintFooterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetPrintFooter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetPrintFooter"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_print_header" ::
Ptr PrintCompositor ->
CInt ->
IO ()
printCompositorSetPrintHeader ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Bool
-> m ()
a
compositor Bool
print = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let print' :: CInt
print' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
print
Ptr PrintCompositor -> CInt -> IO ()
gtk_source_print_compositor_set_print_header Ptr PrintCompositor
compositor' CInt
print'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetPrintHeaderMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetPrintHeaderMethodInfo a signature where
overloadedMethod = printCompositorSetPrintHeader
instance O.OverloadedMethodInfo PrintCompositorSetPrintHeaderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetPrintHeader",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetPrintHeader"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_print_line_numbers" gtk_source_print_compositor_set_print_line_numbers ::
Ptr PrintCompositor ->
Word32 ->
IO ()
printCompositorSetPrintLineNumbers ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Word32
-> m ()
printCompositorSetPrintLineNumbers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Word32 -> m ()
printCompositorSetPrintLineNumbers a
compositor Word32
interval = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Ptr PrintCompositor -> Word32 -> IO ()
gtk_source_print_compositor_set_print_line_numbers Ptr PrintCompositor
compositor' Word32
interval
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetPrintLineNumbersMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetPrintLineNumbersMethodInfo a signature where
overloadedMethod = printCompositorSetPrintLineNumbers
instance O.OverloadedMethodInfo PrintCompositorSetPrintLineNumbersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetPrintLineNumbers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetPrintLineNumbers"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_right_margin" gtk_source_print_compositor_set_right_margin ::
Ptr PrintCompositor ->
CDouble ->
CUInt ->
IO ()
printCompositorSetRightMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
printCompositorSetRightMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Double -> Unit -> m ()
printCompositorSetRightMargin a
compositor Double
margin Unit
unit = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let margin' :: CDouble
margin' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PrintCompositor -> CDouble -> CUInt -> IO ()
gtk_source_print_compositor_set_right_margin Ptr PrintCompositor
compositor' CDouble
margin' CUInt
unit'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetRightMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetRightMarginMethodInfo a signature where
overloadedMethod = printCompositorSetRightMargin
instance O.OverloadedMethodInfo PrintCompositorSetRightMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetRightMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetRightMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_tab_width" gtk_source_print_compositor_set_tab_width ::
Ptr PrintCompositor ->
Word32 ->
IO ()
printCompositorSetTabWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Word32
-> m ()
printCompositorSetTabWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Word32 -> m ()
printCompositorSetTabWidth a
compositor Word32
width = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
Ptr PrintCompositor -> Word32 -> IO ()
gtk_source_print_compositor_set_tab_width Ptr PrintCompositor
compositor' Word32
width
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetTabWidthMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetTabWidthMethodInfo a signature where
overloadedMethod = printCompositorSetTabWidth
instance O.OverloadedMethodInfo PrintCompositorSetTabWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetTabWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetTabWidth"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_top_margin" gtk_source_print_compositor_set_top_margin ::
Ptr PrintCompositor ->
CDouble ->
CUInt ->
IO ()
printCompositorSetTopMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Double
-> Gtk.Enums.Unit
-> m ()
printCompositorSetTopMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> Double -> Unit -> m ()
printCompositorSetTopMargin a
compositor Double
margin Unit
unit = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let margin' :: CDouble
margin' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
margin
let unit' :: CUInt
unit' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Unit -> Int) -> Unit -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Unit -> Int
forall a. Enum a => a -> Int
fromEnum) Unit
unit
Ptr PrintCompositor -> CDouble -> CUInt -> IO ()
gtk_source_print_compositor_set_top_margin Ptr PrintCompositor
compositor' CDouble
margin' CUInt
unit'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetTopMarginMethodInfo
instance (signature ~ (Double -> Gtk.Enums.Unit -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetTopMarginMethodInfo a signature where
overloadedMethod = printCompositorSetTopMargin
instance O.OverloadedMethodInfo PrintCompositorSetTopMarginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetTopMargin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetTopMargin"
})
#endif
foreign import ccall "gtk_source_print_compositor_set_wrap_mode" gtk_source_print_compositor_set_wrap_mode ::
Ptr PrintCompositor ->
CUInt ->
IO ()
printCompositorSetWrapMode ::
(B.CallStack.HasCallStack, MonadIO m, IsPrintCompositor a) =>
a
-> Gtk.Enums.WrapMode
-> m ()
printCompositorSetWrapMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPrintCompositor a) =>
a -> WrapMode -> m ()
printCompositorSetWrapMode a
compositor WrapMode
wrapMode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PrintCompositor
compositor' <- a -> IO (Ptr PrintCompositor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
compositor
let wrapMode' :: CUInt
wrapMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (WrapMode -> Int) -> WrapMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WrapMode -> Int
forall a. Enum a => a -> Int
fromEnum) WrapMode
wrapMode
Ptr PrintCompositor -> CUInt -> IO ()
gtk_source_print_compositor_set_wrap_mode Ptr PrintCompositor
compositor' CUInt
wrapMode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
compositor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PrintCompositorSetWrapModeMethodInfo
instance (signature ~ (Gtk.Enums.WrapMode -> m ()), MonadIO m, IsPrintCompositor a) => O.OverloadedMethod PrintCompositorSetWrapModeMethodInfo a signature where
overloadedMethod = printCompositorSetWrapMode
instance O.OverloadedMethodInfo PrintCompositorSetWrapModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.PrintCompositor.printCompositorSetWrapMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-PrintCompositor.html#v:printCompositorSetWrapMode"
})
#endif